summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--IsingScalingFunction.wl2
-rw-r--r--IsingScalingFunctionExamples.nb3397
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 ]]
}