diff options
| -rw-r--r-- | IsingScalingFunction.wl | 2 | ||||
| -rw-r--r-- | IsingScalingFunctionExamples.nb | 3397 |
2 files changed, 567 insertions, 2832 deletions
diff --git a/IsingScalingFunction.wl b/IsingScalingFunction.wl index 074c451..81d5e47 100644 --- a/IsingScalingFunction.wl +++ b/IsingScalingFunction.wl @@ -1,6 +1,6 @@ BeginPackage["IsingScalingFunction`"] -InverseCoordinates::usage = "" +InverseCoordinates::usage = "Numerically convert Schofield coordinates to t and h." g::usage = "g[θ0, gs][θ] gives the Schofield coordinate transformation defined in (14)." diff --git a/IsingScalingFunctionExamples.nb b/IsingScalingFunctionExamples.nb index 39ec940..5327e14 100644 --- a/IsingScalingFunctionExamples.nb +++ b/IsingScalingFunctionExamples.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 667710, 12917] -NotebookOptionsPosition[ 661856, 12816] -NotebookOutlinePosition[ 662252, 12832] -CellTagsIndexPosition[ 662209, 12829] +NotebookDataLength[ 548992, 10652] +NotebookOptionsPosition[ 543628, 10559] +NotebookOutlinePosition[ 544025, 10575] +CellTagsIndexPosition[ 543982, 10572] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -29,8 +29,7 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"<<", "IsingScalingFunction`"}]], "Input", CellChangeTimes->{{3.857727185315662*^9, 3.857727193227276*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], + CellLabel->"In[2]:=",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], Cell[CellGroupData[{ @@ -39,61 +38,81 @@ Cell["Checking Convergence", "Section", 3.8871755894618473`*^9}},ExpressionUUID->"c6615333-57fa-470a-9d07-\ 45b7998853ef"], -Cell[CellGroupData[{ - Cell[BoxData[ - RowBox[{"ListLogPlot", "[", - RowBox[{ - RowBox[{"Abs", "@", - RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"expansionData", "=", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "10", "]"}]}], + ",", "\[IndentingNewLine]", + RowBox[{"Rest", "@", + RowBox[{ + RowBox[{"(", + RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "10", "]"}]}], + ",", "\[IndentingNewLine]", RowBox[{ - RowBox[{"Rest", "@", "Gls"}], ",", "\[IndentingNewLine]", - RowBox[{"Rest", "@", - RowBox[{ - RowBox[{"(", - RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "10", - "]"}]}], ",", "\[IndentingNewLine]", - RowBox[{"Rest", "@", + RowBox[{"DScriptMCasD\[Xi]List", "[", + RowBox[{"10", ",", "\[Theta]0Cas"}], "]"}], + RowBox[{"Table", "[", RowBox[{ - RowBox[{"(", - RowBox[{"DScriptFPlusMinusD\[Xi]\[Theta]0List", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "10", - "]"}]}], ",", "\[IndentingNewLine]", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"m", "-", "1"}], ")"}], "!"}], + RowBox[{"m", "!"}]], ",", + RowBox[{"{", + RowBox[{"m", ",", "1", ",", "11"}], "}"}]}], "]"}]}]}], "}"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8886448431935587`*^9, 3.8886448702334423`*^9}, { + 3.893236672936851*^9, 3.893236714190187*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"80831edd-bcaa-4fc0-b1cf-e561a87ed645"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"lowExpansion", "=", + RowBox[{"ListLogPlot", "[", + RowBox[{ + RowBox[{"Abs", "@", + RowBox[{"Prepend", "[", RowBox[{ - RowBox[{"DScriptMCasD\[Xi]List", "[", - RowBox[{"9", ",", "\[Theta]0Cas"}], "]"}], - RowBox[{"Table", "[", - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"m", "-", "1"}], ")"}], "!"}], - RowBox[{"m", "!"}]], ",", - RowBox[{"{", - RowBox[{"m", ",", "1", ",", "10"}], "}"}]}], "]"}]}]}], - "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", - RowBox[{"PlotLegends", "->", - RowBox[{"{", - RowBox[{ - "\"\<Numerics\>\"", ",", - "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 2)\>\"", ",", - " ", "\"\<Ours (\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = \ -6)\>\"", ",", " ", - "\"\<Casselle \ + RowBox[{"N", "@", "expansionData"}], ",", + RowBox[{"Rest", "@", "Gls"}]}], "]"}]}], ",", "\[IndentingNewLine]", + RowBox[{"PlotLegends", "->", + RowBox[{"{", + RowBox[{ + "\"\<True value\>\"", ",", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\) acc. \ +(\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 2)\>\"", ",", " ", + "\"\<\!\(\*SuperscriptBox[\(10\), \(-7\)]\) acc. \ +(\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\) = 6)\>\"", ",", " ", + "\"\<Casselle \ \!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ \",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ \*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", - "\[IndentingNewLine]", - RowBox[{"AxesLabel", "->", - RowBox[{"{", - RowBox[{ - "m", ",", - "\"\<\!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \"-\"], \ -RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], - "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", + "\[IndentingNewLine]", + RowBox[{"AxesLabel", "->", + RowBox[{"{", + RowBox[{ + "m", ",", + "\"\<\!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \"-\"], \ +RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)(0)\>\""}], + "}"}]}], ",", + RowBox[{"AspectRatio", "->", "1"}], ",", + RowBox[{"ImageSize", "->", "300"}], ",", + RowBox[{"LabelStyle", "->", + RowBox[{"{", + RowBox[{"Black", ",", + RowBox[{"FontSize", "->", "14"}], ",", + RowBox[{"FontFamily", "->", "Times"}]}], "}"}]}]}], + "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.857749647216098*^9, 3.8577496994157143`*^9}, { 3.857749922049673*^9, 3.85774992576917*^9}, {3.8577499613439693`*^9, 3.857749992122797*^9}, 3.85775012053415*^9, {3.857750706878583*^9, @@ -112,8 +131,13 @@ RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], 3.887175999053248*^9}, {3.8871760552145844`*^9, 3.887176082574828*^9}, { 3.8871762157611847`*^9, 3.8871762198011923`*^9}, {3.887177053185808*^9, 3.887177056768643*^9}, {3.887177274797546*^9, 3.887177275893218*^9}, { - 3.887182861536953*^9, 3.887182887361492*^9}}, - CellLabel->"In[50]:=",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], + 3.887182861536953*^9, 3.887182887361492*^9}, {3.888644779680475*^9, + 3.888644805864798*^9}, {3.888645052645789*^9, 3.888645082429496*^9}, { + 3.8886469041838827`*^9, 3.888646906527582*^9}, {3.888651934772694*^9, + 3.888651946156498*^9}, {3.8886519793259983`*^9, 3.888651979938348*^9}, { + 3.888652017390772*^9, 3.888652019678075*^9}, {3.8886521205763397`*^9, + 3.8886521472005053`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], Cell[BoxData[ TemplateBox[{ @@ -366,20 +390,20 @@ Cell[BoxData[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], - PointBox[{{1., 0.3058939805971186}, {2., -3.0168887065353305`}, { - 3., -3.2150683102154654`}, {4., -2.572538454827262}, { - 5., -1.4892648280222789`}, {6., -0.1386048937927774}, {7., - 1.3936280651903656`}, {8., 3.068229298025496}, {9., - 4.86877207063148}, {10., 6.787701993282389}}]}, { + PointBox[{{1., 0.30589398059712153`}, {2., -3.0168887065353793`}, { + 3., -3.215068310215657}, {4., -2.5725384548275394`}, { + 5., -1.4892648280226084`}, {6., -0.13860489379333457`}, {7., + 1.3936280651899522`}, {8., 3.0682292980253587`}, {9., + 4.868772070631323}, {10., 6.787701993282296}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], - PointBox[{{1., 0.3058939805973096}, {2., -3.0168887065293206`}, { - 3., -3.247688691772541}, {4., -2.68293641315294}, { - 5., -1.693451794998496}, {6., -0.41677165264981303`}, {7., - 1.0779209886099572`}, {8., 2.751072258729848}, {9., - 4.580918301921699}, {10., 6.559514133636299}}]}, { + PointBox[{{1., 0.3058939805973111}, {2., -3.016888706529401}, { + 3., -3.2476886917736394`}, {4., -2.6829364131573383`}, { + 5., -1.6934517950284986`}, {6., -0.4167716527892342}, {7., + 1.077920988068182}, {8., 2.751072257647312}, {9., + 4.580918298498121}, {10., 6.559514124245457}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.922526, 0.385626, 0.209179], @@ -388,11 +412,11 @@ Cell[BoxData[ 3., -3.4304577212393763`}, {4., -3.0879090822971853`}, { 5., -2.4123077494594973`}, {6., -1.5399609645024661`}, { 7., -0.5375360276296015}, {8., 0.5571798344870343}, {9., - 1.7206870273901242`}, {10., 2.937388810483148}}]}}}, {{}, {}}}, { + 1.7206870273901242`}, {10., 2.937388810483148}, {11., + 4.196416462160851}}]}}}, {{}, {}}}, { DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, - DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox["m", HoldForm], TraditionalForm], @@ -400,7 +424,7 @@ Cell[BoxData[ TagBox[ "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalF]\\\", \\\ \"-\\\"], RowBox[{\\\"(\\\", StyleBox[\\\"m\\\",FontSlant->\\\"Italic\\\"], \ -\\\")\\\"}]]\\)\"", HoldForm], TraditionalForm]}, +\\\")\\\"}]]\\)(0)\"", HoldForm], TraditionalForm]}, AxesOrigin -> {0., -4.900657053954936}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ @@ -408,7 +432,8 @@ Cell[BoxData[ 15.954589770191003`, RotateLabel -> 0], Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], + GrayLevel[0.5, 0.4]], ImageSize -> 300, LabelStyle -> { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { @@ -487,10 +512,12 @@ Cell[BoxData[ FormBox[ FormBox[ TemplateBox[{ - "\"Numerics\"", - "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ -2)\"", "\"Ours (\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = \ -6)\"", "\"Casselle \\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\ + "\"True value\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-3\\)]\\) acc. \ +(\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = 2)\"", + "\"\\!\\(\\*SuperscriptBox[\\(10\\), \\(-7\\)]\\) acc. \ +(\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\) = 6)\"", + "\"Casselle \\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\ \\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ \"al\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\ \\\"Italic\\\"]\\)\""}, "PointLegend", DisplayFunction -> (FormBox[ @@ -526,7 +553,8 @@ Cell[BoxData[ Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ @@ -552,7 +580,8 @@ Cell[BoxData[ Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ @@ -578,7 +607,8 @@ Cell[BoxData[ Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #3}, { GraphicsBox[{{}, { Directive[ EdgeForm[ @@ -604,7 +634,8 @@ Cell[BoxData[ Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, + BaselinePosition -> (Scaled[-0.023999999999999994`] -> + Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, @@ -621,8 +652,8 @@ Cell[BoxData[ "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> - False], TraditionalForm]& ), + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Background -> + Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", @@ -685,7 +716,13 @@ Cell[BoxData[ RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", + RowBox[{"{", + RowBox[{ + + TemplateBox[<|"color" -> GrayLevel[0]|>, + "GrayLevelColorSwatchTemplate"], ",", + RowBox[{"FontSize", "\[Rule]", "14"}], ",", + RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", @@ -716,8 +753,11 @@ Cell[BoxData[ 3.857792222287586*^9, 3.858849787156363*^9, 3.87050364829076*^9, 3.8871757582795773`*^9, 3.887175832439167*^9, 3.887175881031187*^9, 3.8871759132706127`*^9, {3.887177050408825*^9, 3.887177079176489*^9}, - 3.8871778469623938`*^9, 3.887182910688779*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"1e4ad944-e98e-4c7a-9635-ca69ead5609d"] + 3.8871778469623938`*^9, 3.887182910688779*^9, 3.8886448295691757`*^9, { + 3.888646811017542*^9, 3.888646814560216*^9}, 3.888646910080586*^9, + 3.8886519498592653`*^9, 3.888651983555497*^9, 3.88865202351644*^9, { + 3.8886521263516397`*^9, 3.888652150779788*^9}, 3.893236723869225*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7e2943f8-381c-42b0-8f9b-5bee0ef91468"] }, Open ]], Cell[CellGroupData[{ @@ -761,7 +801,7 @@ RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], CellChangeTimes->{{3.887176095335842*^9, 3.887176195096656*^9}, { 3.887177268477648*^9, 3.887177312454509*^9}, {3.88717809517518*^9, 3.887178096950481*^9}}, - CellLabel->"In[48]:=",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], + CellLabel->"In[9]:=",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], Cell[BoxData[ TemplateBox[{ @@ -1243,8 +1283,8 @@ Cell[BoxData[ RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.8871762120034847`*^9, 3.8871773104168453`*^9, - 3.88717753344375*^9, 3.887178350360724*^9}, - CellLabel->"Out[48]=",ExpressionUUID->"b3456563-de2e-4cab-8de9-9936c2f54801"] + 3.88717753344375*^9, 3.887178350360724*^9, 3.893236946450159*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"22fc8cc4-070f-4958-a56e-3747a3946f91"] }, Open ]], Cell[CellGroupData[{ @@ -1321,7 +1361,7 @@ RowBox[{\"(\", StyleBox[\"m\",FontSlant->\"Italic\"], \")\"}]]\)\>\""}], 3.8871762157611847`*^9, 3.8871762198011923`*^9}, {3.887177053185808*^9, 3.887177056768643*^9}, {3.887177274797546*^9, 3.887177275893218*^9}, { 3.8871780781341352`*^9, 3.8871780927035418`*^9}, 3.8871829559006443`*^9}, - CellLabel->"In[51]:=",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], + CellLabel->"In[10]:=",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], Cell[BoxData[ TemplateBox[{ @@ -1329,22 +1369,31 @@ Cell[BoxData[ "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ \\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ -RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ -\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"11429856398034503\\\", RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \\\"8\\\"]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\ +\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\ +\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ +\\\"[\\\", RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\ +\", \\\"\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"-\\\", \ FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ -SuperscriptBox[RowBox[{\\\"114\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"10\\\ -\", \\\"\[RightSkeleton]\\\"}], \\\"4503\\\"}], RowBox[{\\\"7\\\", \\\"/\\\", \ -\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \\\"\ -\[Pi]\\\", \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\ -\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"\[Pi]\\\"}], RowBox[{\\\"107668955486287134775550584515499446643328\ +\\\", \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}]}]]}], \\\"]\\\"}]}], \ RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ \\\", SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"4\\\ @@ -1359,21 +1408,26 @@ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ -RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ -\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 51, 55, - 31937344891897383576, "Local"}, +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 10, 3, + 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9}, + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947358164*^9}, CellLabel-> "During evaluation of \ -In[51]:=",ExpressionUUID->"9b0aa616-8fe6-46d6-a9be-6d62ea62ac99"], +In[10]:=",ExpressionUUID->"0a6c061e-9d22-469f-9a77-bdafbf23ad0b"], Cell[BoxData[ TemplateBox[{ @@ -1381,22 +1435,31 @@ Cell[BoxData[ "\"Internal precision limit $MaxExtraPrecision = \\!\\(\\*RowBox[{\\\"50.`\ \\\"}]\\) reached while evaluating \\!\\(\\*RowBox[{RowBox[{\\\"-\\\", \ FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ -RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ -\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[\\\"11429856398034503\\\", RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"1\\\", \\\"8\\\"]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\ +\" \\\", SuperscriptBox[\\\"Glaisher\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\ +\\\"}]], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \ +\\\"[\\\", RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\ +\", \\\"\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"-\\\", \ FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ -SuperscriptBox[RowBox[{\\\"114\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"10\\\ -\", \\\"\[RightSkeleton]\\\"}], \\\"4503\\\"}], RowBox[{\\\"7\\\", \\\"/\\\", \ -\\\"8\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \\\"\ -\[Pi]\\\", \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\ -\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", \\\"\[Pi]\\\"}], RowBox[{\\\"107668955486287134775550584515499446643328\ +\\\", \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}]}]]}], \\\"]\\\"}]}], \ RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ \\\", SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"4\\\ @@ -1411,21 +1474,26 @@ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", FractionBox[RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]], \\\" \\\", \ -RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\"]\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ +RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}]}], \ +RowBox[{\\\"107668955486287134775550584515499446643328\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]]}]]}], \\\")\\\"}]}], \ RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ -\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 51, 56, - 31937344891897383576, "Local"}, +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}]\\).\"", 2, 10, 4, + 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.887178351227854*^9, 3.8871829569063053`*^9}, + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.8932369473905067`*^9}, CellLabel-> "During evaluation of \ -In[51]:=",ExpressionUUID->"3cf38fe5-056b-4e76-a342-8e2c2b0786c0"], +In[10]:=",ExpressionUUID->"373d98dd-b1a2-4d6f-95ae-eed0eb8466ed"], Cell[BoxData[ TemplateBox[{ @@ -1436,27 +1504,48 @@ FractionBox[RowBox[{\\\"\ 46681463692889041973700532620906696296885587180818594561\\\", \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"4\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ RowBox[{SuperscriptBox[\\\"\[ExponentialE]\\\", RowBox[{\\\"Times\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]], \\\" \\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}], \\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]], \\\" \\\", RowBox[{\\\"ExpIntegralEi\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +FractionBox[RowBox[{\\\"114355882310899360521914666542829\\\", \\\" \\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ +\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"13\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ \\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]]}], \\\")\\\"}]}], \ +\\\"\[RightSkeleton]\\\"}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]], \\\" \\\", SuperscriptBox[\\\"\[Pi]\\\ +\", \\\"2\\\"]}]]}], \\\")\\\"}]}], \ \\\"383435814415399100830298627422256492275580379991986176\\\"]}], \\\"+\\\", \ FractionBox[RowBox[{\\\"1995291215029551557786949\\\", \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"371382927287350339456845128427992\\\", \\\" \\\", \ +SuperscriptBox[\\\"2\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"12\\\"}]], \\\" \ +\\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"17\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[\\\"Glaisher\ +\\\", RowBox[{\\\"3\\\", \\\"/\\\", \\\"2\\\"}]], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}], \ +RowBox[{\\\"1075985451139697449885706090335689\\\", \\\" \\\", \ +SuperscriptBox[\\\"189336221\\\", RowBox[{\\\"1\\\", \\\"/\\\", \\\"4\\\"}]], \ +\\\" \\\", SuperscriptBox[\\\"\[Pi]\\\", \\\"2\\\"]}]]}], \\\"-\\\", \ FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ \[RightSkeleton]\\\"}]], \\\"+\\\", RowBox[{\\\"12\\\", \\\" \\\", RowBox[{\\\ @@ -1466,24 +1555,26 @@ FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \ \\\")\\\"}]}]}], \\\")\\\"}]}], \\\"104122350499534957937152\\\"]}]\\).\"", 2, - 51, 57, 31937344891897383576, "Local"}, + 10, 5, 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.887178351227854*^9, 3.8871829569141273`*^9}, + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947398655*^9}, CellLabel-> "During evaluation of \ -In[51]:=",ExpressionUUID->"9f39e826-00f7-402f-871b-4606e9158cd2"], +In[10]:=",ExpressionUUID->"dd61bf6b-294b-4bed-aba1-2e9c5e3c51b1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"N\\\", \\\"::\\\", \ \\\"meprec\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \ -calculation.\"", 2, 51, 58, 31937344891897383576, "Local"}, +calculation.\"", 2, 10, 6, 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.887178351227854*^9, 3.887182956920743*^9}, + CellChangeTimes->{3.887178351227854*^9, 3.887182956896912*^9, + 3.893236947406246*^9}, CellLabel-> "During evaluation of \ -In[51]:=",ExpressionUUID->"a67bf71d-de22-4a04-a00f-2a4e90ec18e4"], +In[10]:=",ExpressionUUID->"e21c2683-2071-4eaf-8b43-f1a927c53e45"], Cell[BoxData[ TemplateBox[{ @@ -1960,8 +2051,9 @@ Cell[BoxData[ 3.857792222287586*^9, 3.858849787156363*^9, 3.87050364829076*^9, 3.8871757582795773`*^9, 3.887175832439167*^9, 3.887175881031187*^9, 3.8871759132706127`*^9, {3.887177050408825*^9, 3.887177079176489*^9}, - 3.8871778469623938`*^9, 3.88717835171142*^9, 3.887182957347884*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"03a49490-2ef8-446d-ba98-3e5c10e80cea"] + 3.8871778469623938`*^9, 3.88717835171142*^9, 3.887182957347884*^9, + 3.893236947863029*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ff6a7053-cfa6-438c-814c-b29d04a9cf5a"] }, Open ]], Cell[BoxData[ @@ -2021,15 +2113,16 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "}"}], ",", "30"}], "]"}]}]}], "]"}]}], + RowBox[{"-", "4"}]]}], "}"}], ",", "40"}], "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8763698032393303`*^9, 3.876369884026998*^9}, { 3.876369997688293*^9, 3.876370007596018*^9}, {3.876370093855591*^9, 3.876370097827559*^9}, {3.876370373799559*^9, 3.87637037853475*^9}, { 3.876370465791544*^9, 3.876370497109497*^9}, {3.8763705296866293`*^9, 3.8763705300592623`*^9}, {3.87637087516536*^9, 3.876370917886569*^9}, { - 3.8871830446215487`*^9, 3.8871830462680683`*^9}}, - CellLabel->"In[52]:=",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], + 3.8871830446215487`*^9, 3.8871830462680683`*^9}, {3.888652445838126*^9, + 3.888652445910111*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], Cell[BoxData[ RowBox[{ @@ -2039,7 +2132,7 @@ Cell[BoxData[ 3.876370456614004*^9, 3.87637045960681*^9}, {3.8763707444350023`*^9, 3.876370747760907*^9}, {3.8871830509234037`*^9, 3.887183054611264*^9}, { 3.88718324727179*^9, 3.887183248687171*^9}}, - CellLabel->"In[55]:=",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], + CellLabel->"In[12]:=",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], Cell[CellGroupData[{ @@ -2074,21 +2167,24 @@ Cell[BoxData[ \",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"h\",FontSlant->\"\ Italic\"], RowBox[{RowBox[{RowBox[{\"-\", \"1\"}], \"/\", \"\[Beta]\"}], \" \ \", \"\[Delta]\"}]]\)\>\"", ",", - "\"\<| \!\(\*SuperscriptBox[SubscriptBox[\"\[ScriptCapitalF]\", \ -\"0\"], StyleBox[RowBox[{\"[\", \"n\", \"]\"}],FontSlant->\"Italic\"]]\) - \!\ -\(\*SuperscriptBox[SubscriptBox[\(\[ScriptCapitalF]\), \(0\)], \([6]\)]\) |\>\ -\""}], "}"}]}], ",", + "\"\<| \[CapitalDelta]\[ScriptCapitalF] |\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "->", RowBox[{"{", RowBox[{"Black", ",", - RowBox[{"FontSize", "->", "12"}]}], "}"}]}]}], "]"}]}]], "Input", + RowBox[{"FontSize", "->", "14"}], ",", + RowBox[{"FontFamily", "->", "Times"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "->", "300"}], ",", + RowBox[{"AspectRatio", "->", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.876369918582409*^9, 3.876369955823151*^9}, { 3.8763704278400583`*^9, 3.876370441157851*^9}, {3.876370738463645*^9, 3.876370807838629*^9}, {3.876371122391995*^9, 3.876371134526176*^9}, { 3.8763711865989513`*^9, 3.8763713519982843`*^9}, {3.8763718721351347`*^9, 3.876371879486059*^9}, {3.8871830602203217`*^9, 3.8871830720200863`*^9}, { - 3.887183263600458*^9, 3.887183269024135*^9}}, - CellLabel->"In[57]:=",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], + 3.887183263600458*^9, 3.887183269024135*^9}, {3.8886524322381153`*^9, + 3.888652436725748*^9}, {3.888652836485338*^9, 3.888652845517272*^9}, { + 3.88866054306837*^9, 3.8886605513076878`*^9}, {3.888660587340844*^9, + 3.8886606095808287`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], Cell[BoxData[ TemplateBox[{ @@ -2177,7 +2273,7 @@ ZEqiChjktOnpnSnpBJxuF6mefsUgY7rwsfx/CBibNRSxf88gZQ85DbRmEiCp +axgTxeDNEkuHz2bQ4Dtq8Zj/j0Msv6u9UJ0LgE5R7nLTzkMcn1jTGddHgG6 nqzD8mMMMsQ/ZpV+AQG3eXbPnphikNoHl8ZvFhLwMepkatQsgxRzifOoLyJA mnn5QP0ig2T6tayIFhPw//+H5MzXksQtJQT8D5MIPME= - "]]}, Annotation[#, "Charting`Private`Tag$2320297#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$3858825#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -2265,7 +2361,7 @@ VZlM6lDv7VSWBRuqSpuDT5cxKYlJVoqyDRuW2fOkXwGTuuN045vCRjbsaGGU +jYm5WnUsFPIkQ27Kuo9oruYlHxtdfgCJzbkb+bMFfUwKYa4SswvYm6X0N3+ AbJe66jNRZvYYBaGnFWGmRQH/xvv7syGMwssJjx5TCrD0fZjG3FDyraclAkm ldD89WKKCxvkV0TYVs0wqf0d/Tk1rmz4//Ms5ZYxlt3pxob/AxlbfUM= - "]]}, Annotation[#, "Charting`Private`Tag$2320297#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$3858825#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -2364,7 +2460,7 @@ iaDgvGjo/u/1BP2qgn1FcDgFVQ+TuPh+EvQU2xa2XmxR6vkT4xaCXr3x/L+Z aApcyr85hrQT9MbiSqfReAqydvQvPusiaJHtlx7mX6JgrJ3rUW8fQf/+2fQo 6yIFG49LW0sNE3SiUif3Dzw+km3T9K5xgo4slJptvUJBdfzuO/HTBG0qZdnG eZMCMckTWyrnCXpteOPyMHz9///PoJc3DDQeiKPgf1Ddh4M= - "]]}, Annotation[#, "Charting`Private`Tag$2320297#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$3858825#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -2505,7 +2601,7 @@ bCtKfs9C35QO8V3C5L6jj235+ImFnjQ+YgkdZODN7WvCc5tYKEoqOD+IR/qH L+E7nV0sdPkNvq70mwGLfcqrlfpZKLLmdkmVvCmc5l825jnEQu1/e/hMxhl4 l7AhNWGMhXI8Ew/KE/3JLzmwqnqKhV4J7xXXfcnA////gEAjZdXpCQb+B2Kp /2E= - "]]}, Annotation[#, "Charting`Private`Tag$2320297#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$3858825#4"]& ]}}, {}}, { DisplayFunction -> Identity, Method -> { "DefaultBoundaryStyle" -> Automatic, @@ -2546,8 +2642,7 @@ l7AhNWGMhXI8Ew/KE/3JLzmwqnqKhV4J7xXXfcnA////gEAjZdXpCQb+B2Kp 5.999999755102041}, {-25.205799457979644`, -7.661000555932736}}, \ {{-5.999999755102041, 5.999999755102041}, {-25.205799457979644`, -7.661000555932736}}}}, - DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { FormBox[ TagBox[ @@ -2558,13 +2653,8 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ \\\"/\\\", \\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], TraditionalForm], FormBox[ - TagBox[ - "\"| \\!\\(\\*SuperscriptBox[SubscriptBox[\\\"\[ScriptCapitalF]\\\", \ -\\\"0\\\"], StyleBox[RowBox[{\\\"[\\\", \\\"n\\\", \ -\\\"]\\\"}],FontSlant->\\\"Italic\\\"]]\\) - \ -\\!\\(\\*SuperscriptBox[SubscriptBox[\\(\[ScriptCapitalF]\\), \\(0\\)], \ -\\([6]\\)]\\) |\"", HoldForm], TraditionalForm]}, - AxesOrigin -> {0, -25.205799457979644`}, + TagBox["\"| \[CapitalDelta]\[ScriptCapitalF] |\"", HoldForm], + TraditionalForm]}, AxesOrigin -> {0, -25.205799457979644`}, CoordinatesToolOptions -> {"DisplayFunction" -> ({ Part[#, 1], Exp[ @@ -2576,8 +2666,8 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], LabelStyle -> { - GrayLevel[0], FontSize -> 12}, + GrayLevel[0.5, 0.4]], ImageSize -> 300, LabelStyle -> { + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { @@ -2605,7 +2695,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ TagBox[ GridBox[{{ StyleBox["\"n\"", { - GrayLevel[0], FontSize -> 12, FontFamily -> "Arial"}, + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Background -> Automatic, StripOnInput -> False]}, { TagBox[ GridBox[{{ @@ -2633,7 +2723,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.038000000000000006`] -> + BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ @@ -2657,7 +2747,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.038000000000000006`] -> + BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ @@ -2681,7 +2771,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.038000000000000006`] -> + BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ @@ -2705,7 +2795,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.038000000000000006`] -> + BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, @@ -2730,7 +2820,7 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - GrayLevel[0], FontSize -> 12, FontFamily -> "Arial"}, Background -> + GrayLevel[0], FontSize -> 14, FontFamily -> Times}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ @@ -2781,7 +2871,8 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", - RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", + RowBox[{"FontSize", "\[Rule]", "14"}], ",", + RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], ",", RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, @@ -2807,8 +2898,10 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ 3.876370721301976*^9, 3.876370808099616*^9}, {3.876371116142165*^9, 3.8763711352371187`*^9}, {3.87637122695619*^9, 3.8763712464846573`*^9}, { 3.87637134045012*^9, 3.8763713522979193`*^9}, 3.876371879846971*^9, - 3.884692135165325*^9, {3.887183224363449*^9, 3.887183269387279*^9}}, - CellLabel->"Out[57]=",ExpressionUUID->"a1a5856a-a28d-405e-8e1b-5efdfee445c7"] + 3.884692135165325*^9, {3.887183224363449*^9, 3.887183269387279*^9}, + 3.888652370069249*^9, 3.888652437166812*^9, 3.888652624199464*^9, + 3.888652845863263*^9, 3.888660610541423*^9, 3.893237180256803*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fd2b4eb1-d3d0-47e3-9856-c74924a73143"] }, Open ]], Cell[BoxData[ @@ -2878,7 +2971,7 @@ Cell[BoxData[ 3.8763705300592623`*^9}, {3.87637087516536*^9, 3.876370917886569*^9}, { 3.87637139299862*^9, 3.8763714209705677`*^9}, {3.887183678121203*^9, 3.887183686457292*^9}}, - CellLabel->"In[58]:=",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], + CellLabel->"In[14]:=",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], Cell[BoxData[ RowBox[{ @@ -2888,7 +2981,7 @@ Cell[BoxData[ 3.876370456614004*^9, 3.87637045960681*^9}, {3.8763707444350023`*^9, 3.876370747760907*^9}, {3.8763714277972183`*^9, 3.876371431900972*^9}, { 3.887183690448813*^9, 3.887183699080945*^9}}, - CellLabel->"In[59]:=",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], + CellLabel->"In[15]:=",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], Cell[CellGroupData[{ @@ -2936,7 +3029,7 @@ Italic\"], RowBox[{RowBox[{RowBox[{\"-\", \"1\"}], \"/\", \"\[Beta]\"}], \" \ 3.876370807838629*^9}, {3.876371122391995*^9, 3.876371134526176*^9}, { 3.8763711865989513`*^9, 3.8763713519982843`*^9}, {3.87637143608066*^9, 3.876371440221603*^9}, {3.887183707042214*^9, 3.88718373222613*^9}}, - CellLabel->"In[60]:=",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], + CellLabel->"In[16]:=",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], Cell[BoxData[ TemplateBox[{ @@ -3098,7 +3191,7 @@ eKqJt2DisyhTea3cqq0/6Dg8vZf33DdRZgPvWz7Wn3QUUX2fqtUqyvwVEKuK LXQ8/bn6qGuHKDM+MOSJWhsdE00GljK6RZmW/FNn0/7QUdORakQZFmVGDEfo JHTS0Yt197TZuCiz/9w1ulwXHWsCj0cFTosyhbsLfyd201GcuL6/bF6Ueb30 KZ9iLx3///86JvPVKu6IPjr+D05eNpg= - "]]}, Annotation[#, "Charting`Private`Tag$2620620#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4159201#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -3250,7 +3343,7 @@ L981ClPPXbL8tbMaXD2mHb3bh8L0ybZ2KD+nBp96j+309qcw3YcsYn6cV4Oj 4ppvs3e3U5hCDc9USvzVwK7sh4V3N4X5jfk07OstNXh5ZGTldT+Fqc2/klRx Ww12ulMPbR6jMA3PDGllBqhBIFlv1nKKwuyq25wXFqgGtRFWCRGzFGbx2rXu 3kFqICXjubdikcJ8WyvNHhesBv//exXzxWjFwawQNfgfSt7a1g== - "]]}, Annotation[#, "Charting`Private`Tag$2620620#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4159201#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -3405,7 +3498,7 @@ OWaJwA8aq3nHtZz+QAZKMl6/1G+hsfiD0wYNghl4sqz6sG8bjRVwrDVnbQgD 0w72L2R10VgewgNaUTcYONq25FlvH411J/Cg1iHKuh4KpvLDNJZK76vAX9Tz 1zm3T1mO0VjnX51uv3SLgTXhRx6HT1Hvnzulf/oOA1et8dpdMUtjOZi/aNQI Y+D//x/Gerq6f/lHyv8HHOr1Jw== - "]]}, Annotation[#, "Charting`Private`Tag$2620620#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4159201#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -3567,7 +3660,7 @@ vK8Of56YzvOCre0EFaWro7XdjwFH333dG9hNUK5X91kluDIgZ/fIcmE/QRU+ 3eHTdoABE90cj4eGsX6LmF6rPBlg6Cu7U+YfQfnk8H387xwDIlm3zDpOEhSL 1br1Kr4M+Ba7Py12lqD8rxxKD3FngKS0//aaRXy/qZWlwR4M+P/fF6k1sEVS AD//f6I0RVc= - "]]}, Annotation[#, "Charting`Private`Tag$2620620#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4159201#4"]& ]}}, {}}, { DisplayFunction -> Identity, Method -> { "DefaultBoundaryStyle" -> Automatic, @@ -3869,8 +3962,8 @@ FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \ 3.876370721301976*^9, 3.876370808099616*^9}, {3.876371116142165*^9, 3.8763711352371187`*^9}, {3.87637122695619*^9, 3.8763712464846573`*^9}, { 3.87637134045012*^9, 3.8763713522979193`*^9}, 3.8763718090898647`*^9, - 3.887183948573832*^9}, - CellLabel->"Out[60]=",ExpressionUUID->"2782289e-0500-4f20-8ce9-6bd7b1629e9c"] + 3.887183948573832*^9, 3.893237432392331*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"e027c86a-5f73-49af-9682-15a84fa4ac67"] }, Open ]] }, Open ]], @@ -3907,6 +4000,11 @@ Cell[BoxData[{ RowBox[{"PrepareArgument", "[", RowBox[{"Data", "[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ + RowBox[{"DufDuh2", "=", + RowBox[{"DufDuh", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ RowBox[{"\[Eta]6", "=", RowBox[{"\[Eta]", "[", RowBox[{ @@ -3928,12 +4026,16 @@ Cell[BoxData[{ RowBox[{"DScriptF0D\[Eta]6", "=", RowBox[{"DScriptF0D\[Eta]", "@@", RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DufDuh6", "=", + RowBox[{"DufDuh", "@@", + RowBox[{"PrepareArgument", "[", RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.887184974652775*^9, 3.8871849902010813`*^9}, { 3.8871853260317287`*^9, 3.887185348663872*^9}, {3.887185471338563*^9, - 3.887185487738577*^9}}, - CellLabel-> - "In[103]:=",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], + 3.887185487738577*^9}, {3.8932376555040216`*^9, 3.893237683200816*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], Cell[CellGroupData[{ @@ -3993,7 +4095,7 @@ Cell[BoxData[ 3.887184941792713*^9}, {3.8871849972905684`*^9, 3.88718515068447*^9}, { 3.8871852002698402`*^9, 3.887185200333082*^9}, {3.8871852346862307`*^9, 3.887185259919454*^9}, {3.8871853538970222`*^9, 3.887185366488626*^9}}, - CellLabel->"In[96]:=",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], + CellLabel->"In[23]:=",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], Cell[BoxData[ TemplateBox[{ @@ -4102,7 +4204,7 @@ oc7WmcYUKTFY/Pz4ixZ9Pmh74ErIRIEElK3tvPLBVxh2jbfcuLNXCn7yExge zxWH2dGs0b1EafjHdOvR8TkZ+Cy5Jxi/LQs7+CW2rp3bDXfKfW8Y/SkH7zz/ eYbIoAS/9SS49ND/GTKCB7QuaMBIc868xqt74JaTWaw3SQfWt+xNaLdXgk07 SY8lru+HVttf3OEtNUhw4VcKu28B/wctisaw - "]]}, Annotation[#, "Charting`Private`Tag$2622892#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4160507#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -4236,7 +4338,7 @@ bCQsodFp6allAQ24fDE7wdTHGv5q9HYR0tKEjg9fuFfstoP79hxSrKjXgkXH JjemWNLLT0JvP12LnCZ9yM3KhWoa3KEfX8Ht7pZ9MNzPj2h2xgtyGzrZyPoe gFrtpstjoefgfxujhMiNQ/BGlUJOlXEgpG+ckkYKJjDmRuIt0fMh8H+wBV26 - "]]}, Annotation[#, "Charting`Private`Tag$2622892#2"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4160507#2"]& ]}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { @@ -4407,8 +4509,8 @@ gFrtpstjoefgfxujhMiNQ/BGlUJOlXEgpG+ckkYKJjDmRuIt0fMh8H+wBV26 CellChangeTimes->{ 3.887174570806945*^9, {3.8871751231427803`*^9, 3.8871751344236307`*^9}, { 3.887184932693384*^9, 3.887184942173463*^9}, 3.887185280438054*^9, - 3.887185367237939*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"0be94975-8aee-49b5-8880-e4fd79f9f11e"] + 3.887185367237939*^9, 3.8932376045625467`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9917cd53-ba22-4159-9239-28c8a5b2c68a"] }, Open ]], Cell[CellGroupData[{ @@ -4471,7 +4573,7 @@ Cell[BoxData[ 3.887174986510387*^9, 3.88717510283072*^9}, {3.887184947721171*^9, 3.887184948225855*^9}, {3.887185289392242*^9, 3.8871852985195312`*^9}, { 3.887185371553924*^9, 3.887185377032762*^9}}, - CellLabel->"In[97]:=",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], + CellLabel->"In[24]:=",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], Cell[BoxData[ TemplateBox[{ @@ -4526,7 +4628,7 @@ kGb2slhVLPxqv+O9/TzaOx/B3b9GHRvxE6MSd1Kww68nj/Xmr8BL/cxttHX+ +9Lz+kyc3ko8F6+iY/OPDM7mSnNbRFr4VrZpwVizLFbSrq8SvtfGs3I39CsR Ddc1x7s3H9DBhkus/S0X0XH4Frm86lO/YN+BHePrE1VwxWu9+AYnBnZn6VtO a6pju39feuLYdThIFHB78LIm/h+D2LN3 - "]]}, Annotation[#, "Charting`Private`Tag$2622973#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4160616#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -4576,7 +4678,7 @@ jWojwbg8fKFWHpXp1Ly0mdRBPGmjwpDTdGQiY7GlskYfRfV1XPOkqiJ/e7rG kWcGyNE1b7+QrxpqpdNGB3sM0TSTd4hE0kCeAUbWOY3GaGfmlNfiLi0UQCuM e9tigprv778iyNBB680c96n67EC6JRtctDO3oT+Wh5UvLlugW2EFRa7uhkig YVwFa1ghfm1xTOj97eg/eLmEcg== - "]]}, Annotation[#, "Charting`Private`Tag$2622973#2"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4160616#2"]& ]}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { @@ -4750,8 +4852,8 @@ YVwFa1ghfm1xTOj97eg/eLmEcg== 3.8759538242573233`*^9}, 3.875956884814212*^9, 3.884691471720155*^9, { 3.887174577531348*^9, 3.887174584665642*^9}, {3.887175035431831*^9, 3.8871750787266607`*^9}, 3.887184948578662*^9, {3.887185295337936*^9, - 3.887185299115622*^9}, 3.887185377502866*^9}, - CellLabel->"Out[97]=",ExpressionUUID->"8c8e78f0-682f-4cb9-bf83-9197b2c8a8c5"] + 3.887185299115622*^9}, 3.887185377502866*^9, 3.893237607053919*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"9950232b-1eb6-4bf2-a1cb-424ab941d88b"] }, Open ]], Cell[CellGroupData[{ @@ -4817,8 +4919,7 @@ Cell[BoxData[ 3.887175095902635*^9, 3.887175104950508*^9}, {3.8871849509534283`*^9, 3.8871849518418016`*^9}, {3.887185308184392*^9, 3.8871853124795923`*^9}, { 3.8871853818416777`*^9, 3.887185394801072*^9}}, - CellLabel-> - "In[100]:=",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], + CellLabel->"In[25]:=",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], Cell[BoxData[ TemplateBox[{ @@ -4955,7 +5056,7 @@ U228qCBW6P24F6tUJ1w4+8BnMkMYuzT4/suJtE7o/tv05Lm0KDYzU/9I4kgn pAYzBf9eEsPeLr+Zzi3bBVlxfd7UZxLYYf/WdrvALjgk2Vw10SaJPdF3puX3 QBc09kVa9bkdxV4ykm2lN+yGQD2W9NqAY9ji6Tvx5k3dUN4kHdluIost/MhX zOjeA4Z7P69iwxWxjvhPSKJqL/wfXweqsg== - "]]}, Annotation[#, "Charting`Private`Tag$2623267#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4160705#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -5094,7 +5195,7 @@ YVo5cGk1ZBhMzsnPLYnoIBej1Wviioehr83bWXy3LvL8eVx88dgwGEmaqrxp q+p7kODSqVsR+qPgHWhgXdy+F2HzPhJSljUKgcLlScNdRkjSMdmZJKYxENh/ wk7xgjFiN41mpieMwWnGZ7k4hinybdRkG11+HJjb5uRhlwXyTDL2RfvyOPwP XQ72hQ== - "]]}, Annotation[#, "Charting`Private`Tag$2623267#2"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4160705#2"]& ]}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.05], Scaled[0.05]}, { @@ -5268,9 +5369,9 @@ XQ72hQ== CellChangeTimes->{ 3.887174806703617*^9, 3.887174840687421*^9, {3.887174885053684*^9, 3.887174892708169*^9}, {3.8871749475866947`*^9, 3.887174977753584*^9}, - 3.887184952567544*^9, {3.8871853867115717`*^9, 3.8871853957260027`*^9}}, - CellLabel-> - "Out[100]=",ExpressionUUID->"2310df91-f2f6-4cb0-8fa7-e0535e8bac25"] + 3.887184952567544*^9, {3.8871853867115717`*^9, 3.8871853957260027`*^9}, + 3.893237607785204*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"4fd8761c-1544-4b9d-b5b4-9faa986a6608"] }, Open ]], Cell[CellGroupData[{ @@ -5291,12 +5392,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "1", - "]"}], "[", + RowBox[{"DufDuh2", "[", "1", "]"}], "[", RowBox[{"3", ",", RowBox[{"\[Gamma]", " ", RowBox[{ @@ -5323,12 +5419,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "1", - "]"}], "[", + RowBox[{"DufDuh6", "[", "1", "]"}], "[", RowBox[{"3", ",", RowBox[{"\[Gamma]", " ", RowBox[{ @@ -5401,20 +5492,20 @@ FontSlant->\"Italic\"], RowBox[{\"-\", \"\[Beta]\"}]]\)\>\""}], "}"}]}], ",", RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.875952981547227*^9, 3.875953205695381*^9}, { - 3.875953297097693*^9, 3.875953297193099*^9}, {3.875957011270492*^9, - 3.875957047134419*^9}, {3.875957125424335*^9, 3.875957151767858*^9}, { - 3.8759571836897497`*^9, 3.87595718748908*^9}, {3.875957237810454*^9, - 3.8759572647954397`*^9}, {3.8759573310521803`*^9, 3.875957359900523*^9}, { - 3.876209125582448*^9, 3.876209130718493*^9}, {3.876209246657913*^9, - 3.876209255553268*^9}, {3.884690546688959*^9, 3.884690577225401*^9}, { - 3.8846907201244907`*^9, 3.884690753852927*^9}, {3.884690875959548*^9, - 3.884690937551785*^9}, {3.88717520576867*^9, 3.8871752589375753`*^9}, { - 3.887175361564186*^9, 3.8871753678913107`*^9}, {3.88717542408533*^9, - 3.887175425325357*^9}, {3.887185406738522*^9, 3.887185422722349*^9}, { - 3.8871854939327173`*^9, 3.8871854996999493`*^9}, {3.887186514007268*^9, - 3.887186516174284*^9}}, - CellLabel-> - "In[142]:=",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], + 3.875953297097693*^9, 3.875953297193099*^9}, {3.875957011270492*^9, + 3.875957047134419*^9}, {3.875957125424335*^9, 3.875957151767858*^9}, { + 3.8759571836897497`*^9, 3.87595718748908*^9}, {3.875957237810454*^9, + 3.8759572647954397`*^9}, {3.8759573310521803`*^9, 3.875957359900523*^9}, { + 3.876209125582448*^9, 3.876209130718493*^9}, {3.876209246657913*^9, + 3.876209255553268*^9}, {3.884690546688959*^9, 3.884690577225401*^9}, { + 3.8846907201244907`*^9, 3.884690753852927*^9}, {3.884690875959548*^9, + 3.884690937551785*^9}, {3.88717520576867*^9, 3.8871752589375753`*^9}, { + 3.887175361564186*^9, 3.8871753678913107`*^9}, {3.88717542408533*^9, + 3.887175425325357*^9}, {3.887185406738522*^9, 3.887185422722349*^9}, { + 3.8871854939327173`*^9, 3.8871854996999493`*^9}, {3.887186514007268*^9, + 3.887186516174284*^9}, 3.893237649954227*^9, {3.8932376911772757`*^9, + 3.8932377173060226`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], Cell[BoxData[ TemplateBox[{ @@ -5563,7 +5654,7 @@ SHchGBTOGy60EOAySdCKpQrAK+GnGb2ZgEPp/9ncsysHWHGT8XINBDQ9SJQb rcwGW7utEmvrCRiPr1bKWnMVQn825mu+IMBtwUFwRpAOHEb5hMUzAhwaVM0N xlLBPrjrpn0dAc1JNMHcSBJwqFRvt9pFPyfUfdv0WUgMMJbxqyFgyUBa5bBc DGx+qtoe9pSA/wG+jFnf - "]]}, Annotation[#, "Charting`Private`Tag$2642333#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4175432#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -5715,7 +5806,7 @@ gs8LI6F9XyrS32efApNlHxIuP2HCfafIZP+RcNCobdXxELr6qrFZpGUovHY6 ztIXWnzKZaHk5QlQPZ/PJAvdVB4zHLTvGIzo22q8b2TCejlS2l9fj8JYnOr5 MqHvBbEfe8f5QnqbGClBaLX0fKqcuSeEqi2vPCh04d0DaXjeHfJ/Y/O9hf4f PjPanQ== - "]]}, Annotation[#, "Charting`Private`Tag$2642333#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4175432#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -5846,7 +5937,7 @@ s9KfAuCLxqV6WCEU1Tl0JXYJgC2jZvnSc0H2a1JyYqcAGIUFjfYkNqhDuq1S hwBMb1D8rTQfQtCbzD+y2wRgydfdWW6cDjHk1L2GrQLg0q/HJEAirPo+OlHZ IoD/AZPoZSQ= "]]}, - Annotation[#, "Charting`Private`Tag$2642333#3"]& ], {}}}, {}}, { + Annotation[#, "Charting`Private`Tag$4175432#3"]& ], {}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { @@ -6063,2173 +6154,8 @@ Italic\\\"], RowBox[{\\\"-\\\", \\\"\[Beta]\\\"}]]\\)\"", HoldForm], RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", - CellChangeTimes->{{3.875957126514063*^9, 3.875957152540943*^9}, { - 3.8759571847549353`*^9, 3.875957188180087*^9}, {3.875957249738762*^9, - 3.875957266071168*^9}, {3.8759573346853323`*^9, 3.875957362091642*^9}, { - 3.8762091314286547`*^9, 3.876209168479266*^9}, 3.876210214519513*^9, - 3.884690547837318*^9, {3.8846907344980288`*^9, 3.884690754914673*^9}, { - 3.884690931703446*^9, 3.884690938018208*^9}, 3.884691475790214*^9, { - 3.88717524120253*^9, 3.887175259408231*^9}, 3.887175368358357*^9, - 3.887175480779523*^9, 3.887185424676525*^9, 3.887185504545484*^9, - 3.887186516665186*^9}, - CellLabel-> - "Out[142]=",ExpressionUUID->"c5da7894-3e02-4b45-9ef2-8e0b3fea9304"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"pMag", "=", - RowBox[{"Show", "[", - RowBox[{"ParametricPlot", "[", - RowBox[{ - RowBox[{"Evaluate", "@", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"\[Xi]", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "2", "]"}], "[", "\"\<\[Theta]0\>\"", - "]"}], ",", - RowBox[{ - RowBox[{"Data", "[", "2", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", "\[Theta]", "]"}], ",", - RowBox[{ - RowBox[{"-", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "1", - "]"}], "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}]}], - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{"ut", "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}], "]"}], - RowBox[{ - RowBox[{"-", "1"}], "/", "8"}]]}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"\[Xi]", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", - "]"}], ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", "\[Theta]", "]"}], ",", - RowBox[{ - RowBox[{"-", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "1", - "]"}], "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}]}], - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{"ut", "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}], "]"}], - RowBox[{ - RowBox[{"-", "1"}], "/", "8"}]]}]}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"\[Xi]", "[", - RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", "\[Theta]", - "]"}], ",", - RowBox[{ - RowBox[{"DScriptMCasD\[Xi]List", "[", - RowBox[{"0", ",", "\[Theta]"}], "]"}], "[", - RowBox[{"[", - RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}]}], - "\[IndentingNewLine]", "}"}]}], ",", - RowBox[{"{", - RowBox[{"\[Theta]", ",", "0", ",", "1.4"}], "}"}], ",", - "\[IndentingNewLine]", - RowBox[{"AspectRatio", "->", "1"}], ",", - RowBox[{"PlotPoints", "->", "50"}], ",", - RowBox[{"AxesLabel", "->", - RowBox[{"{", - RowBox[{ - "\"\<h | t\!\(\*SuperscriptBox[\(|\), \(\(-\[Beta]\)\\\ \ -\[Delta]\)]\)\>\"", ",", - "\"\<\!\(\*StyleBox[\"M\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ -\",FontSlant->\"Italic\"]\)|\!\(\*StyleBox[\" \",FontSlant->\"Italic\"]\)\!\(\ -\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[StyleBox[\"|\",\ -FontSlant->\"Italic\"], RowBox[{\"-\", \"\[Beta]\"}]]\)\>\""}], "}"}]}], ",", - - RowBox[{"LabelStyle", "->", - RowBox[{"{", - RowBox[{"Black", ",", - RowBox[{"FontSize", "->", "14"}]}], "}"}]}], ",", - RowBox[{"PlotRange", "->", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2.3"}], "}"}], ",", - RowBox[{"{", - RowBox[{"1.35", ",", "1.45"}], "}"}]}], "}"}]}], ",", - RowBox[{"PlotLegends", "->", - RowBox[{"LineLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - "2", ",", "6", ",", - "\"\<Caselle \ -\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ -\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ -\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}], ",", - RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], - "\[IndentingNewLine]", "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.875952981547227*^9, 3.875953205695381*^9}, { - 3.875953297097693*^9, 3.875953297193099*^9}, {3.875957011270492*^9, - 3.875957047134419*^9}, {3.875957125424335*^9, 3.875957151767858*^9}, { - 3.8759571836897497`*^9, 3.87595718748908*^9}, {3.875957237810454*^9, - 3.8759572647954397`*^9}, {3.8759573310521803`*^9, 3.875957359900523*^9}, { - 3.876209125582448*^9, 3.876209130718493*^9}, {3.876209246657913*^9, - 3.876209255553268*^9}, {3.884690546688959*^9, 3.884690577225401*^9}, { - 3.8846907201244907`*^9, 3.884690753852927*^9}, {3.884690875959548*^9, - 3.884690937551785*^9}, {3.8846910297536173`*^9, 3.884691039714095*^9}, { - 3.8846916487180977`*^9, 3.884691709606249*^9}, {3.887185434179426*^9, - 3.887185434707024*^9}, {3.887186470269915*^9, 3.887186475894417*^9}, { - 3.887186507374937*^9, 3.887186509750082*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"7bc98e14-1631-4fc3-aed1-367c66e81e01"], - -Cell[BoxData[ - TemplateBox[{ - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], - LineBox[CompressedData[" -1:eJxdlXc0F/z7xvUxk2TvXaRS9h7X2yqJEhElEkVDFBnlKRKekJ6iQsqopKSs -xlNGJAkNeRINW9k++2P37ffv7zrnPte5znmdc9//3OdS3Rfiup/CxcU1/Gf+ -z/+/6gqpGXR+dZyOTqI5B9oi5L8Mfwa/IViePS3OgW5YY6Rxk81vDxbbytA5 -0B91wRF/cwu4o/JA7VfHwDAoeO3TMxbYj9j83lDrwHhYHHw1yLv0BHqs9rTI -B6YjK/Osl7VQAvaPv9mRcOAWTmW3nKEuXEF24vWnJQaV6FGkJo4E5uHTNaP2 -1sVqdLY9S1VqvgPKBjEvn6ZXWJGjHerwshjd8kJ/L2U24V6vWpXoi1I4e/K0 -JNW9w14NIlQ7XoE8/+wnmyLbILnaSkpc+yk6dMNfJiy04+bhaX7z3c9hK/Vb -0G5HB8QqUoVnONWwvM3/7FNnJ9LVR3tlGl5i3C4tfnH9N6wI0K+zvVmPbuXQ -f2XCfiDzM5/a4YYGWDKORX4c7EGs8OV3myYaEUwbc1sn0Qd9Q5re98i38PCp -/STi1I/VJ33e5Rm0otPsXMSmmAGUNh90+8LzAckihBV/dRBx9j4PJA3b0BQb -qRfyZgjp46851guf8PVB7Mz+gZ+4dLTD7KP2ZyzkSp8Xlx6GkNPlwoWHXzAz -KiWxaD8CjkLVCacDXyHTIj+xed8oisxT5i8N/gCT2ya/LGsMHzokokboP0Bn -Mkbtbo7hkAjrry1LujF4pPlkZ8EYRAvpntpK3UhyTznK9WAMRmr++ZGe3Uj9 -yVXuVjMG7urUAMkP3WAWm/ELDIyBac471tvQA0ONItZ9rXHwFomcHRvtRUCT -YDXj5TjuZAqdO87oRQ3XfPG51+Nw1RveyTXfi55PGnOSzePIvfHwqs7yPrCf -aFWZto9jsCZyz6B2H1yua39JGBpHuePC7byIPsjeTB3UEZzAYMDi0+Kl/Wi8 -IiPV4TYBhViLBQuHAWSJVeTEDE+Aoy3WUeQ2gP6R5tSLExMoFNharew7gAdP -C2Rv0SfA5VbD2RAxgCZbtlDr/ASWbHk8/N/tAaSnqB9XF53ET4HQBGeeQbQl -cM2yTSchUtMyebR1EKKUaA/51Ekwgu2auxJ+wmU2eXme3hT8x3LEC9J/IlBE -8VGS8RSyrp2Lj8r/iQuVL0VCLabg5vduvUv1T0jXisnYbpxCeNluyRLWT3wK -5nale03hTsFWId2Dv8CZ2+cSETeFLSnaVoLewxgZO1Yk3zaFDY8qPjQcHsa1 -NipR7JiCBYue+c+pYSjvev1c+dsUNLRybbyvDyPt6IzH6qEpZP57bcWbb8Ow -syjZbj0zBS99LmuevSPI2ehY/FGECh3rtzOciFE468pLXjClInQujzs7eRSq -LKK2w4KKtQUPZ3bcHIVm9rIWeVAxP/nXfqnGUXxJ5WE8sKNif1LC8VapMWQS -vscd26gI+jJ0Q6d6DKuaeZodDlCx6KMc6Kw8ATF+sXcl6VRkGC6vCjWawKfY -ndLJV6lIsPZtrnCeQFpis3xgFhW+IxTx7JgJXNKJ3rkyl4oHoyORk98msKtR -+dnt+1Ts4Zsap+VNgha3INlaR8XRErNSvZVUCNnGBz2mUrFSJ2LglQ4V/Enj -O24wqLikf2U4yIqKMrq+bCKbCtn8X6JTXlRwGe/bsGueioNVuTnUS1Sc/9zz -UEiAhitJZrxUXhqUj5H1Oco06FObrY1/03B2TW3z0W00zIXKOt5cQYcFf/q2 -cFca+KOKQ5RV6HiUZdJ10p0Go9lKnmPWdNSfd12SspsG88vrFD0T6LieNdT2 -NJAGMfmkiqNiDBxocx+2i6Xhycfb9BJbJl7qboBpOQ3haXoSsR5MWL2S0dN6 -TMNwwqWvoQf/5Kw6U5VnNEyJdEU8usiEnzLjwrIaGvIDmnjv/WAiVl8ieuot -DbEKfuZtZ1hIzM7pmeijYe97hUCHHjbyuG2/tonRIap+2+YCm42MiTu9o5J0 -XC25XTG3nINR3TljXlk6slo7KTstORgxle23VKYj13Sbj/hNDiRVwvxq19GR -+Oj+aoGgaXjUG/Dz2tOh3AdhP9VZ7Cg+3VkcRccHwxOCdtazsGjfm2gWQ0ec -9+aQw36zUC24o9hyho6LvwpqkgtmMXeCJkVPpGNw+w2yUnMOrdL9OTuv0PHk -jcCbBOt5KI3FeJ0rp4N7SOVf3cpFmKhtnYibpKMsS+17XPciuDST89zpdAT6 -Zu83WfoblA/vG9ex6fiCVqNu39/gSZ6N7Vmg40d/6mm5pVxk6s6g1f7lDIx3 -jZnqN3KRiG1OJZNaDLzY5CCdcYxChMsNnFYeZSDUKCmzJZVCusY9PJYeZ0A/ -NjxgcxGFvPcv2kA/wcCazbSf8r0UYljmtq/1Lwbc5Xmopm7cRDdge8KtCwyo -lRrOujvwEObIWGR/CQOH/66iRATxkHVTIUemyxh4cxK/Jv/mIXxaJFv0CQNP -nPc+pzbzkF9D6bXONQyA4+nk7cZLKu7K8k++ZyDm6yHRtZF8pMhk+T+fqQzo -tVyVS7nBR1hbRd6psRhwC8/38GngIwZmOY1hM3/u6Wml7hPnJ1ssZSRUKUxQ -fLc+ln/KT8TfuajeF2fCeY1xk6b0UnJkMqjqtDETBi23rLy2CJHvnkMvzpxl -QkdfgxESL0Su+a65TpKYEB21mN9YJUTOStmG86UyUV4TmWuns5zs2uyzJf8K -E7vP1FuOqAoTriQ/Rcl7f3il5OE6aRGSM3kjk9LGRKD3YccGMxFyNa5UWK7j -zz4BTu9mHxGysFo4yvgbE6uMPyeMFIqQj5YRR84NMfEqT6em2UqUrLLlGQya -/fMXXUZNXSlihFx/GBSszkJZ8z9rzzwTI7U7YrUm1rLAvZy76/uQGOlTCFsb -rsPCRYmvP9psxIk9hdsg05yF2oaCH0p8EmRphpmeuSsL6zXaeW48kST2XWqK -PHEsFArSYvlokqQn3fshdxILCmoLwjFaUuRlmr6u0AUWSj7dDi8s/JNF2y+Y -ZLGQq/f2dH2RNInxXutJKWehI8rkoNWYLDm9rNz95BALKwONd/UROcLy/n7l -/jgLd/VV/gnIlCMpkmk6wwwWApXuy21ylicGmb5+qRQ2ktclF1t+VCDxDJfo -MypsbNcaWZdnpEiej1c4qWqysTTDVedQriJJq6k89UmbDQ+vkxaJUUpk4xkH -4QCwcc2/zeaOugqh+2Tsc/Jlw7PmBl+RvwoxaTXzPxbIhnbKEjeLWyrkwbds -06IQNlxYuvWuq1VJ5fOHH51i2ThxJThqwk6NxPhXKMcUsDGqwe9i/HMVESrL -EW8bZSP27/S9hfbqhGrfzbRl/uH/KZqcvKtOFGul6j4ssLFfwd496YQGcbT0 -PWQgyoH7uN2FSyaaZMvtTHdbUw6CuD8YninXJK1sv4Y0Ww7eaa+JOqKzhtQI -8m6dduZgNc8JA27TtSTmlFKdpj8HzXKPXzHOapFN3XKWUhc52B4Qn56ntp7s -fKFy5GA2B49u3OWWb1pPDE753O27w4GEwaq2e+raJG1M+Yh9NQf9Bwu+ecjp -EnrZrc6ZCQ5E5U86SibqkkmzvI8ZsxyoyMhJGrN1SXL2soM+/NOIOydReXdQ -j5jnffeIV52GomWiUTDFkGgkOmlae05D0jHguOBFQ8JUuPcyaf80GpIWyx6r -GhGuMxvqKWHTaDNvFCndZUwa45bQc9KmsSdZMOP9EhPi38L3sTZnGu0T+Vuv -l5oQXo/0aKXiaVxbUVCL1WbkRqVYwbWmafBcfRmsRzUjYe6/8598mYaYAE/k -slfmpLLgZJjcr2mI0L98NDxvSU51S7Of883gpbvfLfsvhPwSi5Qo2zyD79oi -D+qOWpNeUh20afcMIvMLqhnCNuTyeO0H8+AZZGQdEvY4Yksa9K+Ebbs8A9eN -qFq1zo7ktS8tjbwzA+uaLXvGWHakMcdwmci/MyhXH/YuqdhI8rfkPivsm0Gp -rQ1T6d4mcv7+8/ZS9gxumh2RPP3IgTgPSFbYCM1CRfC1ZRXLkVivS02UM52F -Z3VnTaypEzHoX+YS6jILxpKLNiuuOhMU1xUFB83iUay/po2rC9m7VzouMXsW -Iu0L9GMbtpN/NVTpTytnManxtf6SoiupzzUWqv4wi2Vz0RUjqm4kSUA59tbY -LKJzLFIVrXaQ8q5+j5MCcyh53lZmdcKdhNoxlV015pCpy+XV3+xBbjmarLa0 -n0Ms7SH3xgEv8oJwe+YlzqFofOPzvtLd5BNTzcbh3hwmfU6tl6/YQ8gbyzL/ -d3PI+E/G+DDdl/RvvXNcjDGHJz0dCikWfsTB+HtslNw8Kiyio9rv7SOXZTe8 -rrGdh1v27/omhwCyeXUnn0TIPIIHKgL4Vx4gO17rST7MmYdZqu3xW3ZBhOm3 -Ci2t81j8FqzFqTpEBNWldSt/z2PyeI7269xg8ir3rXeN4QIeKRa/PxwfSg5t -9VLcFrIAuX2F3NrJx8kV+we9PQ8WoPj5eZfZXDiRVy+r555awNSMZ5UDO5Ks -4lFEiNEiZAyiji3ePUUO8brMUs4twtvoamiwZixREC+1/Na5CM3NLePhmvFE -bpvW5wNGv3HU1tLcRCmJ6JnK0s7f/A1mztt1xnGphL7k/YvRP73Jun22yk74 -Molebx9Nc+Ii/Zd19BJLr5GUNHmDuWwuspg/3WPomEeOvKOckJnmIuGTLpWP -6XdJo6N0H//hJWRDy12z6L8qSNXKLmltLgrZ63/PwMusgayxcS10HaaQMJEZ -oQHpPnJ9kKtF/RwPCa393uZcNUTW54U5bOziIf8DJgvwnQ== - "]], - LineBox[CompressedData[" -1:eJwVz3k81PkfwHHHIEeOKMfmGEm5a8NQ074/zeRqWRm5jw5hlKNI6CBHkdqc -ZVhWRWJJyc+ZciWFEJGbcsQ4Cn2/c6Hd3x+vx/PvF/FUEM1bgI+P7/p//d/3 -otdaFrOn0WpaJ//6MAFJlGQ9TX3ciqYDMjfUNATR0F2buLqzFajcibtbS1sA -mYSlOC/eLkTdYG3ZHsOPnoulVYst5yKNPCUNDWF+FPRFSH9z1D3kfWEwNjiP -D3VTNM+Lv0hGmWpV8kQaH6pPlKsKn7qJjFVslU028yHnkEzyyYI4xC2nzunn -/YQz7rtTT45eQ6fJivpH9/+EGl0J8T/lrqDDYXJ+MyMboJyT9GOuPgzJ/n6t -pTthA5Ze3wgecb2AqGpPrMLIG3BKlbyzMP88mlfo772Pr4Nt3Kky0y+BqHiP -kIBz5TrIDVNPBFDOommPLwqDl9ZBtJbuTjtIR+kyQknXqetwyyrQVfu5N/pf -7x+HhqXWIUZJ+G54ghdyXBVQDBxfgx7az9zcJyeRiMh5z8myNTihMpJLlT2B -3m56Q1q6sQbqQSIxTu4eyJphvmHtuQajJK+t35muyPVsoEEraQ1WUp8lq712 -RpRD+z/oyK6Bn+/JnAsjjmhOvVH36HceFPqRyjO0HVCjv2ObZBcPQnTIxIkC -e1SiKnLf/CkPip/m1KXI2KFArVnpZyE86DkiMXF9wRb9KehDe+bEAy8hRGMw -bRDj2yGzN2QexPdRz9r7H0Fe7Xdb5kR5ICCpnMuctkSfzcam+5e5MKZmptkS -ZYHqAlRDGENc+B51XXZE2AzdZFd2+JRy4S15BzV0iYpelSgbemRyobMyqoHJ -pCB/zhiBF8eF2SzaUqrSIRTeTncV9eTC0CbfImRPRoU1eUV/beOCSc1kWtPW -A6h1zfH6ihAXKrBgLnfeFGHuGsnVGAcY73Imjr0nIf8Z5auR/RyQOebEV9tn -jBL7g6xDWzmQ2eTEs18wQrTLmxTeVXPAP3nCcAMM0QLHjR6ezQGDMnlj48v7 -kPNfdmMddzhQPLwtcrHhVxRziaZ9LpoDU1qmbuv0vaimQZia4cuB7b/JRd82 -0keCwpT920kcQDZyK1IUPVT+o1TcXZcDbVmrSuCiixJ6JmW7iBwwxm8xTR9p -o0ounLDczIE9ZsfbxB/tQsEurqueM2ywtE45/pOliSzOT65KjrJhhuDh02Sn -iVLoJImvvWyoDo1UclTYiSK9/AniTWwwJ0jRjefUEWrsFhO6z4YJLcGtPD91 -1K2Z5zOQwYYNwgT2+zciImY/WGpPYsMT8TTHOmEiktr1mSx9jQ21iaYSlFYV -1MbPjWefZMOdH2Vyor6K6HjVYvpzbTYoUbQlHHoUkNuax1FDDTbQD/gCkaKA -BufyOO3KbLggR90ery+PInkh+w7IsGElfkf8NuOtqGWpfVyCw4L4AMKyzxcZ -pBC3EqbRwQIHhb/pkXEyaHqAQO99wwIz1+lUSS0ZdPTeC63URhZc7JbIoEZI -o69TlT8OVrGgubq0scJXEhkPRQya57FguiiYvCEkhtpFf+hMX2WBB1HPdjxR -FAVFWE3ER7CAbT/3MWWLKCrT7CEYh7IgI9Wzfpv2JhR0uPBzuT8LxHJ3ul0K -E0YWFO+1Pe4seK9uZZh9RRD1D42HShxkgd/LOCFZTUE0sWKwnWbKgmH+Biv7 -DwLoJSGg9L4RC6oCE4X59ATQpK3NFmd9FmTFNhd3sviQ+Z0sT101FmTnTBE2 -8tdBijlubifEgpari79Qd62D8enqi/ICLPBtOs+cKV6DX/febp3awEE+fzhf -uo4H7mWLZ9PZOPjvuV0bgHOgRLfH2GwBB+mQNL3UtzisDz6cGfyIQ8GRfQMF -2cuAOHp9R/7BYUHnGt8222XodvtJYDzGwcu5MWtCYBl4vcxhZj4O4Y/E8/0C -v4Ov3mOTB7k4PHBaTuUvWgJOl+WHP+7ioBdreVmulAljJtHRudE4YK8Oz/KZ -MOG4tNlFiMLhTId0y2DzHGzWH5afuoJDksXZrt2fZ0GY4qRzIByHaIbQ6N69 -X0H1spyGahAO43zWDs6qU3Ah7EZsuQcOwnpaJR+bJ0HnkJkDw+2/H+O6qUq/ -SRjCQmSiXXCA3sfMlJov8JpzS8XTAYeB/PXgRfpnGAxd8jOzwaHz0XZzOYEx -UHVK1ms4iENj+ttTh7/2gYD5rOFuIg6zNcX6olf6wKrdYildFQdSBp6lu6UP -DqSrqxBUcEg0Cr0WQfkIWwWj2+aUcHCxy/VhPO+BF9l9NR/kcKDrWJhSM7uA -pOhFlRLFoZyrVzWf1gJks0mKyioGdnOHNB0EWyDXdL6jaxmDv23zu89deA22 -nzr3xH7HoIquHFzg1gwQezH02yIGTc45E94HG+Hj2m9Ro7MYLHfOTL9IrQWG -kcI2iXEMxFt0N914WAOrS4Eug6MY2HzakSBSUQ20BXtS4QgGJwLFnMW/VIJs -42j5kSEMVu8R0xTdyqHq6z+WD/sw0Nm9+XpTbBFwn/+sYHRgEDgbtaWi+zEY -uLyw92nHwN3SfLVTvQDeRsQnGbVhEFXd52PQ/xAMyPFdA60YSJLrFWmkB5C2 -Y7it5A0Gmgyr2sL9ueCmH0WLacGg22RD0+cbA/gThLC9zRgsOiJs+NNdYB2T -EpFowmBS9cbTxHepUEeqSvvagIGoI8U2PyEJclST7r2ux6B0pdl/Z/JN+IW8 -SzzvFQbEWvZ516JYaD2+eTHmJQYM/3lTicLL4OHaQTpdh8GtnQIOA6rnoMNy -fsb8BQZnigj0dRdv6MRN/OtrMfgX0UsIUw== - "]], - LineBox[CompressedData[" -1:eJwV1nk0ld0XB3ANFCUqypyiMiSVMalzpSJKJeGSKZRfUfKmvJlnEspQNEii -NBgLZWiLzPfeg0giyVh6aXKumd/pj7vu+qz1rOfeZz9nf/dee+KcqfN8Hh6e -Pvr5+929NWTd1XxnKG/a0ffgJUEOMUIjKdnnYe5z+NqxIoKGnsiGxOT5QKsV -v8bnQoKY99UK5OqD4dPLHTdqCwhK5dXyu60cCUda/BjPXxCkPbPO1ck3BgSu -Kajee07QzxZBpu2/CdBqx6m+nEfQEe+WV8wlN2HBuu0nT+cStHJViER/YjKk -DPRpWucQFF8d2LksMQUOPlG2ZGQRNDxnw7txTTrcvzMrIPaYoD2Szb8KjDPg -n7cWGcKZBJm13Fzw/cJDGLGo2yfwiKC17aWG/5RlQtBls3CeDIL8bOSm5BWy -wGZ+5YHxVIL2lnx7dqowHzyIC1qWTFDJfvv82fFXsDw6sP96JEESOXt0hu2L -waE6Xi81gqCbYgaRVTXF0OkwWJQdTpAHi9eeEVcCPx+OcBtCCTKem8krlCgD -W7+yRYuDCHJs3NDHmAY4nrJeMeoyQfN3GDCOXqmATWplg5NnCPKpVOdk5FSA -pg/TVpzaw+eE982WCkh+Gvxb+zRBngs+Oh+XrgTJiLIkbxeCxMPWSEc+qYTO -YvdWIWeChH2O+Rm+eAu3W84t97YlyH2vZ8GNqGrI6UjijTAlSKR213VWejWY -dljf7T1C0OAljkV1WTU8VNDFDOpW8/U/Fv2ohuYBGX6ewwTtllf61WxSA0o9 -+bxxBwlyDhvy5llYC5bjrw/z7qf13/B1wRbDOhgJV7mxWY+gsGfylT1WdZAf -IhkNDILWFV2bdHGrg9aLQxqm1EV5/Od+Xa8DpprEXR9EkPl/Cb4zH+pg8E1U -ef9OgiwctXZb2NWDaPf5A/w7CDp09Mibc+fqYcMVfusCHYJK9e0LHPzrwb3z -poQjtfblSua7lHq4oRn6rHI7QU26uT+4HfXw7g+PVLI2QYuCL58IP9QAN8YH -diZq0vPr0+sbbtsAu+IXZVlQp9gYGNi7NcDTPy2SUtTOV/pt7l5pgG8t/pNP -NAiqcwt1np/cAEcHg894UneTX7F6jxrAdTCoS4/aasniokOVDTA3bMPuVifo -xozqyTVNDWDR/N7oOfXB6I1367saINMplB1OrR6xeubFRANsa/AY0KR+KCXQ -NMrHghGxVr/l1F2XqoOWi7DAQrhAdkSNoI8Fjxp6VFhwXWVeWBZ15/g9viQd -FsjwKxy4Rr3YYNkpZQMWxAjqr/WkTj9bqHv3KAsM1/XyHac+KRP6ftiOBbms -7Nk91JtC44KkXVnAU35CYAt13Vf5mE1eLHByb1aWpl6h9nyvZAgLPB9/dVpK -LXFxcPRbLAu65DOLZrYR5HTq/kDSbRas37hpwy9q++ZxJ4VHLPCXepw/QL1i -PuNVUj4LJHa42XVRH1/Ht2mojAVfNn7Z/IH6WpI4r3QdC46mRMi1UGuYXYna -2sKCMpkFjGZqs9XPeBU+s2Dp3aXhf32rUOwVzxALAjT9pv5er2yaP1QyyoLo -7yap7X9/LyyjiznHghc2CV7d1Fviz3z4yM+Gorjg8G/UywNZEkiEDV1l5xtH -qTO0vgyGybDhnWCr+Xz6fHvjRAPzFdjwJ2CvzIq/9TmjtLFiGxtswFdJnnrs -npZEoS4bEqas/bWp1YWyk2P2sWG2vUf2EPW8WGaf8WE2TNnqrHShnu48oT3C -ZENhX65VMLV5+JF3no5sKBUrnUqlbseCv3tc2XBy3uRkOXVeeE+jxkU25Aps -s+mltj42XhodwYYjlcG2qvQ8LNJjofjrbEjby7uYSZ3W8sXN/xYbVnw3VQyl -3lISFWD6gA1jW0Rq/563Q+8jc5c+Y8NrkbVDfdT9PwQ0s1+wgXsyOFGMnlfi -nG2oVcaGWBWvRhPqFemrfvFw2NBeIypUSZ1aZ/1H7z0bskv3ys6j/ZCpVWN9 -povWI1i8U49axUFjm9cIGwI+ap5voNbR8118nMuGpyVdTBEtmtfFXqKKs2xY -nTm0xJ56+rF3ir8gB+RfvRieoy45rbzoiggHfKOD/U1of3qonkWBkhzoEJ66 -c4867VJKmaYiB+ItXiTvp/18yEnalKhy4MfYz4g0am0xs6P3NTkQeBbLzVJX -bdygUaHPgVihlf5lNA9e7Qty0DLiwJY0tyNraX5MXhWPu3WYA8bNln/CqVfe -eB2vbMMBxWIWy0aX2vutsI8nB3TTlcc27SIoUHEX09mbA2Vpm5wzqbcnzb3d -GciBL9Mx4xtoXp072BZbepUDMuZF5So0z24Eft3mGEfvX7lEqJC67bt24MRN -DmQW9xXo0TxsTWekkzQOCH9L3eO4m6Cp5GvF1pkcYMab7p+grks2ncvL4kCS -jEp3nD6dfxZqCaovObDLeGJ+0x6CBF36rD1YHOjOEvpx2YCgT9n7LG2aOFBo -JmSmakjr6zrqvf09B6wbv7cOUluW++dWfebAnjnXAGcjgrZl2Ex79nHA5UVt -s5IxrTeJ6F/9jQOvyr0TR6llYybnb/3NgUaH2epEmu9Xjum4Z3I5ECyg4+xm -QvOnoeS/5VMcSFV/0bz/EO2fxVVBJQsw7J1eH7yczovw3TayriIYrive2v3Z -jKBlipjvkhiGmMkem+5jBOlv7W25IIVhPtN1y6A5Qd9vvo3dL4/BokAnmI9J -UG7YcI6sAgYf8VCjNVYELWhxl/mujCGjSsNilzVB+7a1G1mpYWj9bPEp1oag -5+vtdOY0MaRnPM6soPPt8oGgjps6GIyi9G2m7Wje8CbGp+thkGk31wo9QedN -otrFzYcwJLZq8P4+RVAlltVyNMXQwsgTs/ofQS4fNNuvHsMgPyBuVU/na8Ak -YxVYYzgs0XjwrRtBkjkXO2psMdxhu/9rco4gKQbzfZUDhpCIz1Vf3Ak64VUJ -909h6FpZjOUvEHTVZHOb/2kMl3U8JFs96TxXEbx41A2DsVZHeuwlOm+iJW51 -eGDwyHTNkfcm6ECtYNp5XwwHDMXWfqD7wb6iTqlZfwybyObK3hA6D5M/FQcE -YbA8XRg0HUbQ9YnjT13CMQQPaUtbRNH/WziyjhOJwZDDO5gcTRDPrfZFSlcx -gFP4s++xBD17g05UXcOwZ3Xa/tcJBNUyU6cWxmN4mndWj3GToOyz6412JGKa -T8oX39F9x1i39cDVZAxLzPMVt9wjyG5Phdyj2xiqS9wWTd2n/SfEJC/v0utL -V31pTycoODKE9eY+hpEo+9z3TwjijlX8efkAg+zG1GNcup8FGsxZPsrA4P8j -xkKF7neVAyZrTj/GoBA0YtVP98cDrjOpu55i4P3fek+XErrffei+L5CFIex0 -3ppFQPNtnohDZC4Gg6kswTvVBD3gn9ylm0/fPx8PSagnqF5+d8fAcwwBfg5F -2Ry6/8nVXZUrwtDTcJffuI0ghYy08oKXGO61XRpv7KD1WyjyExVjuDb8MMSv -m+ZR6wNf3TIMJXXzAi2HaH+Jnp7Ifo0hNvDB4cgfBPlbij0TL8dg1dUWNDRK -kG+NdrrPGwynrt3P8ZskaGGY9s+2Clqf6mf3DHm4SPX3qRTltxi0nn44bMzH -RZIDk6WXqjAoo71TkUu56EJJdPBEDQbRB4on6sS5KGnGxUC1DoOd/vGvTbJc -5M5n99ymHsMHdSOBDQpcdLZVrDWkAUOm1sewelUuarKVL05n0fd7Ujv0rRYX -/Vs7eq6MjaHssn6qOIOLijN6FmAOhlTr4D/YkIu8r5HJzkbaX6l3YrytuehT -v3TySBOGeN3i13YnuWht9ojweDOGtCE9v47zXPTqXZ3HxDsMWDfTZMqXi6Zs -Rzi/WzDEJVhJsa9wkVK9l0ZfKwbxgKx/7JO4KNXMsZD9HoP07WNQ/ZCLeI+F -OeS0Ychx94lbWchFKVeS9kV+wPDvMYF5NtVcVOOm6mndjsHxqxt/aRv9v/4w -vf4jhlojIZGDQ/T+yXf++0otKcqK3jLLRUe0J4+md1AfP5MetXIMSXG+61l2 -0vcdLLo5UmkM2Qs4Vy38RM+XyssaK/0xdHajzvBj6pZ2JR0d2zHUpi5ba9CF -wTrVcscZ7zG02yHLqYu6mWmeufP2GHqiz2xy+4wBNSnYC78eQ8/lfKW41F1y -WVyzvjFkrmdmdqkbQ9Ba0ZiEZeOoXHI67Be1wMNig4s7x5FX0YUKpy8YApV0 -f9WcH0elvakiTdSfhD/2Rj4bR0f990Vp9mCI3lp1dW5kHJmVLlNPpBb4p2ug -WmcC3XUMkxqmjso4FjN5fQLtWy1juquXPu+Bg15OYxMoPEGpJ4LaO+laasPZ -STQ72tfOoh6EdXznZiaR0I/T+wT6MHgtPy/d+GQK/REFdT1q9X6tNqGgaVQk -Vpd3ntr5oNrSMwkzaJjHvP429ev+xwdXzc6iaHexKKB2aRB4auLFw5D7nMnz -ifqpxJ1bvf3zGA/eh2qNUmNLpSCydSFjh6qILm8/hgE1+V8nAxYzuozuSQhT -LxllI93y5Qyv3Qv2r6C2Ftyua90vyvg/Uri+SA== - "]], - LineBox[CompressedData[" -1:eJwV1Hs4ldkeB3BKSbYTFbkNRsolzA6FcvqJOi4bnV0y5DSpk6Oi2F2NwkGm -jJTkOm5jzpgSk+tUcrJsorZsi+2yyzWJcsvee72i49Ks88f7vM/nedaznud3 -Wd+vj4XuD1wmJycXSr////VMCz3WjmDEubSlkqOlWPfLcCGHRW3ceud15QYp -yswzUP7yDiP2yuUDHQcFaJdK9psJ6qhn6u23VJthPKFFLKL+saf7UFJHL/Re -816opNabumh48fFb0Gp+4neLWtjLdzivOQpRWaHzx6mbDf2cAzI/QOT/Xk7a -UF87VuQYED8OBm/V7L8MY+TjWrWiizUJv54KmWigrr7/h6IlZwpSFCV/iaNe -XNz42ujARzCo/umBA3XBj7bdN7dOgzt4d0neYpQyKFKJm54GZ4+PSfnUuSzD -GewmgSsPjYZdqb3cDRxP3ZbAmvu5g5NDGAnSY1rC2iTAfz2WlEi9ti8w7ttV -UogrvTpnRO3y96pWpx1SiLjSaVr9BqP/ZIzX6wRJ4fI9M3NX6mhWFS/vlhR0 -hhqURIMYuT3juhyvkkKw64sWH+rr9uuLJ7qk0PMLJ7p7AKO/xuLyXEYKmvGe -W7jUDT/YnRGpysBi1s6prR8jtdQhJ2NTGXBFaUoc6keFhSWNIAONRe8Efh9G -yz6I3Xu8ZVCW4iuwpt5s0zOUeEIGSP58e0EvRmntJm4LETKYMgspUqa+EXzG -wu2GDBSjZ315PRh9YreX3siRgeZXte9FrzGaPXF9rL9YBvISv8Ns6lETKz/u -ExnIXvrwE15h1PvFYtfn5zKISrTSGRRjxOzyHRnplMEd88Nn2dQ6Za1jm4Zk -wJqya43sxsi8qj+4aVIGa4K0tz/vwkghUgAdszLQ/9fi37w6MdLOTcvxZxHI -/3B8KbEDo6X5u3lj6gTO+eQNNIow2vOdg66SPoHqRzUf59sxWvMg4CjfmEC5 -ev02S+p/DnynpcUm4JFW9OQfbRglpt8/omFHoPT24avXMEZ3Ux+21gIBjmaW -vEiI0ZwoyneTF4F93Mf10haM9oUMJ096E2jO6BhWoe4+ctmR50+guK0wYGcz -7U93YwU/iICOUYrAQ0Dv8x8yTD1N4PvwkZJDL+j+7pXjbT1H4LHXvYXgJozk -/QvuiCMJ1M1NXQhtxOj9Kf6JkVgC8Rtd4kKfYbRpdtToxTUCsW0B5wLrMQro -XZm3/jaBTzuyj/nzMZrItbeITSMQbtS/5FmHUb3nOs+WLHqeP+1jWotR+G+X -7y0UEKiaf6O39ilGWcVqfSOFBG5+1C6ZraH9MJ+4U15EYMLfyrK6ms7f6UzW -TBkBfxXdCxp/0Pt2WPP21RKovxplH1iFkdlowu/6dQRe6rYoj1Zi5KxTKgzh -E6hY2pNeUUHPh2brX3hGIAqxcp3KMHKKKh1waybw1c5/G60sxciidA/eICRw -e3zFw6bfMfK9FPa0AxPI2GikAsUYpdpxbTS7CLgEp/R/KsIosvnh5wIxgesJ -tcLiexjtnl1lq9tDIEwvxVDlN4ysaiad3w0QkIS9Yz/4GaOakxHhbe8J/DdF -mrs5H6OdQyvmTccJaFaw7mfnYsTlXOk7P0lgXeyhmss/YdTkWY/fSAhMJh1t -Hc3E6NLPo73LCIGnCfo5Xhk0j7gHHTRnCCjJd8auT8Voeq9Ghd5nAqrK1kVn -UzBi2VhmqM4TGPbXLhQm0/rCC8NmFwgEjdTbRiRhxBtcFlYox0C5ysXIBz9g -ZAJccaIiA813T69grtL3mimuslRiIH5uU/r2OJpfELpKsJqB9JMJ4xXRGFU4 -FmwYUWEgfIarlBBO3ztfcJa/jgG/5N6YRxdpXiQllm9WZ+CE3AHr4fN0H2K+ -t4nXYOBW5V5fKx5G7U+Cmiy1GNgiPOJedhKjTnf7OTs9BgSNQjNBEEaxzdHO -p/UZKJFE8gYDaT8+rDbJMWCgTiHGReEY3b8ZR49xQwbM81tKvjmE0f6yziKO -MQP8Bq6PjS9G6k67eb4m1PkNydt9aH7e0OkIMGXg6Ji80Ho/RqGlwR3HtzCQ -HCmSqLljlL1ZOdXhGwamTk2VLnel+Zuvu9yUzcCS+9cmZC9GNi3rRGpbGYg8 -ue3bl7tpPUYx715ZMXDA59G2o/YYSc21V8N2BpIm45x329J590uKVW0ZqOkH -tv42Wq+43mWQ+lLb88edbIxC+nTLztkz8Iqdf7jEks5/TJxjv4OBIOEVEmOO -0a/8hYYF6gsK7VEHzTCayrxu83QnA7KW5QrGJhjdlKksRjgw8CeKM+UK - "]]}, Annotation[#, "Charting`Private`Tag$2642239#1"]& ], - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], - LineBox[CompressedData[" -1:eJxdlXk0FPz3x2fsKUtkyZIla9lKyRL3o+zKHiWyPBKlyINoUcqS6iGRUpJk -qxCKiiKZZC1rlqQZwxQGM2M2Y0Zfv39/95x77rnn3Nf7j/s+51614EiP43wY -DIa3lv9X/3/4CiRx+Cp14DS3JkwXZwed862SApWm4F1zl6OD84bFjN5wkUoH -UJXQ3KeNCwXHTqmvmysPwx+dU4GquDgAbbnAgMow0K4XGxPApQJKwL+JrYoH -3SKzjtzWXBhnvZfqrb0O6qRRiV8tpfDf+YjLIn15QNc9GEqvegMCy553Q2yf -gmvBkG5zRguoHTi/7/ejZ/D59izVUOULKJRz+bccqgYFuurhxs09sO1U8IPr -b18Bly8wZsilD9o6VUR80t7AoybZ6cfWg/D8gltuQmQjcBNkKw0Vh+HHlE3f -1L5mMK0YNv38dhSOvHK0H+lvga/ZTh2hV8fB2nmf/wgGB88OJiXXS/6CxzNV -9RmObVAnZHnmSisexk12i4oz2+F5ta6zm/QkfIzSnXlc0QVKzTnPVeyJ8F1B -TKyQ9BX6HIzuKWROQe245K2Q3X2gco2s29c1DcndOPOUdQPQHi55H7NIgh6a -5FOi7RB4p9ZfpGj9gb++G8amSofBpYSvz9B+BhJ1qg4pPhkD3N+SFK9Ls/C0 -pGfGZuME+K6OmOEq5uDHzflkK5UJ8KrJsjSqmQPxYQlva/0JGHkoapdfNwcn -XRqagx0n4FxofGhM0xyEyU6/lbk6ARTlxXmN3jkw0VCrtGFMQBT7qH/a0hw0 -nTW+u4H4C3bNPOZ4mpPhZ8h6stsiHlSkx0a3tJPB9/3FAjc2HqZ06m0WusmQ -G+Du64MlQFNb6tcPfWQwMY6SOC9NgIj0P8j/Bxn4p48clTElgNoPduWjBTIE -Wgrwv7hKgO0Y+iZNmXm4vSxclKU8CcpVPunuwfMgajUXFhtBhE1dRXJWvHmw -X7pJ/RxHhPKtfJ/asAswVBbZuyWJCKeci4pdhRbgRpPyu5m7RKifz9gULLEA -U0cdPaabiZDsmFuRrrYAaYIl7y7KTIHO3efbpmwXwNFkW0z8lymY+i8R35Gx -AN+EPvoiRxLI7qzvilVbhMt3XVU+HiKB6j5GxLLmIhh6vx92CiaB7SHj45e2 -LYL43B2/pAskkMPQ/FKNF0FFTs4upooE3YmJCfm2izB5xyA0UfY3eDH6/oyG -L0IPY+Js5uJvwKa//PqodhEemqrj/TpmIPbKr7x6dQrwb6qviRybAVviDGGP -JgUUIki3cuZm4Kfdidh32hSwfkn8ukl8Fgw0Hlz5oEeB0aimHJrnLNysl9/d -YUKBip3lF/cSZ6HnjtzVRScKiF4Ye4GXJMOdaY72hX8pcDmztfSMxpqPrn59 -QnEUKA0sz5YyJUPHA4fvd+IpsPdjd19+ABlszRbpLy5RwJ+dP9j0kgzVsyM5 -k2kUqF/vk3fEa82XjMzxoHwKjGBIGzDVC7BhtPpRxWcKrLxftyT9eQEOBQad -lW+nwM6X7b4wtgCpMRolyZ0U0PQm2P4UWIQTOUyDY98okMkVbDQ7uggZxZfG -ZEbX9IyTvjsLUSBMfFLkPpkCkQW0ztQWCiwPapfOSVOBHqB/urpnjfPn3AiR -pUJyfsfFP2scrnuY8FOeCsouunbJNAoYbND806dMhZY8D4vTGlR4QfYIa9am -AuinGCvepMLAEwlctQUVnA5OF5SF0IA4LnqF+g8VmlvDovljaJAoKmtTHUoF -10DskZhrNFA1VCyLDKdCfVa0QG4RDQJIbQcpZ6hwcYfSmZ8EGjgyfu5ZTqBC -m9qdD0UhS8BPe39o220qyMa3NbtdpEMWw/Wj5AcqdPfzGZdl0CHyeKrzdDMV -9ufXNss/oQM7yz234RMVJAax61za6NBC04s80U4Fvk3q9cJSDFDvlnLpHKBC -F3H8GLmKAXGvZr/UzVKhITWt0RbDAtfLfzz1NtNA8YY/caMsC1zcjkSLKdGA -Gj66D6PHgkE17ajFLTRYzhkasTnMgukiPYl6DRr0YP7iY2tZgA14hnExokFh -z9iBptNskBUe+f3MngZCr/a+9uDjQHX0MQGlczSI23T2pagyB+6nDPQrnqeB -Fd7PgrKHA2oEy2qlSzQoZ39otD3DgefU8gK1tb1pd1SWaP3kQLB4RoJpJg2C -w4dIWrgVuPPkRPXDMhrk4LzTyxp4QL1wUdt2lAZ5LwStWkZ5MDJjrLZrnAa8 -wq3Yjcs8wOOtLTR+0cCCN/bJy3QVTKaDh4Wn1/gsX8zFd6vw4580wjiFBjcd -HH0/t/0FfVrZcLPIEtTWb234JIJFaUXZf+LMlqCEVOptrYRFpWPF9//buwQR -J2QFpg2xSEc3rrwEloDW36f0yAeLisfDKKO2SxD4Mt3/RzkWWXlLBXt6LMGv -k25n5j340JGCMMLNU0sgQFPMfdrOjy7NH92s+XgJdOLfaTYR+VGRedjVV0VL -0B7m4Sv7lx9d4G6Y21+6BHVWfz5dNRFA3K3xnScrl0A+rf91ULkACrGIMuxr -XAL7/e6G9PuC6FyCsprA6BJED6f2Or8VRLPMy8dfjy/BdyfByYVhQfTTq3Qu -FL8EBMPkA4ryQqiP7POt//daT5pd0M0XQkbJjbFtzCWoYHkypF4Lo5Q9pBg1 -GTp8xLfin4wIo721bhJseTp8flttnMETRgdwk2Z9SnTgK+TtT3YQQe1O6w/d -1KBDUH9ex3qiCDJS+GSpsosOsQ3xHl3bRdG76XFCpycdss9WapfJiaHdEo6J -/nfpEIKD35fsxdBJn14tpzw61FRvTfp+Tgy9W/VrNntEhwLC+PymMTG0Nct4 -TK2EDtGD+/1Wi8VRYfjiGdk6OlAwLet3bJdEjlPHFe4N0aFyXCe63F4SuXAz -KHWjdNgoLX4qOkQSBe/fpD3ykw4p/wY68D9em/eMHdQi0eFrk26elfxGVBmy -YeMCkw6BiWbEYCUpJDsRHLl9MwNcXefiqqykUEOJkn6yMgNO9rz4FhIkhQrc -vg3i1RjgVZwivLlcCg08qxEp3caAAwW99oPm0uh+24Jc0F4GSB883RFwbhMK -Py3KLgpkQOFk9imcvxw6xiA7lFUw4PCJK4q423JIb3fKckINA0KF9AgJODl0 -Yu9nvHs9A8QvG3+WMZBH8RFu/238yICsIqnUONHNyMhAhq9/gAEc60b3k3MK -SObwLbvjXAb4EbvyircropQNrjV3sExIzdk+ORKhiOL7zQ+3CTFhh2lUug1N -EVmk95agjUzAx14fb12njOyMFIOuaTHh4Zt7aW1RKsgCa5fu6cGEkqvqoRGt -Ksg1UQkt+DAhpfi/4XfrVZGSQUP6bX8mXFfNKyAGqaJ/ffXMyGFMCPQxKzSX -U0M1Od0TfFeYcO8TL83kuToKCm4u/fySCTby0ie/4NXR7Gu8M6mOCRn7zbFH -5beiofokN8n3TGBZ6ROKb2xFnUOlmKR2Jrjkl/5Iv6iB1Lze/BohMCH/U8G3 -wnwtFJP+r3Py2t26ErnyJnheCzGoLV14ZRb4C2wxYYE2okRTnJw1WdCX6hTb -P6uNJs/ssHTexYLICl8TsSO66OdOttiqBwvee2+OUmzQRb3y5Ht9viz4KGbZ -l6S8Dfn71ZrXBbMgawevoGxuG/J0O8+pjGaBe3mtzYcyPXTVvVT7TDYLvuhf -859X1ke5Qm8Nux6yYENSpp/hPX00sZgwY17MAqeooQe+2QbIXeED2bOOBeW5 -tz3HfI0QX+3c9nMjLHjR2lt1mbATmS+ELkyps4Gmt8HztKUxEvGboz7WY0N4 -6l3DbfnGyLXkyqZYEzaMC1nL3wrehWSrn2yNcmKDAPum5wtZE0R5oHqv8V82 -pJff/9J6ywS1Td54fCSRDe+ldSz6hPYgXub9PXLpbOBN7yi6LmyK4hRlDtAL -2CBkUHfe0toc0dOPWbp0s+HNuMRqy7g54kREdGJG2OAjPeIjmmiB5r13G44R -2ZC9v7BIfmAvUj1W9FOQy4bzbeW7X/cCqpL5zR9ssAwDIK0x6Y7Q1PUBqwiL -ZZh4nxbR2YzQk7AM/zKHZdBRP+758Zk1ulB76VT9P8vwRzTxxJWm/Ujz6ba/ -ofnL0Hj+2gV+Rxukmh9qqfN8GXzJ58xzR22QSoX3WdW3y9CVSBEJE7dDqL6Z -78PgMnANyRfjX9mhQiETq+PEZXDzu/R9b6A9CvOJNDhAW4YsX62/pH4HdFlD -XvSXJAfwdsPTs3mOSKBR9mWmKgdihNepEk46IS+y5ZXrRhw4QSixj9Y/gNbx -WDn+7hxoItzf5ajlhjTdeBpzuRywKlkZVv/ghmoDFOd2POOASEqoy2c/d9SR -d9DvRyMHDjn4PHZ+54Ei/XuqTkxyINBJ0WLwnCd60KaA9WJyQOF+j1fMPi90 -sHdgvk50Bd4U3mg9gvFG3ZgBa+quFRCPKBpQYXqjii13hIadVqD/6wUjEZ4P -Msg5t9s5aAU8bXZFy9j6Iv0bRAFe5gr4H6NO7LhxFOH3Pd/nXL4CN5Ozcs7+ -8UOOreN2ji0rYLJTJv7GSgB6xAkWT2Ss6ak5pSX+CETWXcdGuiS54HrTyT62 -OwilPBx4ydLjAltzNJnXH4xSDB7QJJy4UEVSkuqg/oOsViZOaIRxoeGj6sLy -9uNoxOBGlF0aF34NqgiZpYQifnUupJdxYV5M69FoaThKXzzV0D7HhSzTKbVD -508hc3L6VZYED1Q4g0cSrp1GnVxpxYrdPLB0jq+idkais193Twn7r/1tw8pj -hfpnESPQvdAolQcp1jpmjwujkY67MbjX8MCCMNQSYBeDehMURx9M8CBkSN+z -UScOLQjW/bYVX4WlYutGaa94ND5t0JuNVmHKLSJOe+Q8Qi6LI72xq3DsdOGq -RcclVIa4L72rVkHho4bPVOEVxJVfrs+cXYWGkyxmdO1VZFuYFLSy7S8khb9/ -xzJKQY1Pm+R2Rf2FOuNoJVHL68jWdIMTq+EvSBczym4J3EId+zKD5IUwiN6o -wiWF3EZbnjTGpOzEIKIYC9d5LhuRangB1/7BoJPHGwL2pN1D37UY1pIPMMj/ -kOyqrvgjJHbg0K/kYQwKYEUqTJwpQhYGO4g4ZSzC3cZiyablCCsj258diUVo -WPltVVU1CjDAU3f3YZGUji/D6fZb9OiSQ3uzIx8S6/Dp/yqIQ1YnF4Z3kfjQ -smXYxr+9g+ia2OYjuFF+NLOjYedyARWJ3DEKoacLok9Z2S+CwpnI4U2H2EGi -IPofSMLC8w== - "]], - LineBox[CompressedData[" -1:eJwVlHk01YsWx4/hlHmOQxKVaFBKocjeejIPlZBOwnmhDInMpG4IlSfTVSpC -bh45xrrhSgOKJiQz0YniItzO73fOwfG8P/ba67O+37U+a/+zNRiBR70EKRRK -8sr8f+d1RD5XPElgtcWb6XdjVNTgJ/qaxPVihHapBEtJGCM0pQdKjVtwo8Jv -Xo6yQtgctLpxJrEWbVUOZ8R4CuIAN/SRW2EFppWtsYodFkAHni76RT3EC5Or -fF6ECWCxYfszwdh8tHxfQPmXhgAuP16SrFa7g5dSeofe9lLwQ76ol3BpFo5e -a56Rz6Fg5vMY5sW6NDSIPBo2waBgkrTdpsT0FHxs4Tf1chcFS79qb3kulYxB -8p3WV6gULPb6XLcUl4Dy7o4tBXXLMLzVS16m/ApK9hgWKAUtw67XBSKKjMu4 -e/LyFU+dZTC3b1au5MZgbWnTaNUMH04FH3nv0h6JXYG7Lb1q+HBC53i24uZw -7Mq/LD17kQ+rX+YfCxsNweLonj9HrfmguVXGSvlnMOYYVvL7VfjQO97xVBKD -cHHfoO716SXQC6CzLdMC0evfOW5lL5dgpLRf2WTZH79vPqezKmcJMjS83+2q -98WY3Z27GBeWIPn1MRO92jOY+CE1NdN+Cerq5+ISf3qjyd+s6dBtS3C7dUpA -19kLT7jH5bBElyB/sr9t3R0GMvUzzabaFuFBb1+3caAnUrxEzjmWLcL0nRtR -gu4eWKTPch++uQjDiz9U/UXd0IqmHyxHXwSpEqW5Rl86kr0Qf9t0EaidX3lC -M674czC2c1l7EZ6/Ucs/auuCmk1x2Xt5CyD4SWtrqIYzSqYMJ02zFmDsybGW -LAkn/BTJPuf0YQEuEhuPZ6s6osHXA6+lixYg5pd3bMyUA9I0bj2zd10A1n6N -xapse/zbqSfivsUCrFKdv93qYodtx1VpPvoL4OtN+orK2CB/k+oRkzUruda0 -/hGqNXLEnjAOURdgVGyzeJmoFSYk2Box2TxILbP+x8TIAst8azCrhwchYp6U -OG9zNOacE5Jo5YHa7vaKubuHML6sp/xzHQ/kLklmWGmbYe6Bdm2nPB4Id852 -yz00Rcr18tTHfjyI6At1/W2DKebX6KmYevAgS1bau7AQ8XWW+1VBJx5oM5kb -Iv0AtyprWqoDD75mvGLIbDTG631HztxdwwOH9eZhjl5G2Ns34VYqzoPEY05Z -Y8z9OEl7nfBNgAerPC33Xnbeh3lRAlXtM1wg3kRFJ87oo6h6JS+ojQsxEtZb -JBj6WO1jll/9YoV5i8zw/r2Yax6hpVTLhYCw8C3r+/agZsSQJxZzIbrziYG6 -iB767OndQU3iguzsR1ahiC6m3rWxrbflwt8tUdRa351IT9c0eXmICyDF0pVu -3YGXodFmxIQL3ac2ipVk6GDJwZON7ru40MTNH/1E34YMBzFBdyUusKyGGgez -tbC7OeetwHcOKL/5Va2qo4W1LVwL81EO2FEz++WaN2PhTumQOwMcmAj6J6l5 -URPzYm/lhrVzQPwd89F80ibsXspY/aOOAwHh3Kow4Q04c8grLTqdAyWiRQVn -GjQwfp/P9IsUDtBEUpYnwjUwV+i9m0IyB479Ia4SMKeOZkzrx4OXOJBw3aw5 -Y3I9HujMlSECOKBX137a5bwqPlyYPqVpy4GdNvyWcTFVpJ55N6FkyYGmjXEn -Qh+uxauuUyx5Mw5EtFv608dVMOrppxwtYw54iPoz5yKV0egDJaBu+8o9DlOi -ZTOKaOlxMy1YmgPj484ZbwsVcUEibsO0OAdiKbU2eEIRhwJjMVCEA7K0L04S -b9egaU3Ms2SBFb/W3i/0egWMZm9UXvOLhHXBwnum2uUQXBx9gvpJcHbteG93 -VBpPUapna0pJ+KtMd6BhXgrVCKf8v4pJ6G8zimzIlMKi0vNObUUkfDA/Trca -ksTyBYwl80gIlLdorrwkgTSW3JffM0nI9pHLdRMSwwzSRX8gloTQOVr8vQEq -juR1O8i5kGDWavyGe5+KB8i+9vpjJERpsD20fajYqOwbf/YoCeK7m/dPs4VR -zfyLc4cdCQ0lYoLlqsKYavIxusNsxbdOFNRvCOING3rfNT0SxB5mJ9g0LMML -Oi05X56E4fXpu7JCl+G1dlTFsCwJF4S/VFbuWAb/C7IJajIkLJU9yHMu5IOR -QoHaHxIkpMXEhy1kLUFVsG9IF5UEtclvGoa5K3+CYzBZzCHgyISswrYtHMiy -+UGTGiFg2bN87SOChK8Hz3f8PkzAsP2bB1VNJLCfnM3RGCIga9J0rRWDBL8/ -4+0O9BOwmXnL1a+QAHRObL3RRUDzD3VFFWM2KJ3xaEpqJeBctj9LqmEerK/8 -V2WwhoDCu3uG9mXNw627NK+EagJk5keK3wXMQ8jz+Nu6VQTQxwPNN6nPg9n2 -S5U3ygkIf7GpJSx5Ds6S9ob0EgJ6hr29MwJmQbyvMd3+PgENQ0zVie9TUBT0 -8F14CgHJzK5fn1LHoetmu56BPwGuHtJGU6fH4eO3cIaFHwG1FaJUz/3j4GPU -8Oy4LwED2/k6J8fHwJCSwIk9Q8B2E1rnxYNjEClXZNx3moArfZ8r7ot9g3Jj -xaBXbgTURd+bT+kahXGtrHuMwwRYNNTUOx4ehJxUA9dwQwLq8woqV6sPwhr/ -EclOAwJUHFjxMrMDUHOfEqazwmG0kJ51aQMw9GTm5PheAk4eStWS7+kHfn+H -n4feSp+6GP0hqA+8hRjNITtW/KLbZRWGuyEo/OoFmiYBSfwtjjsvdMJT++IE -dQUCJivoJLepBWDMdC2VYMN/JMeC1FPq4axMerXHCBvazgbPHFouA78pJY/n -H9nw7PasjEBfJii/6vRmvmCD8ZPMa66f1sO585k/52rZ8D89RSw3 - "]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGAQB2IQrZw4/+FbV9f9k8K3cy7e+dX+UnulLYN3xf6pH0JL -/Ld/tZ94RyV1093K/Tei1xWoA/lz7H4InP9Ts//Gt+o317d9td+RLMcqN7Fx -f6710ddWQH4Gs8F7o7b2/Y583Y85tn61fz1zfplzzMT9GxbNmHp401f73OZt -SZ82Tty/b63lpAVAvuA97ef67JP2b0taurUWyJ84p14pcsOk/ZyaLgUWQP7V -TWd5Sv9O3s/GW7Nh/cav9u1V3DdDmqftf7rb1Wbphq/2H7tfLzS+NG3/4XrW -KS1AfilDruUqhen7HQMcBFKA/JdLdjMm7pm+/8fuGaXKQL7fuRoWlvcz9j88 -/+P94vVf7UU6Z4dusJq5n/fL5vQWIJ//+aqdP1pn7g9JusiUCuRbf1lyJl56 -1n7DKSsXqQH5vyY1N9Wnztr/4qP8cnYgX+m8baTt+ln7pc7mn3ux7qv9tEvO -l2b+mLXfK6Bc4hSQ//6sed5Ux9n7150SaV0N5AMA/YjLtg== - "]]}, Annotation[#, "Charting`Private`Tag$2642239#2"]& ], - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], - LineBox[CompressedData[" -1:eJxdknc0F/73x4UkoySpT2ggI1JKMuL5MkpDWkZDg7IyyopPkZJRUkmDPiIN -FKHMEKXFm2SGbN7IevOeeL+Fr9+/v+c599zzOPeee+7znOda+/OHHPj5+Pga -5+r/+v9XtY97dW7eKlw2Xs82tN6O3zFFWXl5GrD/T3gZrM3xsYqNwjxDOC0I -joW1LaqNen3K8yxAv+ecbGTtBpfWvbvn5Z+Ep4JEx27rADw6HZ7Um++B9v6Q -4nPWkTCucfnkVXQFbo9Ld41aP4Gmjslmb9EoKLG+d3hGpKPhQ6XmwGAM6gPe -qMWwc1GfRgk1zn+KholbvlICxWBkJErOKr/ErUcHzpbafMbrfP+frngF54w3 -xXvGvkF4rCHapuINUjKtPiQ3UUDJOq229t1bVPI/mu+cVQU+l8zrrX+yYP5J -RrUlpQbtY7w8EcdcTMqqsx8n1iEPj1aP1OfP/SeSIne5ATPX93roHSqEcxzt -T+3+RgjyB685oV6MZF7HyqYDzWCEl95nznzEbHiHpplWC5wv5ItkPisFfKeO -q+9sw5W+Pt21tl9QuUlJRMaqA+fvDGxPW/kN7mz7E2kKXXj+KCHstFoZeoaj -ucu0u5ErYR+4ei8FUlm7BIr0epB1Qj8soLUSyvUi/T+OUcHe1Zu1L+cnQL5P -awf0YlFBfG10ew10qAcGxe71QdM3UXriSx1EpDtDGd/6kTjYCL3WBjwLDy0U -o/+BoZ/cq737mkBNGVDSWD0I6oWHFZwjTbhft8fNTXEQDeNifa/PNoH3dF9y -muogmu87624KaEKC3sUpda1BSP7jPpiX1oR+WBrp7x7EribWwgKxZhizcsfD -vAdxv8Zx1VRjM14l5Mh2lw/C73fpry1RLdAO2tHecHEI+xeEXOyKb4FDm5Qi -9/IQZOQ94x6ntUD1x0bfVdeG4HLxR6FmWQt+17F13W4NQSzH1HpqpgWfRPKc -pBKHQHOJSxf0bIXTT7ZyLGUI60UdtQJPtUHqJ1POR24YQhYLfWfPdSBb61R0 -Qfkwlm++Kjoa2AGPl3by8T+HEb6qhDCjOpDwXMUguGEYsUc3ym/P70DtxsR/ -DnYNw3bf8cUtgp2YNhKPnzc5DC+bL4b2LzuxUyFyX6byCI5n+ygNX+pCuwsZ -3H1jBCKHFPz7Qrtw02Snnv2dERgwDB1oUV345eh8IODBCDz8XS8ppXSh/MDq -htzEEXjWTV4mDV14mjfsZVgwgsORpSvVNbvxPvZcf8rQCFJX2Shkj3fD8obS -pmELGmq8z16zFejBzuczRfJWNFxvtU6XluhBy9ZlxrbHaZiQlZ8sVu1Bn/C9 -nb+caNDPlddoO9GDB2YlPp1XaWhzr5+9SOmBf2bYA+tsGkw9sv7oZVKRHqJ1 -sOefUQRuZTLMSqhouDmy+uSaUeTEmLadq6LirNcjwzalUcRXrVvKGqai1PG3 -X+eWUXzfpOAnub4X2rtkN/FbjOLIl8Ouham9WMb363JR8Cgq86hi+h/78CY1 -ZkpqdBR8QWfMt9T0oYqvne3KHoXIyke9pt198PaYd+AbbxQ3MzUFcwX6QTsY -qRO0YAxckVCX6t392DtxW11i7RjUvUvs5Vv7UavcHPLacgy6XD8BaakBNEnY -RtQVj2Eka+n2PJUBhJHAUwFfx9C0neXmbzCAFRUTwqqVY6i2er3grNMA5Ius -BiOaxxAtuP1O94cB3N2wxdKTNYaSjC0zXz0GYTjsuKdfio51hpO1f+hD8G5L -Oe9hTkeGeO54mtgwRqpdDYwO0BF85qtxisow8n+GiUtb0rGMwuzYYTeMYK0n -n78dp6P7t8ujrb/m+Jk21cCVDjObRs3L5SNYNJal9SCCjq80Hf5VPaNgXAgc -ZFfQUZ3JfaorNIZWnQGvxdV05H7Nupe8fgy1eWuuqdfTsbigNsPfZwxvbrrB -o5UOXy+e8SIhOlTepPyUGKGjUj7bTiuZjuWHnD83ijMgkxQXqSPOxC/Vtpzb -hxlQWviewlZgwuO6hX2+DQOL04om/+gx8RvKvdTjDPSF3Na96MLE7XKNgB1n -GXBt3HxuF4WJM22+L9R8GdiYFW107QEL/M8q9G/GMDBrmspdnMnCtidWYtQ4 -BjqzxeOpFBYOn/KXJokMLFc4UXKCj43//FNZAq8ZWOnlsK3oAhvxSu1x2YUM -bEilPJY5zYFfhuSOgg4GojWEtwYFcTDcWbphD5WBN9Om6XpPOQg37a/s+MNA -Yb1KXUknB2c+Ge9dypjzE0WhKjqM4+pJ1v5UASbajtk0VARPQDkl+XWs6hxb -Bp2/J81D4H5l2kd/JnorA6pdTXhofJsgVxrIBO+T4rumCzyk/cpULwtmInpb -UoZHFQ+/a8tW9kQykStlun7g9hRSU4MzLZ8xYfrel1qgMY1TuTQ93Uomut0T -30o6TsOVe6HvTg0Ttmp6FpsS5ubzzI8O/WLCLFKmmiIxA6rH3a6sLib80zVj -h2ZncOyjlXXkOBNGamqWnBA+ovciZqOnAguXtd2661P4SLGB+7SaKgt+9mnu -+pV8JNeguYymwUJFNSX53dJ55GEHMy1MjwXFTffvPEibY0quvsQhFny3fnO3 -4fGTP4oeB2ODWeie7/fYQVmA5J/Psv55gwWlypNaulYCJPewEUfsLgvHZ19t -MM0WIK/OHPN/GcfCnxyl3Zf+FSSJQ0eXkNw55ndF+BYhYqdxJc9siAURr5js -Qh8hoqe9fCiNwcLi5vxA83whQkwvUWW5c/fW0U/lkgUk5dYHQSVhNkYcW7e2 -OQiTIn25E61KbLC/DaQiW5gMi3GXvNFgI9bXpsiOfyEJlLvjfkubDQs1x3CZ -5IVEJ/qEit9ONnxe1KbKzRclL2otgkWc2Fi9v0l9vb0ooW35q33kPBtez1V0 -LpWKkrQl53rz/Nj4x1iiZWu4GOE6Fl9+dYMNJVfdpDDNReT6WwMXxzQ2dh0p -VdkvtoQsd6RIJrHZmExPLqg5NMdjPh83zrChVh3XfSxuCfGxmZxft4CDF7VP -hDs3SxJrU/2IUzIcFMT0i5leWUq+rX+XlGHCARE9sPBZ01KyPrVAV8iCA1Wn -e/sbtkiRf3zOGF06woEJZVm7EUeKGC/4HV7ozoFF2V1bs0Rp0izbG/ruMQf3 -hN6LH5NaTiwvhazlT+JgiZVUVkjkchKbSUv3fcuB7dXPrzg3V5Bgx/wAStlc -7hVS5do+riQmUm5hRpMcfK7UMtA8LkM29NrNfBccxwq5xIL0vzKkyiH1qP+S -ccjcef8l+LAcCaJGbD6rNo7I8a77nA1riPiyZ14RduOQvFByxTt6DXEs3Nyb -5DGO3xtXZ6tOrSExOh73mZfHISzb22/cspbUSV1fpxQzDi6X/a/WQXnS1/fX -XyJpHFqzT30CquRJ0x/Z0c3Zc/vzgyzONymQPm+V1So14/BqHtnZ5qBIqI8z -Fs12jKPn8fwj66YUyat5bRHSo+P43qIVqLldidjpv++SEJ8ALanTWEBFlZxU -LpcNspjAyNOGLtpfVUK5G1OWdGoCZ/ZvyWluX08SJmpuKXpOoO9gwsaHZepk -bKK8XffhBFZcvhUWV7eB6Iw3/GxOmYCVzFsjyVENEvqhMK2rcALF9bGmyzI2 -kQ7lnL3omcBebpGT5FFNgo/KIs/GJ7BPSCQxefFmMpTwvPia6CQeel8VV3i5 -hfRURza0aE+icXYwLTNEi7hxTSft9k3Cq7CWp3xxK9FsCc0MPTuJ5Waia/fc -30bkjljFlz2YhFyOvqDVFx2iXdJuwkufRNbXqvp14nrkXtzie8yySdCO2ZoP -8raT4xLlJ51nJpE8qWMblWxIBrjlewRkuHjIf2y6yoCQtLiHS57qcCF74sJu -iq0xWcHd9kvJj4ugt4zzd2JNiOfCrzsQy0V5ePj8gQlT4udpvimrkIsz6a/J -jas7SYystkZ8BxcSFUaw0t1Fku/5Fq0V5IHqnLCmaP0eYsZ5OOSgxkOpTv/M -ilPm5EWEnMlDSx5snnudPEy1IGY/qhq7g3h4o+L9s4p6gCiJlSSEpvOgllhe -YRR1iIwlf9n2tZ2HwbfeLiTEkrjW8q+mSUxhtO61gmitNbkfdSn+pNkUOg+8 -XHTl9lGyoOtm8s1rUygWv+NwrtmW0NaRRRMfpxDRKCa/wuM04Z8MeWsh8BdR -Lq+KtYbsSYF5sp+d+V8Ied98ECXqSIZzw0q3PfkLm9zqos2S54iNb1GiEvsv -XlXk8lNPnychs9O76FbT0JW72nd6rzf53sT7d+LLNMZYbXoidv6EX32Y/sBo -Btcfey7K6w8iCdMLf6XXz6BA9NohSlcoUXOITqy5NouvLzfvaVsYRaQ+u943 -UecjThxpY+GF/xFhIW07j3w+osjVWTJITyWZT8qelN2dR4brmRYVWd/JB+nX -TmsWC5DEz/YqfC0/SPsV45yDJwXI/wCWGKy/ - "]], - LineBox[CompressedData[" -1:eJwV1Hk4lFsYAHCydesiWyqyRFnK1pUW6j3Zri5RConIVpSdqCy3IlRipJK1 -ImSPJCJHGDMjikREQiW0Z75vjLHc7/5xnvP8nvM+Z33Pq+weYOu1hI+Pr4Jq -//eWdQ6Vixc7kKK2a/5pdwE019njck2pAoVvtC4IaedHzJWcS99XZ6Gw8+bj -g2N8SDHk6KYGURr60bSlZe5vPmS0u8Bv36tYVKOyTDulaBF0+lays42i0J7s -j+Eu0wvAbF+jXlN6ChkpH8kNOLIAtWZeHR8eB6KKjgnvy8PzwFu0ti24fgJF -ZllUjATOw2RNhKVlnhfyqxzsoK2YB7sgxz/92G6o/35a1diTObjoHvb7pJkL -0rdMiRnymwPppPAzmYOOSMnqw1kB9TkwVGRcDLG3R+FBueP6EzyozbF5xBd5 -AO39unQhsYwHz2Ta87NV9qOPK9Il7cN5cL7ysqDWUWu0JHh0Yc6UB2dlIz/P -yVoiFcF43tKVPFAf3rx4z9oCGbcE18lMzUL2p/xn3V/MkKmmwLKXTbOwwaPz -S/OQCfrmyMv+lj4LSLYhpUfSGKG8pCv6p2bBQ05/LvACQi/tdL0CbGfB1+UB -u9Z0F9K4f7A+UG8WEugiNbv7DNG2EPvvKyRnofOA0pZDZduRR4PBTi02FwLf -OpcINW1F+0fXChS+4UJXXnIE7bQ+6ogZPLgnlwueCtxTXRJ/oRd0przpJS5I -dCvm/e7QQ6sGnoqjIC6kiUk6CG/WQTYKXHuOCWU/GZNBcy2kx2+QeV2bC6Fe -zGrBixtReC5/ArmaC7L0Y9sEfdUR+6YDb+D3DFx0on9JFVVDJcx9TeYjMyDr -ReM0sdYj9SGlU9YvZsAneE/iQLwKuiOh90y0dAbKNx9WH21TRHapUq5xfjMg -ohCeEQ4KKOSJ57tFlxmIKuk+ttglj5wf2Pw1sm8Gjl/nE50yWIM0gy6otmyZ -gcu5hhqdIqvRqrC0Q0/VZ+DemHjBzSlZNKr66JKo/Axkdhw/njQig4zX6jLv -CsxAQed8vPsvaTQS2mj1nsMBet46TXdxaSQser/a6ysH+gMTxyBAEn2+HiNh -3McB8yM8QSlbcRRn9IfzdCkHbjKs1M9oi6E/Sk3ev87jgF4tqK1fJYre9nY9 -/pTBAacGlqvZiuXIxE0nIvkSNd/krzDD8yKo2JDv+DtvDvxSWvKRXS2Mhkxf -aki5ccDClc6V/iWE0kLdZvwcORDSL/So85wgWssoTE76hwPXHpR5nZ7mR7/v -33xxVJsDcfWqGy668qPL93e05KlxIN1Ad1S5mw/B0h+BgsocmGH4ly7GL8Id -Rv1POWkOTHkqXLjVwoNTqwpeJ/NIiHXSCqMXENDTWmDM/5IE/LPUyWaRDUZ9 -9p3dLBLO6DkJGx9hg7j/9oyaVhJcFa+7xapPg6X6Pzvrn5AgqjC1fgnnJ+x4 -mb01v5AEoSfRfg45U5AqtXpjcSwJTV+1byi+mgSaCpcv5RwJk2OWDQ3LJ8Ho -pOmpuEgSVH9MPs9P/gyNdmtUskJJsGTR9nNff4Tk9TdcT3qRUKf5bvdbvREI -l78l5bWHhJr+LpOV7u/hr2vn1DTMSUiK4Y3OHxsGnZ6QlxxjEmobP/mlxgyB -pfVprWojEuToYksrlgyACFM77Z4uCQELN6oz2a9AntvXYLyGhNwomh/b/BVI -x3Rcz5YlYXGkUM4puxvYym4VfDIkNMzLCY7YdcHu6qTN78VJSOjV9X/86Tlc -LmbumhUiwXk/N747uQXWP/u3njZNgFhdg89MTjOonUwtdv9FQJB3Z4THw2dQ -ESVpYPiDABOB6Li5Pgz3ikZYi1MEPFpYezVJsw6IuEja6zECQnJz7RP6i8Fb -WnNLZg8BtRe+yaUUpGKHlRoT6+oI8IjuEvB+kYarpv4RjH1MQHbq/F6d95m4 -YbuM19QjAmzx32Lvhu9iK/eN1W1VBGiUBTQk7irC795ava4vJeBcuanHOrmH -OPjz2X1X7hLgeHqzxyWtp9hp45JznkkEfDwTIXTy4VM8vq899MBVAhj2fG8j -DRrxoSK3VeaJBDwg4m766mP84qm9mcFlAjZvG46MTWjCz0Nv6uyOI0AwfYWd -2aZmfCcvPoobTcDWdsOk6JpWHFSt+7k+mAClA9+Gu3pb8ffV3pVylA9uu+oY -xW7Fwu9N+6KCCBDfvsvppw4d78qtkNsTSIBByrxJ4m06zqmdXMbzI0B2rrd6 -yKMN2/oUOzB9CNCcVPaPoDFwENa2mHKnztPmPVR/m4G1m/RuJ1LGl6WEssoZ -+HuNC1OX8hUbXsPu5wxs1KQSE+1GwL+tA3VWfExsePvLdp2jlGelL2QcZmIf -crBt7AgB222u9Zf0M/E3sc2TkYcJyGzTFZ8YZuKsxoUfNpT1+mr2jnxk4rje -vPuqlKeSgpz/+MnEwlkp63ocCWjce4B0EmDh5txrIyaUpUddeR8VWFj3Qv1Q -0CEC3A7eeHNEmYVvO5glu1Detn7mbK4KC3tzG1usKK+ITA+6psbCAhK0Qi3K -hld+t6losTB9nCbOT9mlpPqOhDYLW+2zjuM6EFC9TPRWN2VpeZbPNOVf90y8 -PXVY2DL99OPvlC1CjrHaKcd6vvX9Qnk+zDFQSJeFvQ4Ex09S3u8zLiZDOeJo -u+D/fiXVcWCWio9ICx7738dtO6ceUWby8yt8pfziGY60oGyWKvHoB2VZ+YyK -Kmr9UFnzfDblD38Onl9B7bf3a2P8Emq/V4PShQTUWTivrEBam/KmVvtUU1kW -3pDNONJMWZare6Odut9GjzHdbuo+tfQTLULeMvGJIr35Wcp0kQ5vwT4mpg/a -vlnvRMDfdw4dHu1g4vPIrzyaMltPJCu5joqXPPvEyJmAmrOGK4WTmbjmybLJ -Ceo9B2hf4OgmJiaO+xpzqPfHTRK6z3YycFIWn1WuLwG8/b61agYM/M2+pX+e -Mpj8GxSnzcC2CZpLD1P5N9tjP75JkYHlPxRZSvsTMKZzb0CJj4EDNkrb0AII -2FBIVNY3tWHVOZv0fCq/eeWDDu4723CUmrIoOkPlk61DfLU6Hf8iC3vEEqj/ -lnlXz620GZ+r8vK1LyegaSAn7otFE553CNuj2E/AuvCcoTvD9Vhh8Sg9jKo3 -bJG8UwntNdhB0uZu3A4SLmg4lzVLVuEMzqL5tD8JVfq2sbXzlThnUWhkLICq -XzsmwsonKvFEr3LBq0ASes7UFWY0VmK7XF5tVTAJU8HNgqEnKvGT7ePs0DAS -MnJqlmk0P8DLZW7l8UeTIPn7ZuTaD+X4hR3xesdVEnaMyNcsrSvHpYZFbTpJ -JBQ5WBZPJ5Xj9x2MEdVkEippC5XMHeVYrbvuqngKFR8ex/K/VoarLpW0jV8n -4es7mmfh7lL84JxoWlYWNf+GW9aJsqU41N9nMTWbhByqVAZ+K8Flb6SSruSQ -IEgTaNmaXoIHBrrXRtwhYaV8R13jz2IcqH1CwPkeCW0PDw3ntBVj4fQHGQfz -SfBUOWYfnVWMR9xNHfYWkCAiYKxjaFGMI3m9APdJeBeiEb9KoRivEr9xclsR -Ca0vW5SI6SK8b7lqg14xCT4xaZwuVhFe88FDb2MJCSFZ6iKlt6nxoi3PVUtJ -+A+uCats - "]]}, - Annotation[#, "Charting`Private`Tag$2642239#3"]& ], {}}}, {}}, { - DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { - FormBox[ - TagBox[ - "\"h | t\\!\\(\\*SuperscriptBox[\\(|\\), \\(\\(-\[Beta]\\)\\\\ \ -\[Delta]\\)]\\)\"", HoldForm], TraditionalForm], - FormBox[ - TagBox[ - "\"\\!\\(\\*StyleBox[\\\"M\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ -StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)|\\!\\(\\*StyleBox[\\\" \ -\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"\ -Italic\\\"]\\)\\!\\(\\*SuperscriptBox[StyleBox[\\\"|\\\",FontSlant->\\\"\ -Italic\\\"], RowBox[{\\\"-\\\", \\\"\[Beta]\\\"}]]\\)\"", HoldForm], - TraditionalForm]}, AxesOrigin -> {0, 1.35}, DisplayFunction :> - Identity, FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], LabelStyle -> { - GrayLevel[0], FontSize -> 14}, - Method -> { - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "ScalingFunctions" -> None}, PlotRange -> {{0, 2.3}, {1.35, 1.45}}, - PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, - Ticks -> {Automatic, Automatic}}], - FormBox[ - FormBox[ - TemplateBox[{ - "2", "6", - "\"Caselle \ -\\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ -\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"al\\\",FontSlant->\ -\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\\\"Italic\\\"]\\)\"\ -"}, "LineLegend", DisplayFunction -> (FormBox[ - StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - StyleBox["\"n\"", { - GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, - Background -> Automatic, StripOnInput -> False]}, { - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #}, { - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #2}, { - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #3}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], - Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, Background -> - Automatic, StripOnInput -> False], TraditionalForm]& ), - InterpretationFunction :> (RowBox[{"LineLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, - "RGBColorSwatchTemplate"]}], "]"}], ",", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, - "RGBColorSwatchTemplate"]}], "]"}], ",", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, - "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{#, ",", #2, ",", #3}], "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - - TemplateBox[<|"color" -> GrayLevel[0]|>, - "GrayLevelColorSwatchTemplate"], ",", - RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", - RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), - Editable -> True], TraditionalForm], TraditionalForm]}, - "Legended", - DisplayFunction->(GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, - BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - AutoDelete -> False, GridBoxItemSize -> Automatic, - BaselinePosition -> {1, 1}]& ), - Editable->True, - InterpretationFunction->(RowBox[{"Legended", "[", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", - CellChangeTimes->{{3.875957126514063*^9, 3.875957152540943*^9}, { - 3.8759571847549353`*^9, 3.875957188180087*^9}, {3.875957249738762*^9, - 3.875957266071168*^9}, {3.8759573346853323`*^9, 3.875957362091642*^9}, { - 3.8762091314286547`*^9, 3.876209168479266*^9}, 3.876210214519513*^9, - 3.884690547837318*^9, {3.8846907344980288`*^9, 3.884690754914673*^9}, { - 3.884690931703446*^9, 3.884690938018208*^9}, {3.884691030959455*^9, - 3.8846910405584087`*^9}, 3.8846914788814507`*^9, 3.884691620259225*^9, { - 3.884691704823866*^9, 3.884691710395669*^9}, 3.887175483369059*^9, - 3.8871849063569183`*^9, 3.887185435272781*^9, {3.887186470900655*^9, - 3.887186476464538*^9}, 3.88718651032314*^9}, - CellLabel-> - "Out[141]=",ExpressionUUID->"9dbcc449-beef-4593-9962-5e349a2d55a3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"ParametricPlot", "[", - RowBox[{ - RowBox[{"Evaluate", "@", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Xi]2", "[", "\[Theta]", "]"}], ",", - RowBox[{ - RowBox[{"-", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "2", - "]"}], "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}]}], - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{"ut", "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}], "]"}], - RowBox[{"7", "/", "4"}]]}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Xi]6", "[", "\[Theta]", "]"}], ",", - RowBox[{ - RowBox[{"-", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "2", - "]"}], "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}]}], - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{"ut", "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}], "]"}], - RowBox[{"7", "/", "4"}]]}]}], "}"}], ",", "\[IndentingNewLine]", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"\[Xi]", "[", - RowBox[{"\[Theta]0Cas", ",", "gsCas"}], "]"}], "[", "\[Theta]", - "]"}], ",", - RowBox[{ - RowBox[{"DScriptMCasD\[Xi]List", "[", - RowBox[{"1", ",", "\[Theta]"}], "]"}], "[", - RowBox[{"[", - RowBox[{"-", "1"}], "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", - "}"}]}], ",", - RowBox[{"{", - RowBox[{"\[Theta]", ",", "1", ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}]}], - "}"}], ",", - RowBox[{"PlotRange", "->", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2.3"}], "}"}], ",", - RowBox[{"{", - RowBox[{"0.015", ",", "0.105"}], "}"}]}], "}"}]}], ",", - "\[IndentingNewLine]", - RowBox[{"AspectRatio", "->", "1"}], ",", - RowBox[{"WorkingPrecision", "->", "20"}], ",", - RowBox[{"PlotPoints", "->", "50"}], ",", - RowBox[{"AxesLabel", "->", - RowBox[{"{", - RowBox[{ - "\"\<\!\(\*StyleBox[\"h\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ -\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"|\",FontSlant->\"Italic\"]\)\!\(\*\ -StyleBox[\" \ -\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*\ -SuperscriptBox[StyleBox[\"|\",FontSlant->\"Italic\"], RowBox[{RowBox[{\"-\", \ -\"\[Beta]\"}], \" \", \"\[Delta]\"}]]\)\>\"", ",", - "\"\<\[Chi] | \ -\!\(\*StyleBox[\"t\",FontSlant->\"Italic\"]\)\!\(\*SuperscriptBox[\(|\), \(\ -\[Gamma]\)]\)\>\""}], "}"}]}], ",", - RowBox[{"LabelStyle", "->", - RowBox[{"{", - RowBox[{"Black", ",", - RowBox[{"FontSize", "->", "14"}]}], "}"}]}], ",", - RowBox[{"PlotLegends", "->", - RowBox[{"LineLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - "2", ",", "6", ",", - "\"\<Caselle \ -\!\(\*StyleBox[\"et\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\" \ -\",FontSlant->\"Italic\"]\)\!\(\*StyleBox[\"al\",FontSlant->\"Italic\"]\)\!\(\ -\*StyleBox[\".\",FontSlant->\"Italic\"]\)\>\""}], "}"}], ",", - RowBox[{"LegendLabel", "->", "\"\<n\>\""}]}], "]"}]}]}], - "\[IndentingNewLine]", "]"}]], "Input", - CellChangeTimes->{{3.875952981547227*^9, 3.875953315769273*^9}, { - 3.875957061887289*^9, 3.875957104302837*^9}, {3.875957134472674*^9, - 3.8759571357521*^9}, {3.8759571703214827`*^9, 3.875957176129848*^9}, { - 3.875957284251436*^9, 3.875957289963092*^9}, {3.875957366732642*^9, - 3.875957382812718*^9}, {3.8762091878796577`*^9, 3.876209192631675*^9}, { - 3.876209751602669*^9, 3.876209811843375*^9}, {3.876209848116508*^9, - 3.876209861628406*^9}, {3.876209944462913*^9, 3.8762100154872293`*^9}, { - 3.876210224923583*^9, 3.87621023768332*^9}, {3.876210756477833*^9, - 3.87621081543836*^9}, {3.876210894360219*^9, 3.876210901623786*^9}, { - 3.884691262125641*^9, 3.88469130343027*^9}, {3.884691369512054*^9, - 3.8846913697035637`*^9}, {3.887184307286583*^9, 3.887184323958791*^9}, { - 3.887184367655423*^9, 3.887184373974834*^9}, {3.887185458067234*^9, - 3.887185458627892*^9}, {3.887185513675918*^9, 3.88718559599909*^9}, { - 3.8871857974578238`*^9, 3.887185814434868*^9}, {3.8871858779006987`*^9, - 3.8871858953562098`*^9}, {3.887186064343815*^9, 3.8871860991185503`*^9}, { - 3.887186398956843*^9, 3.887186404740259*^9}, 3.8871864473345537`*^9, { - 3.887186479790662*^9, 3.887186489958621*^9}, {3.8871865212317467`*^9, - 3.887186523110434*^9}, {3.887186638529913*^9, 3.887186640216406*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"b1086ee8-7679-4537-81e7-3871b266ebb6"], - -Cell[BoxData[ - TemplateBox[{ - "ParametricPlot", "precw", - "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ -RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.27286889266851116`\\\", \\\" \\\", \ -\\\"\[Theta]\\\"}], \\\"-\\\", RowBox[{\\\"0.06068304017165753`\\\", \\\" \ -\\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"3\\\"]}], \\\"-\\\", \ -RowBox[{\\\"0.011882621669035656`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\ -\\\", \\\"5\\\"]}], \\\"-\\\", RowBox[{\\\"0.004040915431527982`\\\", \\\" \\\ -\", SuperscriptBox[\\\"\[Theta]\\\", \\\"7\\\"]}], \\\"-\\\", \ -RowBox[{\\\"0.001955924222647888`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\ -\\\", \\\"9\\\"]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ -\\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", SuperscriptBox[\ -\\\"\[Theta]\\\", \\\"2\\\"]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \ -\\\"8\\\"}]]], \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\ -\"}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"0.25175267121411976`\\\", \\\" \\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\")\\\"}]}], \ -SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\"]\\\"}], RowBox[{\\\"17\\\", \\\"/\\\", \ -\\\"8\\\"}]]]}], \\\"+\\\", FractionBox[\\\"1.007010684856479`\\\", \ -SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \\\"8\\\"}]]]}], \ -RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"15\\\", \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\ -\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\ -\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \ -\\\" \\\", SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \ -RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]}]]}], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ -\\\"}]}], SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\ -\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \ -SuperscriptBox[RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\ -\\\", \\\"8\\\"}]]]}]]}]}], \\\"}\\\"}]\\)) is less than WorkingPrecision \ -(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 147, 129, 31937344891897383576, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8871855337728024`*^9, 3.887185596513431*^9}, { - 3.887185797918347*^9, 3.887185826765079*^9}, {3.8871858783091717`*^9, - 3.887185895966701*^9}, {3.887186065114805*^9, 3.887186099892681*^9}, { - 3.887186394070674*^9, 3.887186405193706*^9}, 3.8871864479183292`*^9, { - 3.8871864808523808`*^9, 3.887186490366315*^9}, 3.887186523517044*^9, - 3.887186641177333*^9}, - CellLabel-> - "During evaluation of \ -In[147]:=",ExpressionUUID->"47c3b277-8c10-4a4a-afd4-bd90c43d9128"], - -Cell[BoxData[ - TemplateBox[{ - "ParametricPlot", "precw", - "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"15\\\", \\\" \\\", \\\"\[Theta]\\\", \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ -RowBox[{\\\"0.855058956315038`\\\", \\\" \\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.27286889266851116`\\\", \\\" \\\", \ -\\\"\[Theta]\\\"}], \\\"-\\\", RowBox[{\\\"0.06068304017165753`\\\", \\\" \ -\\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"3\\\"]}], \\\"-\\\", \ -RowBox[{\\\"0.011882621669035656`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\ -\\\", \\\"5\\\"]}], \\\"-\\\", RowBox[{\\\"0.004040915431527982`\\\", \\\" \\\ -\", SuperscriptBox[\\\"\[Theta]\\\", \\\"7\\\"]}], \\\"-\\\", \ -RowBox[{\\\"0.001955924222647888`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\ -\\\", \\\"9\\\"]}]}], \\\")\\\"}]}], RowBox[{\\\"4\\\", \\\" \\\", \ -SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"1\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\"]\\\"}], RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]}]]}], \\\"+\\\", \ -FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\ -\\\"0.855058956315038`\\\", \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\ -\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.27286889266851116`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"-\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"20\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\" \\\", SuperscriptBox[\\\"\[Theta]\\\", \ -\\\"2\\\"]}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"-\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"20\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ -\\\"-\\\", RowBox[{\\\"0.01760331800383099`\\\", \\\" \\\", SuperscriptBox[\\\ -\"\[Theta]\\\", \\\"8\\\"]}]}], \\\")\\\"}]}], \ -SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \ -\\\"1\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ -FractionBox[RowBox[{\\\"1.710117912630076`\\\", \\\" \\\", \\\"\[Theta]\\\", \ -\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\ -\\\", \\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \ -\\\"/\\\", \\\"8\\\"}]]]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ -RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\")\\\"}], \\\"-\\\", \ -\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\ -\", SuperscriptBox[\\\"\[Theta]\\\", \\\"2\\\"]}], \\\")\\\"}], \\\"-\\\", \\\ -\"0\\\"}]}], \\\"}\\\"}]\\)) is less than WorkingPrecision (\\!\\(\\*RowBox[{\ -\\\"20.`\\\"}]\\)).\"", 2, 147, 130, 31937344891897383576, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.8871855337728024`*^9, 3.887185596513431*^9}, { - 3.887185797918347*^9, 3.887185826765079*^9}, {3.8871858783091717`*^9, - 3.887185895966701*^9}, {3.887186065114805*^9, 3.887186099892681*^9}, { - 3.887186394070674*^9, 3.887186405193706*^9}, 3.8871864479183292`*^9, { - 3.8871864808523808`*^9, 3.887186490366315*^9}, 3.887186523517044*^9, - 3.8871866422018423`*^9}, - CellLabel-> - "During evaluation of \ -In[147]:=",ExpressionUUID->"88979e53-fa84-4309-bb1e-7f9206ce0235"], - -Cell[BoxData[ - TemplateBox[{ - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], - LineBox[CompressedData[" -1:eJwVlmc/EIzbQG0Vkk02kZkt+7rsmZlRsrKKzOy9srNLyi5kZW8JKTJCWaGh -krgTQinJ839end/5BOdwX/YydSYiICDwJSQg+H96NVZdTm69r2qWXOSmosSp -QvNC/nKlOY/qRGxuTiBdrsqJvaTut3+IVemxZerQpUllejBmNKX6B75W0vpb -2v5URc32sdD3vmV8yTnb99xoQiWP4BjXv4JF9Dw1cmudZU5lw7+GhclkCoX9 -cqq+ZX9Q6bcku5V79SXefkdP5dOyrMJ5WuTi0sNBpBL5MpXj/p8Kqbj7Zbnd -ftQhanFrmNtUKTM5vDHC/ASrqrl/GKruqAxfXt7XO+jA4cP9ruH1XyokhgMy -3dSt+MpMYDZ2cV+li+yCuvTvRnzF6rNFREYAqzL5QjRR9SiePpAcpUwEpscY -3Nt+12CrXgIjTw4JiFV1S+dVVOLM7Mqi9VFyMFsdvta9VI4fq1Ila/OPwtVn -/zIqkx8g06ULvwvPUYLc04po/dRSXNKmvdLPSg2X3n6um5guRqV+ExIrYhoI -7uY09msuREm9297ECbTwy4idto0jHz35w9+3MNMDUXw2mcF8Ht4YszPUaGeA -Tqff3gbzuXiJIoA63pkJLEEmSo/+NtJs0WSe52KBy3WFLQOROfhJ1lok5etJ -KNBoiu5myManivp/yHrYQIaOx8plIhP7R1Zry4s5wOyu4rVvVRk4/Sxcnk+H -CyacLG5EqKXjtRClr1e1uCFq9oH6kt1N5HflHqTV5wFWW94OkYcp2B448ZLG -ghdqZW2UXBiTUb2IIeaC6ymgKPpap12eiNzCLp8XI/ggalw1i/t8Ai6uGfik -5/PDQ7fapn62eKyzfEDv3HsaBAhJLjsdxGEkfzyv6ZoArIiHct3djkUa2QVz -/ZNCMPyQW1bjIAabuoJ7NY2FwZIt5UYccwyKHusfl00VgfNzASot6tGYZlKj -Rv9SFMZCw2gcwqPQu0CRf4pBDHxfxEFwYiSqzZVdaZUQh5LMgLeqZyJw3cjK -221BHJ7WNjhTrYVhx+mJPMJECVDuC8sj6QxFAxsxv8CzkhBJtZBDmhGMbLJl -lN8LpSCHfilHKTsIN0XUgr9YSEMVsS5uPghERR6lrRoaGXhmJRV5ZCAAJSXP -pCqPy4C9k8q5hA1/5BlyCs5Jl4X0RwfzN/j9kU1l9l+t6VkQfaxKKXnFDzUq -JYLimeUg0eBxVNmR62ikHMTmUiMPppcZb7O7+OJnGhdHlxAFcK+51lcy4oOV -gg1TTPqKYBGxZVAt54O0Z4hFAjmUgERTy7mnxhsrOY7KRu8owVfXJ8evnvZG -w7CJcckxZdC4xegdZ+yFjEKiXxIfqoBuNMM2WYAHcra2q6dIIQTXazkbxl/D -M6usrn2PEFhL82mWStyxpn+QMkJYFV5UiLHx711F84cJw7GCasAxIT93R+Iq -/tDf93hRpQZexRR809evYHLsQmWaqDpIj637l51wxaHHGhczz2pA6kTcv3Nu -LlgropE30qMBbZY+WSvDzlioxkEaqa0JGg1CAteKnHBhu0ZT30YL3Ng/JJbT -OmG7zx9WhzUtcJwlqvRKcUT33P+414K0oZP2d25S6mVkPfuX2PiuDkzq0L4w -o7+MQ+80aIVEdYGSaG2osNgB28lFmn36dEHNN+Lf9DN7LE4INtP4rgeDhIfc -F23tsWKC7dFovD6YCxt/Ytu1w+nmNIvHXAYw5Rw6Vhdii+l0vNGvrM4BSAyx -nB20QXfdn/E7P8+B6V768TkWGxQY71wKvm0IS9K3U00mrPFTTsdY5RsjkKZ0 -4rUOvYCGToK7KnImMKfIaPFiywpfzE5tjaaaQK03hU7kNSvs3rMiOfLRBOj9 -3XepPS1xW+1APTbNFAifcbDl7ligQ96aQ/+yKQzPvcvqibBA9jHZwBplM2CT -89axKTDHY83+oZEbZuCwb38pQ8Ic50xprrjqnodlHpBdGDqPdOQG2nv3z8OM -s6KIKsF57C01W6W1NoedtKKTVummWLXkeIlj0gISflg66sib4hsmBT8Ut4Rw -ihqp2GUT9AoY6yDPsIRrMayR8RomuJrrQhJnYgXsCWPKAr+MkfTjzdNyTVbw -Lqp8+3m1MYZhZXM6wwU4tbRa2HrSGCNNn5qfXrwA1tPDbC8rjVDMiTrTBS8C -YbhdbTm3ETIFv4/TLrsIK9/MuPVZDdFSIWjzm7c16Pks/xcgZYBMG6NJndQ2 -MK/YGi0wpI/yk7HlBz420J/Jvypmp49kk08Oh6dsQDTUs2c/Ww8djxYIEufb -wofzWS9eMOqiqM6UizezPZh4z8e5dutgfMzpwlZ9e4g6qrz5wVEHDXRlezDS -Hrxv1DpItWujIsUEL9eKPdgb0AmT+WshfXVdHHmnA6TWkmSLCmhhxKD74ZUN -B3gcw6Y+taiJR4FZlYrvMoS+iRMN0tPEkwPtN9kzLwOv82tZZlkNrI6XSr5w -zRE8vhwmyOyoY6FsYdDYfUcYrx0USGlSxzfEDeyxC46wS6q90iujjj0tvkea -9J0gkvnz8k1tNaycPjPDLeYMnr+5ou8fV0Maoa/rRVecQcaWVbRzRhXV7pV3 -2ZY6A6nfx+lXV1Xx5oLwQQGjC3zsrOuiu4fo/Jy7l5PIFZ7pZ7zPuop4VRrP -FCu7glV8WeqKHKKOwqSdfbAr2Exbcx00AR4EL+UWbbmCmYnxvRE9FZQmrBdn -XL4C90pVi/h2lJFmf/NmJs9V6H8zcHG5UBkNXg4N6dtfhXtlx+8E7ikhPdVr -17DFqzAamJrN3qWICRx6uiOzbqDy50lJe5A89pCrMx+ZvwaMfGlnM2TlUXN6 -e5j1pAdEBK7E2e7KoWgPgYnbRQ8QF1m3GvWXQzJdiqC2BQ949s3tvmf0WZz8 -nlFEveQJ96by5sO0ziLbv9cXfvF4geeYeJct5Vkc/PpIhMXZC1Snrs/cvCuL -CZm6fcfWvODs+M4f8V4ZNPYLvGMS6g0XZ9Itr6fI4MXoH/kiBd4weJP5/DVL -GaQZ9T9/6ok3mAo8EPbfkkbeVycbrhL7wIRrsmaKqDT6745s6930AYUA8ijt -p5JovDjrbFvuC5LHv1Bn3pHErd2h4sMXvrD3ibrJyVMSJb2dVrrXfeH9oDZZ -Caskpg488EqRuQ4dXDoa4mESKPjP1TLw+XUgLOjM+WAmjondQBaz7gdZZ+mC -x8XF8QqRiet7Wn+ICxVsEDgujgIsy/JWcv7wrDvyN3+OGHoR1B/Pj/UHPq3m -V4o3z+BqFkmgO2sA+Ft95/UrFUH7g6Ir3MaB/+uZBo2W4/+8YjwkJiQQjhr+ -Sl84JYLrMepixGWBEEpvPa1RJYyenyzNHP8EgnhV5kb3YyF8GfPuQkF5EHiG -x1HNkAiirSuc3CAJgcwk4t7kCQEc2JQx1pQIgduNl57O5gsgeSZ1VKdNCAwI -lNyXOCuAbs9ZygjbQoAep30qfE/jZ5W/3wjdQ4GV2kdwkogfbfOY3vfNhYHE -AsHe8Vk+bPjeQEtMHg4K2sMCz6r5sCLL4sFlmXBI5OpbybbgQ45Im+6wrHB4 -GVR1mNpwCmWu8nazGkaArejT17dCedFDmZXkYDgS2vzliAos/uc0gWOc+5HA -EnjuFokkL4qeYZesZ4gCgljOgY1VHnxZW+DOrhUF0l03PelsedBEjWWrsiIK -2vxm1pMsuLFkWDkrwSMaTjaSZ3HKc2OS9Y+9N3HRYF3Gq/OblRuNRt5wyudH -gwn/m3r/j1z4KIi1hH0kGoStF1LCfLmwRJqXMVIwBsR/cO7IKXFihLPCfvHX -GPjJ0XIofpQT5d71Lz0miIWNsOgfeTMceOOLt/kKcyyEe6j6dvhy4EmW77N2 -urEwIb3ETFnPjjd8t7e/VMXCiYQizj1lNqQ50vZFzzsOXM1o/Txp2PD1+9fS -YklxoBXRI6G+zIoVJJofOEvjgKtU4hVxGiu+c72nzj8VB3a5a6PPPp1E0neE -357L3QCF7f3moCIWfDlXbmBOEg9VhEzZd0yYMN4oVDj7QQLsOua/UhJhQpN5 -owjpvgSg6wjQECdnwvc+YZuf3iYAmYK9GWEPI957ss/nwZQIMzGBL6XFGFGc -SzxMICURTvt8HRfjZEBbBl5G9E+C7JZIO5d/9JgT7v2pLysJVpPE6t+/pcfM -DNFCk/okUDKrnsgtoEev5l/jd/9LgrR5EKPgokfPc9mTry8ng4jB62BPcTp8 -9Fev561ZCniEbhTG0NHh6conhMq+KfBfcrn7+E9apGiWIKnKSIHvlXqdJ3po -cVvoi0LtWAr4H2gN8BjRolinBI+VTiqQLC69Ph5Kgz5Nh4HKeBPSlyjcz69T -ozTZuWUphXSo1Sy2TuylxlfDP0nqL6RDkZ+pL2UONSoMmdHLB6dDGG+MIJES -Nf7SZvzt054OHhtps+npx3Hi6ta5J6wZoGX2NuKeBhXyvQiqIcjPgHweja4I -NipkpRht5qvJgLYTQ/YVO5S4cDOI16Q7A/jqjYKel1Eic2mtWNdiBqR2RYkJ -U1DimbL4LwvsmWBG0dd+/OMxvGRrt2ZYkgnL1C5fiXqOIZV69Ns3DZngQGoQ -KXX3GJbILfC792eCSseDGW2zY9irZNte/CkTvnHc5hEbOornXu53WfJngUjT -E9nU7iOY/HTUb6cmC7btptzsR8lw5ucf94892VDIt9q/XU+GIsrXqSjHsyFi -fMW/7hYZQt47FsX32UAy+7qj0I4M26//8q48zIYnaX/Dzu+S4iGpNtkg5gDb -j/uab0+ToraauirpQA7M7V95mlBBjOYuASNJL2+BZKi+fGEGMd5PbMq3e38L -nqcQV00FEyPJrWPPFTZvwePArVvFBsSofGKdg5D2NvxYi776aJsITzEcXRgz -vw2iSMftq02ETdeJKV3f3QaVnsA0SRJCDPu+cZiznQsrWivDqhsE2Kc0SpFO -dgdSo56Ies0TYJhOj2E6yx2YTi9P4G0gQL6kucBSuAP8n/9L+2ZHgNMVyzp0 -qXdAR/gd7/0bh6Bj+T2Egz8PbFgbDZjlD8CQ6CLlnO1d2Dz6d/I3wwFc//qG -6Y7vXTDbsnGn2P4LkrS9Brbxd8GJwTDpce1f8P7nKnFQexdUK0YczvP9hQsu -9G/jDu6C2oWPGmTs+0BSSx3SVXAPnrdeqXMT+Q1shtN7Tz/mw/ONwN26E7/h -wPGj93+7+eDPo03BtLsHh2YDyHy0AMhvF7zW7dmDgHeJK9FiBSB78bqwkuke -GAR/PncrrABun2qfPx31C6RKFa90MxXC6bkc3bEfu0An7+xEYVoEo1tbmevz -u8C1aFX/1rkIrEwWnws+3YVbKv6mLcFFMMRBb7ybvQvz2hp5fiVFUNo75DQl -uwvprzUlpbaKQJjFvi49ege+pAoYzekUwwVqhrUtwW1oj/gTY/FfMaROi/rW -MGxD7J1/kQ67xaDyN9wsnHAbjHrpqL0OiyHTsvuBw5sf0Ks89imTrgSwSYJH -IvkHPKg95fZTsQRMf7nITW5sQQvjE0LFmyXQp60fdW54EzzJF+WbJEoh7dmu -w932TShlftNwQqkU7k020P0p34SSs+S93lqlQJGiELMVuwnt3A+L5KxLIZiz -duKxyia8/fLPeyWuFCiN8vs9vDaAX/BafN9cKXgOl7ud8FiHqd5TP6/E3IcF -2u42O/11mF6ctiRKuw8fb5xPmhJcB3N+3bHCvPvg3RSxIrryDZYopnY+1N+H -r4tJS3mO30DolS4mv78Pdk9+hwo5/gdnJxZP+ig/gPFFgr3F0FUY4Kquydp/ -AA9irM6E266CJuFDzXTyMkg6Q7arpLoKNWbJh2l0ZXCwypJ0knwVBKR2Z3OF -y6A8PEhKN+cr+Ko4C45bl8GguWONcfMK8FwneTrVXQbUjF6eP49+geu6Q50Q -XQ7JR2iYtreWYURVQmcstRwKG8PIyeeXwTirr9DmTjl8nh0x9KtaBu+ByMr4 -unJgkBVwczBYBlP/QY0/b8uB+NLGpkfOZ3C7Q0BzRbECOg59xfOkP4FdvaLU -5b0KkJveYdTn/ATrt7nJ9UgeAqv/ryM0xz6B5r3WNukTD4EfbzTMvf8IalLN -DbQCDyEwVzv5fOpHSCJrYduyfAhyggG+a1+XYP/9cR+59oeQveVh+bPuA1Bm -sXr/DKmEU8y0Ba73PsBnFoXT6omVQEzepLoe/wEOGnKtsm9VwnHeJ+oyth9A -djDpjEp9JQyyEAS0UH0AnncnBx8vV4LN4eHz/g/v/veBf+qdTapA0W5HOjlh -EfwcJukdhKvhSMd4r4DjIlCVL7pxyldDR5WC4ZrKIsRzhjkuaVXDO2Pzwemf -C9C1JKLmfbkaenGpUffKAnhKfH7bkVcN7YmPJGNM5gGPXVw8OFIDtbb98aeV -5uCUEsmB2VoN8Nk3LnqzzUGj0XVa7b0aWK6lNZ/9OwukJazzymS1YBsZLbj/ -eBY0SjfiZXlqgXQ9YfKu6iw0ySknnL9YCydCCKQ4DGegtPxTg8ZILXBQMxXY -hk7BTOnxd0T1j8BzWaiR2m4KlOplhr16HkGx6g/2ebUpyPB4VfZh9BH8GcxJ -7jw2BQEiFNIvVx+BuDFVW/m91/Bd9NHqHG8d3NptHqbvfwVPXd7XP7pTB35q -/T5ZXJMgNm3G16pWD+qqQQ0bRybhcNPzvxrdehBiHZew35qAeYlTSWXG9TAv -8KsipH8CCBYHjPJt6+Ggw9Yq23kC/DK4BYtD6mGSQPxYgu043O38REnUVA+s -7MlDasWjQKTefewsXwO4WdY2xPuPAtPKG0p3kQZQmlx7+E1vFPL0B6lKpBqA -0I1FhePnCAwbpNPQqTVAfrafL73hCIjmTGhT2zWAs+bUnjjJMHRaGdddzWsA -gtvvq00SB4HAgW+vnroR7AW6xcxtB+GB52+vF0yNoKEjrBQmPQhJFCkhnzkb -IX6h3EZ66TmYBjQZ84g3wqaawLSO0nMoeVYJj40b4clni7ZPewPQQNwp7JvV -CBsaamTbyf2Q7FRpucrUBP/Cf8aecu6H2Pakp1ZcTaDnmmzqD/2gWjVCMyLQ -BPN9M85+O33wx3zCvl2+Cfi9p0iX7frg4b96llbrJqCm9KjyV+qFIfGxTCxu -AmNX5yRqpm4g/cf9skK4GRpKCVNtZrugoG7/z0epZvDdZptcyO0CIQsyUm6l -ZjjXZ+J3haUL/hX2dpcZNEPGv/uOjzk6YZG18sQrj2a408FYIS7ZDv3XHx7v -qG8GEsfjJ9lCmyEp7tGPWbkWSBPoPcet2gy0h4Ps/qot4H+istyEvBmEht9m -M+i1gGXuEzGpnCbo/9fjbW/dAl2S8uG7dY1Q2ZxowxHRAncecYVYbNRD52xB -qcpAC4xcouJjZamGiT9OM2JmraC+a5CcVl4FCstYS2DTChfWqTsuSVcBXcxZ -yhmXVhDfL+Y8YlIJOolC4WkhrVCwdeFtZloFUO/urMqWtsKOXHGjwMkHsH0u -jvvaj1YYXk0wdPl4FzyaNRoKbrfB924j+QHau6DOl7ZMVdIGF/lS55+q58Ew -d0lBbHUbfAjf3iqryIUutsqeyN42kLix6LsckAPXulYnutbaoMEiz7/CORUi -I6T/6GM7CEyHza18tod1oXoKls12yFzK3hmSswBqiuY3LPvtcO/vULy0khZM -7u5JtZN2wP8BldWZ5Q== - "]], - LineBox[CompressedData[" -1:eJwV13c8188fAHBkRMkmkdGQb0mEkLhURssqRUZFQ6FEw0pGGkRWZWREREYI -2a/7GJ+Fz5usKCGECIWMxO/9++fzeTwf97r33b3v7nX3lne4bnGRg42N7RT5 -8///b0nDI0X2hkDf0maxR6oMRX0e19H67gJD93cc6jEuQ4+7g16fdQqEwHdi -kRfSypDPz4JL79hiwGsg0FPTvhzFV2tI7suKgYJ5Ecb2q+XoX6PI6FHzZ/Cq -+F2Dwu1y1GrX8uRP8nN4sP6jlnZ4OUq0mroXpBkHLtf62JnV5WgPf1N4p2kS -aBT4/cmTr0CxMq++aoa+gpEto1IXgisQY/L0EQnR19CyUxvtnaxAoXUDtY02 -r6GBfTH46d8KZJ7AZWee9hqup2wxm+SpROlSvA/pqumgM1MzwpKrRLdytve7 -H8uA3ryqt0InKtGFrYT7J89MKDSgq9aVVaKsMqmQyKpMSL8ymttCrUSN9iui -0hxZkMjHsTjWWoloFp1iGSFZ8GhwoMxoohL9uhWSFxn3Fg6mm2x9tbkKPRZr -3/o9LweEWnPP8EVWoc+2kxtoUznQ1Mez5l9SFfLYPlLsszsXdgq+YWPLrUI7 -9VMvnivOhTM3Heo1GVUo5kWSvVRZHshzaavf5qhG5cuu7ntt84GdP/+Gq2c1 -okTIURuPFsJ2r8j8ozcBzVgdjEhzKYSw3tHTmg8AFZ/amOUQVgghpm/v748F -ZC9sLRrPKoSTLTFPcioB4fh7PyZN38OgxGfktQoj9aPSW41NioDvltdCgRlG -5X1J9TmuRWCpNmz86gxG6xX/9S8+KQIL9+bGlAsYiW3a2HmioQjMJxQfNXti -VL+HlrNoWAy7/a//+P0Ko00VEwk79paA6J6jPfvmMFr7K8dexaoEbBwaz+/k -oCAZy9JS2dslMBs66bqTn4KaKwzuVBeUAEt142ubzRR0qity8d+2D6Bh2l/r -YkZBGQmNtGjBUjhSeVJJN5eChFNzip58LIMqxTdfxN1q0Hp5/6e7x8vgTEu1 -LNWnBlE0GoJoXOXg0ePD8H1Yg2rK7X5Ua5XDzsOFp1aSatCAkfLqocRy4Asp -vWjBqkGsB8f+k7xYAUNago/mdtaigqSQWY/hSviqNhznOlmLPmUNNV+tBij3 -Krk54lKPTNbvHqxrBWBKZHvoetajaA8XJ6FRgMfEmdqQoHp0tix3BvNiCHFe -SOSPr0cqw69G+9QwiL57Yv+OWo8G4yPffXuAQUVoZ6uuDBWxq74y5FekwD+N -lF6veio6au+g9UOVAvGbfjeHEFQkytL8jXUooOj91ulpFxV1jsoTNqYUMDnQ -J+nxk4rciw++NrpNgd3P7IJfidJQwkNpx781FIC9Kf/dP0dDFf0YJk/XwFTO -kBD1Jw1Va773bD1fA/oG4xYf/9BQwbKyV75zDaQFMYcaV2iI0eh44dS9GvBL -v/zhiRAdnZfb52KRUQNLu9/La6jTkZ1lzR2B6RooKMk3l7pNR4n/fH4+XqoB -A/ZCLi4/OtqVdXbuH1ctZL1olvwSTEd+HnrdH9fXgujDMHWLZ3S0xyXXTkWv -FoY5ynjs3tPR1iFB6+qHtVC9i2docIyOglT1NdsiaiF9d9ls8m86sriv83sg -rhasXzR3GC3Q0XM1FcFf2bUwLrg4ZcfNQAFpJZdqiFoIc701kCrLQK5veY0M -xOvgcInxvVATBtrpu+vvokwd/Alw3yp0koH+LS01v91WBxo3Fi2CrBnom7/x -73mtOvh7eLf2zgsMpBE4ec/Upg58+LQnn3sykNp8hP1oUh3Iy4U540QGCjW7 -6lWUUQfZOoPJda8YSOZJfL53Xh2U3oqnf0hnoFNV3/3nq+rAzuP87NVcBip3 -nOYo/1IH930lijgrGejg4Jkz9oN1cGQiKtAfGGhHasbwv7E6CDYsOjhWw0DU -lMB85b91QEvVSApjMNAsz5jFacl6cL0gUMbVwUDp3FsK2uXqYcJml/zCJwZ6 -169qb6pYD+FvKHc/f2Yg21HxAnXNeqgQ7RNz7WegsTVhT2kn62Gj92qidoyB -xN05y+Vs6yGZfm9YeYKBOhYyj95yrAf3Fsv5R1Nkewe88gXd60GI/xoX3ywD -afcVtQo+rYewJ4s96B8DPSvdHGrwvB5mXecYm1YYKPlzEOVWYj0EcEm9n2Fj -opRVRAk9ux4co/feu8jJRC5TT33GCuuhn+boyMnNRPjvTyZveT0UyPAbRfEw -0X66qJg2vR46WyUFfPiYKKLgldgRoh5ER5/OtK9honT+kzmnOurhcejbz7L8 -TFRhGvfGYbAeeF9W5PsLMNGhnq9CDmP1cJcvPvmFIBNZqrzbaPe7HrIFxyMT -hZhIL1d3qyEbFaiHrgXeFmGiIZ1EBXUeKqw7fSzgsCgTvbNjtm1cR4VrvfP3 -14gx0cPrEbtXiVHBbq4orJJ0+LvSA4NSVDDdWZpgK85Ei3p8qymbqOApqvJu -jPTc5iPBcf9RYbId0a9IMJHnUZ0qVxUqbK1d+d5B+khoUqGuJhXKR33XqK1n -ori03U68elSIyCzV8CM9u7+or/kQFTQNMy+WkjZb7pGJOUqF54/UE/pJB1xy -2nrCggrNx7U7Fkgf+cM7x29NBSeFYHF2SSaSl7nzvO4sGT/1yWaOLF886MB9 -5xIVWm4Op38hLVHvc3irKxX8VlnO5JMeallSsb9JjqfAwPkaaXmFMM0oHyq0 -wbYJCdITopHnKIFUSKcd9s0l+6+08+q7scdU+GkwKLqLtOG+O9uEIqmwIiT5 -4SU5/gIz0UbVWCpkt/0+/4d8Xzcq41OOJ1NBK+CC6D7SXyXOZ17IoAJ7s3GT -K/m+lQ9VfL+dS4Wc8vOhoeR88F5btL9fRIVfC6ePPxNmIilBV9GwCipM3y8X -CiXnL2PWni+yhgr8wssdLuT88utKHopgUEExzjdhLzn/Nme+1YU0U8Gn86bd -DLk+TqTmZt74SoWHVw583EGuHznPXcL2Q1SIo60OyOJlom33gDAYp0IJx/at -IquZqDZx/ATPIhVe82089JZcr+zuM3L9bDTgMp0u6+RgoszZXpMSHhp0eStJ -/SLXN5aQ6rYQo0FNlHfM8BIDrW3FuhukaTApHpdRt8hA5r5/1vVsogHqVIoN -m2cgk+ZX3JYqNFA5Y792YJqBiCbb1HVHaWCVo9CWMErmB7l5RoE5DdylhPw6 -v5P56CGHp5kVDTaFGY0uDzBQzshrD/+LNCiX+fZL8Cu5H5Wt9bLv0eCvSZGR -fgsDUfI/TGx/QIPbjD7P7iayfhhVN+MJ2V6F9KGzTAYykhqpfRpHg+JzxlE7 -ahloNM+qVvk9DVzSTC+z3jPQRe4rlaFlNJitG62tfUfm09wW50Ggga1CwOPX -2Qy0cOrEwqNGGjzp5FNXTGMgoZLtcslDNGiN/aKjGclA9g37ZTgk6GD0Jl7F -9QoDKT+6a7siTYcFB408ZTKf1rhmv57fRIe1qkPtn+0ZiMfd2q5XmQ62ziXL -8yfIfLWDs+yuIR2SZ/Le6uoykKbJ16c2x+jwJbf4mo0mA+mnuwdrWNDB9GxS -+AVVBor2W93ZY0eHIofID1pbGSgzQMWG7RYd2qN5vIfXMFBDh+p18KbDOxeX -H/ZcDJTrr1ni7U+H21xttpRlOvq0YDo8FEoHLb3NEka/6IiwPyr1NJUO2jqK -QSfb6agnenBKmaADFGcmOsfRkch7fbvCNjpYljHFwiLpSCaFvnl3Nx2sjkFJ -7GM6WrH5QlcYokNM32uNa1505HHgRvHgIjm++DWuglZ0JLcku7V4KwOqVfK0 -NpPn6fKTcyYr2xnwpTz1eS8PHd0P2ThnoMIAkTWb1gUv05CXwJZm+l4G2J3l -Ww4Zo6FolYze16YM+JNwtsa/joZgG8+VUk8GlEqqSnG405D2+51Hbt5lgGrB -o+NsTjTUtk5Hb2cgA1pLrG6N2tHQJivRS89DGSCNbG18D9NQg1XtkEESA86X -9VxPlaWh1yrb/pOqZcCJlBuhX2lU5NdxgTeLxoADeb0rgZVUFCKxdb16IwN8 -E6K2CxVQ0ZukHzT9dgb8NmYe/RFHRWebbibrDDOgWD/NLOwqFcUFiqS+5WPC -7ssOhoE8VOTArb97rQATRo2qvD8s1qN7yufWOIsw4cR6iam2n/VIwG84SU6a -CY7l0Vr01np05/ZqT+edTOj32HI9LKkeBTOdTwWYks/jc9ros6se1bwbzCqN -ZELshz8MKb06NDI8OrrxORMmqj7M0ZXqUJj33G7/eCacnDo/YSlVh/Z1lg7r -pDFBMnR76Lr5WmTe4CAYUcSEv6fPVs2+q0V32AyWczqYIPS5KfimZC161e2f -N9DNBKuAfGte7lrUXnImWKKXCd5U3g0+v2vQeYpM3u1hJiT474ifYdag7cEb -ZETmmbB46IHYXu8a9PCqMhd1fQMMyfNe6G+hoCfh0zOEdAPsK9jwRamSgrJ2 -xW3rlGuAxWvx0+YZFBT0+Yptj2IDeNiOSSt6k/fbOHF1hlYDuF3tZluWpaAK -fz0JOasG+CUlkyhF3r+/CB450hHTAEefzFyqjK1CuFeJciy2AZoC1zY4XiK/ -Pyx4V1ESGiByb4dMuVoVCoxljaemkuUjW3JvNFWiytWavsfyGyAlU7R1eakC -oTPS6ZoNDfCA4XhZ/lg5sp546BjKaoDAg+KevqLl6KYoL3tPSwNcyT5z3u9L -GeLm2PPV61MDgD8t6qZzGdp2yP1g/FADGBZOcUsFl6LUinD67ZUG0E47KdeS -UYLu8ArxZXE0wr9LMmdOXSlBP0ymdbu4GuHb50Qdrx0laPRNeIDa2kZ4X3Tj -3rO8YoS8Z2OJ9Y0QcU39oXh+EXrQk772jWojxJoXa7xNLkRXqgXYP59vBC31 -9to4qxxkGL1rqvpCI4jZTIq61Wej/fXcvK8uN0LvX7dge9VsdLPjd8VZ10Y4 -TghR73K/RQHmBw7SPBtBMr9yc0L6G7ShO70MPW0EPuOV77+KUxH/hcwq7qhG -UNZM//xUJBWxJm79bYhpBPtIu2Alt1cot+qconl8I2y+tvc/G4UUVHyty8Ew -vREOiPA+KV+bgNh4PNR6yhvhkYSsTINCBGqndxo/qmqEwymySS7+YUhFwOeN -Km4E3dRsE2ZeCLLuPHToXn0j1BjavF76dx/FtGmLczc3gmHQcAaF6Y7oEmfH -awYbAcCMMmB3Fzy5h+kra5tA0E3r5obMFAiteHAmW6AJfiYC89ezV0CoT/Ja -CjcB8+C3za7BqXBnTyQ1VaIJzHbHVNpeeQ2Chcod2zY1Aa8U7YCPQSbkHF5t -0LWnCfoTXbw7FPPBuCBa87J2E4zceYqyc/MhptLFelqnCYalnz9yVSsAPgfT -Xdz6TfBm8wWJGv1C2Hb8tb740SaYStbQ7LtSBLusXo/32TeBqc7Q/JvRUjj+ -/I+FxfkmeG3cmqLrVwYR0w4LFMcm6NaeyugTKQfNxtd8L52a4EVe4rXTByog -nM/BRse9Ce7cjbxtkFMFOStqsduCm+D8imCVoA0FtlVMXa/KaoK5LydjfLuo -UPnOKvJjdhPEpt8tfkWes9lThsbfc5vgYvfaDvtHNIhQoHvxFjZBeI57W7o2 -Hf6UARsqb4KqCf6Xj9IYULi0zvgyswn0Kbe8yp41Akf0ovSlxibgGHTt//2n -ETQpd6MdWU3Qmvjp2SerJhDdhZzOfGyCpf4ihzwZFqhuO1iv2d0Ef38wKt4W -ErBt8N5UwWgTOHXKhjzzawHN0dg9CWNN0PuSPfxHUQv53Tf8X9DPJmBNRPm+ -GiPL2xY3mP5qgglF7yNaZz6Cx+nmvZ3zTbBL+4Oz3L5WmAk3WZfFw4IFZrnX -C5F2OD3i0nl6CwtUDh5R9JTogoeHwyp1FVgwYHInx/98FySNXdy5SZEFqVVL -GrI5XSBZnlD8fQcLPp7vGNh8sBu0vO/esVdjQYdXz3EPz8/AtLrpzXuABSIu -++Nvsn+FyA8Vfp8OsiD2GJ4MtfwKiHNcKsOABUr6946Yv/0KPNz6W3QPs0Cu -sjdj3LIXrH/sDjpjxoIqecUo5pk+cGzXVDphz4J977kMpBr7wf1glczacyx4 -Jly9sPy3H5r8O0pqz7NgWKvkn5HSN5h06elWvsiCjB38A/zh38DYvpln1pmM -x4YWwacGoNTLOEXfiwUJBtfE1y0NwuqDM0ZD3izQ1eJcrtk9BKdWnX310JcF -Gu8VT0xcGYKBI84u9Hss8OMOXsnpGgK/REnPvQ9Y0Ofvpj1e/R22WK/n649i -wQuhEIWwVyOQa+JPsYxhgbmVkqjIlxH4TyzxLOMZC2YC328RlhiF7baHLXJj -WWA2nm7mHz4KO++9kXdKYoHn395l3aAf4PRZZTQriwURuyV9TgSPg+6yoDl/ -NguiBpzhH20cOEOIzOs5LJiWvmmkseYndPorbFd9x4LeWHqeefRPOPa7N+hN -EQsOqM08u/x2AjTswwUcgAUFNW+/ZHlPgWva8ocizAKhi1FlOGUKqjk2WXPX -sKBFffHodtoUKM5lP8yoY4EL55vhedFf8PpU3+tuBgsmTFKHEop+wX+Pz50W -bmOBqPOkIIVzGu6uMWg42c6C45X8XS4q05A0e3b/8w4WLJpWD3vZTgON21RF -vIsFIS+PfKsonoYC4wQNvq8s4FMaQ0suM1AqoX24dpgF6UnGcucnZ+FF7Fn+ -qREWVAu4z6TJ/YHrIwGDUj9Y8F3+ha6lxR84rZ/c5DZO1i/lIHg+/IGyfvdY -gV8s2HHSZCMreA4YhiZe8ovkfCmu8p3VXgDtjUHp6C8Lng/dMCh0XwAFse3j -tkssSOoboP7KXoD6plRmzDILVufoPluWXQTuvJVPCxwEXMo60H1n3V+oDY9K -iVtDgHs7V/k+7n/AaWXwNmstAe8k74p8MvoHIipJ7aX8BCzZfBhdF/IPdmpw -R7cJEDBZy/hjKbgMH1jLReyiBNj5CB302bICsmm6c7ulCUiv3rLJoYQNN0U1 -mGpsJCA1dE+p1xc2HF4x3bxHhoDAfp7DExzs+PBhmommHAHzITj5txk71pq3 -O6S8hYDZR8faHvxix+IOsbdmdpD95XRn9RqswjtpsweWlQiQiK6pkbi9Co93 -tm/gUSYgugjcWzNW4aBuzXExFQJaXvkTX3g5MQKFLYrqBFR1s9126uDE5uvR -ye0aBByiOohN8nHh5XSu6B17CJiuWC7i2c+Fk1Vy9XZoEcD+uDnpTzYXDrhU -ayu7j4AsteNuHKHcWG8uR3CDLgEXTKR3m9Vx43XWtp0iegQYu7WL7F/mximh -wsmc+wnQOaQysO4mD97/fHbr54MEJP6eOvXm8mpso3I+wPYoAf6dd2I63fjw -TkpFovExAmJ8DYvti/lwgWFLm9pxApyqlOfyFvmwnazcMx5TAgyjr68rebgG -S1r0O7+2ICDp8Lnb77LX4sreLOfHJwjYcHmTbvOftbi6fE2I60kCXL5UU1oO -8OPrAsFb1E4RMMRxkhrUw4+fGqX2vLcmgHKsT4hNRgBfswztjTxDwFd3UUqg -mwBei7tWXbchoETKdRN7nQCeO/OwWMGOAIffTPrKHkH88+teZug5AvSfejnu -GRbEm+Tq5XZeJmDj3RfKRg7CWDaQ/mqStHy087a5CGGMdZScCpwIeFs57qWK -hXHz2TDq7qsEKLkELhyTE8Ffy+ZalVwJ8Him2316WASrP9sfMko675ZCX9QG -Uaz5pf1R+jUCTuzdUeFkIoo7hk+fk3IjoFJrpvvnB1HsfYMVuOxOrofkv+ZJ -UWI47UlEcLEHAULXXM2mmGJ4jaNfq/NNcj3u6VqeXCWOh5QOW3TcIkB8DVsa -h6c4Nq0KGkr1JID2S1sYnCTweJdywQY/Amyp3xH/dUnMljcWQSX9JFauO/i9 -JO4MdaXcuEcAjIhmd89L4t/r5MSp/uR+Scj0VniwAdvYt764FESAGpUpnJUt -hQf/HePhv0+AwCqbfRfnpDCvvCGzkPTvgRnrDYeksXCW4LGlYALuPKySvNcn -jQM93YwfPiKguoHT5fVWGYy1zO0UHxMwqm3jHeclgwe2naPTSUdZ/qBmsmRw -s4dtKk8oAfzvlIwUfWUx0Spw/W4YWV+w5P4Ldzmsr9RWdDiKgMfNeqLfF+Rx -V07G93HSe2SD/+zbvQnrf9Y6/TSagIbRCEln5024UkvvT0sMARMbm3/a9m3C -787s1DR5QcBJxUdGfO2b8Wa7s1fHSJ84MSMRLroFJzWE9z6MJfcDu8P6NZZb -8HoT/8jqOAK8M6dureragmV8umQ2vyTgnjnnvjs/t2IR8S2u5aQlEmY9jmso -4GPN8WzmiQR8/LHtpIGfAt7xPHneJ4mA7tnAx/ki27Cg3rImI4Wsf6U9QvK4 -Iv44JnBUP50Az5hc1faV7bjQ+cuGJtLsWkHH3tvuwIxQ7j1WGQSoD5xZLVOx -A4tqz5u6vCFgTNBIpNxXCT9oGZR+kkWAY0Ne0ZKIMja/omYh/JYArYZzdGU/ -Zay8eqD9BelvOW+t1X8o4wvj3xgp2QRcEXP+0E/bhZX30q+9zSVgpWWY61aT -Ck70DpLfkUeAge+OUFc+VXzG7NnWbNJrHtdz+hir4gO31TZnvSPz35rb23/S -VPGnP0+WXxYQ4DzzNKe/bTf2yFI1XE/egw66hWurS6nh7ZOi36JIt88p1zc7 -qOFjOjzrH7wn4FGHRzvXHzVc7Zn84EIxAZsryux1d2rgCH5ny0+kuQpaLffd -1cDBok4BR0vI/R18/EopSwPvDT/2e9cHMr9GD0ocvb0HX9ET0P9VSo7vs2zT -10+a2Lv+A8e5MgKsarabMzS0sDmv9hYW6R62eQ6/GC2c903sUWY5AXqNbxg3 -Tmtj0cNnv1hWkvlk7+oq2sxeLOI2mw6kwytuPTA8r4N31a60KFYRYCT/vm2S -0MHnd1ZYLJDu1KsVXni/D3fmM1eigIDvlA+zfrF6eIMM+/c50r/7v/43IoHw -k4c6qraYANcdz07MxiEc2sw2v4lCgIWD9hu5E/uxT3eqaVYNAQnaEuGtbvr4 -8ermS7y1BJz9IT4kWamPjyQFDzmRLud3dF9ZfQAf6qdvUKgj4PL4OVbbmwM4 -UtneNa6egN3usU6ziwexmK4fY4Z019btvP4nD+GE6eSnplQyvvupMH/+IaxX -JG+zikbuL0VpbidXA6ztmzHnSCfA+uPIu2YOIxzwxzannPSRhrfMDdeMMNel -oCZBBgFia+WERz4b4f8kTp6qIL2jR9fzNBhjtuEX1QJMAszWNw/JaRzGH+h+ -MY6k1aqqd1TmHsZ03sshvA1kfv+6Ulb95ghWS2PLtiHNt0Zt14n/juJPNa57 -c0mPcG0bFsk7isW1f2WYNBJQKJBRepdyDJtYdleHNBFw+7pnUp+wKdaM3qDU -SvppT9cLzgxTLFvEv1GKRea7Ux8jT8mY4UbZ5ZAs0uF/KoZ9ys2wZI/H6inS -/X3PtlxZY47jHML49hDk/nlZuM7c3hz/tUxIxKT3eT/gNeWzwGF6PLu4mgkY -L657HuxogbsGuQwPk15r0dsxV22Bm/mzuJpJW3Co7+30PYF9Y1daOlsIyDnU -MJEkbold+X2er/9Inm/KvvqNQZZY4tr5b1ak5xkDXZ3TlpiLaSX0iTS7Bmf9 -jy+n8PeLX2fEW8n201f93nLqNO5SLj1nSdr8IodK2sfTeMt+s4/NpM+y1kv3 -tFth+b2Bn/jbCBAZ6TBus7XGKXWTl4+Qfinfl/xg2BrbZTpuriHtX/XrzavV -NtiFa1o4p52AwxzRAml37XBBruGVIdK1dnNsdgr2uHNL8hGZDgKCdbw3r2qz -x7PT+9+Fk9ZzFEu9JHsOv9D9u5tKOjkzIuA/v3M4XPvlgX+kFc55WNb1nsP3 -Jty5r3aS573zY56p7PO4sHB9RTLpAPkXGyvEHXATCl5qI919YKDs430HXBUR -qaD3iYBdJzdoOjs74u3djzau6SJge3LLFfVLF3GY9x09XdI3DR2ij09exBPl -wz+vkT4uHdb/3fcSnr2uuNBM+kfBCzXrjMu43/iSJXs3mW/2c7a+OOCEfUPY -9FVJx8ZmiW0adMI6XzfTnpLm8vwozaF1FV+8LelQTXrk68fc1h9X8aWgQ2Hj -pJuM2D+NpDnj9E/Cz4w+E3Da8Fba4n+uOJ0p736T9LtxNamnc65YMli3L4X0 -0VmeEy8ar2ET7xtu86QvXbEbUzFyw3d/Nqts+0LeB3xrZ7fS3XD9t+rrlqQ5 -WT9f2JvcwOkSllfzSa+TzHhe6OyOFWzvK/SQpnx71HdhlQeuVDJz4O0hIDK2 -Q//xKw+sPsiwPkfaWtEsIez3TTzw5p9YKGn7vClCOeMW9ijosigmXeO81rv+ -/G28UBFjuvoreR7dlR9L/n0HB9ycF1AlrZ7+qKiH7on3fuO3sCa9jZ1bhzvL -C9+otLTNJF26q0HT7bEP3lC9ZitB2pZh0j0f4os9kr3dZknvlRg7uxR7F3O2 -DOhJ9RIQN2Z/QbfID3slP4rYT9owjt7zpOceLlZ7e/Ei6Xg/4byhEH88FvW4 -+jFpR69b6rPKAVhBLHipmTSx9FJzLiIQD0Zs+jZN+kHIwre1ZkF472P/Y+J9 -BJz7nLrZRvI+Vrfo1dEijYs6dKJ+3sfZ0vfyrUk7nOFuc2sKxpf/JL/1Jm2f -f9m+vuwBVmQGbE8gTbDvTb3+/iE+YPuwspt0Jefa5PSPj/En/e3EAulooX1r -rBZDsLTbE6f1/WT+L74qW6j2BPNt+floD2nK9Qtuq/3D8EbPUJWTpBfKd9ew -+sKx44WMszdIX3noUNS0IwI/r/YVDye9oh4fIjYdgV2dTklT//+8J87KKllR -OLy0w7n///FfG0zU46Nx1Z21h5ZIjzuAW2BCDN7XopEu/o2APmlv9Xt5z/BN -VsRTFdLth2POFrU9x2tO26w6Qlrn43mPdoFYPKvSyuZIWl2ze6zufBwOY9vz -yIf0tE7dgfjGeJxpTImLJt36frkz0+IlzrpaqJFNOmByfujhn0T8PMPQtoa0 -X89cvlRFMlaSquDvIi28wUu0uSUFz9QfOzJJ2rvNP6W76xU+HaQlzDVAwBn9 -iIySuVT8fl3FxQ2kA59/H8jb+Rpf4xAy2EV6m/wqH2u/dLzm0+38g6TzOmZ9 -08YzsN6IYuZp0oK5+oFffTLx8lVHJWfS/ouF0LzrLU6+46Dr9//nf+yWpq/N -wb2cDp8jSGcf6fiVL5GHl0YSudNI2689nrh+Rz5u6DKHov+3V9WbcuFyAaa7 -lHFRSX/dlhR0t64QK0kIdneQ5vB9tlxpWIQfHXn633fS06Oycifai7F5K7f4 -LOmutMphr7AP+CUtI3nVINm/u18kq26WYbWtyVQh0t9bd2ZFRlbg9BbZUFnS -EnIL8UFjVdgi3uqnEumEfYcPfTDA2Efd66c26SqiitlfRcGmugWhhv+Pv3DN -2O1CLV7QVqFbkM5TZEZV76/HOS+2ptmTrp22OBJvQ8MF2Vj6Kulr55Ys4oGB -77xX0bhFOlnPhBLu1YiT2l6P3yNt60FXE4ojMNfGYwdDSCf9bTBMiW3BnwIt -tWNIvwmvz/ic04qTBidZiaQdrgnMjkh0YAPeI5xvSLtJe7epjn/CyilRXe9I -n9m06yeH/he8X3/epJS0neDfK4Ib+vCUS9YFTFpW3eLn0q1v2PRJ2wb6//vL -f8fM/vgQlvz15gZB2uhby+dzlBFc025+pYO00ALrsffyOA6wY+PoIf2xLnM4 -Ru4XPhvTrzNAmk146HTEtRlscH2zxOj/6wuzKyu9nserG6ejJ/4fr/o+yVR8 -GXvc8C+cJr0setFk3SsOyhmBOfd50oHHtwYHu/NQ0vSC25f+P19yq8bvi6yj -nAiw6mYbIoB3T3FJe5kI5eWBpABO0qFyBUuz0RsoPzqCGnhI88V8r9vov4ky -6bOnlI/00fDJRum27ZRCqwEjftJJ1yePv7inTnlx94O3AOlup7QGX+Z+ittg -r5kQ6WExT3M7MxNKqNtjpjBpISxlUJl6llI60TcsQtrjb10Y+8pNir2YSJYo -6WLn2Tu6/s8pavnWE/83R8RzgUS9Ysr/AEeHYTw= - "]], - LineBox[CompressedData[" -1:eJwV1mc41e8bAHArftmVQoVCS8umjO5DtkRWIiOVYyS7SGaEU4TMlFH8hVRG -tlM24ZtzUkaJkrJJKCf53714ruf6XPeL+3le3GPnucunLrAwMTHV4fl3h/Q5 -zwh8JagcpUtCR/TKSWf8RgT/2cuuyNNoLYDUEv2TdxN61afvgvPqOdLbiqmC -Dej7Rw3Dv900IRltW5rkQ9c/iRhMXtEg/ahUpfGgMwaNzjH3KJLCg6fOcqGt -7OgmHJSDpF4dmbj/0Om7jm+ZUpQk9b5VvLgOvcH6w73uT9tJ9+h7vzCj1dZG -dQotNpO8B2XZ/44S1BOpEqviSvyk75dCiN9ozebq+QXl9ST6kuqxRXTArNAP -QWY2Erkz0XwOvV02vxDEmUjqh59tnETbf++TTXNaAVv9Or+v6CN5BVf/jCzC -Cbmx0E/oCS9vkW6LHyAyYS7fj/Zz/FmRwDULXlZKsTR06+pkyu+wCUi0KI97 -jf61bluSMW0MfLJXlJvQxsnT9QntX6BxVCamFm16l+bApDUCw28aisrQJF8H -l6cXh8BNm+1aEboq/6plzNgAHFYTXXyIVkzXktObfA9X0pS33UP/mdNbljzb -C2IHrk3HozPiC+aP76NDZgmPWxR6sGkgLAV6gO+9YEoQut7t+NWZgwSoSL9y -90GHJcoV82h1wiOSzIIzWjVfm9/lRTskXouTtEN/4lWTrfFpBREVVlYz9F5j -hVAm32aQ6SiN1UXfmVuM5CtuhBy7tlZVdFqIcM9RoQaQESMXS6Mlcw8+5Hry -EpKFqzUk0ccSaYoC3fUQa/j1hiBaaMmff2d4LXzO4fflRI+T/OaNPKvB6+e5 -TatfCOobV2XjnvhKAHZW+9l/HujM7x56AYExgtYjaJE87rYjpuUQs6OVjY4u -iexZeT5RCnzmymeb0BTpG63k7BJYzY4/X44WHV8nzu3zHFLdf2/N+xf/+kKj -zO4ZRPAlhySj+faVTOQ3FgOt5XZSJFrYsOKJzVwRrDWyn/FD39df2xNLKgQe -yT3dF9BDxrOZtaWPIWRe4IcZ+qr6x95OzXzwlFxq1kTvkQsaZMzkwd2cOT3Z -f+9f97iXXpILpGNSQTvQglkUK/HbjyCspu0cL1rvjaHk3LWHINQyv8z4TFA9 -9E8s+1/PgRhGh9o4Wt7N2k3qTjZIjfnLv0OP6WVn3C3JAom/Eh8a0BKi9ktD -LZkQ8nhG/imab6dEgoTmA1D4FbASiWZU3FiWCL8HDjw3nbzQuT9WItQ006E4 -TTfyLHr1nc+JlC1pIPZ41EIX/ZX5bk8DIwXoCiH9suhaCvHRcz4Z+PcCrwj6 -wUDlMe+lJNCz0FtkR8teXRl+uj4JHjl1DPSPEFQayWx23iIRZh5Q+hvQm8mH -GQpxCZBevZdSiA7/M/H4EC0eUpRbZhPRWZsEBXaLxYNqRBRHILoykJ7r43sH -TjESaY5o0oWch2v5cSA2ym1igLZUmur0vBILdwffk4XR+68wjtiSbkH4Li8W -JrR9Le0yiwoFuk5zGo8NE9SNEYsipqQYEJBr4ihBt/J6cf31iILimINeKejq -gXt9jNSbMHtAMj4QnTDExDvZEQn6izrTWujMHDOqg34EePinv96DpmxXu8ES -dQMmw9pM1qOTuTWzR7rDwXDM1eL1J8yf6bas4BcGsRdUegvR2dwUj2e9obBS -lv6HglaTLFTzUg0FQ55aLQO0y6bPnIdFQ8Au5L2TFHoEOO37pYNhc6qC3Hr0 -BibbnknpILCKcW1pHiKo5KKJ/Q4mgXBvc0bsQ/STMSPPHI9rsJb3kikUXc6W -ulMxLQACIPnLUXRn1oHXl9n8wY+UaSaILlAee6ygfRUCjhp6LHzE//Pyv7gV -dwWSuEj5BWhGsKuRj5IfXNo93BSBPvKbL908yRem6ntu2aPff+2ik3/7AH3R -Smwzet7mmAuD5g0h4joTMx+wf1Q/t5/T8QafcTmHNvSaPcsMc4MXeLhVmgag -JaUjIbbJE4ZZ84hT6G4Rck26oScETan/kkLTe8VpY30ewOEjYjwwSFClquMu -MTEug7BaZfBzdKwqpWVc6jI0FubbRKHJRk+VZx3cweiDnJgCOt+lmWn7qBs8 -E5JYx4W2KSC3lB5yg+ZZ/rThAYLqw3lqg26wK5h633kdg542+97pJuMCqlO+ -LnZo4YU10agEZ+hMZa6UQ5tauDqU/yKDvHKJ3WA/9s9pNl1/uhPo3GYZ241+ -1Oy9NaHuArxVevT3Vx/WX29Z2GaNC7B2TKm1A20utLis33EeaM695EvoaQUj -HvjqCKyWshrq6NAQn7i6K47wV1mykxf9oX+oiszjCLIU5x/F7zHft/0H6aRz -wCnGGxeEfvt39oD1sANwzI5/OIFmC0gRzwl1gFu5329NviOojkF7hjg77WE1 -0UlDAt1IqS7OZtiCvTatd6GXoLJ6WSTPOduC+vnKXU3olOmA/qHBs1D34wrD -Ea1H0Wbs7rABuUu6YVlvsT94GioGdZ0B/5WNq+7og0pj9n3mZ6Au3EpBDV2a -uuUm+4gVVDztH+qjE9SHv9uqotdOwzZxEWEe9PDEpDGztSW8K1YP76cR1AXy -QYXXyxaw9KuvMBctolG4oyfZAvb8t6isht5Joy4YD5pDdba8tnMPQeW/3WB8 -PdAM1DdG/k8OnWxULRyyzwySNPTaVt/gfzu+dxn0mcIT/SzdeHTe9hp2HhVT -cEif1iknCKqv1WjR4qZT8GSjVP51NMcD1mZGlwlwP+hq00LnVs1c84o2AZbw -RoPeboKqo0tbpLCZQJhHtfV8F0Fdbo0+68dpDC97ghsq0NGaUkvcD05C0e/7 -E9fRzcW7yBH7ToKek03wevQ3do5PmjpGkCm+q16kE/PL74nzzDAEy8ifsp9f -4/x7yCjsUDSEOTqnSx76bbvzbX66ATTJhokdQtsnp7HJbzAAYiu94GgH9ofR -+frcHD3oMtigsNpOUCOrPgQeMtAD9/9Cw6joPNmhKaNFXVByd3bSRJ+W+dYm -Y6QLkjNRNrptuL+onCuI3qADPjtvZjOjL6snDO6o04bk2i/3qltx/saFGdm6 -aINekOXz/ejJKv5XOe1asDAa7MjZQlD/tqwfJaUfhwNZbZavmrFeVdeN/TI5 -Dq4GRSxX0ZElBju5uI6D4v6RwNEmgnrp/OrTHaGakJqpxVHdSFD9hT1fKQdq -wEtGQZk7uu+028U5NQ0If/RZWAId6531qpVJA5zYHbkpDQR1693QzJpoEiS2 -DyRZvkK/S+vkyge4f37F+ks9QX2mFCMwLK4OE99dUxPRURx5j/ub1CDmJF+c -JrqBOzv5IlkNzH+GFObU4b7XkpwiVKYKXkViuWdrCSqTPms/w0YFRD9KV3Ch -L7J3Kj7hVIF2y4wbVTUE1f3KLt/SqqPQOytwSgBdo/V7PGfbUfgzSKlpqSKo -7ESSrfmMMtQIXC7yQs/wJe39masMidJvrET/xX+eKC6zRftmTPhUEtSpQabD -N+hKEPzW4LtoBe5Lh3RVmtsVYZs+z6u2F7i/TZYJ9Ucrgke4q6UX2oO7MmZU -XxGiTt6qayrH+T8Sb00QCqBYk3T7Enqx9FNybqICxGS0b9uC9nihLOpwWgHm -ZQzI9WUEVU45JHtVRAEi/qfmfRFNa80Y9xuVh/8Ds6JpOA== - "]]}, Annotation[#, "Charting`Private`Tag$2643796#1"]& ], - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], - LineBox[CompressedData[" -1:eJwVV2c0Fg4flT0SWSmyiiQ7Qg9+P3vvvbN3snfZO3tnJUpGhHiUECGVooSm -HYWUSGl4/++ne+4598s955577uV18jN2JSUhIcneR0Lyf2zu0lPVsm1X0tMa -ae/oZVA8QGl5/t43SaV0gSD/p4HJinYbbrrHb7AoOfxlM9LuvKZIIsvIUKhP -phQy+e9TMk27Yk7ckzqzuB/o1rxQcCi3T/E1c/usbMU6GvFHRNFEPlL8nusj -hTRL6BX2k5Rrckzx1ExR7LWYGUyISvthSjepqEZoLS1OmEarphlDpqm3ihvZ -XQuON14iFRllC9eROcVu1mJ15BnD+5/MQuWzFhWz8o4amu08Rp0Pny//1lxR -HB50Lgr8OIThrd7eTWprihac2kl/2wawq58yekXpq+KH7E4um+MPMM1/kUAR -u6nIoqE9Fna0B21e7tRkzmwp+kywhI823sXptPbi77Y7igxsrTxao52oeScP -bv38pRhYcLTmwrk72M6eFK/c+kdRRhEGvQ3asLw4Z1w+dU+xzubH+suU28h0 -Mi21WHEf+BvP2fv+a8Yff3Q+vRsihY75tX1HDJuwdqf0AcGOHBQKJI6R/KjH -330fviXvowQrVk6vwfk6vHZdoruwjQpY2I31K+huYKB4cDoE0oCJYUBDt3st -WvymfWCDdLBUxNszv3ENtQ6vpwwdoYf+Q+qhjBXViJa8bbakDOD5UoRD1fcq -Rkm/0bwYyQjWVefFtKyqkN9Cc1056iCMxJ9SO36/Agu8jIZ84pkgdPudgNRW -GdKnr66uZTODVvPdshLjK9gdMUR2p4YFwn/1Cy2/LMG+wSKZzh5W4OtIVdUJ -Kka/KHPhjx/YYGK35WSoeBGS82jtSlGwQ+KBRYc0ikKcvf2Uv0jiMCzHW03v -+5aP8b69xSQuR+DbngFF/dc8FG2PKnMt44DhDi69PNI8fHjGeuLuG04opX3i -Ts2fi8ahxbLbXFwQGM6nm2Seg00Ndw/SenKD99UvzncKstHxztGIUFseMDhQ -Xjrcn4WiPtofdKl4IWWBb5vEPxMnjj1WI7nDC92EVlZRqcuoTB8+l+HKB5Zw -ZvDOZhoyGvUc5H5+DPoJd+L5VlMxfaKmjCPlONjMXq0s30zBr2ltajMq/FD1 -RyOYnDoFZ+VdHruSCsBSgLOngVAyFqtVkjQMCIBn6JGvmZZJOFN461V98glA -b7atlZxEnFZX0nPUFwQHcw+Geb4E9MvlL59fOPmfv/5T/OHxOK99f7G2VQhq -+RcuDU/FYQXhaQNjwikoLDYSVFCMQ9ELXFbclsLwNHMvnaIxFl2TWVyfiYpA -YMhTjXqeWGRM+2N5hFoU4oLDZXuuxGBhQ+CzvQVR2MfN2m2ocQm197R+PTQS -B4nX+85m617EIo4ntdKj4kDN3tWbaxeNS4m0ZfzaEiAlMy1MVhWJRg678ZGa -kkBGvvz6+FgEdn7ku/J+RBJ+qxlXnKeJwHpda/VO3dPgUS+5dq4gDElzuvdG -zKVgsn6nmGU5FMOGe4P23ktBorcBJQWGoisniU6tmzQMHDfeoqUMweMoIEeI -OgMtTDadHgHBeNCH9dsJGhlYO73VkLsYhDZZK1oXi2Tg0ovc7iOvA9HH8aeL -I1EWxugS+tasA7HJtOHXZ205+KXURxMwF4AzpRMvpz7IAXdW/G7Db3+0oOWX -f0VLgIqok5pbmf7IQJUyMl9NgGdDbjVsAv64sZBRqicvD2OU5HmSDhew+tGy -gnSgAhxfP6oyRXIB5YQjZJoZFWFf0mKfhY4fFjh+7I9pVoTSZ74P6776otgW -CSP/NwBuSWVtqShv5NlJjxRQVoL86OpFnVUvzJa/+km0UAlmb7wfeW/vhUlr -SlPvPytBmtfquQ5jT4z+YXFbuFAZRvcOfKp94YGl/6ycnqwpg7WxII+juQca -f13lOKCqAp97U8SuebhjN3+OavSWCojVR3+a/+GGDJzliXV6qnCp2GjGIcUN -BfnYA4NvqELDTqRiQbsr5qZ5UW/aqoFxk1v2pKgLlpLIO7k9V4fiNd7k9y+d -kUY4UylLRANCy9ZDdSKdsYmp19YsQwOeBkAn5bgT0msqCXbqaML3Rp6sU5ec -0C4h6qlRoyZkSkjYuIk5oUmPXX4yvRZ4KP9mmSxwxBZ/5YT+cS1Qy3lF8UnH -EWNcRm4OSWkDHf/S+1EyR4w8sLnuXKwNDCIr/WNh59BZNfu1u6MOcLcKWXmt -2ePBD6+bknd1IWa7biE/wh49ZbfinGz0AKRq6k/T2aPaJZuk3m49CFjQM086 -bYdU9xOK/sXoQ+85/vtNFTYYeiJfZYDKEJw6ZuaqFW3wbtetM1JnDYHBwiEw -Y9YaoTJgZNHHEOJM6n5TClmjx5tsdvKXhhDL7S0n98ISV7TXws5UG4GeMNOy -b4wllro9jaucNIJzVq/kzohboq/M5RF1OmOo6DtUaZlvgf8o1x0Ngo0hb7iB -YdLXHFs3XTlUdU2Agzv8QNEJc3T4Eu9eGmcCs7sf9a/Om6FIHmeVSJcJUPyL -vOFva4bs4tmnaU+YgsiTuXAxe1NkpidEFlGYAYsnS6Abryk23j30YEzBDD4E -at5tXDLBEzOhbWohZpBxop9P398EDci0SOeXzUBr5OekYr4xyu34s8yOmsNQ -aoWdloMxnrxLl7pJZQFyZI2XpE8ZY5jtzzBQtoAp4ZbmikEj/Datcial0wLe -xuz+Eic3wrUyG77xGktI2iJkDrwyxLjrj73bZi2h+OZnfeY6QzQO6dz/nNMK -ms+E2L/RN8QImfGh2wVWMEXki5DTMsD5+XFl3jRrqH7/0Wz+rS7aGJsKpEXb -wm3e6ISefF0kDxu51XrPFsgSvkhX6esigyOzOuOuLZh6iUmdG9TBtkuh/F6h -dlBAeuemXo82bn0Z1CsIsoePA6zsYxe1MTn46KZTuz2Q3LXmOo3aeKy57LbL -lj1UiT4KTxvUwmz+N7TkwQ5whfDJiPGNJtLWFgVbyJ8Dv0uE24JXNbHN2YKN -3u4cpMws0JN5auLcOL/Bu+hzYPuulPrrrgaeue9oMNx7DkRbjSQNTmhgsery -7qiqI+DvFcfoSjXcPJTWnmPiBOdbTxqDvxoyGtrKvAl2goA6ZsV8FTXMKpwL -IBQ7wczVw5brn1SRs4f/g8Z7J1hsfBDDoaCK1/R8GJI9nCGT85Fs4m9lpIkc -N8+Ld4HXXP2DPq+UsayGStzxhgtcnWJ6MNisjHI3HL6qP3EBf6tNkkFXZRyV -G/puxewKbTwFoSOTSkh3XK62rMYVmKbfvk57gjgV+Wgy9YkbLBFuDh25idg5 -zsy/+90NWgdmFJmTESP6DtUncrqDwfY3eRlVRKcZcY4vvu4QVClgrJgEOOfN -842UyQNWuu9Madco4HOOMjMxB0+oVFfVPuitgEfIO8h0Uz0hvePszwhJBeyH -4N24Nk8Izr5lLzogj6vXJFKA2gvUg1FmYpWAP44m531r9YJ6hR/l0pZn8ZMZ -0IjQ+wCzynX144JnMfhidPGyrA/EXxnD/J9y+NdZMOueiw9UcNRvfi2Vw0vr -TFHN3T4QPGyf6rMkixnKE1ODvr4gMpc68S9LBqtNH05VTZyHVY2gMTl3Gey5 -M5a+us8PqsVeFr1TlMFrXsHj+mJ+YGF56oDpxhlMj4h7b5/mBx6GsheXTM/g -rVib4XGeC/BMPVsyUkIaX8XQMVu/uQAbrzuYVxmlMeSSzBPxrxfg5uVHvjVf -pfDXP+4PByn9YfKOHufXFikkpv3a25TwhwLBXtIJKSk8umlyQzzNHxb5OaY5 -tU7jcv/kqQL5AJiW+nxhQPg0lnyNl2MwCYAR+2COG4yn0d25xzjPMwA4FaRX -+V5L4qmtmPyuwgBY9x2ff+0jicNXg55Ff/uvjD9U8BIrJNA8dmljti4QdqY3 -hucTJZAtTCbsV28gLO4nLUdfCdR/wNjHMRUIjW621/LkJfBse29kNEUQjAwb -yKa8F0dH9ijeO05BcKGziOKsoDgWlTAe+8YVDHZrSY6M90SwvuV6QFRFCCzN -y+ChHBF8E8S+9pQYApnXhZ2C3EWQqcNSTPBlCHhYBg2IsIrgBX7tv/+oQqGm -8+BmfJAw8p9/cVQkIBSMCbfs95ROIdlp07YkzTDQKRXyIj16CrmmTyrEOoeB -RuG6lf5PITx85dzZpIthMHI9bO1+sxDyrQ2GN7eHwanr41nLvEK4VLYadpE3 -HG736S+PMJ1EKrHwjzR/wyHKxaSXclMQCX0FEjfZI0CuXaAsdlwQbwU+LDOW -igCO/v5t0RxBPDKw2jPgHQEXo9wvWzALYqc3bQ3X2whAll92jnwnMJOcIqX1 -XiSs8mjXdLjz48M2/V2xhGhYMfgVwKPPj00l4mNxVdGQG7di2SHFjzrdbGMf -uqMhK2l+yoWUH2MFZgit29GwzX7kw4PK48jK56s25H4R5O+d8jo5fwxvpBvK -Vupdgn9H7x3Wi+fDoNtTy7tZMdBfT3887TwfKpAI1LVWxEAzZ0PeihUflmUa -dJ5vigHVOPUkagk+FAnr6Pr+OAbOUBQdGZ3lxSazUmYJylgQ3n5iK6rOi7KG -0mqh0bFA6X09sUKABw9fruI65hcHJYNxZ1vYeJDyD1pYR8dB+A6b7TQlDzLN -srMVpMfB9ZH8qMln3HjLYZ2btS4OElsukIuacKN70cAZmIuDf6Qe9cPOXNij -eIr6rGk89JdYfC2v5sQfH8tYeuUTIFNq6Mdw8n98bOWXs04CBLq4tbH6cqIV -Q5XkfusE2LQYN+GQ5cTxCt5it9AEOE8d7PfoOQf2z2lTq7QmANmPo53BFBy4 -HbNPoEQwEcwPnNTOSzmMX9ayupsPJcFsMk/itN9h5HjFIr9PMAnSmBkLwOIw -TiX2eZvLJgHVfXkIEDiMe59oJuiskoBkNkfIeYgdLe338qpLk6AFvS/ifnas -rX4kfpErGT5uOdV432LDfUtX9mYFU+AR67uoiyVsyP6GcaNGLgVc3xcENiaw -YYsGpamPdgpEUxFIrWzYsOy0fiiFTwrMkS5e36BhQ7PliG/nmlOgt9/bZs2b -FRu7x07cO5MKdJcfq5Mos+BLF3Pbrxpp/+2Rxt/GEiyoFiQk9NsiDepWVt8R -eVgw1+LkE2qPNFA6LNFyf48Zq32OxgqnpMHz6tTQuh5mDG6XLCx4lAZXvj/m -/wzM2KytKrGulQ4bpt1nXQ2YsLLfu7ZOPwOu+lzfXkEmvPmoUZLOIQMWOcdK -oySZsE/8lvsFvwzwyGjReMnKhN/vXRtQzs6AIE7rZsL7g0j6Vo+L6kUGWP7R -sVw6fxBlT7XL0JtfBm81l9/U5Ywo/DTgDcW5TKit03tXmc2IfroZjW4XMoFd -pSlNJYERzaI2F0ZiMoEtiUB725sRz4m9ji66mglMPD/a+AiMqKmSJ2+wkAnj -VBWsNUQGVFBhfSvmngXV1cc05/UPoEp8YJO5bDb4NjBxk8sdwF8UyWqNmA1c -XauVhGMHcOiB719SrWxgrXUVXd2hx51xt8dtVtlwQa7bX6uaHhvffXnEF5kN -BgSvns+7+9HcXHBauicbQk/mZNLeo8MEBWoNYbUcIPzpuElznQ79T4Ty2Onn -wDEb60iuHDrcAXuZLIscEH986GmKOx22vuo9suOZA1VPccuWlQ5jEmlqXmXm -gONnksTPQbT4LgGPjU7nQMdddoP3yjQ4RB27VeWbC7HdjzLtxGnw5/79fD9D -csHAlSDy9SgNXjd5FWIYkwuGqyUCur+o8YqtVx55Xi4s79IHv2uhxvTwqsQI -Yi4obQTpaB+jxhV9ss4ysjzgjhcq7WOhQopyuso7pXngfLpsXzgFFaZmsvy+ -fC0P1pvcaeAHJRJulKu5N+aBypjG3e9TlOiewljD2ZMHzKYzy3+vUOKa9rXQ -3Lk8MHiqvZksQIkkooZk9YL5QM98RIZOjQIfLJ4jS+zMhyy7ME9rGQp8yLUh -FNGXD9MVme53TlLg3Tot8Qsj+dBlUpaTeYACp6UtXti/zQdaHyfhp9PkeEk4 -0VV9Lx/KlO5KePqR499MUXNFjQJoKRm7/7KGDBe6LaZHpwrgivlgT2QRGZ50 -tc6pmisA1++mo2JpZBhP+pcQtFoAs66qb+75kSF1Urkz114B2Ah8F3QikKGm -QcfnaIFC6F1iSX07QYpZEwRdz+BCcBxleHWckRRdunkp15mLYKHU8ZlHLQlm -nS6RTzIphuAaY6r5UhK8yD6Q4GhXDLT95345Z5Og4VmHbAX3Yrjx8OBCbCQJ -kloQN3YiiuHd0Nnh48YkyDMR3RtcXQypuXvP/pGQ4JqRtWDBt2KoL7vjnDHy -Dyj6eg0csktgJ/FuXGviH6iwObpLOlYKrPLOf64F/4EDexxP7F6XgrqVMO9V -1z/gN+0l2DVfCo42X6BH7Q9c7tdL8t8uhXy/pso4yj+w2HpxYOXIFZhZ748W -SvsNd5tKP351vQK8R3hXmkp2oXh3at3lzxWQruKcd5r6CWV/nmkPCpXDePzc -yNNHP0H+8bwOvXQ5cPCqFCrd/Ql619JemkE5lDnmtuqU/wS3iqKgFZNyyPXh -nZh1/gnkRR0bzNHlcMVip4vi+w64av+xjn9eDqE//wsy+w4UfIvJ7wuqAM/2 -l4H2sdvAkH48qqSvEqimc/rIQ7ZhbHJjQ+9xJShJOKW3em1DbjRnD+lEJWjK -5MceN92GXSM2D9/lSng0JKXoeGIbfBz/BB6jqgK5cMaLss+3oP1NES+FaBV4 -1kyVnD6+BV4ObEvLkVXw4r/dyzm/Cde+S/XxsF8Fg5/WbYNhX4FaXYXDwaca -lKS5DV6dXwe+yjmZ4exrkPJt1JT+89p/v1ZnbffeNfhbmM7F2vgJisdbWIe3 -a2DfwRSlpsqPwJf+1ZZJ+zq4654k/j6+CKnlhe+Ukm8AGHn00+ybB/fh7ypi -9+vgW7ptYebnGSAj3Ktsp6sH7duv3kWnvQMBo9y2J0oN8Pw0ecaCzmsI7uUZ -Yc9qBK3CmDetYZOw7nSbg/JlE2TqBW8GHp2AggazvRd/b8FA4IbKpxfjEPGW -1ugTVwuIWW9n0z57Dn48DLOnW1tgkfJXsrXrUyin3laLw9twRtbxHxf9CIRd -mFO8MH0btAaFbnXIDUHIE9sbXc6tQJB1U/EMGACSQwShpZ1WGNt99Vvm0AP4 -YifLF3WpDRpf+h5c3r4PnsJNeV372uGt8Tdht0ddUCtCljSf3g5uKlzHHsp2 -QMi9pq6XNHcgcvQTY9HtVnB5e5Hve+YdCI/b7yHO2Ay+smQSIgc6QNH58Fzk -9ZvwIl33bltsB/BXW19fU66BtxPWN8N+d8CNTywhYxqVoLPU/WrCsxN+35cx -O79aCC4jfmyzLzrhga/4TCHPZRBtSy/WViJCvOVCy7vFDHD5kd46o0wElbVf -ztI3MyD1fk9xkCoRbnpymHJLZgDQEUfKNYgQYK5TO6GaDsuOM/fX9YiQJy5t -1+ubCtSTp7/EWxPhD/MAeIwmQqfQa4/UQCKIPXrS8zcvEWTO+lGxBxOBM7Te -uNY6ESJUOQOuhxChNJamSmglAe4RiA394US47HT/GD15AmjUzTf/vEQEumuL -XsIQB88/2v22ziACGUVDl3FiNFTrc5X+rCFCukKxJRttNLBIEo1uXSdCB0GY -jyIrCuTEkx851xHBKLj4u3NJJHxXfvB9tIEIEgqWg8dbwmGjIQsrW4mwvD2w -WrMUDP4Sa63SfURg+ECdy+wbDNuVkXbLD4iQyVXi0LgVBE/VpIaLB4iQ9HdY -3JY8CHIzuKZ3h4jQYi76pZU/ACwnH27cGyWC35EHlPazPnD2yLNtibdEyBk9 -5eq/5Q2x6bW5M++IwNvKfWSK2hvmU8q+ZHwgwtC7fLoSSU/gol1e+DhHhJIg -94bvqa6wODYzULRCBMtD3raFVS4wpVBrpfKZCMWpWr5pnc6AUkm3vqwSQe2a -lpTbR0e4tVRcoLpBhMiRJPIXWbbg8mXLcn2bCApLhl0C/dYgcSptuXCHCI7t -3hqc25YQECEjjb+IsI/N59+KrRkc6pmmz/1DhHVD0ubeHBMY/vKk+Ow/IliE -aGueGTaCS/Wv5uf3iHDAYDeN3EMXgk1OtUuSdUFS8YLzrUlN0M0MIbwh74Kx -F5bihepq4LwxGRtL2QW0nN7h9zqVYJlPN1mQugvgXn82wVQexKZe6Tyn6QIl -lQt64QRpeNAd+DyYrgu4hZPC7LWFQS+Jn4mTvgv4ck4+9FfjhH8rn5n7D3TB -xQNLTjKlk4qPtX1j9v+n/x9wHGrV - "]]}, Annotation[#, "Charting`Private`Tag$2643796#2"]& ], - TagBox[{ - Directive[ - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], - LineBox[CompressedData[" -1:eJwV1Xc0F94bB3AjQhFZiTIysoqMRHmulRXKJpmJpGxSVERCIREhO9mRPa/9 -+XzMDxlJSUZWQ76ZhZ/fX/e8zn3Oc973Ofech9/ezdCRioKC4i0lBcX/z3sz -OwynOSNUou6xvb/2Q05Z7frHkQWgU3E8Kf5bTaZEmbeyoJ/XeQFl+ZVKOih3 -KTeXyxBtcj8gais1NuvSMeXsXGfxucputPqXmWdj9ptypJEkW814CzouKaxl -+31JmUnTrVKkoxZt0Im9U9FaU+bR8z2jT1uOxNlyfK0Dt5WP8NnyXxB4i6xm -9D3LVahBSYB1rupHLhLvV1upztsLx1I3+8RuZSP5+SLNDq/9YG/g/2bpQAZS -z8pXz+5lhkLWXGae5RT0IFij6t8zVnhrvTwhPZGIlryOPJ8L5gDrnwnaVKnx -KEuQKT4wnQtU7uXK3lqLRSxzW+Pf5nlAVZDTl0CIQTSsWkNSJ/lAb6Dv97n5 -pyjaStb01TY/UApajlEPRaAAKcOtmcljwF6ZkVYn9xjRz9oUNIwJwQ4LX6HM -Sij6Zchq/2lOBDzu+Dw8TxWC3C7bFW3Ti8EZic8xjw2C0WXjWMEZZQn4R2Tl -sRh4gILuem4bhZ2AH49kZl333EeHaoItwz2kIOiAM01QSQBycVr/uJIrDYf9 -LairX91BZM8KpuH5UyBlfqF7tOU2ilZeq2eRlYX75DVNtUN+aFY1p+tZmBy4 -Xzx+Pz7BB/lm/BNB0/JAsbFC7afkjZ5/fF+6V0cBFv57zuCw44mouBREB6vP -wIcsyongLx4ItJaOxEopgadohl70B3ckklg1caL0LKjxBci497khpcVfPomK -ynDiqW8sH/stJB78KryhG6CsNVv+X6ArWq5ReddRhsBE1/THZdobyOgs7++7 -oSpAKzBkeaDgOrJBfOW+l1XBQF9SRfe6M3ozQrr1Vk4NBuY/dSYpOyF6xzf9 -R9nU4X1w4fn3x6+hBxSDHQ2r6uDsmzFBL+yI9vZ23gr9rAGREWV/I2SvolcU -fkfciOehRdlucsDQAd0WCjTzrtKEUZri2LD79khLprovKl8LtGO8fLxq7JDq -tZmr1RnakCCWxl550RaVLWee5E/RBXO6u1ZXzW0Qh7HNonHaBbB0ebJkJGCN -Lu/p6H6Qowf+z02lurasUIuurXtaqT682UsoDpi/jCgLMp8XNBmA6eZ80Jlp -S6T4tZGefP0iDL9UX/3x3QKlLQWvKK1chALvBrprguYI6RswfWExhIv5cjSe -l8zQLxv1AJYsQ7BlTBGnCjdFw3zvOSTkjWBt8sq4Y6cJ2hjkSpXoMoKlrMPd -m2wmaNuFYpzZ3hiiJQdixJ2NUXd2R9HwpjGIRrcG3mo1QmwWib/uxptAw/2u -0woxhujzB51HVmRT8PyEvx1auYTuLLYZHbtnBopyjKpmdpeQq8rvZdYT5pCv -sjh8VP8iemocOeccZwEcAX64KNkA7Ts6FUjUsQThKBuVZzn6KOPSnJ0W9WUI -yP2kyPTpAkq5IcyUfscKeMeLSrxoLqBf/aauXmeuwPPFr2GTp3VR7RNPdevN -KyDwjPvIdIU2sgxaXvcItgEfR4WdaAptJPck7XKXoC1kTbGd8DXUQgdrLC0c -w23BOW8HeTFoop55DZVCEzuY8aky+uh2HtXv7T5n1mAHdLPVAtxjGohXxHSL -RtgexC8rr1G3qCOOq2GsNzbt4ZQFQVTwnDoalz6YxHvNAU6UKvcwNqihP9Oy -aoMDDrB0eEbJvFMVHQqbCFJ8exWOGV5q1DdTRd9S0u0WjjpCKRtFwZk5FaTJ -q7T+ItoRHN9Qb5xmV0GnrZ12Jr2ugTm3ndDICUD5/qt7pbSc4dT8GybG+8oo -s3GE+y12Bo8lpvfdg+eQzMBqgqDCdWh+F5VLGXMWWbCQ+3+Ju4BbKtsa/YoS -ytElcKm/cQFaGUAt1kqI08xyPPLYDdANC1oPBUUUryvM8N9RV2jNd2tTqDyD -dGKYGFlSXSEnQ5xiQeoMMiF/aOU9ehNSV6X2FUkroK2ZjKT9/LfA37ry9Scr -eeRRfKqOjssdHhVFjSX/kkMcS0TtS1buMDd+fUE/VA4Nmv1NOJDuDpQ63OrC -NbKolFgg//24B1hBot4hM1l0Kfb7Av0tD8jND416uSaDFmPOC6eUecDsqOe7 -JZBBP0WsqY4gT+gdfn0jZfYUOnWFlnFfmCe0dkctBT87hf4LiPd07fWEUPpw -64pFaeSYJSL22NoLtBKyHLurpFD7yVde3CHeIB6SWHXMWwr9eaVJl0fyBj0h -zZxNaSmUNMyt8fKAD5yV3xJddTiJ5vToPqan+MCqMP0f3RBJ9CM/PPB8nS+k -zMf3Fx2URPRdPVZT1H5warJk0z1LAi3Hg9zXC37w56lt2YcucaTYLU2188UP -uGY3jt6VF0PcCQy+DQz+oB45eUNqWBQ5JMaGWpn6g9XTrtI+P1EUf/rqhmWm -P7ibtnq+bDqO2qke6Pgo3QEN/zYuRicRVP/cUv+w510ozK5ybGETQUWNV8+8 -bboLEeOqIrRtwshtZogh80AA3CvlHmAREUb8sUq56cUBoGVGnXF6WxBRMj3t -/7cUCOrWXiesqgTRkWGa5buq90A9lOIA0UMQMeS6RpvF7dq9mNls4RiafDb6 -7NiZ+1DSYaAXNi+AKH3RVojaAyjSXd7gKhRAHz3HBMpvPgBL2gbKejcBtFl9 -YYw58QE4Nu10sW/yowB721LDHw+gr+2H/P3D/MjJdc+7lZdBIP59r/3CNB/6 -0S0gGd0eBNPUHvYKJXyozzUzweR3ELj6eDhd1+ZD9H3ai87awWCXsBR0dh8v -Mgw86vTmbzAokljfGqnxIFeexx89nUPA5EH2fqZlbjQR2LQwFx8C4XJv9lFk -ciNDJ3Ha8NYQcPgSXO1Jw42M9Ba5NHlD4fbUtNXvUS60ucAzWv0hFOaODip3 -PONCNd+MrwXufQTUwYzLr3W40JGb8X435B/BoEjBoAc+hFwWj0+3xj2CSkcu -ocpyTvS5voP7qlEYRJQfM7jszYkWcr5sez4Mg4pzXme+yXIi8t//pvLLwuBO -z5vqlGoOpJnu7R3P9hjkVWztj3Syo5cp6StGHx6Dyce4T0oH2dBOrPC8s1ME -bPYyfrk9zoquSM6kUCRFABzeN2lfwIo0Yk9ZNXVHwB9xfeVTmqxo+qpwS9Wp -SJDwC99ye3QQJXc9iw6heAIJ75WUO8wOonU1X+rLsk9gbkq2qEz0IEotHmC0 -cH4CDQ4a8jp9LCj/QUhhF/kJnNLZSTjGz4I2bs4Hh2c9hedDidFLq8woXV2N -O/nDU2CjDJNV7WFGh0TyPrxnjAIFtQN8N+4yI5OghYja21FwP4/np1zdAbS8 -4aRz+WI0/BNK4E9xY0QP/T0F3R7GQN/pEl1eQUY0LelEeJwRA8etWe7Ej+5H -/Qtrv6txDAjtO3lSV3M/kjB1rrf6FwPEyAEbT8l9aORy6rlS32fQZJ2nkMZP -j/JZAlsfucXCZSvhc5lTdOhLYQkVTXQsbIrH5tvl0CFE/+38y+JYuMqrqM1w -gg6FrhU3Uv+MBX0Bon6Fxl7k9vFN9Jebz6G/wW9IOo4GFb0I/F7gEQda2p8l -G21pkAzV4cFHsXFQ8ncUj0vSoN8r3Bp+ZXEgZmTDMEjag17Yn3+duBIH6R0m -r03o9qCoCKWnn+7Eg7qBVDZNKhXikB14ZB/+AkbqqIrnPKnQS8GcyNiCFyBJ -UT+qokWFTtUaZo/0vABxtTqhi38o0SL78z/pBxNA1cNsreQSJXI9YKt98lUC -LBqP9yvxUSAxLUiSrUwEPChi6vFvB34aaT81GkmEkfx4TpaaHbBUyLoTsp4I -N/921SnK7oBJ/ZYkj9JLOMH07uuO9DYICR20Emh+CRUkl7Uy7X/Q6LFOG0pO -ggD/HEOJA//gQHMIffNyEtzZ/5ogOfQXoghtxUzsyRCuapvdbv8Xkn0XusYt -ksH54YOlIyGbsP5Gte7SdDJMY5v54+PrMLiEuwL/pcCyRnjx/YJ1sPnAENDP -+wpazxvHafmvgwVrzB15tVcQar78VpxjHThCYvRkI17B80L6dDaTNfgz8ad2 -+1AqOBj2D7l8WwFB6VCFzjNpkEPX/rDW4D8IS9dX2N+WDgUyjDQrQv/BoPmF -FrMP6cAzedou6t8yiPeJcBZ9TwdVdiav0fxl6OxkY/dhzwBL6YLz5fuW4crU -tX13nDKggWPCNPPzEohGjsqYMGbC6B/hS0Y1S/BXSu6vkkAmyCi7jBjFL4FL -fLSVxOlMkDUxEkD6S3D4itJXUbtM4BfYYr4S9gvirBNSEyoygVAiJHP19g+Y -4GIxULLNgrT7ZpxrCj/gSVn4xVqfLJD62GPAvPkdYofC6lUjs+A1eb8COfA7 -6DY4EN0qs8BQT1reNnIR9tTRWSsyZkPOkVXZjIZ5cOjxXY+qzwbrBTY+L99v -8Go2bJJfIAf8I51bjM5/Ay/joS5rhRyYmyhzieX4BkNTce7Z+jkwiQvVhatn -wP3t5FftuzkwU5m9HL0zDX4Opw9vDeYA91jKUmnqFAxRNSRSRbwBHgZhbibv -KaDzObFDSn8DvvWgUac9BcouV9ZeVr2BtpgTOTSrkzDe8jrWaOYNuFy19Thv -OAkPeX9ISKrkguCLomufD30FjfK7ZX6budBg42K+sjwBdOuWVASWPDD6OnTN -qGcCKiZ4a4+K5oGlvrvdl+AJmJxElrNmeeA0/bNVd/ILyI2ZcnyuyIMXWnIU -w2WfQayW4YK5Vz7ofZy9LVI6ClttIxoBfwqgdcLJt/n2KHgUbhCl9hWC04gf -bzUahYAIR/Pv/IXAWhoWX93/AQq1T8XdNigE3QE9y+W1EWimvaI1k18IQUX3 -t0qMh6Hxj/cCo0MR+ARlF87rvAcFq/0uUR+KIUTTwP89z3s4zRidz7dUDP1C -P5dpfg2AnvZ6dc3et6CkRt2pGjcARRF9pylOv4W8bHlTxsl+OBo6ETYe/xYs -70XKeEeQoWq42N5NrARqRB25XDi6YSAsQnZpsQSyTAc/8LZ1gTtpkVFiowRS -Di2LXfHsgnXelNYbtKUQfnbrugu5E740H8OrfKXwjIOWsSyWBOzB7kOKpqVg -03LGQOAkAeR/DXvfaS6F4P9O/WRvboHO9dYzfUnv4MBPBvmFwBa4a+Z5KST3 -HbCJP9UXVWoBGaG3vOcq38Fh7/qx6cpmuFQvNlbT/w540CvJs2VN0HMyrugL -XRnwunVmRwU2QF69ZP2YXxlw0X3z+KdQCW6+zS5Pzcshx0aOYr6/AhqfPGTu -cCyH/Y86167fqIAp7pcDlF7lwLTJclEovRwUivbmBj8thwGdBF0n5jKwNd8I -zGsphzt9pZm6+0rANfA9baRkBcw6a4awkbLB8IXaoQSaSshPVqZK4MmG5WLt -e9KslVDAQd+xzyML9kuLTfXyVcIA4SdfB08mTAS/f33wbCXo/jiXmredCk/1 -zq00eFYC22jUkNSXOFBeCFjKnKiE6LeyFpHXrOHvx3/baY1VYGHbMVWlpQ3B -qf2HDburgCukNzSEUxYnabf/pf1YBW9oZN6F01/Fe168pvdfqYIMRh06Ro27 -2HE77tw9iWrYdhiW+2URhZOm3mvtT64GW7b9U/MTqVhwrYBW+k4NxCnKbsj1 -p2Gdva3HFB/XwI/aPVX8tumYFdMuaryogRXKWrKxXgY2f1Xn7fiuBhxXR+1c -+LKw6bLXlbaFGqBPUXVky8/B+wpFSRRWtZC8fOme4KUirK/EL38L1QH8ynyS -jYuwpZDva+qLdRCk6lMTJlmMiad9DqXY1MH2n9Bjd/e+xdk+CjTD9+pAkhgx -y2lZgh/paH662VAHD19d+9O1Xoo1/t2Ok1CqB13p2CVhygpsydbfP67QANQW -rR/dTlZgrVW/wgGtBjh0daTE70oFluWQvE4yb4CDzlSv2qsr8FFCXAi+3QAe -JN7qq66V+NYMv3BvdQPcWn29h4JYhZUu1It5n2kEC9rak/uNavGYds3y2FkM -y/nJa5p+tdgh5eLrgxcwLDl43zJOrsWFe5IadC9jWP20aj8xWYuf881yt/tj -2Ml8ItLlVoe9hBf8BisxjHw+v8gXVI+nVb/efneoCUZ9mqXsHjbiJMPsx8fi -moBx7zVWocxG/CnI8uZ0chNoKt8kNDU14h2px345WbvmnfN4sNWI29vTNiV3 -/33fxmMHYR+Mg8y5SnQGmnb3TYZEyokmPJHCdbeWuRnsxI6bf6VrxqUzQ3nu -Uc1QKt/suZezGdeV+B3fedEMGw0arlxCzdi5XWspKq0ZpOsZrlOqNOMjYG3x -rqQZTvev3pn2a8YFqanBdO+bQWPYn4ppshlLoMG635wtkGFN6Z+a24JfSH47 -Up7ZAtPe/LKe5S3Y2Ak1uhS0QHKH1bxsUwtubaRNEChvgc/DnclhIy1YqbL5 -V3x7C5Q/i3tylaYVV6ubn4yca4F8F2LMAetW/LLU1vPtiVbw1+4Vq6Nuw6QK -r6tjda3griYqfJ2xDV+aCn8W1dYKRm3e0vScbXi8qXJMtacVzomzNfKKtWEG -V5v24vFWWKG2j881aMO67ooTzynbIGJ5gEshsQ2bLmV0xGq2Af3ejMAm3nZ8 -/c757zaDbWASKVhIFmnHFArsnXKf24CT/enPwZPtWLfErmL/tzY4Uvt2vgba -seef4HcNa21wJlbEYM26HR+tMDwjwd0O92oH1S4kt+ME9uz9Svbt4CDVeq5x -Xwdmf/zZied3O/xobf+zztKBg1Q1LW9vtIOdCVeb2KEObDuYLzpE2QFd/K/f -ewl2YCoj8pVnBzvAJoi3K+VsBxbVLWRmk+2AMdnVRMMbHVhG4r62ql8HiPhc -4I1u6cBoZM9F2O6AKDPCRUzowMe1fvBV0hLAa4yidba7A3+xvNYieYAAvjTN -kfwjHVjgzX0fXj4CLDAmJ51Z7MCd46HP9qsSwMI46TvVQQL+4lWnw/iIAMu6 -upqnLAl4O+nnwRwmIowfcqgdtiZgXnZi1S9OIgQBj5KXAwErPg9TU+Qnwu/o -zIg4VwJ2LCAyDsgQQWMu1cH/HgH/kCPa7LcgAh25ffJ9OgHrvsp/WpBFBF31 -+55b2QTch5avURcRQTD6eBpvHgFbULvwWlUSwXNP2G+9UgJ2zdsRZyYR4YJJ -rpNRMwHnpdrlBP8kAtszsS90EwScYapXEXOGBI9nhcWapgj4iMQVrVVVEqgD -ywv3WQKmZaYss7pAgt7Fs0v1Pwn4trYAo4QNCfIDnj3es0XAgcpphMEQEjQ5 -+22ZHCLip9o53/XIJKg+8TZdToeIU503q8ecOoEhe4rt5wUiNqiVuljj3gle -4WzmGQZEPNlu9yLBvxO8pbTt1o2J2GsRTphGdsLnhmyO6zZEXD3TFTRW3AkF -t15VWHgRMfh/c6Jd7YR6xRspzT5EnPQxt/XndifsVJJzBG8TcVtOKXFkbxeI -CJYpfgogYntJmZ4Cri4ozWhYZHlExOEXL1VePtcFwtQchOQEIma3p234GNIF -cgsVZ6tfErHCqFZIz9MuUGGMFiQnE/HlWLdfTS92+8mTryynEXGPG19JXm4X -wNfnGxS5RPz8l/hAcPfufWLLJ50qIubcrDAyYusGyU8k35KB3Xq7Ya0b2d1g -eCHggeMgEcf9Rkdkirvh60DSCPswEXOoZ735W9UNPlELwc6jRKw+hj5HdXVD -YCu79fAXIi6pXm9rWO4G8WnBuA+LRDyYlGR2TqUHav91j6j/IOIwIrUHs24P -+Ndo1RT+JGI2V/tz08Y9oGtLed3tNxGTn1T9fOrcAyd/81A2rxKxfm7Xu/no -HriwaHPiJQUJkzJ5ulrGe+Cvz4vQZkoS3mb14ciY64GhtGPtM1QkTGGmyvFg -uQckbvMdEKAh4blP+bKIthcuB0bruNCTsEamzAZRshdEzj+x9WQg4RVWrz+F -p3uhZvxgsO8+EvathdxnKr0wkPjfuicjCeu1Jp+9YtIL4Ww2kudYSNhv3/FT -WwG9UJYvxil8kIQ1ibL7Zh/1wtt5pxP7WEk4sY/pdX9MLzT96VohsZHwjQIO -/rzsXsi2PH358CESNtvcdLHr7oX56CI6hqO779HWMNrg7oMzbhXR5buemTUk -NQv1gYofen2Zl4SDQzuORZ7sg/PenhFpfCT82tP/JZ9aH+TZWWVuC+zm2/QU -M3PpA2J8KVXUMRKOmPztIOLdByU3VZkOC5IwJ4tK5XpgH4jwC8kdFyLhrYvQ -nfqsDyYJbseOiJCwXELT3s3qPrg6BxC760xFG73Blj4gde7w7zlOwlSMLw6V -dPcB95fP2uO7hqPp8a4TfXBtuib+vCgJf2AsvK230AfmVpSVBbsW/PRAXepP -H/AwCwa5ipEw5U8S0zY1GbiDU08Rd214sqF+mY4M3z+1tPOJk7BBVkDxHCMZ -FM2OphJ3HXPzfs8HTjKUFw7Pc0qQsL68/bn3PGR4bqskeHXXxbP/+fXxk4Gp -ecrjv11T6U2x9YqTYfZsZKS8JAmfchD/TZYiw1ZjTrrvrlfN9sQMy5FhvHyU -9GPXqd/GUxZhN4+IwrTgCRK+cGSG6p86GdJeJ9Ja7Hp+SVeERYcMkn0dbtW7 -VrNJ4dIzJoO7Iq6f2vUnhkwZXwsy2CodOLr/JAn/qwzvy7UmQ2Jw6wvpXWuk -PeCedSCDisGMqPGuz7u8opa9TgZ/rzsfvXZ9bogn4vktMpSYhxbE7PoG4aPJ -Pu/dvNQ06fm79u22yszyJ4PX4ZXa5l0rTLvOO98nw7UZvZ2hXSv+tKV1C92d -j+ke99ldi6UtvhqJJMP2fgbm1V0Pa+gkTsTuzsNMb5JSioQdrDTK6JPJgM7W -zDPsegPGKiJfk0Hutpwoy64ldkIKHSvJIE2bfoxt14XOfJ6Hh8jwP0bqDDY= - - "]], - LineBox[CompressedData[" -1:eJwV0ns0VYkXB/AblYlukWdJQ5GSSrj0K2wl7+Y36YG6lMijq2gSKTeSpJQp -TTQGGd2aUpkaRyGyI9U5QudcN49I1+tI6KFkqNzf+f2x13d9/thr7e9a2ygw -cmOwEo/Hi+Hm/zmTTDDWsqBwrUJ40zSUhtaXbzZrch7fWmKwM5qG3nf702dw -trQ4Wb/6LA0W8UFaKpzd9MaVzHJo8B/5Vf5tOYXbyieyvK7S8CXzyb/vOVv7 -O61pv0VDRELLDjlnF/1dV88RNGgWnNVr4Pzlm6jgaRkNUz4QJmWcsxyW/XAb -aTgUVWct4ZznJhLwHtMwujxvJJXzXyuMiOW1NOS2hIj2cb4XHafr8pwGn+fC -jE2ce+t+9nSX0ZBlWhxrzfmQTVeifSsNMwskOpqcf2oJqzPpoCGpTe00tYzC -rsO9dm19NGiUyYPzOYtqpx65OUiD47wpkw9ybgqwdY35SEOtTvt5fc4u9bzS -iXEairpaUt4updD1ddqlBwoaTt4qcyvhrFNemXdoMgMvhBIbD852GbjnLZ+B -vpaeUHXOISoWTN4sBqxPxu2VmVPYXTlxYpMuA3fqJ01s4dy30ujmPUMG9DTC -I2AJhfrXtHoirRg4GrVd/NmMwtiaynlzVzLgZzk/8hpnTFp756kdA0EbLNRU -OKvtR30DFwZs1VK3FC6isPBKVXq1LwO/j6+o9uJcxN+tHu7PwJOOvAWfTSms -/7XYVTOQATciv86Ss1Lt+u+B4dy+bvbQRRMK09TkS3nxDKhs77Ax57xJkGl4 -7RgDg0K/45XGFK5zHBv9KYUBKifX6tUCCoX5isDscwzEe77SVZ5PIWHfGS+Q -MBCieqskxYhC6Rnjd23XGHg/WihS5RxR7u177BYDkusSDVVDCtVD55g8v8vA -p2DfzGEDCkusPtWHkQxkpoxMF82mcM/V+IO5Qwxs0H1X9kiP+8dm7xPXhxlY -s8/XWZ9zY1PqVWKUgRnpHrwaHQpnUFp6tZOk8NjvotM3TQoDx/Xlo9pSsJtT -9HraDArntjuF+zhIQRzlHbOWT2HckO+jICcpfO0Q8w9Np/Cku7HVPjcpuH5N -cparUljgU7Dt1EYphD0K176oQuGFqUP1FSFSqNgz8fkaj8JVupP8Fp2Vgq6h -d3KVgkTHywcdbC5I4bZC2aZ1gkSoUV61LksK2/X5POXvJLqUeooDJFKIq+Tv -cRwjMW3HbfM/SqSw2/Kdy66PJPZU5iyfJZfCzG2C+35yEh1Of+BrrWiEyYmR -4xtek8gf6OxpEDTC4uj8WqcOEu20OxtOrWqErbZBhibtJF5oSWpTODWCysDP -T5uaSaxIvNw46N0Ig7GTlo02kCiZ7WtYK24E1/ikA4IKziZgkk42QnmZX9rg -eRLvq1tNdQuQgctH4eWMdBINogx+f7dLBh42Xn/anyORMSy0zNgtgyrlhcLU -NBKN43USu/bL4KKz+I3OSRL70pPjjyTLoNin1+G7mMSI95ubi2/IQL9U6bcp -IVz//sGXpiMymEe2PrQVkDhrfsQb7dQX8GLA53snPkXNM29EyvVNMLPwyfQ6 -l6e470CfIHGsGfrVlkYRZU9Q9WVwRqR9K7SbLfQKM32C+YoF7r2xL+FU6jPL -37Ieo55n/zSznDaYvjF6vf3XGkwvOXVBU9YOtQUWf5nvqkF5ciXZM/wKNqYT -sTX1j3CT+pTJ4SqvwW2k9e+8RY9wQCsr6YWOHLxkfCfbtGr89I+u/dxcOfAb -Ll+o6K5C83rdqh+XdMJ/NroqWtdVYUKY0NT0VieUx4V+LL3+EBN67SZpm3aB -/5qxqC0TiFuS+hOtr3dBUzPR9qCqEksT701Nn9sN2uUhw5ToAToO3dAazugG -Ud9m851zKtDhlKh58Q89sN09znhQfh9DqwJyFkb0gNPqob/FaWWouGI4lN/c -A9OP392n4lWKP14O6LcR9IK5wdzjK/RL8Iv513vuZ3pByfN1Z9Szu+h84h/f -6N5e2Jroc+Do+WIkb8x7I7FiQfTfZ3fV0opRSaIxNGLNgvZAzLfMlGLMjjl/ -ztWGhdzbflmF4mL0yLUm+leysNeMUG8LKca9f1aELHZgoURb+YPN6mJsyf56 -PNONhYGc707D3QSutBWeM/VnobpDxTC+g0C7RTOC9m5nIWv9YZ5qK4FCJQ1Z -0Q4WiExxg1EDgWMLeel2gSzM3rXyklcpgce2bo3xDGWhS3R6atEZAhuvFg15 -/8LCAf9uE4cUAs8+LLqSuZ+F1R4C99pEAoO0B8deRLFgNnYjuyuGQMXRKQmb -YliYZ6gXqbmTwNNzij65x7GQGnW4ME9IYPAf23JOiFnoWXTp/RJvAhdMs+qu -PsLds4CfsM6TwKYDkZ6rjrIg0fKoo50JNApg9kQnsnC6comBvyOB/+rsML9z -jIX8oRu/9K8ikH9JN/VtEgvOoodUtIDAI4qxZONkFv4H+VrXkA== - "]]}, - Annotation[#, "Charting`Private`Tag$2643796#3"]& ], {}}}, {}}, { - DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> 1, Axes -> {True, True}, AxesLabel -> { - FormBox[ - TagBox[ - "\"\\!\\(\\*StyleBox[\\\"h\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\ -StyleBox[\\\" \ -\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"|\\\",FontSlant->\\\"\ -Italic\\\"]\\)\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\ -\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*SuperscriptBox[\ -StyleBox[\\\"|\\\",FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{\\\"-\\\", \ -\\\"\[Beta]\\\"}], \\\" \\\", \\\"\[Delta]\\\"}]]\\)\"", HoldForm], - TraditionalForm], - FormBox[ - TagBox[ - "\"\[Chi] | \\!\\(\\*StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\)\ -\\!\\(\\*SuperscriptBox[\\(|\\), \\(\[Gamma]\\)]\\)\"", HoldForm], - TraditionalForm]}, AxesOrigin -> {0, 0.015}, DisplayFunction :> - Identity, FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], LabelStyle -> { - GrayLevel[0], FontSize -> 14}, - Method -> { - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "ScalingFunctions" -> None}, PlotRange -> {{0, 2.3}, {0.015, 0.105}}, - PlotRangeClipping -> True, PlotRangePadding -> {Automatic, Automatic}, - Ticks -> {Automatic, Automatic}}], - FormBox[ - FormBox[ - TemplateBox[{ - "2", "6", - "\"Caselle \ -\\!\\(\\*StyleBox[\\\"et\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\ -\" \\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\"al\\\",FontSlant->\ -\\\"Italic\\\"]\\)\\!\\(\\*StyleBox[\\\".\\\",FontSlant->\\\"Italic\\\"]\\)\"\ -"}, "LineLegend", DisplayFunction -> (FormBox[ - StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - StyleBox["\"n\"", { - GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, - Background -> Automatic, StripOnInput -> False]}, { - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.368417, 0.506779, 0.709798]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #}, { - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.880722, 0.611041, 0.142051]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #2}, { - GraphicsBox[{{ - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], { - LineBox[{{0, 10}, {20, 10}}]}}, { - Directive[ - PointSize[0.5], - EdgeForm[None], - Opacity[1.], - AbsoluteThickness[1.6], - FaceForm[ - Opacity[0.3]], - RGBColor[0.560181, 0.691569, 0.194885]], {}}}, - AspectRatio -> Full, ImageSize -> {20, 10}, - PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[-0.023999999999999994`] -> - Baseline)], #3}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], - Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - GrayLevel[0], FontSize -> 14, FontFamily -> "Arial"}, Background -> - Automatic, StripOnInput -> False], TraditionalForm]& ), - InterpretationFunction :> (RowBox[{"LineLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, - "RGBColorSwatchTemplate"]}], "]"}], ",", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, - "RGBColorSwatchTemplate"]}], "]"}], ",", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"EdgeForm", "[", "None", "]"}], ",", - RowBox[{"Opacity", "[", "1.`", "]"}], ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"FaceForm", "[", - RowBox[{"Opacity", "[", "0.3`", "]"}], "]"}], ",", - - TemplateBox[<| - "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, - "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{#, ",", #2, ",", #3}], "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - - TemplateBox[<|"color" -> GrayLevel[0]|>, - "GrayLevelColorSwatchTemplate"], ",", - RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", - RowBox[{"LegendLabel", "\[Rule]", "\"n\""}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), - Editable -> True], TraditionalForm], TraditionalForm]}, - "Legended", - DisplayFunction->(GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, - BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - AutoDelete -> False, GridBoxItemSize -> Automatic, - BaselinePosition -> {1, 1}]& ), - Editable->True, - InterpretationFunction->(RowBox[{"Legended", "[", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", - CellChangeTimes->{ - 3.8762098132490873`*^9, 3.876210114932979*^9, {3.876210229455621*^9, - 3.876210239439103*^9}, 3.8762103425194483`*^9, 3.876210503369525*^9, { - 3.876210758072206*^9, 3.876210817271525*^9}, {3.876210896342799*^9, - 3.8762109031134443`*^9}, 3.8846914827458572`*^9, 3.884691623712654*^9, - 3.887175492411874*^9, 3.887184325602675*^9, 3.887184375892168*^9, { - 3.8871855348141947`*^9, 3.887185597667794*^9}, {3.887185799070383*^9, - 3.887185827915172*^9}, {3.8871858794918337`*^9, 3.8871858971152573`*^9}, { - 3.8871860663050613`*^9, 3.887186101048482*^9}, {3.8871863952497263`*^9, - 3.887186406346018*^9}, 3.887186449069482*^9, {3.8871864819645844`*^9, - 3.887186491476892*^9}, 3.887186524625689*^9, 3.8871866422836113`*^9}, - CellLabel-> - "Out[147]=",ExpressionUUID->"655a40ca-05ff-4292-b196-684739c53e3f"] + CellChangeTimes->{{3.893237708747595*^9, 3.893237717793868*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"f0d6a512-a16b-45e4-a62c-27480dbdbe2d"] }, Open ]], Cell[CellGroupData[{ @@ -8250,12 +6176,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "2", "]"}], "]"}]}], ")"}], "[", "2", - "]"}], "[", + RowBox[{"DufDuh2", "[", "2", "]"}], "[", RowBox[{"1", ",", RowBox[{"\[Gamma]", " ", RowBox[{ @@ -8280,12 +6201,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], ")"}], "[", "2", - "]"}], "[", + RowBox[{"DufDuh6", "[", "2", "]"}], "[", RowBox[{"1", ",", RowBox[{"\[Gamma]", " ", RowBox[{ @@ -8361,9 +6277,8 @@ SuperscriptBox[StyleBox[\"|\",FontSlant->\"Italic\"], RowBox[{RowBox[{\"-\", \ 3.887186114918988*^9, 3.887186135551132*^9}, {3.887186188946741*^9, 3.8871862078981543`*^9}, {3.887186291595374*^9, 3.887186300211134*^9}, { 3.887186502030856*^9, 3.887186541775611*^9}, {3.887186589650141*^9, - 3.887186636184795*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], + 3.887186636184795*^9}, {3.893237725683463*^9, 3.8932377363942547`*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], Cell[BoxData[ TemplateBox[{ @@ -8385,53 +6300,67 @@ RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ \", \\\"2\\\"]}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \ \\\"8\\\"}]]], \\\",\\\", RowBox[{RowBox[{\\\"0.`\\\", \\\"\[VeryThinSpace]\\\ \"}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"0.29442726651162515`\\\", \\\" \\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.29442726651162515`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ \"}], \\\"]\\\"}]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ \\\"[\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \ RowBox[{\\\"17\\\", \\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", \ -FractionBox[\\\"1.007010684856479`\\\", SuperscriptBox[RowBox[{RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \\\"8\\\"}]]]}], \ -RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"4.055395711271589`\\\", \\\ -\" \\\", \\\"\[Gamma]\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \ -\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +FractionBox[\\\"1.007010684856479`\\\", \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\"]\\\"}], RowBox[{\\\"1\\\", \\\"/\\\", \ +\\\"8\\\"}]]]}], RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"4.055395711271589`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\\\"Times\ +\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \ RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\ -\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\ -\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"]\\\"}], RowBox[{\\\"31\\\", \\\"/\\\", \ -\\\"8\\\"}]]]}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\ -\"1\\\", \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ -\")\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}], RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]}]}], \ -SuperscriptBox[RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"7\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\ -\\\", \\\"8\\\"}]]], \\\"-\\\", FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], SuperscriptBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ -RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]}]]}]}], \\\"}\\\"}]\\)) is less \ -than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 148, 131, - 31937344891897383576, "Local"}, +\"(\\\", RowBox[{RowBox[{\\\"Times\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], RowBox[{\\\"31\\\", \\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", \ +FractionBox[RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"+\\\", RowBox[{\ +\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ +FractionBox[RowBox[{\\\"1.849387959639662`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"Times\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"3\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]]}]]}]}], \\\"}\\\"}]\ +\\)) is less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", + 2, 48, 12, 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.88718611635929*^9, 3.887186135777404*^9}, { - 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, - 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.887186644812742*^9}}, + 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, + 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.887186644812742*^9}, + 3.8932376097362757`*^9, {3.893237730015683*^9, 3.893237736870389*^9}}, CellLabel-> "During evaluation of \ -In[148]:=",ExpressionUUID->"62fc2290-ec12-4106-8db3-83accba90389"], +In[48]:=",ExpressionUUID->"50c6b3be-692b-4bb3-b631-dd6ed0112f44"], Cell[BoxData[ TemplateBox[{ @@ -8458,19 +6387,25 @@ RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ \\\"/\\\", \\\"8\\\"}]]]}], \\\"+\\\", FractionBox[RowBox[{RowBox[{\\\"(\\\", \ RowBox[{\\\"1\\\", \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", SuperscriptBox[\ \\\"\[Gamma]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ -\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{RowBox[{\ -\\\"-\\\", \\\"1\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \ -\\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ +RowBox[{RowBox[{\\\"0.27286889266851116`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"-\\\", RowBox[{\\\"0.21290826693346554`\\\", \\\" \\\", SuperscriptBox[\\\ +\"\[Gamma]\\\", \\\"2\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.08126249520877327`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"4\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.04524698238633043`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"6\\\"]}], \\\"-\\\", \ +RowBox[{\\\"0.03293140750785288`\\\", \\\" \\\", \ +SuperscriptBox[\\\"\[Gamma]\\\", \\\"8\\\"]}]}], \\\")\\\"}]}], \ +SuperscriptBox[RowBox[{\\\"RealAbs\\\", \\\"[\\\", RowBox[{RowBox[{\\\"-\\\", \ +\\\"1\\\"}], \\\"+\\\", RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"]\\\"}], RowBox[{\\\"15\\\", \\\"/\\\", \\\"8\\\"}]]], \\\"-\\\", \ FractionBox[RowBox[{\\\"1.849387959639662`\\\", \\\" \\\", \\\"\[Gamma]\\\", \ \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.2950910232179487`\\\", \\\ \" \\\", \\\"\[Gamma]\\\"}], \\\"-\\\", RowBox[{\\\"0.07674909089922159`\\\", \ -\\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\"3\\\"]}], \\\"-\\\", \ -RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"21\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"-\\\", RowBox[{RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \ +\\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\"3\\\"]}], \\\"-\\\", RowBox[{\ +\\\"0.017576083976367313`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\", \\\ +\"5\\\"]}], \\\"-\\\", RowBox[{\\\"0.0069902635549525935`\\\", \\\" \\\", \ SuperscriptBox[\\\"\[Gamma]\\\", \\\"7\\\"]}], \\\"-\\\", \ RowBox[{\\\"0.003957033741436551`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\ \\\", \\\"9\\\"]}]}], \\\")\\\"}]}], SuperscriptBox[RowBox[{\\\"RealAbs\\\", \ @@ -8479,21 +6414,21 @@ RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"]\\\"}], RowBox[{\\\"15\\\", \ \\\"/\\\", \\\"8\\\"}]]]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ RowBox[{RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \ -RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\ -\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}]}], \\\")\\\"}], \\\"-\\\", \ -\\\"0\\\"}], \\\",\\\", RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\ -\", RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\ -\[Gamma]\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}]}], \ -\\\"}\\\"}]\\)) is less than WorkingPrecision \ -(\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 148, 132, 31937344891897383576, - "Local"}, +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ +\", \\\"2\\\"]}]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}], \\\",\\\", \ +RowBox[{RowBox[{\\\"(\\\", RowBox[{\\\"1\\\", \\\"-\\\", \ +RowBox[{\\\"1.1695099999999998`\\\", \\\" \\\", SuperscriptBox[\\\"\[Gamma]\\\ +\", \\\"2\\\"]}]}], \\\")\\\"}], \\\"-\\\", \\\"0\\\"}]}], \\\"}\\\"}]\\)) is \ +less than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 48, + 13, 31977068536072594118, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.88718611635929*^9, 3.887186135777404*^9}, { - 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, - 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.8871866457787333`*^9}}, + 3.887186197166917*^9, 3.887186208279335*^9}, {3.887186530190947*^9, + 3.887186542059218*^9}, {3.8871866239697943`*^9, 3.887186644812742*^9}, + 3.8932376097362757`*^9, {3.893237730015683*^9, 3.89323773779261*^9}}, CellLabel-> "During evaluation of \ -In[148]:=",ExpressionUUID->"776a18de-180c-4668-970e-1610ceae4ab5"], +In[48]:=",ExpressionUUID->"1390bb82-7e0c-4a82-8be7-3aa0578e2c3d"], Cell[BoxData[ TemplateBox[{ @@ -8736,7 +6671,7 @@ ldZCpddVfTdKIQjWEDcbO2rh38U1mtJDBbDjJ0hUZamDpwnXNb9eyQTTPjHN 1wl1UFxF5J6qTQOhq+cel5LqQDiyQSBVMAWKc+496+2vA8F9ne3Q7QS4J13l 8ZWvHlTeiajI/n4IVllRn+rO1UN+FM32LjUKxP2r3L7Z1ENspoep3koYTOYm kFXD6yF4JL52kjsI4nFjt38U1cP/APE0WKs= - "]]}, Annotation[#, "Charting`Private`Tag$2643905#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4175642#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -8999,7 +6934,7 @@ iwJiai10P/hy3b+eVsxA2LMN13qSz8OlRlybv42BcH3vGw59HnCWPqfj1MnA 3+uKe733n8MG3bQyRg8DXo/8e51Nz2Av34GBo4MMrF/HFPNwyB7RmoFJ8SMM BDvPMGyCbTG7SaHu7QQDnrHpgutULbFZSsdEYIaBybvmMeSSCXyoD44bLjHw P7qJ+yc= - "]]}, Annotation[#, "Charting`Private`Tag$2643905#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4175642#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -9204,7 +7139,7 @@ aE0KHTMbZkJz4USj7w46nBPUynaJV0NgcXB54/wdvPzO3Lwb1TBaMUlxcswC t9L1m5mZ1Th2h/Zkv0oGvNaZ2q00VYP7/F5X7fWpeGhKNbj0vRq3e2SlKxUT cZg3T2u7Qg1EnMJCryAGyuGzGyYsa/BfpZar9Q== "]]}, - Annotation[#, "Charting`Private`Tag$2643905#3"]& ], {}}}, {}}, { + Annotation[#, "Charting`Private`Tag$4175642#3"]& ], {}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, @@ -9427,9 +7362,9 @@ StyleBox[\\\"|\\\",FontSlant->\\\"Italic\\\"], RowBox[{RowBox[{\\\"-\\\", \ 3.875957390170678*^9}, 3.8762092922172947`*^9, {3.8871754958604937`*^9, 3.887175500271595*^9}, {3.8871861172995453`*^9, 3.8871861368256903`*^9}, { 3.8871861982272577`*^9, 3.887186209328771*^9}, {3.887186531197132*^9, - 3.887186543092368*^9}, {3.887186624995718*^9, 3.887186645867601*^9}}, - CellLabel-> - "Out[148]=",ExpressionUUID->"a8fc096e-6fad-42c0-aa7a-790bd2df6a0a"] + 3.887186543092368*^9}, {3.887186624995718*^9, 3.887186645867601*^9}, + 3.893237610747847*^9, {3.8932377310303297`*^9, 3.893237737874032*^9}}, + CellLabel->"Out[48]=",ExpressionUUID->"5632f44e-d2ee-4570-afa0-630f5721d24c"] }, Open ]] }, Open ]], @@ -9440,6 +7375,24 @@ Cell["Plotting as functions of control variables", "Section", 3.8871757098402243`*^9},ExpressionUUID->"7bcdac80-37e1-4f66-bc64-\ b0d2db5bf4c3"], +Cell[BoxData[{ + RowBox[{ + RowBox[{"invCoords6", "=", + RowBox[{"InverseCoordinates", "[", + RowBox[{ + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], ",", + RowBox[{ + RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"DufDut6", "=", + RowBox[{"DufDut", "@@", + RowBox[{"PrepareArgument", "[", + RowBox[{"Data", "[", "6", "]"}], "]"}]}]}], ";"}]}], "Input", + CellChangeTimes->{{3.8932377899231243`*^9, 3.893237808714438*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"18ba5487-e161-432a-b28e-40a5d59488df"], + Cell[CellGroupData[{ Cell[BoxData[ @@ -9450,21 +7403,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", @@ -9472,21 +7412,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", @@ -9494,21 +7421,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", @@ -9516,21 +7430,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", @@ -9556,9 +7457,9 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(10\), \(-3\)]\)\>\"", ",", "\"\<\!\(\*SuperscriptBox[\(10\), \(-4\)]\)\>\""}], "}"}], ",", RowBox[{"LegendLabel", "->", "h"}]}], "]"}]}]}], "]"}]], "Input", - CellChangeTimes->{{3.88718849775531*^9, 3.8871885088435698`*^9}}, - CellLabel-> - "In[201]:=",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], + CellChangeTimes->{{3.88718849775531*^9, 3.8871885088435698`*^9}, { + 3.893237820068544*^9, 3.893237866436099*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], Cell[BoxData[ TemplateBox[{ @@ -9698,7 +7599,7 @@ Ha18844HnlUFC0VMWlDp4ge7Xbk86E7qDZ/Y04Kxe4+dulnIA6kqOfsyhxb0 H094xN/EAyeXE+Y+QS2oetRLLqWVB77G9fwO11uwu0wv3eQ7D1Qj2p3M77Sg bXzrh+s/ePByIPT7uqctKLgwbY/CKPl5A71LxF62IHpfbC76zYPplVHVc2kt GPhll4vrLA+GQo8oDee04P//Xw/J6lqyHawW/D9T3HEf - "]]}, Annotation[#, "Charting`Private`Tag$2929285#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4186241#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -9833,7 +7734,7 @@ oOtsmGauxB60ZeLyJcqI4GM2fBwfLL/1nIk5ZOkjfElssF+hRA6XMNFZ+GdV cdPZsBRp8COAi4WKFnekyCw2hJVoO17nZ+FA+cFk3V42rBLSfn1IlIXnCayi f7+zQdFykjYuzUL+1R8MZH+yQXvP7bxKBRaiw0NG8SwbmOneVgmqLHzQdsL6 2hIbxAY2Up7uZ+H//59DQdW6ADNg4f8BrWdJZw== - "]]}, Annotation[#, "Charting`Private`Tag$2929285#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4186241#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -9976,7 +7877,7 @@ pcRAO4cBnDp+3af7OzFK96qdbzEDAq3SMn9PdKLzVHwkexsDtMIS/xzipaOc mb1oCp0BKX8rDTdto+NgpfrrY30MGFV9Y/ZdhI7n4+glT34woFFfUz9agY6c bK90xP8wwAqy1R330xEdXNpLZxhQoOn05aQWHR90aJtbLDLg5C/zGdGTdPz/ /wpwXbheMX+Wjv8HeA3r7w== - "]]}, Annotation[#, "Charting`Private`Tag$2929285#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4186241#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -10124,7 +8025,7 @@ x5AO697czf16vRcFc2zKg6/Rgct2MPP+3V78dzl9ks2dDiEdW3RTInqxOG3v I5knh+jg5ECZ1thLQ7042gfvr3Swc9C7syBDQ1bmjLPCPxh6wnpEm5VpiPZu 3ZW/6LAnsORR2gka3uvRNLdYoYPc7wFXD00a/v97DFxzE91qoEvD/wPbCGD1 - "]]}, Annotation[#, "Charting`Private`Tag$2929285#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4186241#4"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, @@ -10374,9 +8275,9 @@ I5knh+jg5ECZ1thLQ7042gfvr3Swc9C7syBDQ1bmjLPCPxh6wnpEm5VpiPZu RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", - CellChangeTimes->{3.8871885224783792`*^9}, - CellLabel-> - "Out[201]=",ExpressionUUID->"bd8d7289-1f4d-4488-a85d-8754938f155f"] + CellChangeTimes->{3.8871885224783792`*^9, 3.8932376275906477`*^9, + 3.893237839180531*^9, 3.893237876356636*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"f282764d-6683-431e-bd66-aff690b1329a"] }, Open ]], Cell[CellGroupData[{ @@ -10389,21 +8290,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", @@ -10411,21 +8299,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", @@ -10433,21 +8308,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", @@ -10455,21 +8317,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDut", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDut6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", @@ -10512,9 +8361,9 @@ Cell[BoxData[ 3.887186823363668*^9, 3.887186826291638*^9}, {3.887186890645186*^9, 3.8871869906863422`*^9}, {3.887187366630084*^9, 3.887187367965156*^9}, { 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, - 3.887187764733572*^9}, {3.887188007450289*^9, 3.887188008193816*^9}}, - CellLabel-> - "In[192]:=",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], + 3.887187764733572*^9}, {3.887188007450289*^9, 3.887188008193816*^9}, { + 3.893237873044557*^9, 3.8932379005484257`*^9}}, + CellLabel->"In[53]:=",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], Cell[BoxData[ TemplateBox[{ @@ -10596,7 +8445,7 @@ nM6F5i8a93O9SVTwKDxqnMUF6VdW1Ku+JEab2l4M+syFUuYDgR/+JF4biXuy sJEL2wL7XcqDSVQ55SxJZXPhZYx7lF8IiZ1ft6catHHBuTvQXS+MxCMx7EL/ X1zI8Ek9mRxJ4lL+lAMyQ1xIOPfT0fYxiejiwfjylwuLswQ3r3lC4i2msf2Z aS54UJRfV0WT+P/7CkTssGHcfUri/wCiH9o9 - "]]}, Annotation[#, "Charting`Private`Tag$2829527#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4195771#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -10695,7 +8544,7 @@ ggQmidMwp78+1fAiHZhVP3m5S9JQKMeh/KkdHcZfh//4W4aGv81SJjl86FCZ QCRhwZiGI7WqmZpf6KCneSu/3ISGxjE9VQHftrDf1+lzF2jIti3jjMgcHVIy znD9Y05DdPbuJCzT4YnK9NjwJRp6delY22zQYXpg/HqmBQ3///8AlqfMEtyu 0PB/NIzz6Q== - "]]}, Annotation[#, "Charting`Private`Tag$2829527#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4195771#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -10792,7 +8641,7 @@ kSIF7+2fa0j7SAfuoPXOQGUKirhXGqrn0oGnUNbhylkKRly6cedpOR0sFzqy Fs5T8MFCTDhTFx0OP1oxEtGioLiZHV9KLx1q8gqJi9s+/q1OIfPCIB3GGjSq KrUpqB/dW/n4Bx2KBi5PXNn2d1bGDC2BOTqUf//JKGBIQbR3J1ct04GhZ6x1 atv33brVLa026HDioJx64RUK/v+/AH5Mrt3zM6Hg/wC/QLd2 - "]]}, Annotation[#, "Charting`Private`Tag$2829527#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4195771#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -10893,7 +8742,7 @@ CbwpMt7wNosHOpeDVn49QKCsR6WZfj4PnqU+ZpdpERhlaHvtIYUHNX+uPLDU JdB1Mu65AJ0HzPC22ZCjBCrYOEikdvHgVFViiJUhgZ/qNDMO9fFAaEy2VeY4 gSdjuir9R3nQ2tJ0hmJC4FL+9GNS4zywypV499iUQHT0YFT95IHyUHyq2SkC 7zD17c7P8cCOZWsibkHg//8dsOi7X+YXSwL/B/POLlA= - "]]}, Annotation[#, "Charting`Private`Tag$2829527#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4195771#4"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, @@ -11161,9 +9010,9 @@ gSdjuir9R3nQ2tJ0hmJC4FL+9GNS4zywypV499iUQHT0YFT95IHyUHyq2SkC 3.884691802873703*^9, 3.8846918532524557`*^9, 3.887186743416803*^9, 3.887186819461278*^9, {3.887186878027606*^9, 3.8871869938232822`*^9}, 3.887187474086*^9, {3.887187655128037*^9, 3.887187678918461*^9}, - 3.887187744969038*^9, 3.8871877776872168`*^9, 3.8871880220364237`*^9}, - CellLabel-> - "Out[192]=",ExpressionUUID->"e3227dcc-9afd-4977-b15f-eede85b88fcd"] + 3.887187744969038*^9, 3.8871877776872168`*^9, 3.8871880220364237`*^9, + 3.893237910849724*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"632547c6-cf8a-4755-9e26-5f9a8c901698"] }, Open ]], Cell[CellGroupData[{ @@ -11176,21 +9025,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", @@ -11198,21 +9034,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", @@ -11220,21 +9043,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", @@ -11242,21 +9052,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "1", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "1", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", @@ -11300,9 +9097,9 @@ Cell[BoxData[ 3.8871869906863422`*^9}, {3.887187366630084*^9, 3.887187367965156*^9}, { 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, 3.887187764733572*^9}, {3.8871878714397583`*^9, 3.887188002562066*^9}, { - 3.8871882148709106`*^9, 3.887188249270643*^9}}, - CellLabel-> - "In[198]:=",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], + 3.8871882148709106`*^9, 3.887188249270643*^9}, {3.8932379251256237`*^9, + 3.893237957397731*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], Cell[BoxData[ TemplateBox[{ @@ -11341,7 +9138,7 @@ YN7okxu3acAzasmsUgrLYqv9NpbQ4H+iFSkqX/QK2nOKR8MsIT3udBmFmPGc TI0OGscD/v498xEFu8BIM3Y3jTtDaWLDCgr9Dd8WuL2jobvFiJGt8tbs7uoT gzSM+LYJeZUU5qjf8rQcpaEeV5ZqxqVAomI7a6SqPYwtR6+q/MvLjSGhUzR2 FylCrXgU/v9fsOM+cuSo/C+985py - "]]}, Annotation[#, "Charting`Private`Tag$2904258#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4205127#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -11447,7 +9244,7 @@ KJ0GYq6VxudyGXCulZS5/sehejdv/1vOAAMpx2esn2nwkBz5H0sXA7hcRA8c yKKBpJm9YGI/A0xeKgfH//GPmpNpGt8ZoJJUTxbLpoFReH/lizkG7KIHOcvn 0ICdOVVXmPRnf0xHeNEfo4Nrd9UKA0IO5Hw6nUsDl55zFpYbDCgQU0io+uP/ /+fAfhtzP+08GvwPkw2GqA== - "]]}, Annotation[#, "Charting`Private`Tag$2904258#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4205127#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -11581,7 +9378,7 @@ w5QePvEu/ucn8NctplHBmhwVurWTBhc7UpDhGxWEtUy5Evto4C1e8/rNP/5Z JZN6cYQGN8P/A7Z0KqhE9pW6z9LA5cftp1wZVGCkT7nOs0iDjkMbE4n/GM0c usqWaeCZc0hRKJMK9t1XdfU2aLB4Nzs8/R///38bdhU2t0pkUeF/0p8S2A== - "]]}, Annotation[#, "Charting`Private`Tag$2904258#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4205127#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -11731,7 +9528,7 @@ uDuVAgkbsk9L0shgf2Dhe+onCnwek94+m06GE48qdC/kUuCj5xXL7/84XMPU 5mkZBd6GbM12ZpDBmRj9ZmcnBeqqZnbNfSaDkLEtR1IvBTKIb3udMskwWiuX fu4XBXR3REeS/7FOVG/Fkz8U2DpU1EWdTQY66rSLXAsUMC0avRr4j9HuUVfl MgVUvd0rD+SQweXnBfMbGxSoFwtmfvOP////Ay9Djxqx5JLhfyEsbYw= - "]]}, Annotation[#, "Charting`Private`Tag$2904258#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4205127#4"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, @@ -12001,9 +9798,8 @@ MgVUvd0rD+SQweXnBfMbGxSoFwtmfvOP////Ay9Djxqx5JLhfyEsbYw= 3.887187474086*^9, {3.887187655128037*^9, 3.887187678918461*^9}, 3.887187744969038*^9, 3.8871877776872168`*^9, {3.887187917169589*^9, 3.887187949227336*^9}, {3.8871879838276787`*^9, 3.887188010158411*^9}, - 3.8871882575514183`*^9}, - CellLabel-> - "Out[198]=",ExpressionUUID->"58bb8392-075e-4542-92cf-f8f93253afe9"] + 3.8871882575514183`*^9, 3.893237964294105*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"18837f4b-03ee-4fc9-b362-36801a1721f3"] }, Open ]], Cell[CellGroupData[{ @@ -12016,21 +9812,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "1"}]]}], "]"}]}], "]"}]}], ",", @@ -12038,21 +9821,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "2"}]]}], "]"}]}], "]"}]}], ",", @@ -12060,21 +9830,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "]"}]}], "]"}]}], ",", @@ -12082,21 +9839,8 @@ Cell[BoxData[ RowBox[{"-", RowBox[{"Re", "[", RowBox[{ - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{"DufDuh", "@@", - RowBox[{"PrepareArgument", "[", - RowBox[{"Data", "[", "6", "]"}], "]"}]}], "]"}], "[", "2", "]"}], - "@@", - RowBox[{ - RowBox[{"InverseCoordinates", "[", - RowBox[{ - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<\[Theta]0\>\"", "]"}], - ",", - RowBox[{ - RowBox[{"Data", "[", "6", "]"}], "[", "\"\<gs\>\"", "]"}]}], - "]"}], "[", + RowBox[{"DufDuh6", "[", "2", "]"}], "@@", + RowBox[{"invCoords6", "[", RowBox[{"t", ",", SuperscriptBox["10", RowBox[{"-", "4"}]]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", @@ -12141,9 +9885,9 @@ Cell[BoxData[ 3.8871874509191723`*^9, 3.887187457679159*^9}, {3.8871876036586847`*^9, 3.887187764733572*^9}, {3.8871878714397583`*^9, 3.887188002562066*^9}, { 3.8871880651171618`*^9, 3.8871880740271997`*^9}, {3.887188109820418*^9, - 3.887188166220853*^9}, {3.887188266607832*^9, 3.887188319744246*^9}}, - CellLabel-> - "In[200]:=",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], + 3.887188166220853*^9}, {3.887188266607832*^9, 3.887188319744246*^9}, { + 3.893237970542515*^9, 3.893237996990089*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], Cell[BoxData[ TemplateBox[{ @@ -12234,7 +9978,7 @@ ZE7l04gI5aHaomIpKPFCD30vpBGGsW/oWx5LwV2Udnz5PRpxaZv/wdOVUnjm Rz/R+B+NiBLlXpT9JoVO+ja9hc9phPGeMN38H1Io0v5wO/wljeh9t+7+xi4p GMxYXV1ZQSM8rv54c4onhTINa6E/0gjF6fecFw9JwTBL8ffDKhqB4bHNxDDF 1auLJ9/SiJjvWwICJ6SwwqF50uU9jfj//09Qy5Afvl5HI/4HZdvh0Q== - "]]}, Annotation[#, "Charting`Private`Tag$2920311#1"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4212189#1"]& ], TagBox[{ Directive[ Opacity[1.], @@ -12314,7 +10058,7 @@ XtkkjWpCJ/1/3rsl3iZA5/uu3vmynU7qOZ1USf8gQM8Lr2L7nXSSyzTOMv8s QAeLxc7XWtHJvUkfyi8MCdDWbyO5ubvpJEUs00p9TIBSXr3M0LSjk+AVxCF5 AtQ3Ero+cT+dDHy/46jLjACd23h+F+Ugnfz/fwZ5LemcCXGkk/8DRFly1w== - "]]}, Annotation[#, "Charting`Private`Tag$2920311#2"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4212189#2"]& ], TagBox[{ Directive[ Opacity[1.], @@ -12409,7 +10153,7 @@ P37udjEHDQidz/mtSiY8p5494WnjIJmcrXc+7yITinbOkomdHDRTGSZno0Mm vlRqvTb4zEHWu9ysmnTJhEV0Z+mN7xw0gXeeLDUgE4LcaSbSExzEJe2Od+4h E+DiyyJmOMhrnsh6s49M+Hza63BykYN0iixzpfeTif/f36gRGxs/NSUT/wO6 LMC+ - "]]}, Annotation[#, "Charting`Private`Tag$2920311#3"]& ], + "]]}, Annotation[#, "Charting`Private`Tag$4212189#3"]& ], TagBox[{ Directive[ Opacity[1.], @@ -12508,7 +10252,7 @@ LaCEAXm6NpjYTSGc52MjSe0M6F52VUhVpRByFnb0pG4GCHjLKEmoU4hvVWqp hwcZkBwu/jlWk0IYx3SX3f/5v76BoJchWhSCY9O74+KzDHBMPTLGrE0h8A23 DmKRAeES3z+561AI1686llZrDLh1IVxyVpdC/P8/gNPnnLbZnKAQ/wM8aBta - "]]}, Annotation[#, "Charting`Private`Tag$2920311#4"]& ]}}, {}}, { + "]]}, Annotation[#, "Charting`Private`Tag$4212189#4"]& ]}}, {}}, { DisplayFunction -> Identity, Method -> { "DefaultBoundaryStyle" -> Automatic, @@ -12808,13 +10552,12 @@ DmKRAeES3z+561AI1686llZrDLh1IVxyVpdC/P8/gNPnnLbZnKAQ/wM8aBta 3.887187744969038*^9, 3.8871877776872168`*^9, {3.887187917169589*^9, 3.887187949227336*^9}, {3.8871879838276787`*^9, 3.887188010158411*^9}, 3.887188089249675*^9, {3.887188126546927*^9, 3.887188177721342*^9}, { - 3.8871883124067802`*^9, 3.8871883283898573`*^9}}, - CellLabel-> - "Out[200]=",ExpressionUUID->"354629b7-052f-4d2f-a20e-746898ed9556"] + 3.8871883124067802`*^9, 3.8871883283898573`*^9}, 3.8932380037534246`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"42596919-1903-49e5-8e75-1a532b575569"] }, Open ]] }, Open ]] }, -WindowSize->{630., 1010.25}, +WindowSize->{949.5, 1010.25}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"13.2 for Linux x86 (64-bit) (January 31, 2023)", StyleDefinitions->"Default.nb", @@ -12832,91 +10575,83 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[558, 20, 318, 6, 24, "Input",ExpressionUUID->"cb2d1f0e-8921-4d60-a098-a74598dfa8f6"], -Cell[879, 28, 214, 4, 22, "Input",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], +Cell[879, 28, 209, 3, 22, "Input",ExpressionUUID->"ebe5eb4e-2760-42b5-9d9b-c166d8a7c2b8"], Cell[CellGroupData[{ -Cell[1118, 36, 166, 3, 50, "Section",ExpressionUUID->"c6615333-57fa-470a-9d07-45b7998853ef"], +Cell[1113, 35, 166, 3, 50, "Section",ExpressionUUID->"c6615333-57fa-470a-9d07-45b7998853ef"], +Cell[1282, 40, 1292, 34, 91, "Input",ExpressionUUID->"80831edd-bcaa-4fc0-b1cf-e561a87ed645"], Cell[CellGroupData[{ -Cell[1309, 43, 3515, 72, 186, "Input",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], -Cell[4827, 117, 28223, 602, 189, "Output",ExpressionUUID->"1e4ad944-e98e-4c7a-9635-ca69ead5609d"] +Cell[2599, 78, 3285, 61, 76, "Input",ExpressionUUID->"43cfc45b-1fff-4120-afd4-982fd6195a7d"], +Cell[5887, 141, 29139, 618, 234, "Output",ExpressionUUID->"7e2943f8-381c-42b0-8f9b-5bee0ef91468"] }, Open ]], Cell[CellGroupData[{ -Cell[33087, 724, 1663, 39, 144, "Input",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], -Cell[34753, 765, 22153, 481, 186, "Output",ExpressionUUID->"b3456563-de2e-4cab-8de9-9936c2f54801"] +Cell[35063, 764, 1662, 39, 144, "Input",ExpressionUUID->"8fa1ecb3-1ecc-4bba-8fa1-06377280f14b"], +Cell[36728, 805, 22174, 481, 186, "Output",ExpressionUUID->"22fc8cc4-070f-4958-a56e-3747a3946f91"] }, Open ]], Cell[CellGroupData[{ -Cell[56943, 1251, 3554, 72, 186, "Input",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], -Cell[60500, 1325, 3354, 50, 220, "Message",ExpressionUUID->"9b0aa616-8fe6-46d6-a9be-6d62ea62ac99"], -Cell[63857, 1377, 3356, 50, 220, "Message",ExpressionUUID->"3cf38fe5-056b-4e76-a342-8e2c2b0786c0"], -Cell[67216, 1429, 2830, 44, 162, "Message",ExpressionUUID->"9f39e826-00f7-402f-871b-4606e9158cd2"], -Cell[70049, 1475, 470, 10, 22, "Message",ExpressionUUID->"a67bf71d-de22-4a04-a00f-2a4e90ec18e4"], -Cell[70522, 1487, 21789, 476, 191, "Output",ExpressionUUID->"03a49490-2ef8-446d-ba98-3e5c10e80cea"] +Cell[58939, 1291, 3554, 72, 186, "Input",ExpressionUUID->"98d70064-2bee-4c5b-a8fe-984577f41f88"], +Cell[62496, 1365, 4296, 64, 178, "Message",ExpressionUUID->"0a6c061e-9d22-469f-9a77-bdafbf23ad0b"], +Cell[66795, 1431, 4298, 64, 178, "Message",ExpressionUUID->"373d98dd-b1a2-4d6f-95ae-eed0eb8466ed"], +Cell[71096, 1497, 4310, 66, 180, "Message",ExpressionUUID->"dd61bf6b-294b-4bed-aba1-2e9c5e3c51b1"], +Cell[75409, 1565, 494, 11, 22, "Message",ExpressionUUID->"e21c2683-2071-4eaf-8b43-f1a927c53e45"], +Cell[75906, 1578, 21815, 477, 191, "Output",ExpressionUUID->"ff6a7053-cfa6-438c-814c-b29d04a9cf5a"] }, Open ]], -Cell[92326, 1966, 2449, 65, 75, "Input",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], -Cell[94778, 2033, 483, 8, 22, "Input",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], +Cell[97736, 2058, 2498, 66, 43, "Input",ExpressionUUID->"ffc53174-430d-4e0b-b71f-902d34f687b7"], +Cell[100237, 2126, 483, 8, 22, "Input",ExpressionUUID->"249e2bea-239f-4870-bccb-94af3730f0b6"], Cell[CellGroupData[{ -Cell[95286, 2045, 2046, 45, 98, "Input",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], -Cell[97335, 2092, 38401, 718, 181, "Output",ExpressionUUID->"a1a5856a-a28d-405e-8e1b-5efdfee445c7"] +Cell[100745, 2138, 2207, 48, 70, "Input",ExpressionUUID->"a6d0fc76-cf0a-4234-9fe3-d57ae603ad2e"], +Cell[102955, 2188, 38371, 715, 223, "Output",ExpressionUUID->"fd2b4eb1-d3d0-47e3-9856-c74924a73143"] }, Open ]], -Cell[135751, 2813, 2524, 67, 75, "Input",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], -Cell[138278, 2882, 490, 8, 22, "Input",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], +Cell[141341, 2906, 2524, 67, 58, "Input",ExpressionUUID->"22e15b10-be95-4312-870c-ebe3402ea67c"], +Cell[143868, 2975, 490, 8, 22, "Input",ExpressionUUID->"6e3ba380-2dbc-463d-8279-e42bb1e3c387"], Cell[CellGroupData[{ -Cell[138793, 2894, 1962, 44, 83, "Input",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], -Cell[140758, 2940, 51416, 932, 181, "Output",ExpressionUUID->"2782289e-0500-4f20-8ce9-6bd7b1629e9c"] +Cell[144383, 2987, 1962, 44, 49, "Input",ExpressionUUID->"965d5a6e-a5d2-4e2f-8234-02ac11e44315"], +Cell[146348, 3033, 51438, 932, 181, "Output",ExpressionUUID->"e027c86a-5f73-49af-9682-15a84fa4ac67"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[192223, 3878, 237, 4, 50, "Section",ExpressionUUID->"af69f70f-b3b9-4794-8398-01134650a149"], -Cell[192463, 3884, 1824, 51, 103, "Input",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], -Cell[CellGroupData[{ -Cell[194312, 3939, 2213, 56, 126, "Input",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], -Cell[196528, 3997, 22021, 413, 288, "Output",ExpressionUUID->"0be94975-8aee-49b5-8880-e4fd79f9f11e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[218586, 4415, 2283, 58, 126, "Input",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], -Cell[220872, 4475, 13909, 278, 288, "Output",ExpressionUUID->"8c8e78f0-682f-4cb9-bf83-9197b2c8a8c5"] -}, Open ]], +Cell[197835, 3971, 237, 4, 50, "Section",ExpressionUUID->"af69f70f-b3b9-4794-8398-01134650a149"], +Cell[198075, 3977, 2232, 60, 135, "Input",ExpressionUUID->"fbadbe6e-e274-4fc8-b8ff-31d7d09129f7"], Cell[CellGroupData[{ -Cell[234818, 4758, 2409, 62, 142, "Input",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], -Cell[237230, 4822, 24237, 450, 300, "Output",ExpressionUUID->"2310df91-f2f6-4cb0-8fa7-e0535e8bac25"] +Cell[200332, 4041, 2213, 56, 110, "Input",ExpressionUUID->"3f75c1e0-258b-4769-8308-40547e5bc66d"], +Cell[202548, 4099, 22045, 413, 288, "Output",ExpressionUUID->"9917cd53-ba22-4159-9239-28c8a5b2c68a"] }, Open ]], Cell[CellGroupData[{ -Cell[261504, 5277, 5637, 139, 210, "Input",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], -Cell[267144, 5418, 35987, 657, 266, "Output",ExpressionUUID->"c5da7894-3e02-4b45-9ef2-8e0b3fea9304"] +Cell[224630, 4517, 2283, 58, 110, "Input",ExpressionUUID->"3f8b6e53-ff20-489f-b395-47d925d34ae6"], +Cell[226916, 4577, 13931, 278, 288, "Output",ExpressionUUID->"9950232b-1eb6-4bf2-a1cb-424ab941d88b"] }, Open ]], Cell[CellGroupData[{ -Cell[303168, 6080, 5171, 127, 209, "Input",ExpressionUUID->"7bc98e14-1631-4fc3-aed1-367c66e81e01"], -Cell[308342, 6209, 43632, 785, 259, "Output",ExpressionUUID->"9dbcc449-beef-4593-9962-5e349a2d55a3"] +Cell[240884, 4860, 2405, 61, 126, "Input",ExpressionUUID->"f1b88156-90fa-4eff-991c-fedc7873189b"], +Cell[243292, 4923, 24259, 450, 288, "Output",ExpressionUUID->"4fd8761c-1544-4b9d-b5b4-9faa986a6608"] }, Open ]], Cell[CellGroupData[{ -Cell[352011, 6999, 5021, 117, 173, "Input",ExpressionUUID->"b1086ee8-7679-4537-81e7-3871b266ebb6"], -Cell[357035, 7118, 4468, 67, 140, "Message",ExpressionUUID->"47c3b277-8c10-4a4a-afd4-bd90c43d9128"], -Cell[361506, 7187, 4166, 61, 116, "Message",ExpressionUUID->"88979e53-fa84-4309-bb1e-7f9206ce0235"], -Cell[365675, 7250, 55750, 981, 259, "Output",ExpressionUUID->"655a40ca-05ff-4292-b196-684739c53e3f"] +Cell[267588, 5378, 5365, 129, 158, "Input",ExpressionUUID->"7af4aaca-fcbd-4164-a23f-452af7281199"], +Cell[272956, 5509, 35446, 648, 254, "Output",ExpressionUUID->"f0d6a512-a16b-45e4-a62c-27480dbdbe2d"] }, Open ]], Cell[CellGroupData[{ -Cell[421462, 8236, 5177, 129, 209, "Input",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], -Cell[426642, 8367, 4497, 66, 136, "Message",ExpressionUUID->"62fc2290-ec12-4106-8db3-83accba90389"], -Cell[431142, 8435, 4104, 60, 115, "Message",ExpressionUUID->"776a18de-180c-4668-970e-1610ceae4ab5"], -Cell[435249, 8497, 52763, 934, 259, "Output",ExpressionUUID->"a8fc096e-6fad-42c0-aa7a-790bd2df6a0a"] +Cell[308439, 6162, 4865, 118, 158, "Input",ExpressionUUID->"efe0717e-1a4b-4a72-a5da-a2e9186bd1ec"], +Cell[313307, 6282, 5389, 80, 98, "Message",ExpressionUUID->"50c6b3be-692b-4bb3-b631-dd6ed0112f44"], +Cell[318699, 6364, 4526, 66, 92, "Message",ExpressionUUID->"1390bb82-7e0c-4a82-8be7-3aa0578e2c3d"], +Cell[323228, 6432, 52833, 934, 247, "Output",ExpressionUUID->"5632f44e-d2ee-4570-afa0-630f5721d24c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[488061, 9437, 212, 3, 50, "Section",ExpressionUUID->"7bcdac80-37e1-4f66-bc64-b0d2db5bf4c3"], +Cell[376110, 7372, 212, 3, 50, "Section",ExpressionUUID->"7bcdac80-37e1-4f66-bc64-b0d2db5bf4c3"], +Cell[376325, 7377, 638, 16, 39, "Input",ExpressionUUID->"18ba5487-e161-432a-b28e-40a5d59488df"], Cell[CellGroupData[{ -Cell[488298, 9444, 4085, 116, 213, "Input",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], -Cell[492386, 9562, 44836, 816, 202, "Output",ExpressionUUID->"bd8d7289-1f4d-4488-a85d-8754938f155f"] +Cell[376988, 7397, 2322, 64, 128, "Input",ExpressionUUID->"973946cb-df1c-4924-a2f2-30f2ee7fc843"], +Cell[379313, 7463, 44903, 816, 190, "Output",ExpressionUUID->"f282764d-6683-431e-bd66-aff690b1329a"] }, Open ]], Cell[CellGroupData[{ -Cell[537259, 10383, 5348, 133, 213, "Input",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], -Cell[542610, 10518, 34792, 647, 205, "Output",ExpressionUUID->"e3227dcc-9afd-4977-b15f-eede85b88fcd"] +Cell[424253, 8284, 3588, 81, 128, "Input",ExpressionUUID->"502b8651-e019-4a6c-8e02-02b77d829c3e"], +Cell[427844, 8367, 34814, 647, 193, "Output",ExpressionUUID->"632547c6-cf8a-4755-9e26-5f9a8c901698"] }, Open ]], Cell[CellGroupData[{ -Cell[577439, 11170, 5402, 134, 213, "Input",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], -Cell[582844, 11306, 37912, 699, 206, "Output",ExpressionUUID->"58bb8392-075e-4542-92cf-f8f93253afe9"] +Cell[462695, 9019, 3642, 82, 128, "Input",ExpressionUUID->"a33a6443-e55c-45ac-8ec6-84306b68cf53"], +Cell[466340, 9103, 37930, 698, 194, "Output",ExpressionUUID->"18837f4b-03ee-4fc9-b362-36801a1721f3"] }, Open ]], Cell[CellGroupData[{ -Cell[620793, 12010, 5508, 135, 213, "Input",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], -Cell[626304, 12147, 35524, 665, 206, "Output",ExpressionUUID->"354629b7-052f-4d2f-a20e-746898ed9556"] +Cell[504307, 9806, 3746, 83, 128, "Input",ExpressionUUID->"f223d556-482e-413f-bd97-027e350d7fc8"], +Cell[508056, 9891, 35544, 664, 194, "Output",ExpressionUUID->"42596919-1903-49e5-8e75-1a532b575569"] }, Open ]] }, Open ]] } |