From 1202f86b4d3aa072a642eaec7abf6a9ba62c5ae0 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Tue, 4 Feb 2020 14:17:01 -0500 Subject: cleaned up and standardized analysis code --- tempering_analysis.nb | 3848 +++++++++++++------------------------------------ 1 file changed, 981 insertions(+), 2867 deletions(-) diff --git a/tempering_analysis.nb b/tempering_analysis.nb index 40f2880..214f601 100644 --- a/tempering_analysis.nb +++ b/tempering_analysis.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 258668, 5094] -NotebookOptionsPosition[ 253152, 4999] -NotebookOutlinePosition[ 253485, 5014] -CellTagsIndexPosition[ 253442, 5011] +NotebookDataLength[ 166178, 3208] +NotebookOptionsPosition[ 162114, 3141] +NotebookOutlinePosition[ 162449, 3156] +CellTagsIndexPosition[ 162406, 3153] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -96,7 +96,7 @@ Cell[BoxData[ 3.789742875252179*^9, 3.7897428826827908`*^9}, {3.789745855694088*^9, 3.7897458585723753`*^9}, 3.789745905309957*^9, {3.789816778074827*^9, 3.789816780007482*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], + CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], Cell[BoxData[ RowBox[{ @@ -235,20 +235,19 @@ Cell[BoxData[ RowBox[{ RowBox[{"logZ", "[", "n_", "]"}], "[", "\[Beta]_", "]"}], ":=", RowBox[{ - RowBox[{"lognum", "[", "n", "]"}], "+", - RowBox[{"\[Beta]", " ", - SuperscriptBox["n", "2"]}], "+", + RowBox[{"logN", "[", "n", "]"}], "+", RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], RowBox[{"Log", "[", FractionBox[ - RowBox[{"2", "\[Pi]"}], - RowBox[{"\[Beta]", " ", "n"}]], "]"}]}]}]}]], "Input", + RowBox[{"2", "\[Pi]", " ", "\[ExponentialE]"}], + RowBox[{"n", " ", "\[Beta]"}]], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, { 3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, - 3.7860407113402042`*^9}}, + 3.7860407113402042`*^9}, {3.789830910073181*^9, 3.789830910887369*^9}, { + 3.789831116169219*^9, 3.789831161489019*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"], Cell[BoxData[ @@ -308,2707 +307,836 @@ Cell[BoxData[ 3.786034500347063*^9, 3.786034500511032*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], -Cell[BoxData[ - RowBox[{"ClearAll", "[", "Ss", "]"}]], "Input", - CellChangeTimes->{{3.7898179003480053`*^9, 3.789817902160972*^9}}, - CellLabel->"In[71]:=",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", - RowBox[{ - RowBox[{"Interpolation", "[", - RowBox[{"Normal", "@", - RowBox[{"Prepend", "[", - RowBox[{ - RowBox[{"Thread", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"Normal", "@", - RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}], ",", - RowBox[{ - RowBox[{ - RowBox[{"Normal", "@", - RowBox[{"dat", "[", "\"\\"", "]"}]}], "/", - RowBox[{"Normal", "@", - RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]}], "/", - SuperscriptBox[ - RowBox[{"dat", "[", "\"\\"", "]"}], "2"]}]}], "}"}], "]"}], - ",", - RowBox[{"{", - RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}], "[", "x", - "]"}]}]], "Input", - CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, - 3.789819474816937*^9}, - CellLabel-> - "In[104]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Ss", "[", "dat_", "]"}], ":=", - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ss", "=", - RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", - RowBox[{"Thread", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"ss", "[", - RowBox[{"[", - RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", - RowBox[{"Accumulate", "[", - RowBox[{"ss", "[", - RowBox[{"[", - RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], - "]"}]}]], "Input", - CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}, { - 3.7849910515540743`*^9, 3.784991075832299*^9}, {3.784991369146078*^9, - 3.7849913764007483`*^9}, {3.784991547938244*^9, 3.784991556568716*^9}, { - 3.7849917900181932`*^9, 3.784991803720964*^9}, {3.784991863633103*^9, - 3.784991884800845*^9}, {3.784992068826951*^9, 3.7849920762732773`*^9}, { - 3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, - 3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, { - 3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, - 3.785000975480179*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"Ss", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", - RowBox[{"Integrate", "[", - RowBox[{ - RowBox[{ - RowBox[{"Cf", "[", "dat", "]"}], "[", "x", "]"}], ",", "x"}], - "]"}]}]], "Input", - CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, { - 3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, { - 3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, - 3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"ss8", "=", - RowBox[{"FullSimplify", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"logZ", "[", "8", "]"}], "[", "\[Beta]", "]"}], "-", - RowBox[{"logZ0", "[", "8", "]"}]}], ")"}], "/", - SuperscriptBox["8", "2"]}], "-", "\[Beta]"}], ",", - RowBox[{"Assumptions", "\[Rule]", - RowBox[{"{", - RowBox[{"\[Beta]", ">", "0"}], "}"}]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.786037096706629*^9, 3.786037117949012*^9}, { - 3.786037156235767*^9, 3.786037158427763*^9}, {3.786039171339127*^9, - 3.786039257691778*^9}, {3.786039522415203*^9, 3.7860395339911833`*^9}, - 3.786039617250888*^9, {3.786039887363777*^9, 3.78603992005735*^9}, { - 3.7860400739360933`*^9, 3.7860400756260147`*^9}, {3.7860401895870457`*^9, - 3.786040191039853*^9}, {3.786040498728237*^9, 3.786040506800436*^9}, { - 3.78604071946595*^9, 3.786040725122241*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"], - -Cell[BoxData[ - RowBox[{ - FractionBox["1", "64"], " ", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"-", "53"}], " ", - RowBox[{"Log", "[", "2", "]"}]}], "+", - RowBox[{"Log", "[", "135", "]"}], "-", - RowBox[{"2", " ", - RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", - RowBox[{"14", " ", - RowBox[{"Log", "[", "\[Beta]", "]"}]}], "+", - RowBox[{"lognum", "[", "8", "]"}]}], ")"}]}]], "Output", - CellChangeTimes->{ - 3.786039535285647*^9, 3.786039618611538*^9, {3.786039898955435*^9, - 3.7860399210303164`*^9}, 3.786040080270445*^9, 3.7860402110068407`*^9, - 3.7860405093410797`*^9, 3.7860406173934937`*^9, {3.7860407048467827`*^9, - 3.7860407266448603`*^9}, 3.786380877554284*^9, 3.789747057335539*^9, - 3.789816741881899*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"d", "=", - RowBox[{ - "getData", "[", "\"\<~/doc/research/hadamard/code/monte_carlo\>\"", - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, { - 3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, - 3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, { - 3.789743002867009*^9, 3.789743004777854*^9}}, - CellLabel->"In[16]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"c8", "[", "x_", "]"}], "=", - RowBox[{ - RowBox[{"Cf", "[", - RowBox[{"d", "[", - RowBox[{"SelectFirst", "[", - RowBox[{ - RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "x", - "]"}]}]], "Input", - CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, { - 3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, - 3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, { - 3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, - 3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, { - 3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, - 3.7898194634932632`*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - RowBox[{ - TagBox["InterpolatingFunction", - "SummaryHead"], "[", - DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, - TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquarePlusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0 -Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC -eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p -PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k -sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs -dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg -GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav -gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/ -Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ -T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6 -crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso -QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG -ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w -MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup -jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo -VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA -Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT -dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m -GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE -P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL -F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM -AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA== - - "]]}, - Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.10352669071911737`}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}], True -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquareMinusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AMHnRIwVTPkXRMWw0 -Fdo/Z6Z2GHK9jj8FZS60Bi7rP6M6eCVgNJs/aslGZ8ww9D/r/IISyZ+hP8qC -eNpvqfo/ofdilACKpD8VebNxPtcAQP7j6SXWBqc/IB09Xc4dBEAQEHazpk+p -PykcpROTqgdA2LPaEmO0rD9wLA79xCYLQELCNjG3JbE/EKmJTQBnDkD0Gk9k -sAK1P1jAcTS49hBAjI7QNthEuT9V4qf19JsSQNnW5qa5gLo/8YxeUOg4FEBs -dSgMCP23PwxlhBD2+BVA5un7whVMsz9VczOECJsXQMvakd7lj64/Hq9RXTVg -GUAGZaFfv1aoP4Vz8M8YHRtAMrWj0qhkpD8Zbhj2ALwcQLl216m386E/LZav -gQN+HkC3wDJKOyCgPzj6Z2AFESBA/uiYEuy2nT8ZwK8ylvQgQAk3e8qalZs/ -Scq3UQLUIUBnd2E4XOeZP49vhMpwpCJAsyOKF1SQmD+Vqwh2bIYjQMvnhfgZ -T5c/soJRe2pZJEBB37jud0eWPx6eWs1DKCVAK83a16NelT9KUBtSqggmQI/6 -crFAe5Q/jZ2gMBPaJkD+dlSa8LaTP4+B3UEJvSdAl095z9X2kj/hqdqf2pso -QEBbcPNsRpI/SW2cV65rKUBv/NK0ua2RP3HHFUIPTSpAw50y0DIVkT+wvFOG -ch8rQJ+8K9kckJA/PvZRF7HtK0D+j+d3URWQP4zGB9t8zSxAmxOXoK4ujz/w -MYL4Sp4tQHJHIimBUY4/FDS0SKaALkBBty3Gwm+NP0/RqvIDVC9Af+rIuwup -jD9t2bB0nhEwQCXOnfeV8Is/khVoiQGCMEAYQBP90zKLP0KfAcvl6jBAbgjo -VrWIij9S9PalkFwxQPC7J92I2Yk/imtMJynMMUCviET27TeJP00whNVCNDJA -Je1gALmniD9wwBcdI6UyQBFk6gLzEIg/H56NkYQOM0Bkc3Su3YyHP/WdY6zT -dTNAcbgX46wPhz8raZVg6eUzQLsLJuhxjIY/7IGpQYBONECBXABLgBiGPw1m -GbzdvzRAalmJpgeihT9WbOncKC81QHzC0/EaLoU/KsCbKvWWNUAj8VEiaMeE -P17fqRGIBzZAslBeBgBehD8dTJolnHA2QAcb67Zy/oM/PITm0nbiNkCVKgNL -F5mDP4PekiY/UjdAjnY2U4E6gz9VhiGniLo3QJCWQKBd54I/h/kLwZgrOEDM -AqjiWI+CP0W62AcqlThARhQRgd0+gj8+GeT4//84QCsKXW5v8IE/LI+uqA== - - "]]}, - Annotation[#, "Charting`Private`Tag$34628#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.10352669071911737`}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Order: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["3", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Method: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"Hermite\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Periodic: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["False", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}]}, - Dynamic[Typeset`open$$], ImageSize -> Automatic]}, - "SummaryPanel"], - DynamicModuleValues:>{}], "]"}], - InterpolatingFunction[{{0., 25.}}, { - 5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" -1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1 -VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y -2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd -ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik -fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE -HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa -skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys -qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3 -752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz -U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4 -LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6 -1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB -r+DA - "], { - Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, - 65}, CompressedData[" -1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAIeCmNKa6QU/vy+r2LGpQD9V -qkWdX7pgP0BHiNaEl5c/BR+hpwYUnT8MxvNqa7igPx1c4sdTbaI/e2KfSA/z -oz9Otq3KRFSlPxlmHafWnqY/3o6u4i3npz/Lvz/TI0ipP4FSn2kj+ao/PBaJ -TgvrrD8F6BHAYeuvPzwLB6lwULI/y+IYW9IRtT/GSaGa3l+3P9jtAQKJP7k/ -Mb5mcedQuj/hBNi1x3S6Pz8iDigHNLk/HaZeDo1ftz9lXUwfD9u0PzLdEAWV -P7E/LLjU+9kgrT9TyyHD78upPzzHWaGBl6M/5uOB4QjNoT9kOFXjPMCfPzCS -DQm3i50/zlc+jEZ2mj/W90hUqjqZP/Vwisu8ypc/EBTiCz+qlj8c+kPEaIWV -P4WYVRwqPZQ/DqCWIbmFkz8ilWMj6bqSP17NX/M6EpI/t36/tsxWkT+RKwkR -79OQP4rxJCXZPJA/5HOL3kB4jz9J2wCF3WSOP1ArvDMpIY0/+OFQWuAUjD+H -VPkoqBuLP4DWHQc1Poo/v/zPEy+MiT/i86Kx2OiIP0y+pj5BH4g/+9wetkx8 -hz9JrtgjONyGP3GipxKvPIY/YBgRxZuuhT8G4+H3Vg+FP4eaK35oooQ/Xh9C -AYAohD8ywF+2H6SDP6AbMao5NoM/22St0Q3Fgj/Nzsb0gluCPzhnRGlv8IE/ -FdrwBA== - "]}, {Automatic}], - Editable->False, - SelectWithContents->True, - Selectable->False], "[", "x", "]"}]], "Output", - CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, { - 3.789819463906452*^9, 3.789819478604794*^9}}, - CellLabel-> - "Out[106]=",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"c12", "[", "x_", "]"}], "=", - RowBox[{ - RowBox[{"Cf", "[", - RowBox[{"d", "[", - RowBox[{"SelectFirst", "[", - RowBox[{ - RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x", - "]"}]}]], "Input", - CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, { - 3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, - 3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, { - 3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, - 3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, { - 3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, - 3.789819496014751*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"], - -Cell[BoxData[ - RowBox[{ - InterpretationBox[ - RowBox[{ - TagBox["InterpolatingFunction", - "SummaryHead"], "[", - DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, - TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquarePlusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - - LineBox[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, { - 0.4075442368114362, 0.015105759570018952`}, { - 0.8493684310116413, 0.027192875510333083`}, { - 1.2619136842955307`, 0.035523113371547975`}, { - 1.6663664373410705`, 0.041602316780044835`}, { - 2.105099571504193, 0.046446590096994256`}, { - 2.5145537647509997`, 0.04963379789099925}, { - 2.9582883391153882`, 0.05197202083611144}, { - 3.393930413241428, 0.05342572279814811}, { - 3.800293546451151, 0.05459481375745209}, { - 4.240937060778457, 0.057861790601668156`}, { - 4.652301634189446, 0.07188627196101569}, { - 4.862585798899008, 0.096508842977757}}], - LineBox[CompressedData[" -1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01 -YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W -r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc -P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji -aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU -AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb -KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT -hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/ -8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB -AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo -wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy -QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs -03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N -Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB -hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6 -GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA -rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY= - - "]]}, - Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.096508842977757}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}], True -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquareMinusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - - LineBox[{{4.23728813559322*^-7, 1.6723187929613287`*^-8}, { - 0.4075442368114362, 0.015105759570018952`}, { - 0.8493684310116413, 0.027192875510333083`}, { - 1.2619136842955307`, 0.035523113371547975`}, { - 1.6663664373410705`, 0.041602316780044835`}, { - 2.105099571504193, 0.046446590096994256`}, { - 2.5145537647509997`, 0.04963379789099925}, { - 2.9582883391153882`, 0.05197202083611144}, { - 3.393930413241428, 0.05342572279814811}, { - 3.800293546451151, 0.05459481375745209}, { - 4.240937060778457, 0.057861790601668156`}, { - 4.652301634189446, 0.07188627196101569}, { - 4.862585798899008, 0.096508842977757}}], - LineBox[CompressedData[" -1:eJwB8QIO/SFib1JlAgAAAC4AAAACAAAAKbdylveWGECCQF20zbS4Px6vUV01 -YBlA9M60AKpcsT+Fc/DPGB0bQBKw+xnW36Y/GW4Y9gC8HECJM0kG3uaiPy2W -r4EDfh5AvNvoZYnGoD84+mdgBREgQMIny20Z+J4/GcCvMpb0IEAR8sIww8yc -P0nKt1EC1CFAcqShL9oSmz+Pb4TKcKQiQMfaA7l6tJk/lasIdmyGI0C8oOji -aWaYP7KCUXtqWSRAqemSmY5Rlz8enlrNQyglQLmQsEVSXpY/SlAbUqoIJkAU -AjkQSnCVP42doDAT2iZAwXnXoK2jlD+Pgd1BCb0nQPUZp/vw15M/4anan9qb -KEBYrZN6BSGTP0ltnFeuaylAR4tRPCeDkj9xxxVCD00qQDSZqIK445E/sLxT -hnIfK0APs0mj9FeRPz72URex7StAG+3NoaTWkD+MxgfbfM0sQBP76HiOUpA/ -8DGC+EqeLUBm6XqLPL2PPxQ0tEimgC5ACuu+O0bRjj9P0aryA1QvQKsAqkLB -AY4/bdmwdJ4RMEDqEkO2SkCNP5IVaIkBgjBAJ++ch9t4jD9CnwHL5eowQJSo -wZnMx4s/UvT2pZBcMUDxVtuiHxGLP4prTCcpzDFAYUWTJstmij9NMITVQjQy -QJ91bsmuz4k/cMAXHSOlMkA5svpNfjOJPx+ejZGEDjNAiZTOxy+oiD/1nWOs -03UzQElKGN9FJYg/K2mVYOnlM0A5Cahx+ZyHP+yBqUGATjRAYeiHUnkihz8N -Zhm83b80QLm35Nkgo4Y/Vmzp3CgvNUDRrXjDwyuGPyrAmyr1ljVAhMi1FXbB -hT9e36kRiAc2QGnpDN3LUoU/HUyaJZxwNkCQ7iyDOu+EPzyE5tJ24jZArjm6 -GNaGhD+D3pImP1I3QKItcr8tJIQ/VYYhp4i6N0DjJko/esuDP4f5C8GYKzhA -rTUG+9xugz9FutgHKpU4QNY0lXOjG4M/Phnk+P//OECrSUlHhsqCP9QPUOY= - - "]]}, - Annotation[#, "Charting`Private`Tag$34953#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.096508842977757}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Order: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["3", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Method: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"Hermite\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Periodic: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["False", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}]}, - Dynamic[Typeset`open$$], ImageSize -> Automatic]}, - "SummaryPanel"], - DynamicModuleValues:>{}], "]"}], - InterpolatingFunction[{{0., 25.}}, { - 5, 7, 0, {65}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" -1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw -qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v -KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB -QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6 -5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO -QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx -FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2 -w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA -qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ -ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH -FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox -QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA -AAA5QGun4C4= - "], { - Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, - 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, - 65}, CompressedData[" -1:eJwBFQLq/SFib1JlAQAAAEEAAAAAAAAAAAAAAJXCyDo4sgQ/0jPEHdmMUT8n -/fx5ZWh1P8vplA66+YY/9Abxz7tXlT9SwkTXBhmcPxDZ+YWgcp8/kVu7u6Z2 -oT/Bx7eBzS+jP+V9bHFWiqQ/HpQIeer9pT85qlNlwEenPy4DhXB8Tqg/7MjH -EdAZqT/fGnWhWdapP2nq5RWmbKo/2ILNHDfdqj9UHGfMhEerP+9TzkbMnKs/ -ZMV0h6r3qz/TOHzR2cSsP3hB8QSrEK8/SBe7P85xsT+Mkavgv3G0P+X/pg9G -I7k//g/m86G5vT8zqX5nZjHBP3aAZN6aXsM/LL0o4pDyxD+kkksBiwTGP/YA -FDP6+MY/WxFc/1ZWxz+l0BQprDLHP+hT6EKcjMY/ONvprUVRxT/O40nrDrfD -PxkBm62NycE/ai/wnhUbvz/h4xWlO3G5PzkHUy4vfLM/NXzprw5lrj91Ql0B -8JOnP6XR3KJrUKM/96k2do0roT+RLstaMBifPwf5av2Qhpw/2YAaTSkQmj+6 -vnmZrXyYPw/yk4xU55Y/69EpRfVSlT/o3r4nw+iTP6LP9tFx0ZI/5Nu1ZT6x -kT8dV/dS8a6QP2gjsfzxio8/avVzWJXNjT9ragTbuxiMP2IauTvjaIo/pEog -4dIQiT/dUVsiTbiHP0vDgliHVoY/K9GiB9INhT8HjogBR+yDP3W5/UGGyoI/ -ElcBxw== - "]}, {Automatic}], - Editable->False, - SelectWithContents->True, - Selectable->False], "[", "x", "]"}]], "Output", - CellChangeTimes->{{3.789816770006812*^9, 3.789816807584139*^9}, { - 3.789819463906452*^9, 3.789819506051046*^9}}, - CellLabel-> - "Out[110]=",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"c8", "[", "x", "]"}], ",", - RowBox[{"c12", "[", "x", "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", - CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, { - 3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, - 3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, { - 3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, - 3.7897469324195147`*^9}, {3.7898168197536173`*^9, 3.7898169067292557`*^9}, { - 3.7898195108437023`*^9, 3.7898195343107243`*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], - -Cell[BoxData[ - GraphicsBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJwVVnk0FI4T3+QKlV33fSZUctaGmpGUiA6SKETu+0woLHITSoh1H0uOnGtF -SCoJSfUNFZKjw5V0ys/vr3nz5jMzn8+bmfdGytbzlD0TgUDQ30Ag/N9KJ68W -UsXzDxDYw8JfT5kdaGJXkHB3CgVunlsvpX+qQ0dgVZG8UzJ0rQYVp389BN3K -3o6sTrnA2eGnaf7aFB4nDOp/d6yGsfDvJyJKL8ITzYjmL473oYjz4O4LR/2g -J2XEe8axHxo3xy2Px0RATEb6kzSVARiVe2CSLBgJO53AQq16AHw3sKv7lkaC -D1tKsE/5c2A3Tjg72hkF//TU2xbyXkBUnK39toVoEHwQpPs18TVMtVlPi8gm -gEErm/GU43sI1GmaWlpJAZU12+/8C++BqlNEytqTCgmS1n0y2mPgKrBvuN0/ -FfxsGf6mXWNAn/42Eb+UCoemvLoahsbBP2ncactUGkx8fXsh8PsHUEsn0y/X -3wTJ1abs1T0z4IfVzZasmcBLtV/gC56BKzJ/kpf2ZQI78BxSuj8Dckm2oVru -mTAf5vHZ6sgssCQebZgczIQ25m2a7Wc+Qbva+/7bWVlwniv1NSXwCzhqXTB5 -LZINzzbv2cR8fgFMP4btMp+mwqAhKaMvZAFUqwZcprfkwn+xc3KZ2QswXp/D -rLknFyZZSg8pjS7A6t472xUjc+HvqkCYueUitIh1clO35IHi3K+VO2eX4HF9 -/dEdBXkQ09c6edpsGYJTBevZ6vIhiSvLVzJgGbqDU17te5APNwwCmD7fXAZa -wlZB0xf5kNutJBn2chmKRED64Ld8aGzLtSw3/Q6JFY5BXKoF8LEqfPDfqRX4 -52A+N1FRAAeT9dpLj/+E4gCOrhMphRBmUE8b9PgJe6OEpx9SC6GNRSZtNfEn -mJZ7SyneKQTNEIKDSe9PaNLncG7vLgQ15xbONf1f8DpYkL79TyHI6qqcMTv4 -GwZbH0+s2hQB6w/ROWaNvzAQICrwRqoY7Hf/3qyymYBpQzq016ElcGwkulhQ -nIC6S3P86vEloB7Nt5+wm4Cy91NFE9JLgPm9slv/CQIG/mYWVKksgYIkxx73 -GwQkRrETzgyXwPuvQ9fKRTZggFK2p416KZy9U70mo8iE9skmrXOzpYDm+29x -ajHhL7cb7+2+l4I881Olb4ZM2MNqfHyMUAY/LafOd7ozYbK667cFgTJI5xS7 -Z3OXCUvfcZpePVwGL1ziAnPIG1Ey503R3eIyMFKwX+Q/wozJfM9Lsjxp8Dve -v+WtGTPuUtzXuhRMg7K5qKgiB2b0PK1hZRVDA+b6EiHVa8xo0HGOySefBowD -MzpGD5nRqCxe9tYQDeRMXVMjdFlwR0T0WS0oh6HG4HMGJixYnlA8QTAqh3Ch -BDmiHQsGL0kTxi3KYfTdHQaVwoJRRVWMpYBySHOem2juYMHt53aFOtWUAyHU -W20BWDHg3s3Bp/IVUDUevtp4nBVtbl0LtyZXgOWh1EdXrFnRr7DNhk+/Aho3 -1VlyhrKiVYv+h1nHCnC7sRwh18aKzGOF1nq0CnhDuzR0TpsNe8vd3XTU7kDt -0BX/J2R2TL+Sv/LCqRLKoi7aThxlx9xep705oZVA3WN4/I8FO9oMU2UL0ish -LkNQYdcVduyom/ls87AS7M7VjV7vYEfVT18p97dVAe/kjK65wSYUf5Qa5LpU -BRw3+5W9LTdhg4ZJsfzmaiAcbhSLc9uEP50fCyvIV8OX0ogfLUmbcF+x7bPv -VtXw0FW8QuLFJnyzdKLkaX81BHwzIU1bcqBHfOn5gxdqwK1Ic23NjQMFhaWu -8XnXgO1pqS+CVzkwbJqnlDO8Boyb5h4a5HHgc/tbOjb5NbA9OPZy1SQHxm/0 -/1DyoQb+Y7o/5u/OiXTLiF1xHndBi6RYzRzKhUFFFmuu1Fro22Dx5FkyFx6b -whWH2lqwWYz9kJ7HhfpHj7OGdNdC5MCsgEInF+7QN81enFvHJ9HCjFg2Y8za -5icrWAc2nAqn0uM3Y/XGJveemTqIZJb/vj1jCy4GDUjY6jYA//KZrYtlW/Di -1NlzaWcboOxDtAKjeQu+Nt79tsuzAZ51Tp8/NrIFT3R5Rspkr+PDS7u9xLdi -LkHGrGK5AWirchnNRVvRuEnZvauwERz/pOYUm3NjkRZp19mlJrhh/OXBZRtu -1N4t2jnBTIf2fL1PRk7c2Dv3J0NPgA6C+j/3rFziRprrpuAULTo8vnF+4PAt -btySsiwgQqHD8nTjinAuN8oJ6T04kkYHSS1usfkSbhzOY046WESHwPFO51uN -3Dipn7OQ/ZAOCkryG2deciMoP1tsZWkGs/BwhXtvufHz7K48db5moAwNH7/+ -kRsHX6Ubesg2w3BQYjb5Ozc6sWr0CB1shrhHSxqxvETk3WskGXK5GRqFj507 -L0pE4j/HrjvXmmHCvZiiIkvEO/cL4jPSmkGT17z/jRoRza39ZKl3muGzTauT -ogkRi/Tdp46ONINgPX/yPwsi3hN159CeaoZDbF4Ng7ZEzDsUlTax0AzZldJM -wT5EdLz32/8oCwMeE0LkjwcRMV36lQT7VgYsm7w0lqEQUX5Td/8lQQYc+x19 -+2kKEUmR7yccFBkQaDTekZtJxHql6PRJVQYU5WnO+OYT8eQ1WNyqxYCBb2lb -9GlE5E4/IjJzkAF/D39VF71LRD7nd9puBgyQzzpsuUBf15e69DTlJANMv+aG -d7UT8W1pyY1N5gyoTDvV5zZARLEztWVLdgwYnqpYxv+IyIiwaLRzZgCrJosI -3xgR3fOKlkI8GKCaaKUzO03E3hX6gQO+DLAaa3JsnSei68D94NJLDIhTIyal -/FivHzAeRw9mQOM1l3r7NSI2qR028g5lwMSbB8P72EiYeIK/6DmFAVt2iW3Y -spWES/xBXm+iGKAZFrB9gp+EQQOZaTExDHB40W/UKE5CRnfO3Ls4BqTKKfjF -yZFQT7fKdjSBAW2XKVlWSiSsSf42EJbEgE+9I+2qe0iY9P2mcG8yA/glNaZZ -D5DQt61Vsu06Aw76Jm0e0SPhN7W0LrMUBnh2T6tVG5GwIPfA9M11vx3vuO40 -IyH1sB+P/7rP3eJVSLMi4bLD34ZP6/k2Ghojco4kPNwZUbqyXr+m+hepyJOE -msJN7Rnr/QmKbQZSgST0UdYdHljnd7KIQqGGkTC1e6iXus6/QPwIQySWhAeo -gt5M6/qWMjiXMlJIKHy5JfdP5Do/ngEF/iwSPhV0UYkLZ0Ba4o0LaQXrfA88 -/1d5hQGTbGczuStIuKcyZ8zhMgPUKWLPE+tIyJJ3gb/WjwGRf8fZOe+RkFb5 -Imd2fV4vA0owpouEs31Be5ucGBDguruG8pKELa2xfYKWDOj++G167S0JOQ5R -JqpMGCBgQ5e4MkVCj+PPNd4bMoBuqpN86cf/9d94RFrfN/Z+lkfLayQc2pEp -Kri+j+ZHe/55s/Og7jTfuxZ5Bvzab+LhJsSDhnUZLyZ4GWBAFyiZleLBvJDd -4k4cDMhSHX3roMiDa5XWTNfX1u9ru73RBS0eNGNUdj2daYYQ7ks7zc7zYFXa -JzfupmbojdO6+MKeB4ub9rQ/ojWDGAsh+4QHD96Ss2ZTzG6Gtl8xnIahPPjV -zIH6LbQZCB+yPkE+D94RIe+g6zZDRENbmcJHHox2kQq+2EKHod0RYyVfedBG -CTnEaXSQLT8iKLvCg0Pzql4Z6XToog5Ei7PxomQ/SeiVFx1YYyYceBR48RBd -2SBfmg5xFqzbVt14cc9qXNRwSBMcUOZamfXjxRzu9+59Tk2wyEJ69CqEF98U -PvzbYtoE5nfFnGsSeLFXUnXSYWcTbGPXqLS7w4uBNDvSheFGaG+w0+j5zIuG -BiTtepVGWOHu0LvlwocN5hy5JkP1UD7VzR/pw4cfKiTpvm31cP5e77RXEB/u -U66qSSmrhy7H/2IN4vjwVSV2PQmph5S2+WerND4MKm0nam+rh51u4mYXZ/nw -wCyfYmNAHdg9CnZQceLHAiMbT0fJWrioLWe84smPx7/F509y1oLD3QGNlkv8 -KLK8S8z3x11wur2NRS+aH3Oh4Hh3313w8OwvNC/hxw+xM2Szq3chSEBmPHSS -H9NlXNpiJmsg1bHHss9GAGUndCZFEqrhxqifbpqTAOYxEg4NO1fDzZMSO8y9 -BHB0Mo/38ZFqyNDy+z0eKoDb/Qx8VJmrgbpVPPM7VQBv25fK6YVWQXmT9yvR -twI42V8dH3S1EjrYhE66nhVEz3x19qn8CpgqVDJ4c0EQ9bjrlBwiKoALD+ke -cRFExUbH/dL2FWAe6KkhEyyIZkdk84wVKmB+5qHQSLYgUsfaTELqy0Gsx2fC -YEwQi36Jahq8osFBh5gR+owgfpn4ciy+hQZOTNQhuUVB/GSpZPU3jwb1mk+6 -mZiEMPo+i2ykGw0MKyQqGDJC+Mzw7llJVhpcTuj1VXQUwntuJqe0dcuAKj/h -luEphF0XOnW7d5RBV9cPe9ZAIVw8ULefwlsG3KvS5hMxQvhCN2Q8aaoUSt0v -a2eVC+HRADOWxYRSeGksx8IxJ4S7fCIKYydKQIUYlj7rJ4yvHEMvplUVA4P9 -tfyjEGGM321MGcsphoMEpZaiyPV4hanV8cRiMJ0feW99Qxgv+BzckeJWDAHP -9iq8qhNGnk0a3Dk7i+Fe7HxL55Iwan3ifXCztgj0mazHb3uJoNh03V32oUJ4 -/qvB93KgCArkuhisrf/rFotcrGfCRDAlUc53C6MQXMcYiqTrIqjTNm3sn1cI -SW38fjHVIvjv0+J8oXshDAX1sfrPiaApy6ONalyFYPNt/05jN1EcsVbn5LUo -gM0kwsCQnyg+HVbY/MC4ABjKnb6WV0QRr7oLx+oWAK/H4RanJFGMDblgfXZX -ATyeMTaIqBHFQ2wJfRuZCkD5nbUTfVkUzetSvv+uygfCk/Ai6Sti6Kpw8sAy -Xz5UTuvq06LEUM3TvmOFKx8sWFm/7E4Sw961vTGbmPOhXjdObX+uGNpffKBq -vZQHTm2pnWc6xLB/Xnpvd38eDNQVjiWwiKN/PWX4XGIe5FMfiv5IFMdk0dpL -waQ8yD638/XpdHGUcN/JYsqZBxnCaSn1VHF0c95J2MucB0npNqw+1eJIZ8lU -2/slF4KS/sx/GRDHjK97tF3qc+HUVZUHEzwSuM+Oax/5cC4wW+U492VK4NO+ -tKHqS1RYE2GW3VUggQlWuWznXKnw+43Lu/hyCbTNVWYRsqbCwmmyydEWCXzI -5jHddZgKo0YvtLtGJbBAS2h1jJ8Kw1Rm9rdbJbHT+wwPNyMH6pI0RwZPSeLG -hp6Gao4csL29hYVhJokra8J+7wg5QCqbUMq3WMdzmkUJ/sgGr444iqetJOoV -fzxV9SEbdi4PK3D5SKL07ZEgq9ZsKDobHKiXIokubmUb2n2y4YbsPT56vySG -BCyzEj7eBj/G/hM5x6RQsq73ufqHLGiweMT05oQUqmjrBPwZzoKV3ycaeE9L -of8jt4Yng1lwWeuicMJ5KbzV+DIvpDMLrt6LmwzykMLzDU4B+wqyILrtdaD5 -dSnU4QvspNlmQVandz7PkBTedrgXtX86E+73FC/FWkrj6dKDEV1MmVArOOB9 -xVoaj3kbGrr8zYAih98LXnbS6M1fksq7kgFxTMfnz7hKY7ufQWLAbAaYav78 -vC1YGsV5pOs9BzLgE83gY0eWNDbY5b9Szc0A3tj517/eSGNSS+SHUcgA5yP7 -Wp3NZZCTT4f5ccItyC5TaXB1kUVGzcC2i2rpkPKtNdzr0jZkkiox/o/zJkyV -+wc4+chhW80SXOK/AV2HUzMolO14cVzhuodcGmw4PjyRHCaPfUYLCjcsU4Gg -07gh77ICEq5ra/woTIEYgR9Gg9GKuHWnyaLo/HXwsrDr/BGxA0uuYGWgyXUY -D1e/CDd34ig315urbsnAm5Y5HJu/C1X9C98pGidBCbfi5Ue3lfDzZCAx73Qi -dPhI6G2v2I0/vcSZ9SwSgCqZJ7rfVBltPfxTf12Nh9aQ3wSnAWV038+8/V9t -HEgZsv2VOaOCNPrasbLxWKjvV4h/M6SCnPJVH9t2xEJC9z9lyfOqaN5De7fT -KwbSfGddbEZVcfCmTt1STzSE8IlvlT6rhlTz7GQO1WigKbD0+I2poUfHuyv1 -qdeAdXmDUIeVOlZxEbsPs12DUuW7V6nT6hiW3hO0PzAKFGzLjVfdNdDCUKpc -eT4SRo42157+rIG9tVaBXy9FwmBh0C7w3YMRQxVSW/9GwM+6k9rSS3tw2RBe -xsZHwBrdp+Gax17cYOWnlSwTAYbKh/VCvu/FD+ay27ybKfDo/G5nV18yxt8q -Dz5hTgGSnVNLjj8Z78ryq5aYUcDKKX/zwCUysprFqP81pcCKD0+teggZ/ywz -JGgnKSAb8+P3aiQZ9U8tUlkNKRBWez/hejoZR/7YtQ7sp4Am24mahmYy9qa7 -2RTLUOAaVyzTTAsZ7x39XMEiTYHnxE5T4TYyPhHXPe0gSQEnUfVfVzvJ+OMq -/YG8GAVuqQge1H9Kxmd6pyRq+SmwbDn2YniUjJ+tNhq/3kQBvCAkt/k9Gd/F -zzbvZ6dAvMOpQBgn46RQakIRKwWkvbtEiz6ScbrsopPvRgqcvFZm7z5Hxp/t -pZv4V8MhO368KXeBjPWy+1pC/4TDzHVhjsElMq7GbPhv9lc4hN1OqNrzg4y/ -CrxP318Jh968hwTnX2SMC9vTpPg9HARK/p26/YeMTlVu19K/hYNtxd7iZ6tk -pLQXPGBaCoeqGq8fa2tkfGjg6Om5EA7/A+FyYBE= - "]]}, - Annotation[#, "Charting`Private`Tag$35553#1"]& ], - TagBox[ - {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJwVl3c8Ft4Xx5GZ/eCxhewGQj0pnZMREVkJpahEpRKZDXqEjLJl7/l47E32 -KglR+VYSEioZZWXUz++v+zqv+77nc879497Pkbhw09SejoaGJpyWhub/q2TY -ZmaKWPoRGs+qn8spp45UM8vvuO7oA9MX3RlWhlWgxbMoS84xDEhVH6PfftGC -TqVbDoyOqaDXANEf5szgeeiA3pJDMejFnOCSoLkEL9T9amccmoDC9s17L+1t -6I74eGvaoQ+6KhLBLM0PHsXFvohS7oeK+PwD/vsewm5HsFYp7gdx58hyn7aH -4MIUcceF8hpI7919E8f84a+OauN82iCU/9cRjYRHINDmrfXz8RD8PqBsJ2gc -CvoNTEaTDp9BTETlwZRgJCj/u7BEnP8MRx0UaOetIyFU/HzvzsOjsMT/sTE8 -MRJuX6hzM28fhf5U/7BU4SjQnnRur3wzBhm03d0E/mgY//nJznPpCzzKPF7m -sxkD4pvVSZv7p4Fzrtt89+N44E2xn+e7Mw1jojoGl9vigRl4tPc2TQNwp3cZ -/4mHOd8bP87pfoOz/vXJBy8lQCO9tHrz6e+gYZf7+ur+RLBhixwie87A/LfW -rORXSfCKfT8Lvc087NKicO9uT4UBA0Jc7915GHCV4X7+MxX+C5qViU+ah5Zo -Zt9w1jSYYMjV3js8D/kvBhMCVNNgY5Pf1/LMAvxTYxr7/TANFGb/LFOtfoH0 -sboaNfF0eNTbMHHKYhEObC/lntLOgCdsCa7i7osQ553Ac8MiA6L13el+xCxC -R9yFkWGHDEjt3Cvu+3YRfpg5T9wKzoCqxtQzFPMl0FkvMPDuzYCvRQ8G/pou -Q63qktCySSZohuk0555cBekPr0pYdbPAV78if+DGKky2HTxtcSoLGhl2Rm0+ -XgWNY9sPhF7MAvW7NJfNelahP0yHt84nC1Su1LP+0/sDFLGnkrzVWSClpXza -QnMNNATYvrBLZgPjisgsvdoG2J9IdTrwPRu0y0KGFM03oGNfprTccjaQr681 -W7tuwPNJOSIXXQ78/TIUVVK6AQcSW8pfCubASn/kwbN7NyFi9rbWA70cmKYw -+5fL/oVji3eEvmbkgL3iGrsyOw32nz3vFmCQCyc+BmYLiNFgASPXD1OLXFAN -5NOgUaRBbbdKLza7XKD/rOTUZ0yDbSPTurruuZDxxKH7ejQNesUcdBlJzYXP -P98EUIRpcVm62Th/LhesqMX/dirQ4TVb121nyXmAlhpPWQ/RYdcer+/rwXkg -R/9y728DOjRSY1YNjcqD1TOTNq3X6dAiFi7cz8qDWFbRZ7aldBgj4GdG7ciD -wavBnsmkbXhk9L8eXYZ8MJS3XyDq0uM+1M8v8M6HtRC3+k8W9GgZd+SFyIN8 -yJv198+6TI93XYtcyYH5QF+RI7gvgB59057e3xWdD3VHpo8adtBj96mS7UvU -fJAxvxbpp8WAUMWlcG04H95U3Tmrb8aA6Tt3vpYdz4cHgqEy3BcZkFFl99n3 -U/kwPEKtSyEz4ONggorw73yIujI7XtvCgDbnW92FWChA43NLZR4YMbMKv7Oq -UKBo7MFm1UlGnF+c1BYkUeCMdmTXvfOMSCeuMySsQYEqlvIzrD6MKBcmWEOj -SwGn6EU/mUZGNOKt3DhuTYH3+R5vzh5mQjPdkI/J9ylQ9uae2wsSM5o5J9vF -NVEgz//ShfHjzMg5zuxb2kaBlP0GJ9etmbGwSP5FSxcFguME5PfcY0bqrqjo -530UuHi2fDi8hRnXecxE73ymAO/EtJalPgtqylMGX21SwP23GWHqzHZUnnQ5 -FqRWAE5Z6v/+OW3HGNenIYOkArhwSmJG4P52POlEEyhwuACMqmc79NO249H1 -H2uRmgUgeyfIq2hiO4Y+0D2z7WQB/EfXNOp2nRVNjJx2DV0ugEMEhWJ6HzYU -oqQm9cUUQC+t9YtXYWzYQHPTpjGuAGwXgr7EprGh0bqkaUliATzs/8Yv38qG -DuP+RIP0Lf5Jvq8hAzu6jaYFxFO3+PvvE4hEdnQ1SLS4X1wAv66zVH6WYUeO -4NSz18oKgN/wyrdbeuxoNVhcbluzxbPKm8aGsONK7+ndL9u3+DVLp/NJ7BjB -yWJA/3xL7/ujALlCdtTujFvQf1mw9e5M19X1suP+KQ2fbQNbfGDezs/cHLim -yHRIdXSLp5dbko3jwG9nu9eF/xUAcfE050IeB5bHq3kv01Eh70ugfF0tB3pm -RdN8Z6TCq9YpmxMfOVC0cAUkOalgW8bvyTfDgRE3bRmv8lDhV7pu5MgGB8oG -Bcz181OB+CC301mME7/qv9Gmk9jK5zw0elCRE1OrbRv7pKlwyJZpnQ45MYv+ -tlurwlY+cFCMsePEiuerVaJqVMjflImrzeJEmtpNzXcGVDj806KMXMmJEtNa -l1ZNqNA7HNBj0MmJH1iyVg0st/TrJ2lGpjjxSNGdmMf2VBDTGFR9wMeFE+qs -Z7LJVJhS/dHyVZQLPzdm9t8LpkLJ7m0n9WW4sEX322xUJBU0RVSu8BzgwksL -2uiTSQWH9cjkbEsufMvzrqu/iwrRRjNtXrZc2KxtqWDfR4XmdJ3vho5c6H1S -2kV9iAoCeqv7lz248Hpb1mr5FBW0E01sun24cFfMe+tz81RwnqX4pQRy4XPu -c99O/aHC82ib/mNPuTB32HqAxFYIi1NVy0KpXOgcdcpYgVgI4oe4ROdyuFC6 -M+uom3gheI61XnlaxYU2zjodO/cXgvxeuW3Tb7nwaljp0YOXC8HiwQP5Z5+4 -cHb4lsEJ10Igv/lwMvwrF7rrhVu89i2ED96Pk0hLW3r6M9UayYXA2DvZyrbJ -he+OU5V3UQthnwR+G6XnRkFS3+/Y+kII7vqlFsTLjd/KNOOWPhZCldCJszYi -3LiRy5cyO1MI49ezycpS3KhsY6zi8rcQ1Hkt+96rcCPbe1oz6Z1F8MO2wVHB -jBtnXrlbRrgWgUAFMeyvNTc63cnvVg0qAm0m58qBC9woG2JofSe1CJIKJenu -uHDj+YxZgb+viuDEWmDiywhuVOyzSFlXKgZPw7GW1HhuFGnrtXfWL4asNPVp -13RuZD4ts1ZyqRg2jv1UFSnlxusHKUMFicVQGGXa69TPjRILjdqE7SXwYbJg -Ef/jRvrpyp/HhUqAUZ1BmG+UG12CTF9uKpTAudFqh4Y5blSvfWrw1bAEOPaI -0nJwEtD+OIcLbUIJqPu6y44TCfiUe+61Y1EJXB7sM6wSI+D4uYKKC20l0OhF -Tji3l4Db3V/LC86VwM3OKZViQwKG84RPjBiWQjNSr+22IODQ4n010yulwFXv -nJl/joBWC8Yrx/xLoaT4DyHrJgFfSQ44nGsqhV9xrL/iIgg4GCZi1aBRBpo8 -/fLEBAJGijGzhZ8vg6jH0XZRGQSsZQmNNyaXgSpZ9PXjcgJ2PDymWtRdBu7X -FEvIbwm4sTa9ct6hHDq//p7694mAv6zWOGQiyoHftmbHvUkC3lP1GP1XXw41 -5kfDPFYIOPAjKYOWrwL+aJjdcBLkweUquczatxWgX8Of802CB1fleC/xs1RC -wr7hT5cVtvaPQWWeRiWoy9ob2h3iwVFFoN6iVMJdLo/dFjY8OGlm7DgbWQU9 -wYcuDdrzoGV7pox6fxWIMtAkGd/gwdx9bA39HNXQ+OcRq4EPDxaVMhK/h1UD -zZeE75DOg2NDbItiGTXgV9mYJ/+VB8ubaQ2uctbDG0W/0ZyfPEj1OHWDcLEe -pCi6AlLLPNjz+2jJz+p6aE/pDxRj4sWYvXpeCvbPgPHR+GUeeV4UP8eWRn7V -AMHWjNKbTrx4NYLZLPdqMxxRYlv+dpsXl660l+rEN8MCA6Hr3V1eNJE41cLz -vBksS0WvlITy4tlm3UlJmRaQZlYrvEjlRbsYjh6LiRZorryo1v2DF71S1E8m -nmmD2yFXGKt/86JhXbeed1AbyNrdHMpc58VROtbBmaq2LX93x+seKx8qyaVZ -6nG1w5mLkQ1Ku/hQT9fxsUV9O3AcjHsiqsKHL2Mr2ZUn2qGVI+X89kN8+NPp -0FsRtg6Qq8unndDnQ9rcs4/5rTpgmatF5+lVPjxK3aTGTXYAZbKT+NCFD+lr -j/sIMXWCzbOeKWdvPgwoZjc8LtMJ7Q7/BekH8+H1hRqpLttO8NAYsT4QyYd5 -0UNNdHc7QYFnYpdUAh+avDD4+D6mEyIa515t5vNhVmxmpUpHJ2hHL6V8L+VD -mcBGhswPnbB6Zf3mUC0f9tQkrwbMdkIB0B5tb+Hb+o88kuppuuAcHxOh9AUf -Sr40EVDh7gLCD7Yvya/58EMmvGQR74KOZkJF8Hu+LfNRbK6+pws8YwX8Pcb4 -8G0ju3kTqQt2O4lZXPrGh6KeLxyjNLtg9KiUrMnCVr+/T+4r1e+CKH6FVY0/ -fNj2g8OYx6QLjv1UfKFAS8SdorftKk51wVqrWgI/CxGXbnyGQ5ZdUBR36Bo9 -NxFrBeMGfmzFdjeOHl4QIOK9c2+DP57uAl5tXfYRcSI2F+kksG+dfy5oONIt -R8T1O0/3+Rt3wd050+JqJSIWHPDy19nSV+yw9M0iEdHILL7dZKu+8YRzJhFI -xPOYI1G4VX+s8yXJ+3pEFOawVzPa6u/4sau/rxoTkVY57tD+rf43hJ3bT1sS -8Yv32KDX1v2ULLjFaNsS8fMVx5titF1wsevOZWVHIhLvmvvIz3XCpcMyRss3 -iUjNPFHOONwJl0v71eo9iKjFFVpwqasTHGTuiPr6EJH7dPIjvdJOcEyUZtAJ -JKI2O+u16vhOuMrVP8MSRkT1mYF1sm8nXPP3ftMbu6XXZ3urwL4Tbtzsy7TM -IeJqnRv9r12d4DzhFSJaREQrtvs08uydcMtKynW8kogz7ko2cj874LaWl6ZT -BxFddsUuleZ3gDf/zjGfCSLGR+7IvknsgLuhr55rzxCxm3nHJ6u5drhH61nC -srilz+Nj69TVDr4/enyitvFj8ho47Xdrh4Amd7FcSX40po6ERD1vg0iH7jO9 -tvxImy2wYWzZCtHDt7WiHPnRe4dny6hcK8SY7Nhl6cyPj+LX7DX/tEDcodtr -Yz78uF3Gi/o9vgVSOMXil1L4MUguzG7Px2agVN96J/KJHx/kFTQ0tTYCdbdI -49gEP5IX3OW2X26EwvTO7JwZfnSeLiz6ytIIJSHCbkob/CioaWUYaNYAVec7 -eLSFBdDO/H7Uylw9tDAJmlyzEsBYdamaaqtamMzcq//eTgAfvuO6LspYC2yo -raV7VQBT1y2l2sprwNLzptrOOwJY9PBAWBehBuamOwQ/JgngO+a+7X6fq4DX -/yPheLYAMtofDKyOqQJ1iQXW6sKt/XD3eVHDKgiwEvkb2SiAJWtZ972aKkG0 -22Vcf1QAPz92PaJeVgGalx99rJkWwN+f+N713KoAR7qUNzILAiiqTafjt68C -KtRfdNLRCSLT8mKyeXU5GBTsKKjbKYg7rZWF6fvLwCu0x1XBQRDVf+aRdNRK -IUVu3CnupiCK5ykec2Ishfb2FXtGT0G8fdrcPfC/EuDalLQcfySIKnbPDUJ9 -SiD3utfhBIogPiFLmAyXFEMPS5gac7kgzvt4GefbFcOv7Ky97vWCKJts3C3D -WwxHRvrETXsEkTIgqsd/vwjeGskwbJ8VRLerqTKs9oWw9v3QX49lQZTPPVMR -J7nljwJNVr7+3eLVPyykjFHBqenutxZOISygbY79c5EK25QGX3kpCyGzcbym -lFcByPVMd04dFMJuv0HmiqNb/t/xb9MpTSE00+GpeMhaAAlp8mXKZkKox67z -pieDAsrcvrHfbguh3MLwkurnrfmLeUiu664QNq0cUeevyAdNmr31WQ+FMJVG -vWo0KB/M5z5+Ph8thKVMTgUEUj64vzog/65cCBVuvZsyS8mDZ0Fz9a2/hPBp -YYj6WGgu6Dw4ZpS2JoSNoWRN+2u50OuZPHqPThjF5ySTAvW35lMHA4aDBGFs -rs9YSNmeC3THco2KlYXRa+rm+KeIHNCjOz+W6CyMXRI9Ld112fD6T6Wrl6cw -Wm9K71PPyAbrBTbG077C+NJcJV8mOBuujdYpEMKF8cYSxfLGmWx40ki8/ahY -GPucP3vd35YN/FXXGS9XC6NDSs5w4mwWpBW2x2k1CeNe7Zw06Q9ZUJrk0vC3 -VxhvuUf8cSvLgjfevYxus8I4Oj1d0OeQBTYu0vGmy8LIZKDzls8iCyav3N2l -9FcYiyTO11VrZ8GKpYLxD3YRzKaw2zPuzAKhAwHxdntEUD9F9k/0l0yw/a2x -28hJBM9kf6DLdskEdgJN/5vbIki2uS0bfykT6pRaXc/cE0GeeIHW1xaZwHvj -WL3jExE0Px9mt3IgE55PG+n7lYigqY+gO3UtA9yYuGdZakUwzcxPcv5HBkjK -DEaEt4ggMTdB/8anDLh78fT75AERDLF6XEZsyQClkfOONYsiKNiXeYEmJAM+ -bUiwwaYISvokXKe5nwHBwhPFHQyi6NFdqaF6KwMmLB1XBoiiyNvCN6BimQFx -g84BP0miGMeVdOKOXAbQvHiQJXlPFJNOvIi4+TodCqe09PL9RfHqaXoN3a50 -sGZknFF8Iordaqao05AOFVrBKhqpomi8Pva7JD8dHBsjW0+3iOJCyK8wxYfp -0F+eORrKIIb2QyNZ7JAO6SkdIiuPxTBuvZT3YnUaJJ3dPXQqVmxrvnXaF1yc -BnFCUREVKWIY8GuIoS03DZ7E2jK6FIuhzB/XFce4NPB+sj430y+GP+iS5H29 -08D0vnLbOM8OrM8JnaYeTQP6c8lXeuN3IJvm9zDuylT4J0wvtSdjB9Zd6k/c -zEuFtfdXR0IoO9DMULXoX1IqzJ8imR2v34FpX/47qO2fCsOGg4fbh3fgoROG -qm0WqfAhhZ75E6c4ij+8cO/UegqUP1H/OGC6FR+1k23RTYELiRwMdRbiaEKf -HtigkQKEvPG96dbiyNMUJNypkgLOLcHkmxfEcTyn9MH6jhTYvfhBns1FHAO5 -hhsXV5Mhy+qOp06EOCoPptewFSZDtNQzvpo+cTQ3lg5WEk2G23UaxsknJLBd -Kn7nab4kqLTuontvLIE1p4cre9iSYHnNuJL3lAT27vtno0+fBF6HLgmF2khg -4AG/Zza/E+H+s+AJ7xsS6PLus/6X14kQ2DjkaRkugX1anTfPhSdCQuutdJ43 -EriQL7ZQR0iEpu7sX0FnJDGBo+KRhkICXNE92HDFcifuCuhsn8+Jg6Q85cpr -V6XwjvjeiKjDTyHid8MDZw9p5OvuPhHBFAuTFDd3RxcZfHLeav0fYwy0H4uM -I5NlcTKD+UDN9migPflhPMxXDs0uX+FM3h8FNEeraNO85NGrdILnt2ckPOJf -MRwIVMDSg21Gv+ojwNn6YuuK3y60/Nt7eZ0/AsYeqF6CmN04qsrq98clHHij -4j8Epe/BiJkTFg21YZDDpeDVlbgXSTSyhzcqn0CLyw4d2QJFfL7JS29c/BhS -xNNENMyV8F2sjt7L56HQcHeNxrFfCbO1gntafoeAhAHTxs7TyvhDtOtemmAI -VPTJh7x/o4y2lQ5a01bBENr5V0ncZh/WS8u5YGwQRLl+u2o7vA8by7Sjar89 -grt8YpySVipY+db/gsDxR5Avz9B9e1QFNx1WjvpkBgLjIq1gyzlVfHKW6/MI -ZyDkKpXeT5lSxdtLn4p7PAJA/gLFaPO6Grpl8bya+u4PH4/Xlp36oYaa0WdF -+G/4w0Cm9x5w3Y/PVPb/aZt5CKvlJoclf+3Hj4NV6V2eD+FfjUtlwI0DuJER -6NrH+hAMlI7p3F06gHoeD1PrE/ygy0bxyjVXEiYIKVROqfkB4aJjfbIbCYXP -Lz9WVPWDc47p7P0eJLzWK9Xosc8Pll14ylTvktDBwEOKRdEPpB6trG0+JKFR -eBKTkpwf+JY1hYbHkjD69X7RJ0J+oM5kXFJZS0K5cDGlkH9kCGALopuu3+IL -yZ8+bZLhNXeruVAjCSkTLaNKG2RwFFH9c7+VhHNNadNDq2R4qiygqfeShNJr -QRvyv8iweGZ08MMwCVlZrBRGJsiAdoIy7J9JqGNQobj/CxlCLpt6whgJHXfI -Bj8ZI4PkrXaRrK8kNE2UPIIjZDAJyLO/PkvCfeVC6blDZEgKGatOnSehrMWw -Id07MkyHC20f+EXC4U6zkzZvyOCbGFq0f4WEXooqxryvydCT1kFz5Q8JLarI -J537yMCf89c0cZ2E43KnM3tekeFCwYHsV5skfGqUZSDfQ4aiEueVf/9IOD9r -oxfQTYb/AYfZZFo= - "]]}, - Annotation[#, "Charting`Private`Tag$35553#2"]& ]}, {}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{Automatic, Automatic}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, - Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, - Charting`ScaledFrameTicks[{Identity, Identity}]}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImageMargins->0., - ImagePadding->All, - ImageSize->Automatic, - ImageSizeRaw->Automatic, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{All, All}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{ - 3.789745832906107*^9, {3.789745922812866*^9, 3.7897459870360823`*^9}, { - 3.7897460304253473`*^9, 3.789746045846365*^9}, 3.789746092164731*^9, { - 3.789746401807321*^9, 3.78974640470884*^9}, {3.789746869925735*^9, - 3.789746932679536*^9}, {3.789816835959427*^9, 3.789816907171157*^9}, - 3.789819479448543*^9, {3.789819529023327*^9, 3.789819534547029*^9}}, - CellLabel-> - "Out[112]=",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"LogLogPlot", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"c8", "[", "x", "]"}], ",", - RowBox[{ - RowBox[{"(", - RowBox[{"1", "-", - RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0.0001", ",", "30"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", - RowBox[{"ListLogLogPlot", "[", - RowBox[{ - RowBox[{"d", "[", - RowBox[{ - RowBox[{"SelectFirst", "[", - RowBox[{ - RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], ",", - RowBox[{ - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"L", "=", - SuperscriptBox["#n", "2"]}], "}"}], ",", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{ - RowBox[{"#2", "/", "L"}], "/", "#1"}]}], "}"}], "&"}], "@@@", - RowBox[{"Thread", "[", - RowBox[{"{", - RowBox[{"#\[Beta]s", ",", "#Cs"}], "}"}], "]"}]}]}], "]"}], - "&"}]}], "]"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input", - CellChangeTimes->{{3.786037574237903*^9, 3.786037624143293*^9}, { - 3.786037715905655*^9, 3.78603772178903*^9}, {3.7860379429219313`*^9, - 3.786037989672336*^9}, {3.786038220212557*^9, 3.786038223471775*^9}, { - 3.7860382782743273`*^9, 3.786038282507113*^9}, {3.786039734995592*^9, - 3.786039744997678*^9}, {3.7863811689372*^9, 3.786381171328402*^9}, { - 3.7897469834615707`*^9, 3.7897470224937277`*^9}, {3.789747180279215*^9, - 3.789747184972273*^9}, {3.789748265791451*^9, 3.789748277340621*^9}, { - 3.78974977133543*^9, 3.789749784133391*^9}, {3.7898170039497128`*^9, - 3.7898170481323433`*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"], - -Cell[BoxData[ - GraphicsBox[{{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlXk01Psbx8d3xmxkmUFZY+xrokSWz5dQUsIVEpKoi0SbhBK54qZQIku6 -QtdSiFBRHtwWlL1Sokhk32cGxW9+f3zO57zPeX+ez/v1nOecR8E7yNEXIxAI -87zz/1szlFHxKIAF02UyLtov1cDSifukyo8FOStCXnqNauCp2/+i5hgLZPeS -/LbVq0HSz8Lml0dYcF6EG2b+XA3YruaDnw6yoDqQdHd/pRqAUbAotocFWfoV -Ixfy1cB55V2QoxYLkqQjw1v/UoOoi/Fa8xMKkPd3wsMgazXo/ypx/OoRBXjR -76FIe64KWx6aVJp9l4fUzdjQcxNViLvaZh3iKw9nRKL2cl6owKv4WRPas40Q -LixlHGegAkHdZ9YO1siB+Wh7zZZqZVB5r2Tn/q8sjFUY7TTSVoZPnBJt39sy -kFTedKAxXwki5/zk8zKlYbmzKdtPVQn0cx3uJsVLwbN51wC/bEX4pOm/uSJe -EqSL7lnHyilC+Ad3p/7rG2C9kYyfRg4LNLdFEKsvrofqbhtTTUkWtAa9ffny -kgRUBn8Lts1QgEhPG7HoQHE4aaBT9FZEAbSC/pm3PiQG57Oyjn6Jl4e3LmrD -5keYIEvLGhcRlIcw9hefMQcG5BrhdUcpG0EqsIH9xlEU1Eil7vw0OXiT3i22 -30wEwr7d0c9flIHh9qgrXR5CUJPWl5o/Ig0KcrUCfkcE4XLr5utbJ6Qg9OO+ -ggNmdNCSHm20+iIJlbhVQJUpFUoVenosvm6A0cmpfUo7ybB+ySlsYWQ9GFHm -9kwqk+D5D5bW1BcJCGp3DmapYzB753q96w9xqOcXf1DORwCZs0nSLr1iIL4q -xCx4s1L34OFeV7dPTDhtXy3V+IFT51h1Of3qBANo4Yw/UhLn64RPzaidnRWF -93TvsnDWdN3RRrPLl4VEIWRTsDnTbqTuZMPApWEjEVhHe3NMJ7uv7mz4Casb -r4Sg2idsTedKS93ZzKTfNo7roFaaobX1cDG6H9N5Nu6jAMhsf5x2ObQL2f+k -1/LfpUMUlfVCM2MAVSC+liPJNDiR7Pt4b+0A+mHRZih9jQZuUoVFQf0D6IZQ -4ufuOBroaemmVbAGUcKjoXy7SzQY3GcWbFw8iHLZp18fDKKBRZoby7b2Ozqv -FQdCdjQgqdyM9e//gVoEuUG+gjSYKfkQkUAYRufYwtp2VBp82SZ1uoQ1jKom -+PIMSDR4bJNzaO7oMCoUc9xB/kUFn8BSw7DpYcRsMfoja5wKLx+3jMUTfqIw -E+3R2GYqxO4g7StkjaGC6NRnNrFUOPNoIDrGYgy9vt30YFM0Fbw31lUd8h5D -r2iXkdhFKpiunJeTuDeGdinrPGw9S4WF8unJaIVxVL7pdgnmy/OzehPc5SeQ -5DOBuS0WVLBPegLb8AlUdFM59SlvDsxWby0wvCZQCXtgcqsRFSQ/27s33Z1A -OgyrcjFdKrQnv9I02DiJJttljI7I8v7jK28WlptCSnz+ITJsCmgEJa6OmU6h -dF/xyLUZCmzoO673ymMKJZOkr7wfp8DCE9WMiDtTKPzO580HBihQFHzHb1Rm -GrWU6AtWtlBAMNgyZmDdDArT/y4ceIcCRFV9uTbZGbRlV2ujUxoFlvsUntRq -z6ByncVE9WQK/LRdG0/bO4NUp6Icc2Io0Kj67A+7azPIKulRVZ4/BcK+blKs -EZxFL++Z/nlIjwIiLQeHfsvOIjE5FGGpQYH7VVfy8U2zSHtiuyCdRYHOa19V -XznMIpvaHeQtojwek0StjtRZ1HYn7fvnSTKAas0ks2AWPcw4sSl/iAzOzJES -56ezqKs31MS2lwzRY2abv/TOornfMKL2hgyfb09tHZGfQ1X5En1y/5AhOEaK -o643h9TcUmJrbpGBHGz95PiOOTTm+bZQ9yoZ9HZmb5/znUOR9Zmd986S4e/F -veh30RxK9zpnnLWLDNsdH+5ibp1Ho4Y+3c4/+KHd9BPN2XoeNXN3O6j38MNR -df6W2y7ziBbdVdLdzA83CB575cLmUdNvPfcnpfwwViLoqF43jzqlK6n/neOH -DIHjB5HNAur+NCU1TOCHpf80TgR4LKIvOXc9gtaIECxkc9/jxCKSH91j4DZN -hGGXY/37IheR51bfEZOvROgcy7XbksPzx7+5qVdHhGIR2U2/hxZRv3qEnvEl -IrDcjI9NLy6izQ1NTS3BRLide+DuAJmNEoolDaMPEyHGIFX4lRob7fO+eC5w -BxE83IVnrh9nI/WEhPn9NCJ052urRV1go9bjuS6OKxjsnrb1On2djYqsL6Tf -mMTAIDqu3aWMjQ6KDebMdGLwoOU+dXc9G306uxC0/hUGLPGXuEknG0XTnHVS -nmIgXMD3SH6BjW7pRxLu5WAQO7txlMHPQasHg8NNUjH4td1MgV+Cg/ILIp+i -qxj8fBeWPLqNg9a1dX/rD8HAc316U+8uDoqTXkv1CsSg26uar/UABzlVKya6 -+mBQPz9/sjycg/6dSNR98gcGhqaMorwEDjIMZqWr7MGgJFZ3MPUOBy18jH+1 -wQoDpXY7qfgSDnKp5wbcMMMgQzLQMbyOg7Q7A73TDDEQOXL178B2Dlom5wlq -6fPyPihsODTAQcHDDn6ZOry8i6+XHeY46OSN4/H3NDA4jYb1LIlcNNKxc9FC -FYOxOFKAgRgXme5eOnhRCQOvTlaumjIXLYQVpjizMPggbd4rZcBFIYvUf97J -Y7DH9xBz3U4uknCYKPyxEYOGkgu2ay5c9KlIVCCHpw25mZdn/+Si6R6GLcbz -l5g/q/l+not2frnCElTAQPlqz/z7v7nIPc7jQj2vflY3W/NNJhcFdvtcUFbG -gCEn7vPsARfld228YKyGQdwx/awHz7notb75qQgtDFbLHLqzW7lItLmNErIZ -gzPLQYLJX7kI1cfEKG3j8ey4bnl5housrrQcvmLK47n2IOIs3xJKtT+3KdsS -g48fmh8fYywhZZlbN/7k9dtOfnTigOIS+ohwy2EnDP7zoyjv2bKEAn3Oiaz3 -xGB7hbKHmdUSorZOdy8fw6Ds145bus68enVDkcmnMFCx9n7HOraE9B5/E+q9 -wONJvMQvHrqEZkQuXvsYj0E86/nZpfQllLzfstU8D4NLngV73hQuoYWgzwKx -jzAIzbipmPZ0CREN3bcfqsPgKMO/Y8unJRQLzy1ef8HAAluvHbxhGb0+wt6h -IkcEIzOMhNSW0dYQe7GKTUTQDZv8vM5wGakruDoXmRNBbq4xrthlGZ16IOgn -cIwIywPBQ8Opy+iReWGIdzURZmXdayrvL6Pv39zvpbwlws8DO2/EVC0jD7kr -SvqDRPjQIYuzPiyjhsSuHQVCJCivb870EF9BZ6KWPy/6kyAgR+mP7psrqGp4 -Q4qcHj949wlr5OauoGsKytsYe/jBTXKFcKpiBeWdFqfpHuWHXckdJcJdK4iy -llKYmcEPSlEX6baMX6i8r3H5FB8Zvnj11Ncn/UIRmm90TrSTYa98gm7ptd+I -/FwvHblTYSjpsU5X9m/0ZJxZZcPbV2F8fVqc0t9ISYqkKnydCvcHtdVRJ8// -rdTs1QsqrOa1KbRJrKLo683PG2VoUKbOZE7fXUV1s9qHTjbTwDrDWJT5aBVd -DNP07Ojn7V+6j/C2hlVEft9v8nOOBrSJxwKRQ6uoa6WPg0vRwbvEmSSsvoZK -/J0t5o7SQUw/Y1GnfA0NcEbvrczRoSi3Yd6xcQ113KHnniEKAC42PhvSzfML -Zp0qYwpA4KLx1Av2GuJv6F08rS8A33tPnP5XloBLGhHHbYMFwCRb5Pg2bwIe -hfm8OD0gAJMsJw+XcQK+5GkYGvVAEEK7W4td5gl4itvrzsPVgkCKtVl2WSHg -914Ha6g3CILMqFmaqwAfnuLilBD0URB2l6p3HNDkw72Gei7OEtbBfeM1S/cA -PrzsiM5btv068HQq0jo8zoeP2NZGXRtdB61/EX75j2P4O1v5qjE+YajO44YG -DpDwQOWy41uiRSDGJa1PDKPgsgSfzPCbopBkm9TMT6fgST0OfgFpopCJ4qvZ -ohS8cHe4+8FMUShXDU/uUaDgcqsbHMxyRWGA42mVZU7BK/xWc20qRMHstspD -xSgKzvyxy1+5SxS4PZURegQqHutm5z/LYADpXYmfIpWKDxjnkyclGCBc/6+z -mAgVr/Mg7X4vxQCVwnRd9kYqfu7R7M3bLAbsP39h6Cmi4odlnArU9BhQLmm1 -xzySirsuvHgS7ciAALduaftVKt4v8+bKthsMuE6vC9Gm0PCVIGXf2lQGlD0r -7KCL0PAXMR9ktmcyYEEq8spLBRouXP8tViuPARG96vPbrWi4XZbQdFMlA665 -RzYrJ9Bwz+oRA/FPvPeC/srEWzScm1nHTexjQGet06Vvd2i42vKJYvogAyRk -NQwyS2l4mhehYGWMAdl93TkiXTR8M2n8a/EvBpR6apxfkaTjjv67VWXkmNAp -JN7dw6LjKxarkqsKTFh4saZTpUnHb5rGhTYpM8Fw4/uhYFM6np/zH7+4NhPc -2uqQnTUdD3E97Zqsy4SIyKIMzX10PCdd59C0PhPga6T9sBcdl+T0m+zazoTB -RP/iRj86rmYc+c7MlAkkfD855xQdr2nbGiuEM0FlBh2+GE7H+5Y0lCstmLDr -H43agzF0fHW3vIeuFRP87cXXG12j4+/P0T5c2MmEBALhlEQqHZcmPtXOtGFC -SdnY2/lsOu7ik8P9y5YJHV7vVTv+peOWxsUNxnt5PCIQXVJGx6NICiLP7Jgg -UV/Ud/UpHU/MK/Nc3cfjO3nL0K+BjpOXo1XIDjw+hUs3rVvoOOOSX28rT0d0 -+E8pdtNxTp/C1H5HJmRH7bfh66Pj1SKl727zNGzG8/p/8PIUvP6ZwtODAxpr -NVN0vPWAa+lOnibdEHdL59DxgHnJlBJePRULQmUIQQCPDzUSem3P450bE3ai -CeCbfolkXufl8b/33n8zQwB/GDtdh/HyJjjCSyFpAdxUakpAYQ+PFyuWn1AU -wLcWt0mO8Pjby2+FN2kJ4I/zRpMdef2Z97704f5WAbz+AEPrsCUT/gdcdCsd - - "]]}, - Annotation[#, "Charting`Private`Tag$46867#1"]& ], - TagBox[ - {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], - Opacity[1.], LineBox[CompressedData[" -1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAK3gSs7FrIsDdQ8Jop54owERU+Li2 -aSLA9h+obqycKMBeMN6+u2ciwBD8jXSxmijAkOipysVjIsBCtFmAu5YowPZY -QeLZWyLAqCTxl8+OKMDAOXARAkwiwHIFIMf3fijAVvvNb1IsIsAIx30lSF8o -wIF+iSzz7CHAM0o54ugfKMDe3xZsi2MhwJCrxiGBlifANK08tT7jIMDmeOxq -NBYnwIiLz0Z2ZSDAOld//GuYJsDGifE8CbofwJWQKFT6DybAb9R0/1u7HsDq -NWq1o5AlwCbVJE5cpx3ARTbC3KMGJcDZ964tZZgcwJ5Hh0wofyTAf/JpIKSb -G8DxxOTFxwAkwDOjUZ+QiRrAS51YBb53I8DZK2oxs4kZwJ7hZE7P9yLAe9Zc -VN6OGMDvNt7fZHoiwCs3fAO3fhfAR+dtN1HyIcDOb8zFxYAWwJkDlphYcyHA -f15JFIJtFcDxetS/tukgwCxvoPNGXxTASAOAL5liIMDMVyjmQWMTwDDvh1Et -yR/AevbcZOpREsDejTzQ1bcewBptwvbIUhHAfgQiYrS4HcDImdQUVT4QwCwx -NIBApBzA5tCBh9NdDsDXfyAv1ZQbwCEevAtpYwzAdaY98Z+XGsB410+oWT4K -wCCDhz8YhRnAtUBFa7Y9CMC/NwKhxoQYwOnt7k8kRwbAWA5Xk32JF8A5B/JM -7SUEwACb2BHieBbAb9BWcCIpAsCb/4qjfHoVwMEFFayyAQDARBpqwcRmFMAV -/g4TqMj7v+lWI3AVWBPAc1C3GsPW97+Baw0ynFsSwAl7ElOUj/O/JjYkgNBJ -EcDVCmKweyLvv7/Ya+E6ShDAdi9wQRNO57+lOhunW58OwA0JyGcunt2/6S+4 -o5x/DMC3ZHr/LofLvxTVtsZJhArAvBsSLDVhqz9Z5g4CUl4IwBw6tJeDeNM/ -hKfIY8ZcBsCBCCK+K5rhP6isNudLZQTAhkMET6ki6j/mHf6CLEMCwHrfLyO7 -DPE/Cz8nRXlFAMD5xCpua131P5eYUz9COvy/iSK9dfmZ+T8GO8E3tP33v00g -jDCvjf0/Qz3yfP4J9L/tIlRdV+sAQGsvrOX9ge+/zoUA/GrrAkDoo/pqr4Hn -v7ek+Hht4QRAiFA07kpT37+EV5fdFAIHQD10fZIfnMy/a1rUG1D+CECf0ZWK -ojyZP44Kv3YtBwlAMuPt/0+rnT+wuqnRChAJQBv6orr+DKE/9Bp/h8UhCUAF -C/svrHulP3zbKfM6RQlACy2rGgdZrj+NXH/KJYwJQKO4BXjeCbg/r14qefsZ -CkBz/rImSuLEP9IOFdTYIgpAngBe1R9wxT/0vv8utisKQMICCYT1/cU/OB/V -5HA9CkADB1/hoBnHP8Dff1DmYApAfg8LnPdQyT/RYNUn0acKQJAgYxGlv80/ -9BDAgq6wCkDBIg7Aek3OPxbBqt2LuQpA4yS5blDbzj9aIYCTRssKQCIpD8z7 -9s8/4uEq/7vuCkDQmF1DKRfRPwSSFVqZ9wpA4hmzGhRe0T8mQgC1dgALQPCa -CPL+pNE/aqLVajESC0ARnbOg1DLSP4xSwMUOGwtAIR4JeL950j+uAqsg7CML -QDGfXk+qwNI/0LKVe8ksC0BCILQmlQfTP/NigNamNQtAWaEJ/n9O0z9O3Ue/ - - "]]}, - Annotation[#, "Charting`Private`Tag$46867#2"]& ]}, {}}, {{}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" -1:eJwBEQTu+yFib1JlAgAAAEAAAAACAAAAoP+PmYqhG8A2aaKtXCokwLcSVuAN -oBHABDMtmgpWHsB6DcMyYgsIwF8twt96xhjAYSBzTtfr1r+l4/lmICoOwMl/ -Jwc9YrG/VcUrWep9DMCmlHMgQp3CPzQFOwWiXwvAAKEzg1/T0z8MSVzElZgK -wHZNhP2MGN0/+erLBQP2CcD+HZKn4b3iP+/1HbMNbQnAWDNcAiek5j9xmsCG -rPQIwN07R9+LNuo/UW0YlbmDCMDpqGGjNHLtPzFugiDgEAjAneqxbEk68D+0 -yUXAP4wHwPdJOqSSePE/Q0Tx86f9BsDrFnAVKsryP/qCyDhsMwbAfNLM2c8t -9D9t4sxvmRkFwGE8teiaYvU/p/AQP5D6A8D7bpva0kr2P/tkuzH0JQPAY13a -3Bob9z8P++XiCIgCwNYZsjVW0Pc/QQ3/vTIzAsBgLYTUKa34P59GjChSKALA -ggQNHZp6+T/QWNYfr4sCwEhtzIyVH/o/KPLkGhAmA8Ag5V5Nstb6P2TShXd2 -DwTAdHvr9DjP+z9xCxPgZZQFwLZPno5mo/w/Wwg9EdPuBsBz/nDXAUD9P3CI -VfGW5wfAd48gMjXl/j8XwsYaDxsKwMisakwcnv8/3NXMiWLfCsAd0tFGq1MA -QGewuHzUyQvANIFYEjCzAEDYK7yeP10MwMEUVgftXAFAhdl05/8+DcBKXhyb -Mq0BQF1FhIy1oA3A4zfvlN8UAkA3XxHj1BgOwD6n5UfTbgJAYvZ4dTV8DsDx -SnAdN9ECQBZuziRF5g7AJOqULX1JA0ApeBDhEmQPwO5RQgb5jwNARs5zGOat -D8An8JWv1eMDQNdmNPteARDAGmL1tYoqBEBKBq0TCyYQwJpcS29XfgRA0+9i -62RQEMAqCcIHMrsEQFZ7qrsJbxDA8xq7vR8EBUCvG26amJMQwKOh0HsGRAVA -jOMMiM6zEMC85vmayYoFQCWOHy1s1xDAMPVnpY3hBUAzOoRn7wIRwCR24PSl -LAZACG7AVHQoEcDS3JAOE3UGQBiNv3CVTBHAhkCmzs22BkBnZdAIy20RwFSP -FBiO7QZAmpMvL0uJEcArhpyJviEHQBvtTzkxoxHACZeXdNJiB0CfOEI3FsQR -wCsW6aX9mQdAObn6sHjfEcDA2a6nCdEHQBNmvQAb+xHA5qZTDBoJCEBMQsJv -aBcSwGRg6y4APghA/jrb7kkxEsDuW01oe3gIQCArmOYZTxLApIbSxzqiCEAA -Xdq8AGQSwD4PF3540ghAQhOIb+l7EsCEzumIwQYJQC48YaeFlhLAw5J4jK8z -CUDiVnbSJq0SwMDNZFMwZAlAPoIbZf3EEsA7r6c9ZJEJQE94zYi72xLAM43t -90HACUACvel3VfMSwHIc1O8= - "]]}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.011000000000000001`], AbsoluteThickness[1.6]}, {}}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.011000000000000001`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{-9.21034011459786, -12.385111543896043`}, - CoordinatesToolOptions:>{"DisplayFunction" -> ({ - Exp[ - Part[#, 1]], - Exp[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - Exp[ - Part[#, 1]], - Exp[ - Part[#, 2]]}& )}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Quiet[ - Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , - Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[ - Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , - Charting`ScaledFrameTicks[{Log, Exp}]}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None}, - PlotRange->{All, All}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->FrontEndValueCache[{Quiet[ - Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[ - Charting`ScaledTicks[{Log, Exp}][#, #2, {6, - 6}]]& }, {{{-9.210340371976182, - FormBox[ - TemplateBox[{"10", - RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-6.907755278982137, - FormBox["0.001`", TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-4.605170185988091, - FormBox[ - TagBox[ - InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], - NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-2.3025850929940455`, - FormBox[ - TagBox[ - InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], - NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {0., - FormBox["1", TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {2.302585092994046, - FormBox["10", TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-11.512925464970229`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.819778284410283`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.41431317630212, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.126631103850338`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.903487552536127, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.721165995742174, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.567015315914915, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.433483923290392, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.315700887634009, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-8.517193191416238, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-8.111728083308073, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.824046010856292, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.600902459542082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.418580902748128, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.264430222920869, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.1308988302963465`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.013115794639964, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-6.214608098422191, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.809142990314028, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.521460917862246, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.298317366548036, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.115995809754082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.961845129926823, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.8283137373023015`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.710530701645918, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.506557897319982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.2188758248682006`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.8134107167600364`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.659260036932778, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.5257286443082556`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.4079456086518722`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-1.2039728043259361`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.916290731874155, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.5108256237659907, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.35667494393873245`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.2231435513142097, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.10536051565782628`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.0986122886681098`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.3862943611198906`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.791759469228055, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.9459101490553132`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.0794415416798357`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.1972245773362196`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {3.4011973816621555`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {3.6888794541139363`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {4.0943445622221, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {4.248495242049359, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {4.382026634673881, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {4.499809670330265, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {4.605170185988092, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {5.298317366548036, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {5.703782474656201, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, - FormBox[ - TemplateBox[{"10", - RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-9.210340371976182, - FormBox[ - TemplateBox[{"10", - RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-6.907755278982137, - FormBox["0.001`", TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-4.605170185988091, - FormBox[ - TagBox[ - InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], - NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-2.3025850929940455`, - FormBox[ - TagBox[ - InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], - NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {0., - FormBox["1", TraditionalForm], {0.01, 0.}, { - AbsoluteThickness[0.1]}}, {-13.815510557964274`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-13.122363377404328`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-12.716898269296165`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-12.429216196844383`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-12.206072645530174`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-12.02375108873622, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-11.86960040890896, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-11.736069016284437`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-11.618285980628055`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.819778284410283`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.41431317630212, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-10.126631103850338`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.903487552536127, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.721165995742174, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.567015315914915, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.433483923290392, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-9.315700887634009, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-8.517193191416238, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-8.111728083308073, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.824046010856292, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.600902459542082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.418580902748128, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.264430222920869, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.1308988302963465`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-7.013115794639964, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-6.214608098422191, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.809142990314028, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.521460917862246, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.298317366548036, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-5.115995809754082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.961845129926823, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.8283137373023015`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-4.710530701645918, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.506557897319982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-3.2188758248682006`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.8134107167600364`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.659260036932778, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.5257286443082556`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-2.4079456086518722`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-1.2039728043259361`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.916290731874155, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.5108256237659907, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.35667494393873245`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.2231435513142097, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {-0.10536051565782628`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {0.6931471805599453, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.0986122886681098`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.3862943611198906`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.6094379124341003`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.791759469228055, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {1.9459101490553132`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.0794415416798357`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.1972245773362196`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.302585092994046, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.70805020110221, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}, {3.2188758248682006`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { - AbsoluteThickness[0.1]}}}}]]], "Output", - CellChangeTimes->{ - 3.7860397462562437`*^9, 3.786381174561144*^9, {3.789747009546315*^9, - 3.789747022798468*^9}, {3.789747180816671*^9, 3.789747185304206*^9}, { - 3.789748266139413*^9, 3.7897482778578568`*^9}, {3.789749766836547*^9, - 3.789749784531066*^9}, {3.789817009861409*^9, 3.7898170488613443`*^9}, - 3.78981956418874*^9}, - CellLabel-> - "Out[113]=",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"] -}, Open ]], - -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{ - RowBox[{"s8", "[", "x_", "]"}], "=", RowBox[{ - RowBox[{"Ss", "[", - RowBox[{"d", "[", - RowBox[{"SelectFirst", "[", + RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", + RowBox[{ + RowBox[{"Interpolation", "[", + RowBox[{"Normal", "@", + RowBox[{"Prepend", "[", RowBox[{ - RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}], "]"}], "[", "x", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"Normal", "@", + RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}], ",", + RowBox[{ + RowBox[{ + RowBox[{"Normal", "@", + RowBox[{"dat", "[", "\"\\"", "]"}]}], "/", + RowBox[{"Normal", "@", + RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]}], "/", + SuperscriptBox[ + RowBox[{"dat", "[", "\"\\"", "]"}], "2"]}]}], "}"}], "]"}], + ",", + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "]"}], "[", "x", "]"}]}]], "Input", - CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, { - 3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, - 3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}}, - CellLabel-> - "In[114]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], + CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, + 3.789819474816937*^9}, + CellLabel->"In[9]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], Cell[BoxData[ RowBox[{ - InterpretationBox[ + RowBox[{"oldSs", "[", "dat_", "]"}], ":=", + RowBox[{"With", "[", RowBox[{ - TagBox["InterpolatingFunction", - "SummaryHead"], "[", - DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, - TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquarePlusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0 -Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC -eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20 -PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/ -wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9 -c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg -GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav -gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/ -Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw -Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg -iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso -QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG -ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w -MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9 -4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi -unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA -4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT -dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m -GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k -P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC -uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9 -Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg== - - "]]}, - Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.6802173423024718}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}], True -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquareMinusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAEBa1ebwPEXRMWw0 -Fdo/xtBI9Qoxaj8FZS60Bi7rPxyub5tGrYk/aslGZ8ww9D+DIspNiM+ZP8qC -eNpvqfo/u7iEbRampD8VebNxPtcAQApj7UbaOK4/IB09Xc4dBEA7HoXvqg20 -PykcpROTqgdAC0qINE8Euj9wLA79xCYLQCLQ75GVacA/EKmJTQBnDkCraCC/ -wEXEP1jAcTS49hBAx+urmRZlyT9V4qf19JsSQN49kRrmyM4/8YxeUOg4FED9 -c/PmuPbRPwxlhBD2+BVAAY4VwBNW1D9VczOECJsXQBwHfyRzF9Y/Hq9RXTVg -GUCAR0XUKJnXP4Vz8M8YHRtAPh894xHO2D8Zbhj2ALwcQDyTM62vxdk/LZav -gQN+HkCF1mk3h7TaPzj6Z2AFESBA/P+174V/2z8ZwK8ylvQgQFHJGlntStw/ -Scq3UQLUIUDaBW/wgAXdP49vhMpwpCJAkRD9lMKp3T+Vqwh2bIYjQOyoKzWw -Ut4/soJRe2pZJED9Jngd7OjePx6eWs1DKCVA9ccdL/F13z9KUBtSqggmQIYg -iOZQBOA/jZ2gMBPaJkApV7Z6EEbgP4+B3UEJvSdA/qR3tZ6K4D/hqdqf2pso -QPL67Y9wy+A/SW2cV65rKUAuDQBvzAXhP3HHFUIPTSpA2ElNe/5C4T+wvFOG -ch8rQOP16UlJeuE/PvZRF7HtK0CqAtzS4a7hP4zGB9t8zSxA81t3uEDm4T/w -MYL4Sp4tQDixkaRoGOI/FDS0SKaALkCqfw6DPE3iP0/RqvIDVC9A/uXYtDJ9 -4j9t2bB0nhEwQGpLHSMCq+I/khVoiQGCMEDjPdNwatviP0KfAcvl6jBA7APi -unEH4z9S9PalkFwxQMVKc9b0NeM/imtMJynMMUC7qL83eWLjP00whNVCNDJA -4AL2tAiL4z9wwBcdI6UyQHoG3kL+teM/H56NkYQOM0A22vUgMd3jP/WdY6zT -dTNAsIQXb88C5D8raZVg6eUzQD+6jRG/KuQ/7IGpQYBONEDRTetYOE/kPw1m -GbzdvzRADGkirvJ15D9WbOncKC81QBMs988rm+Q/KsCbKvWWNUD7b11sMb3k -P17fqRGIBzZAAR3TjGDh5D8dTJolnHA2QDL+U7yCAuU/PITm0nbiNkB2deaC -uSXlP4PekiY/UjdAc0fyC6FH5T9VhiGniLo3QHctReaxZuU/h/kLwZgrOEA9 -Qsd3yYflP0W62AcqlThAMOXG/yOm5T8+GeT4//84QJKO6yhXxOU/+lm9dg== - - "]]}, - Annotation[#, "Charting`Private`Tag$54449#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.6802173423024718}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Order: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["4", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Method: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"Hermite\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Periodic: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["False", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}]}, - Dynamic[Typeset`open$$], ImageSize -> Automatic]}, - "SummaryPanel"], - DynamicModuleValues:>{}], "]"}], - InterpolatingFunction[{{0., 25.}}, { - 5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" -1:eJxTTMoPSmViYGBgBGJHBgT4s/LjJd+kAPvDXZwK2X867N98nXytJXKlvai1 -VPuv2Gf24nMO3td/9ta+oObtTNXGT/bhCSdehZ3/av9ty+H4yaY/7ct/ZG9y -2/vH/rzne+l4awaHm04TmoXUmBx+3jL2ZhJhcTh5IvLGZT42h106amby19kd -ctTu5xQ/5nSI3rj/zTwbHgeT65lLlhbxOZwtlcpcKSPg8DNttvTlzwIOn3ik -fqnvEHRYmg3UsFnI4ZLE2sWrVgo7uHH0m/VViDgkb+lbpZYh6rA27+ucL/vE -HPZfOT+764u4Q4fgocW9jyUcWrRMqxdMlXaolLszd+ttGYfazWd7X56UcwDa -skdWUcFB75G14etWRQcNri+dNpZKDhzPXnys1lZ2+OR4Pu0qu4pD+/LwU0Ys -qg6JIUHqCzzVHI4qbCjKEFR3SH4X5WTHoeHw2EzqQPQDDQf1Q23Lw19pOtz3 -752et0nLoSbRKNRglbZDdbO+z7IuHYc3gTvkWrt1HQL+SBRfv6TnwK2iUdfz -U99B5vUjM6kJBg5bzX8cSpEydJDWv6vCNtHQYZ/BTC0JViOHSwz3mDhnGTk4 -LLm/j0/G2CH/Q+vJkIXGDmfPAIGOicOBaAXHj5tNHFiP9huW+5o6RLZZXDu6 -1xTiDiczh72PRWRPXjVz8ABZHG7uoLtp7vvlz8wdniYuvGaSb+EAiX1LBwCB -r+DA - "], { - Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, - 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, - 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, - 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, - 128, 130}, CompressedData[" -1:eJxlzPk3GwYAB/DoKu4jYUZVDbWa9HC0qhb5Wlnx5nl56ihG1Fxlfa7Ns7dO -K0TcReeYLnPWLaZbpbRFR3iljjriDrkcTye12LPWuuP3ff6Aj1l4vE+kEoFA -YBL+73wDo6EjwZ/GZlZMVW4p46Nv5bwTmiO0vjOt853NLjhsV3fspxp1+LV8 -wmH0hKFwMy5VU4UJF/dsQWZ5OaJ+qLe2SCmEsmlNI1GfA/MZvbhqmzJoDili -4x5WgxzdnzH5FQcmn4mHL1+vRb22miFrohbfhFd56CjqQKVdIRuFNsK7q33E -zfceXAqgc+JGG4yiTBoFPzbAsnRAK0GlE8JCrvjURiP46jzOqb9/xmgfpi08 -mvHm1wvdg448pPtUXbN43QKKc7hrlm8PqAY53hrbbag8HfhoxaEXypuk/qvb -HXjJ5dr4c56CqqHSnEC/D/8OHoXkN4hRsWHwFOkBSm4fV9l4PoQhz5pKIYOH -qIjTXb8HP8P8b0qHctCNZGbrwAeCUdj2RiVu0HugTj128Y7BBESH5x8Mf9mD -V4nGZ32OvADMta1UznYjyj1GXe47BZOGUO2C/76bLF15dPU0IkO8THWWfgHR -gC7UdpyF3Yqucik6Yem+ztiMFeDkw5mDhffbYX/u/njx+TlcHjUbkI82oyUj -IzfQaAHU4cCa9PI6vPPk7U7k3ALWJeki1bEavHQufPfrxUVEOPpJqP1VsKER -d74oXIJNiZYaL48Ddv7SIoe/jPEAWv6llEpQ5ZP8EP8VCPY9fFucvodqdxB7 -UEeIPxJyRx+PlMPIgWpZ2yGErr5YAy1leLLz3jg/ZBVH37gOxrBKUWTsdfXA -cA2sCr+j1s7fYeWIE5MYsAbt6jKzbtYdqF3vKRusXoN56ecWWz0laGslqEqF -awgdYyicyCV4pBhrS7ISgZfW1/XcvxjZLnkxCyEiFFPUSPLpIkz2JV0RcETI -3T1uuUAtgrvC01k2K4I0OU/oknobc25u63t6YnguEVgrEYVI8VMYqIeJQac8 -tv/QrABJxNUOcY0Yf4roQWv6+Zg7WLwZKRKD7fvaqsk4D1buS/8QjSW4JTBR -OUfLRdAIy0r5Uwn6/prQO5OfA8kumcRPlUCsqO2c38yG64yr12SnBF69DbSP -TbNhOFshsBZLcLB8rMvrBhtNmTbbsWQpPLnzFo7LWdCKKaPnu0qRWNtI7qBm -wX5P1rWVKEWYIYl/l8uC/X7koZP3pCBKRPv+Oizkrgu9+59Jwa6kpMXUZqIp -7W0icU+KUNOLSresMhEv380QmMlg18/oMq3PACX9qaatpwzVxrYtFxwyYEzj -RnOTZViKaH+hxWdiMWT9kuddGcbGh/aYwUystm1ZBwzK4Bjtdi3+VTr+BahG -6i0= - "]}, {Automatic}], - Editable->False, - SelectWithContents->True, - Selectable->False], "[", "x", "]"}]], "Output", - CellChangeTimes->{ - 3.789818360124195*^9, 3.789818667629681*^9, 3.789818746856895*^9, { - 3.789818811882657*^9, 3.7898188177936583`*^9}, 3.789819583555128*^9}, - CellLabel-> - "Out[114]=",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"] -}, Open ]], - -Cell[CellGroupData[{ + RowBox[{"{", + RowBox[{"ss", "=", + RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", + RowBox[{"Thread", "[", + RowBox[{"{", + RowBox[{ + RowBox[{"ss", "[", + RowBox[{"[", + RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", + RowBox[{"Accumulate", "[", + RowBox[{"ss", "[", + RowBox[{"[", + RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}, { + 3.7849910515540743`*^9, 3.784991075832299*^9}, {3.784991369146078*^9, + 3.7849913764007483`*^9}, {3.784991547938244*^9, 3.784991556568716*^9}, { + 3.7849917900181932`*^9, 3.784991803720964*^9}, {3.784991863633103*^9, + 3.784991884800845*^9}, {3.784992068826951*^9, 3.7849920762732773`*^9}, { + 3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, + 3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, { + 3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, + 3.785000975480179*^9}, {3.789830929032741*^9, 3.789830929207098*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], Cell[BoxData[ RowBox[{ - RowBox[{"s12", "[", "x_", "]"}], "=", RowBox[{ - RowBox[{"Ss", "[", - RowBox[{"d", "[", - RowBox[{"SelectFirst", "[", - RowBox[{ - RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}], "]"}], "[", "x", - "]"}]}]], "Input", - CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, { - 3.789818340608953*^9, 3.7898183589082117`*^9}, {3.789818732506002*^9, - 3.7898187360151863`*^9}}, - CellLabel-> - "In[115]:=",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"], + RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", + RowBox[{"Integrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"Cf", "[", "dat", "]"}], "[", "x", "]"}], ",", "x"}], + "]"}]}]], "Input", + CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, { + 3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, { + 3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, + 3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}, { + 3.789831192249136*^9, 3.789831192735342*^9}}, + CellLabel->"In[11]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], Cell[BoxData[ RowBox[{ - InterpretationBox[ + RowBox[{"ff", "[", + RowBox[{"dat_", ",", "\[CapitalDelta]x_", ",", "\[Delta]x_"}], "]"}], ":=", + RowBox[{"Module", "[", RowBox[{ - TagBox["InterpolatingFunction", - "SummaryHead"], "[", - DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, - TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquarePlusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0 -Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC -eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0 -PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg -4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs -kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg -GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav -gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/ -Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM -4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml -8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso -QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG -ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w -MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e -5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT -yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA -cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT -dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m -GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm -P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L -jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp -1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg== - - "]]}, - Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.7437330962163836}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}], True -> GridBox[{{ - PaneBox[ - ButtonBox[ - DynamicBox[ - FEPrivate`FrontEndResource[ - "FEBitmaps", "SquareMinusIconMedium"]], - ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, - Evaluator -> Automatic, Method -> "Preemptive"], - Alignment -> {Center, Center}, ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - GraphicsBox[{{{{}, {}, - TagBox[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[1]], - LineBox[CompressedData[" -1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnIW2B5tvnD4AAICAtunvPEXRMWw0 -Fdo/M/qEJOk7aj8FZS60Bi7rP6kesncG+Yk/aslGZ8ww9D9rzxAuOlOaP8qC -eNpvqfo/Wfy/iRMupT8VebNxPtcAQCTBduRWGa8/IB09Xc4dBECBWX3ZPpi0 -PykcpROTqgdAQ9Sje0xguj9wLA79xCYLQF4GCrgVIcA/EKmJTQBnDkAo7Lkg -4e/CP1jAcTS49hBAP/RC7TwWxj9V4qf19JsSQF5C3Rvwask/8YxeUOg4FEBs -kzX8hyXOPwxlhBD2+BVAH8ers6Zy0z9VczOECJsXQPMzKpHmwNc/Hq9RXTVg -GUCZmHTabnjaP4Vz8M8YHRtAWDUhsYT52z8Zbhj2ALwcQJ93P9lqBN0/LZav -gQN+HkDmELf6xP3dPzj6Z2AFESBAEPhzKu/Q3j8ZwK8ylvQgQLgzDbcepd8/ -Scq3UQLUIUCfrAea/TPgP49vhMpwpCJABqgu0eOJ4D+Vqwh2bIYjQF0u0IVM -4uA/soJRe2pZJEDcwceO7DDhPx6eWs1DKCVAVpd5I7p64T9KUBtSqggmQCml -8cp/x+E/jZ2gMBPaJkCo6rvDUgziP4+B3UEJvSdAFV3pTRVU4j/hqdqf2pso -QKLr7FHol+I/SW2cV65rKUAchbItA9XiP3HHFUIPTSpAbebGNxgV4z+wvFOG -ch8rQJjRi3r/TuM/PvZRF7HtK0Bz+bkTEYbjP4zGB9t8zSxA3+hDMwnA4z/w -MYL4Sp4tQIh1nhCL9OM/FDS0SKaALkDvqfTU2CvkP0/RqvIDVC9A9Zb7fQ9e -5D9t2bB0nhEwQFLZ//kFjuQ/khVoiQGCMEA6e48Zs8DkP0KfAcvl6jBAGwpT -yMru5D9S9PalkFwxQL1sMhx+H+U/imtMJynMMUBlb6p/Gk7lP00whNVCNDJA -cOY9QpB45T9wwBcdI6UyQN6Hw1CLpeU/H56NkYQOM0AtAt+uls7lP/WdY6zT -dTNAt15hdPn15T8raZVg6eUzQMre67vKH+Y/7IGpQYBONEBykiXh/EXmPw1m -GbzdvzRAGs3s3YVu5j9WbOncKC81QI+VQI16leY/KsCbKvWWNUCSfpTPGLnm -P17fqRGIBzZAqJxzY/ve5j8dTJolnHA2QPFtvuurAec/PITm0nbiNkD6Ss+L -jCbnP4PekiY/UjdApYoT3Q9K5z9VhiGniLo3QAf5RP+Yauc/h/kLwZgrOEDp -1wzmPo3nP0W62AcqlThAWeWr1Aet5z8+GeT4//84QFV4plmpzOc/ZeHFWg== - - "]]}, - Annotation[#, "Charting`Private`Tag$54516#1"]& ]}}, {}}, { - DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, - AxesOrigin -> {0, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, - GridLines -> {None, None}, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> 1, - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> - Directive[ - Opacity[0.5], - Thickness[Tiny], - RGBColor[0.368417, 0.506779, 0.709798]], - FrameTicks -> {{None, None}, {None, None}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], ImageSize -> - Dynamic[{ - Automatic, 3.5 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}], - Method -> { - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, - "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, - "DefaultMeshStyle" -> AbsolutePointSize[6], - "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{0., 25.}, {0., 0.7437330962163836}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.1], - Scaled[0.1]}, { - Scaled[0.1], - Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], - GridBox[{{ - RowBox[{ - TagBox["\"Domain: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox[ - RowBox[{"{", - RowBox[{"{", - RowBox[{"0.`", ",", "25.`"}], "}"}], "}"}], - "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Output: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"scalar\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Order: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["4", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Method: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["\"Hermite\"", "SummaryItem"]}]}, { - RowBox[{ - TagBox["\"Periodic: \"", "SummaryItemAnnotation"], - "\[InvisibleSpace]", - TagBox["False", "SummaryItem"]}]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> { - "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, - BaseStyle -> { - ShowStringCharacters -> False, NumberMarks -> False, - PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, - GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {1, 1}]}, - Dynamic[Typeset`open$$], ImageSize -> Automatic]}, - "SummaryPanel"], - DynamicModuleValues:>{}], "]"}], - InterpolatingFunction[{{0., 25.}}, { - 5, 7, 1, {65}, {5}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" -1:eJwBGQLm/SFib1JlAgAAAAEAAABBAAAAAAAAAAAAAAD8qfHSTWJQPxHZUeYw -qZs/u9bep6rQwD+Qn41cN6XSPxGPxMvTOeM/xXQhVn+E6z9XQ+IeSx/wPz9v -KlJh7PI/HebLC7AP9j8yIHu9++P4P39N1qiHaPw/SPlJtU8HAEAQr+sX7MYB -QIT1fw7zZQNAiZgSSfQyBUB4tHHEWvwGQJ3X2CWqtwhAQj7o2ay6CkC7m6c6 -5KYMQJ8fRgiPdg5ATI47pYNVEEBIbeLkfocRQGItPgXAWBJADhXj/E0IE0CO -QLyuX7ATQNc07zhFJxRAHy457pSOFEB4l4v4TuwUQPWc9L7xNRVA4PPDCOFx -FUBYxRuZR74VQN+mP/uRAhZATRWMSupEFkCWBKipZYsWQCodrP9z2BZA9gt2 -w7YlF0Bjl6jeGngXQNl3RfC/1RdALLe0GhJXGEAKEXAIVQoZQOVhodY0zxlA -qcE0DB/xGkDhtOBFX4EcQCcxCKwcGh5A2iCTjJwFIED1nPS+8RUhQOtunuqQ -ayJAn+V5cHd2I0BwXwfOGbEkQNnO91PjJSZAtvP91HipJ0CJQWDl0AIpQCuH -FtnOlypAOiNKe4MvLEDM7snDQs0tQF66SQwCiy9A7nw/NV66MECYbhKDwMox -QB4Wak3zvjJAkDF3LSHPM0DYgXNGlAY1QI51cRsNUDZAT6+UZYiTN0AAAAAA -AAA5QGun4C4= - "], { - Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, - 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, - 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, - 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, - 128, 130}, CompressedData[" -1:eJxlwYs/EwgAB/CtxHUPj7v2qYkKnz5SfcjppNz5kUd6KDO3aJfu5Ll03brW -5TxO5JliGDUU8oh5nITWvB+ZzGMqzHvmMaWyQuns3B9w36+e5wUXbyKBQAgn -/F9spn0f0fRHK06T8IDFAxWQkm7x1h17Y9Vr1qIriafgIWlPMiXcHIbKlUBv -PxbMd1w9HeBOR8dsivrj5Sj0CbvHL/gEYUFV0S04yUHKzzH/mCbGwaXJrl+V -nIG/2NXWBmVsaEqWI7Mu3oX7XECXTVga2HSBIP9yNuqS/E9QHtxBY1v11U6T -exgwyXVWHcnBVEgAkxaXi5p6swDN6wXYkvJZ4EtlHvQvuYQUVBZjfxHVu+FQ -AVTbN2jIF/6G8drI34KP34f0lF3XKqsCc8I2rR5yIfh/NoeaulZhTJuV7d5X -iJGWJG4c+PB/OUXKDygC4+TKN2v0azAQ3qmzb6QIgvNpb7Ji6+Gq4yu6doiH -+1ncM0pGI95SuxxEGTy4L4pXryib4NV6KbroAw8W+xpCKudb8MwiWCxpKYaw -3baSvqMNV2wUKjzNMtSmO24OfS6E40YBupjl0P1S5HKA+RTxbN54PfMhgsip -bunHRJhazddwMOAjM0Gwy1DWiX81pt9n82uxvTzo9qOwbpgVhvr6mDZia/3O -pczUHlwO8xrlejRjaUY+6eosxu7aHROJ71qQLwy8GqAQIzfpKPG6yhOo52Sb -FQl7sUTYYPbp4xMI9zi28m4+A13rp1UarQ3WfhzHxRPPkdezwaj42zY46A4k -9JFfQE6VH8yIf4Lt1LWzf7x+AYuh2RJ7SisW+P3LLyr60CU7/Eq9uhmfYqok -Wqx+kInpJTfaG8HN5f6y02IADJP5O6TN9dA7b2qrpiOBVEbKs2TyQavIz20g -DWK/GtXYJLgChx0sPdfPDuK74Nkyde9S3FOctUuVDIF18DRxPrkA9Hat9Wel -w8gTD+ecc76HiBBVSpNwBB8KzS/f2JWNMOvY2NHWUbCNO07t2XQXtDlPa2XT -GNSWGcrEqAz8cO0RW3ZxHJIwbScjTS7WLDOpe4fH8bgu8HZJ8C1463ULOc5S -aLxLjnedSUX/cy8NW7EUr8RG9osuHASpEgaJxycgH60zbJYnQ/TWa++vVRPI -6V4SM8VJ2LLOhzVmJMPkUKW3VTkbBh+/ljmlyaB78oOLojQRZyr8bQ0Jk/Az -KF9RxCUgi7c7Vc6YBGPxdzdO5w2ojG8NSZdM4hxDZUiwKR6Liq6KSKcpeGrz -LWV+cdgW8dq3tGwKuUe2SXs1Y6Ejkn7usXEaIxS6vtOjaCRQyd97RE/jaHO4 -WzQtCsUrZwXKpWnsEueo9X4ViddfdLwP9ZiB2s0Y4qG5CJj31NALRTNg8ZU2 -UU/D8R++lwbJ - "]}, {Automatic}], - Editable->False, - SelectWithContents->True, - Selectable->False], "[", "x", "]"}]], "Output", - CellChangeTimes->{3.789818360124195*^9, 3.789818667629681*^9, - 3.789818736796588*^9, 3.789818818957527*^9, 3.78981958445508*^9}, - CellLabel-> - "Out[115]=",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"] -}, Open ]], - -Cell[CellGroupData[{ + RowBox[{"{", "x", "}"}], ",", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"s", "=", + RowBox[{ + RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}]}], ",", + RowBox[{"n", "=", + RowBox[{"dat", "[", "\"\\"", "]"}]}], ",", "\[Beta]", ",", + RowBox[{"xmax", "=", + RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{"NonlinearModelFit", "[", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x", ",", "s"}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", + RowBox[{"xmax", "-", "\[CapitalDelta]x"}], ",", "xmax", ",", + "\[Delta]x"}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"logZ0", "[", "n", "]"}], "-", + RowBox[{ + RowBox[{"logZ", "[", "n", "]"}], "[", "\[Beta]", "]"}]}], ")"}], + "/", + SuperscriptBox["n", "2"]}], ",", + RowBox[{"logN", "[", "n", "]"}], ",", "\[Beta]"}], "]"}]}], + "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.7898311955449543`*^9, 3.7898312093030577`*^9}, { + 3.789831243231729*^9, 3.789831244079329*^9}, {3.789831294191235*^9, + 3.789831426152293*^9}, {3.789831478986567*^9, 3.789831485824489*^9}, { + 3.7898315199939957`*^9, 3.789831522392721*^9}, {3.789831606978533*^9, + 3.7898316137600183`*^9}, {3.789831690098496*^9, 3.789831713568328*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"], Cell[BoxData[ - RowBox[{"fit8", "=", - RowBox[{"NonlinearModelFit", "[", + RowBox[{ + RowBox[{"d", "=", RowBox[{ - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"x", ",", - RowBox[{"s8", "[", "x", "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "24", ",", "25", ",", "0.05"}], "}"}]}], "]"}], ",", - - RowBox[{ + "getData", "[", "\"\<~/doc/research/hadamard/code/monte_carlo\>\"", + "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, { + 3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, + 3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, { + 3.789743002867009*^9, 3.789743004777854*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"sample8", "=", + RowBox[{"d", "[", + RowBox[{"SelectFirst", "[", RowBox[{ - RowBox[{"logZ0", "[", "8", "]"}], "/", - SuperscriptBox["8", "2"]}], "-", + RowBox[{"#n", "\[Equal]", "8"}], "&"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"sample12", "=", + RowBox[{"d", "[", + RowBox[{"SelectFirst", "[", RowBox[{ - RowBox[{"(", - RowBox[{"1", "-", - RowBox[{"1", "/", "8"}]}], ")"}], " ", - RowBox[{ - RowBox[{"Log", "[", - RowBox[{"2", "\[Pi]", " ", - RowBox[{"\[ExponentialE]", "/", - RowBox[{"(", - RowBox[{"\[Beta]", " ", "8"}], ")"}]}]}], "]"}], "/", "4"}]}], "-", - RowBox[{"logN", "/", - SuperscriptBox["8", "2"]}]}], ",", "logN", ",", "\[Beta]"}], - "]"}]}]], "Input", - CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, { - 3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, - 3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, { - 3.789820614022482*^9, 3.78982065862674*^9}}, - CellLabel-> - "In[198]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], + RowBox[{"#n", "\[Equal]", "12"}], "&"}], "]"}], "]"}]}], + ";"}]}], "Input", + CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"], -Cell[BoxData[ - TagBox[ - RowBox[{"FittedModel", "[", - TagBox[ - PanelBox[ - TagBox[ - RowBox[{"0.1419909084763723`", "\[VeryThinSpace]", "-", - RowBox[{ - FractionBox["7", "32"], " ", - RowBox[{"Log", "[", - FractionBox[ - RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], - RowBox[{"4", " ", "\[Beta]"}]], "]"}]}]}], - Short[#, 2]& ], - FrameMargins->5], - Editable -> False], "]"}], - InterpretTemplate[ - FittedModel[{ - "Nonlinear", {$CellContext`logN -> - 21.65166476666278}, {{$CellContext`\[Beta]}, - Rational[-1, 64] $CellContext`logN + - Rational[1, 64] (20 Log[2] - Log[6] - Log[ - Rational[1, 2] Pi^Rational[1, 2]] - Log[ - Rational[3, 4] Pi^Rational[1, 2]] - Log[ - Rational[15, 8] Pi^Rational[1, 2]] + Rational[35, 2] Log[Pi]) + - Rational[-7, 32] Log[Rational[1, 4] E Pi/$CellContext`\[Beta]]}}, { - 1}, CompressedData[" -1:eJxTTMoPSmViYGAQBWIQDQEWDk9rl3lLVj+1P3sGCHgsHA6e2Rx9te6p/ayZ -QCBp4dB1Uj63v+mpfRoIqFk4+OmEN7i3PbU3BgMLh4viGtP+dj61BxvnYOFw -RPbe+o29UPN8LBwYnOPOJ0+Emhdp4bCT2fm78FSoeWkWDvvCf2gdmgE1r9jC -4e/VCXl5c6DmNVg4XEs3OySxAGpej4VDZ/MjtYOLoebNtHD4lrRtXvpyqHnL -LBymer3U5lkNNW+zhUNZ54kL69ZBzTtg4WBfub3ffxPUvDMWDrp1+tnvtkLN -u2nhIMp+ILV7J9S8ZxYOKb18TWp7oeZ9tnCQm3rt0P4DUPMYLB3ur3mpFX7k -qT0AWZCXHw== - "], - Function[Null, - Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], { - HoldAll}]]& ], - Editable->False, - SelectWithContents->True, - Selectable->True]], "Output", - CellChangeTimes->{ - 3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, - 3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, - 3.7898200010500107`*^9, {3.789820617302545*^9, 3.789820658889573*^9}}, - CellLabel-> - "Out[198]=",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"] -}, Open ]], +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"c8", "[", "x_", "]"}], "=", + RowBox[{ + RowBox[{"Cf", "[", "sample8", "]"}], "[", "x", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"c12", "[", "x_", "]"}], "=", + RowBox[{ + RowBox[{"Cf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\ + + CellChangeTimes->{{3.7860306193210077`*^9, 3.786030620479714*^9}, { + 3.786030896792254*^9, 3.786030897100741*^9}, {3.786380888045945*^9, + 3.786380925007681*^9}, {3.786381157019925*^9, 3.786381157479299*^9}, { + 3.789745775534863*^9, 3.789745775611329*^9}, {3.7897469477345467`*^9, + 3.789746974292004*^9}, {3.7897497620872917`*^9, 3.78974976216495*^9}, { + 3.789816756139023*^9, 3.789816807097396*^9}, {3.789819433657423*^9, + 3.7898194634932632`*^9}, {3.7898319317305803`*^9, + 3.789831978527664*^9}},ExpressionUUID->"0885a315-6bfe-4916-87e6-\ +8a66c95472da"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"fit12", "=", - RowBox[{"NonlinearModelFit", "[", - RowBox[{ - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"x", ",", - RowBox[{"s12", "[", "x", "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "24", ",", "25", ",", "0.01"}], "}"}]}], "]"}], ",", - + RowBox[{"LogLogPlot", "[", + RowBox[{ + RowBox[{"{", RowBox[{ - RowBox[{ - RowBox[{"logZ0", "[", "12", "]"}], "/", - SuperscriptBox["12", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", - RowBox[{"1", "/", "12"}]}], ")"}], " ", - RowBox[{ - RowBox[{"Log", "[", - RowBox[{"2", "\[Pi]", " ", - RowBox[{"\[ExponentialE]", "/", - RowBox[{"(", - RowBox[{"\[Beta]", " ", "12"}], ")"}]}]}], "]"}], "/", "4"}]}], - "-", - RowBox[{"logN", "/", - SuperscriptBox["12", "2"]}]}], ",", "logN", ",", "\[Beta]"}], - "]"}]}]], "Input", - CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, { - 3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, - 3.7898196670555353`*^9}, {3.789819741878034*^9, 3.789819742314652*^9}, { - 3.789820032771653*^9, 3.789820044215356*^9}, {3.789820592678129*^9, - 3.789820607802986*^9}, {3.78982066564784*^9, 3.7898207068254957`*^9}, { - 3.7898224619322357`*^9, 3.789822468070911*^9}}, - CellLabel-> - "In[221]:=",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"], + RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", + RowBox[{"c8", "[", "x", "]"}], ",", + RowBox[{"c12", "[", "x", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0.0001", ",", "25"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Beta]", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotLegends", "\[Rule]", + RowBox[{"{", + RowBox[{ + "\"\\"Italic\"]\) expansion\>\"", + ",", + RowBox[{"n", "\[Equal]", "8"}], ",", + RowBox[{"n", "\[Equal]", "12"}]}], "}"}]}]}], "]"}]], "Input", + CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, { + 3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, + 3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, { + 3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, + 3.7897469324195147`*^9}, {3.7898168197536173`*^9, 3.7898169067292557`*^9}, { + 3.7898195108437023`*^9, 3.7898195343107243`*^9}, {3.789832003730896*^9, + 3.789832020151675*^9}, {3.789832149993394*^9, 3.789832167007585*^9}, { + 3.789832405514276*^9, 3.789832453208054*^9}, {3.78983251872959*^9, + 3.78983255469631*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], Cell[BoxData[ - TagBox[ - RowBox[{"FittedModel", "[", - TagBox[ - PanelBox[ - TagBox[ - RowBox[{"0.08695911028648745`", "\[VeryThinSpace]", "-", - RowBox[{ - FractionBox["11", "48"], " ", - RowBox[{"Log", "[", - FractionBox[ - RowBox[{"\[ExponentialE]", " ", "\[Pi]"}], - RowBox[{"6", " ", "\[Beta]"}]], "]"}]}]}], - Short[#, 2]& ], - FrameMargins->5], - Editable -> False], "]"}], - InterpretTemplate[ - FittedModel[{ - "Nonlinear", {$CellContext`logN -> - 43.82158767202141}, {{$CellContext`\[Beta]}, - Rational[-1, 144] $CellContext`logN + - Rational[1, 144] (43 Log[2] - Log[6] - Log[24] - Log[120] - Log[ - Rational[1, 2] Pi^Rational[1, 2]] - Log[ - Rational[3, 4] Pi^Rational[1, 2]] - Log[ - Rational[15, 8] Pi^Rational[1, 2]] - Log[ - Rational[105, 16] Pi^Rational[1, 2]] - Log[ - Rational[945, 32] Pi^Rational[1, 2]] + Rational[77, 2] Log[Pi]) + - Rational[-11, 48] Log[Rational[1, 6] E Pi/$CellContext`\[Beta]]}}, { - 1}, CompressedData[" -1:eJwt1HlU1FUUB/CRo1kYqYWI6AHBDNQOekLhJnF+V61GERcWIxgoNAXEBDyK -IaUoOKwyhJrDYsO+KQ6LCsjesAqjYFAEubHEU+SIS+Myp7Q3073n/M7v3H++ -v/fu572f5Y4Qt10GIpFoF3907/8L0MRAPONZJBOaNTY+yQaA1m8eDGw4ygTp -A9dq82mAJ1UbymKOMWH9UISxcjrg+++1D2+OYoJhf26okyHg8OCT1ybRTLim -5vU24Aztjel3eJ+s4oEzAU237tYWHGeCW7W59MFswLra+v5gKROMlWKeCDhq -1pdpH8MEfdxcwCrncrdXvE9P4zUP8Iy196PWWCb46AIXAM5P6g1PimOChX6B -vP/CasIjngm65YktAfN8NjovSGBCHo/rXwT46pD7qRHe++vqA8CSGKH9XCIT -lugDAfd4G4/tO8GECZ4mXQa4XP37JCQxQb88W0CbisTR17zfx+NyVwCqhhxa -2mRMsNMXoGL5XVlSMhOe8fGpVgGeDYn/1ONHJui26wqANw7AX2YpTPhet+HV -gCmzn4QO8d5JP0BA/7m1rPAkE/QcyD08UzcEnyKPtYCZWbIzK0+Tx2eAq5tz -rmtPk4cYUJI08LjpJ/JwBlSqHUSxZ8jDhc9ns+qli5w8tgA23Tp8+91U8nAF -1H4eovwjlTw8AH08MnYr0sjDE7Cy+41ZO9PJwwvwnajK7CUZ5OEDWGhXaj6Z -QR5f8Xmf18RcOkse2wE7ymWDh34mj28A/zaMnCcoyMMf8MIPXeumZpJHIKBn -V7jX1Uzy2AMoq0n0lmWRRzDgUqO3xO7Z5BEK6CTVmJvmkMd+wNmj24Zv5pBH -GOCH47Yp2bnkEQ64yVO6zD+PPCIA9477li/NJ4/DgA3b660m88njKF9fRFHk -xQLyiAIceryo47tC8pACOkav/MexiDxiAfvu354vKiaPBMApd62tW4rJ4wTg -Vgtj87hz5JEMmOBXJHI5Tx4pgGWS+9dnlpDHaT7P9j/jekvIQw44LjluK79A -HmmAi6+xRm8leZzl96XH0Mm8lDwUgDvMnuQPlZJHNiDzzdHmlZFHLmDtpoWO -geXkUcC/nxEasKyCPIoAe17IIx9WkMd5njcnI7r8InkoAUeyjuw/cIk8yvj5 -cBZvcbhMHhcBextemmgvk8dlQL+S9M66SvKo5uez0TYosoo8agALcmo0a6rJ -ox5wYMq6vVOvkEcTYGeMuqftCnmoANsGJQvja8ijFXBbgUaysZY82vl9SVFE -G9WRRydgyFqJvLuOPNT8fPitkKfUk0c34J1kq2j3BvK4AfjRQXvJnEby6AOc -XhVq0d9IHv2ARzS/dac2kccA4ERv0Lfev5DHTT6fp3aa+SryuM3/L89WBd1S -kccQ4K8RYV2KZvIYATSyfG7q10IeY4BesY1ulq3kcQ8wYGNv+HAreTzg/oYO -iblt5PEQsPrryfid7eTxCPAYE4Ut7iCPp4Bmn4S6jHWQhwbwy+drZhVeJY8X -gOsrIpoCOslDy/c/zcLXpos8/gVMjbUbu9dFHqKP0b6nTlKsZsJ/SvkIoA== - - "], - Function[Null, - Internal`LocalizedBlock[{$CellContext`logN, $CellContext`\[Beta]}, #], { - HoldAll}]]& ], - Editable->False, - SelectWithContents->True, - Selectable->True]], "Output", - CellChangeTimes->{ - 3.7898190432299767`*^9, {3.7898190857153063`*^9, 3.789819091977379*^9}, - 3.789819585687628*^9, {3.789819631032202*^9, 3.789819636628154*^9}, - 3.789819668850231*^9, 3.789819742671688*^9, 3.7898200469962473`*^9, { - 3.789820593415386*^9, 3.789820617938416*^9}, {3.789820650005217*^9, - 3.789820707095992*^9}, {3.7898224624031363`*^9, 3.789822468629485*^9}}, - CellLabel-> - "Out[221]=",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"] + TemplateBox[{GraphicsBox[{{{{}, {}, + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAZm4ys7FrIsAYOuJop54owMKKYA2+ +aSLAdFYQw7OcKMAep45nymciwNByPh3AmijA1t/qG+NjIsCIq5rR2JYowEdR +o4QUXCLA+RxTOgqPKMAoNBRWd0wiwNr/wwttfyjA6vn1+DwtIsCcxaWuMmAo +wG6FuT7I7iHAIFFp9L0hKMDUSP4EXWchwIYUrrpSmifA6oTeIevoIMCcUI7X +4BsnwJX1ujb0bCDAR8Fq7OmfJsA6JaoM98wfwE/eBDxxGSbAqlAVWfjRHsAH +dDri8ZslwNbU+xr2wR3AHbYtw/ATJcArwtrM6bYcwMgsHZxqjiTA4KDwK9C9 +G8AiHKjL3REkwFHYgQCzrxrA2rfwNc+KI8AhAUqCiLMZwELM1Pa5DCPAG5MK +9FO8GMA/FbWvH5EiwNF9RtsbsBfAmgpTowMLIsDmWblv1rUWwKV4jO3gjSHA +t46neY2mFcAOk4NyPAYhwLIsjnM6nBTAC+J27xKBIMAMvKsa2qMTwLipBcPi +BCDAIqREN3aWEsCGO6SiYfwewJh9FAEFmxHA/BR0bPAAHsDKr19AkIoQwC5H +v6t78BzAS5ZG3yL+DsCK4gLb/OQbwMKvO5gKCw3ARW99t3DrGsCxeic86+0K +wLxUcwnh3BnAXyiBOrH0CMCTK6AIROAYwF+oyxhjBQfAk2vF95zoF8DY2Qzi +DewEwFAEZlzy2xbAEO67BZ72AsBsjj1uOuEVwMCzYRQn1wDARHGQ9X7RFMCE +l/AFOIP9v0W922y5xhPABo35l+yf+b+l+l2R5s0SwHnl7/+SaPW/wpBbKxDA +EcBqA8IcBHnxvz4YkHIsxBDAAIzr8pk667/IEXpTfZoPwAzXLVgP2+K/i6TK +rJqCDcAsWk9ONBbWvw0aiWCdjgvABEjiD0WYtL8IQT7/mHAJwF9A3uXNVcU/ +wkph+Hl2B8DNP1AqgCzaP84mddFGhgXA1en9BCl/5T9TtH+VDGwDwMYoHIt8 +WO0/liT4s7d1AcDs0K8y9uzyP6SMznq3qv6/0OjvX9YZ9z/AdI5N1336vzU7 +VNjr/vo/WyIq1cGY9r+qKst6Dzj/P+YyszKeX/K/UCozNLSUAUDfETCKitzs +v/jsD8t0gwNAQQe9Logh5b8o/vV2PJwFQACFSf7SfNm/mSxuyB6RB0DsIhDl +gKvDv7D7o1TbmQdAfzGzIbgfw7/Iytngl6IHQP4/Vl7vk8K/9mhF+RC0B0Ag +XZzXXXzBv1SlHCoD1wdAfC5RlHWavr8QHsuL5xwIQAAXgl7p3bW/iA8oT7Co +CEDrn4/LQ5ORv6DeXdtssQhAvidQYftpir+3rZNnKboIQCERgStvrYG/5kv/ +f6LLCEDW/nDxXysav0SI1rCU7ghAOb6sC+1ekT8AAYUSeTQJQAWOdPGOKKo/ +GNC6njU9CUAGVOj+sVesPy+f8CryRQlAtRlcDNWGrj9ePVxDa1cJQL/SoZON +crE/vHkzdF16CUCJXomu09C1P9RIaQAagwlAhkFDNWXotj/rF5+M1osJQF0k +/bv2/7c/GrYKpU+dCUA76nDJGS+6PzKFQDEMpglARs0qUKtGuz9JVHa9yK4J +QByw5NY8Xrw/YCOsSYW3CUAIk55dznW9P3jy4dVBwAlACXZY5F+Nvj/Fc2Cm + + "]]}, Annotation[#, "Charting`Private`Tag$19414#1"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwVV3k41Pv3H58Zs9hNjGVkGWSIrrI0RO8P3xC5JEq5VMpStCg3orQopRJl +V5YsFe7NvmXJociNbipbhG5FluyZxfrz++M85znP6zznPOf1nOd1nqN25PQe +b4xAIHSu2f97n1NbSov9WbDwxMxVr4kNjbcPi784zgKF7/5lJi/ZoPw02veN +LwtqpNOlrRvY0DU4xvx2lAVkO9G2g3VssHHKvi7jzgKRKzSLe+VsYBvK7Au2 +Z4F7QtLGucdsGBPM8830WLA/VZL4/AYbTkU8394yqQYXplm1O3ayoWPnCsnD +Vw3+OBNS0gtaMHZ9QG18RBV8TfnmfpZakDBfbfzrhCrc0Z5df655A5hq5ovx +2lTA76fK1AraAPm7ZQ/w3ytDX8rulPBGTejqWFTkNqyH+A9JpRGmmrCxsbdt +tEIJTn2XnCOVa8CXR9Mb2+uYYPjcLeMSRwOceq4SSgsVoXpqUTmkWB3UhOzC +I0sVwLeA03XKQB2YcSK/nGvloT+g2uFrJQveh1n3MYvk4IUbO+LTZhYMH3h+ +uqucAUktneL/lqlBZfTTkLtPZCF31wEbOz01KNGNDjRNlQHXd3c+2uWqgljt +X4q92esga/XVrd91VYGVs2NrUCId1Kv7FF/vUoHkMBkh4YfSwHmw/rmwkzK8 +KTyE37stBQud4mJRFuthV6L1IGtFAgoPIv99W5WgsXBbsoioOOg3nOv1REwo +DtUyG58QgVdflkdZBopwiH3VtPgXFY7yPtQHmijAodxW+aPCFFhx6OcGWclD +zyexr+I/SSC8VXawxVwOpCZrhNO5GDi7/SOpYssAKPWU0eomgFYeHi+wkIXr +SdPCnGvL9SSJdHN3Sxkg3xUk/cwQ1CulvlQxdl0HIUNTq7HH5utLgvveinjQ +wY/YqEQKmal3ZGrr14RIAyFqfDbFdLze+fEFBpYtBWLdevsl+77Wr7o/ucO9 +Kwm6bo4Ohoyu+m+em61VGBJA2vlV0iq5rL6luPxKYowYHMIHht7ubUKX6hOn +BneIwlu0W+eKbi86zYmam9ESgc7RZZL25SFUhVwy38nRoP0Iwzk6fQiNu2wN +EZOhQVvfpsy5uiH054jRQVspGrx6e8j8xdIQ0tCammuk0qCsuOGcc+gwsntu +VVkioEJsSMRw2Lkf6N/D8t4n+6jgQBNv+eA/igjf6k5Ep1HBLlyTwbkzimoG +lGqSU6hgvWjulZY/ivxaFk9mJFDBfOIU4djoKDJV/+NE5l0q6L5v5yz7jCFe +FenGhTAqiKTE52kdGUd/5fk82O9OhWa20p2L+yeQXh7dp0WGCvnGEXbhoRPo ++xdSU6okFaJ3TNIiU9dwtsOqrwgVXA9DZNyXCTSW+Muze5UCI0leN/KPTSLB +po4wiTEKiFKeXe05P4WEtH93u1xDgWkZhsXAgyk0I9HL9iinQAfrMuF77Rr+ +2CtNq5ACDhm59cGEaSQh5Zl+JYsCcjWh26/tmEZJVTVuppEUyJ1VNnvQNo2u +LJsxAh0p8CDkIzOtfxpZ3xPa+N2GAlGEyMWMyWk0qCFY5OAUCJCYqX4sNYOm +h7ceuKNPAROdlybFLjOo4CwlvUGSArrFwQpl3jOIccTBCFEooMzRFVQEzSD7 +VYN7D1fIgFknVNUmz6Bfnb1eXT/J8MbTd2vL5xmU00MQzXlNhtoRplzrxAwi +O1TsWa4jQ8Hpdu7blRl0NVG2YXMZGWLDTCo+qs6ibTX8cJ1HZPgjRdRo0GsW +dYCdYHcQGX62F27h/pxFxuphVsWKZLB/71WatzyL7tuFtydIkOGv9wqGHhJz +KNPs1U1njAx+H64ZvfptDiXRB4LcR4Vh5KMrJ/bsHJqf131YUi4MQ12r5pv4 +c0j1yOSnYRthGPjsaOtDnEevRa+n67uQYHs/6Y2CzDw6czstJmgHCdL6n9u9 +1ZhHMXlVr6oNSeA+oG5vaD2PUi5NaFjJkqB3kOeA3ZpHc16KHSJdROj+muGS +LsFFx+Nce+PdiGD8zaXTSYWLLkf9iqzfRYTEb7R9wvpchEYSkxnmRNj3PdD1 +hBMXTfHSu3aqEqFjyMbNNJ6LnAk4b3YEA8Phpd6JHC5a6Wne2NyHQdxw8R+Z +5Vy0qYN9ZuhfDPb8YHpQu7moEr1PVajAoH1k6lCXAg8JAi2lOyMxUAx9X+6n +zUNtPa5bD1zG4Khoqegqh4eyZtx/oSAMuHpBlVr7ecgyU22voTcGeL2reK0v +D22vluu39sDg1m6To7uDecilJHV/414MlAKXJEISeWi/32z3ig0GPqQBL/En +PCRxoeNkkwUGhQn11ZnlPKRicEuZYIYBf0OmlHETDyX4xM0XG2NgWRXu86aD +h9abvWuc3oxBlK1X7cHvPHSGvjHqsx4GXb1W9Lk5Hpo9U/xhpw4Gqie0jt0k +8tHFm1atxloYHF+mvmCu46PC1zHNTzUwKIkeW1fE4iPhsM+b01gYLKm0Hd+x +hY9yTaWS5dUwsC5+Vt9jwUdqiaVZTFUM7lnGyJ504iNGiRwzVwWD3o8B/kKe +fDS1O2G8fi1W997TkBDAR9x9I6rea/knuAZyOlf4qPFT3njKWr2Km7InX8Ss +xYzxzMPqGBAUeI17MvjIc2IOajQxsM3vkf9RwEfy61/ur2ZjELut+tSFF3xE +3XVErFwXg89tD19J/stHOQ29GrZr8284GKaY07/W/6GfVtAaP6enDgZwJvjI +Nckgf9saf1VX8Oa2JT6yCjvjnGKJAUZnKXmKCdCjkNKeaFsM7LOJZ+eZAuS7 +VW6F6YRBguHQ61sbBSjswfUE/AAGA03N65W3CRBjdCRsyRMDtmtuYImdADXr +B2Q5+mNwduTWP9ZuAmSWXyMwOYdBbYi/St9xAYr/uC6iZm1fHFM3tRJvCVDM +U3ODgkQMkvWk1JKTBSiOneuvmo3B1xczQbq5ApR5OjNOswiDoP/KWHtfC1DF +5ttHv7RikLphW+gT4QW0+tA4vptGhOFKpXZT2QVk/zfdKVORCL/Zrmi+01hA +MjmBBX0bidDo3/Ce978FpDr2svqGIxFGimy0bcMXUOBlhpd3KhGMtrn0jK8s +ICR/82SsLQlmGQM+7ZKLaMzwXkv2ERIUzfrOl6kuosaUQp7MRRLo5l+gX7Jc +RAFyugmUIhJoKGTbS91YRFN7lL3/ZgoDnTcDhuJLKHZ053MNgTC0f7jgqKC8 +hDy7byTUyZAhukB4YHnTEkpJaok6rE8GER+FxebdS0hfN8awypcMQp240YH4 +JdQU/KbWrosM0yUxeWHMZdTUVXiauabXBdEKnCO6y6hG/Jiu1z8UOOGX3Wxt +vowm3JhSx79R4Ida5TfJQ8uIaR+b0smgwsC9gfVZWcvo6YXIp+2hVHh7Si+2 +WXsFtVsePj9pRIPbdpWqf5muIG7hVDbNngY7N1gUxuxaQV1TQYufPNfuZb9L +2/6TK0jqUq/4gyga1NpfJI8XraAWOUfFrAEa5Ou0hkpyVhHVPXdCKVgE9iRd +HeiwWUXaGt4WgzdFYIHIsXzguorODw6IeCWLgF1/Dk0zeBUFxS/3V1aJwGjM +pWTTilU0ff/s+e9cEYhfkO/bokjAX17ac9LJTxRG9H9FybIIuFcF9nI0WBTM +fN9t52sT8FijzyTXCFH4/jEiq86EgPsTa9dVZoiCwbPZ4zsPEPDHRwjiqx9E +4cOhNr5HMgG3K/HRzzUSgw2JT/PxRwS8LPrKjgALMQhtC3dXzyXg8R0amOLv +YsAyMYGRSgLO+a15nbKXGJylP7kZ2E3AQz9uKaPcFwPppsuMWwwhXJODbVMY +FoPdOgaGZfFCOCUjVTPgmji4pUUbn04VwqciAz2eR4mDt9QYRydHCK8rFmjz +EsQhlPvI/FGpEL4HzEvdcsXhcaOETdQHITwjjsRobBOHBbexA15SGE4MUFZp +XicBOXcyL8tEYXhufl2daKoE8H9Ktv55jYiP9ulFfH0kCeyV+SCzVGGcq/pD +Wf+LFKTonmpRvk/BVUtECqX7pKFoMdulL4WCd9//+Nh3UBpa3nz6kpRFwU1j +CkabvkkD95iVQKqMggsa5ZQif0qDy2MlHWI3BXfmbDmjtiINUsqtd34oUfGf +M6IPFdXoECnJdizKpeL3T4xyDH3p8GjAo+9EMRW3l3VCN/3pUPkszle7mopb +u0a9/XSaDsO7Vi9ntVJxK5/IlvDzdNgR2VUUP0nFVYmHg/Vv04EgFEEPMaTh +xndbfW8/o4N8e3W6kTkNX/di73xPMR1+y5jWmbWi4XnDBz+rV9DhoLn7//xd +abgL6cZI+Qv6mr4Y/OkRSsMvZeZnK7XT1/6L4wTFazQ8v+qK4FoHHcblMqK6 +7tDw2YdDmyZ66KBYIfLYMY2GT8hMXmr4jw5bIvDNYk9ouFV4U7bOMB1sXYLq +Wgpo+Nlz5Nr7Y3Q4rP63bUQlDb+oEloyP0mH87P/dVoADQ/QHvHZO0eH/wOF +P3E8 + "]]}, Annotation[#, "Charting`Private`Tag$19414#2"]& ], + TagBox[{ + Directive[ + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], + LineBox[CompressedData[" +1:eJwVl3k01P8Xxscy85mxmyxZIqMyRItUIr0/rdZKKBFKZCkpbaK0kIpEq6Us +kRaUPb4V5iZKqGzZG0uRPWHGmPXn99c99497znPPee5zXlfn8AmHI+IEAkFO +jED4f/UJNC4qOEaDY67bClP76VAZfUi2wp8Gf399o+T00kHrRaxvrS8NMjv2 +eZYy6dDaM6Lxy4sGcSIPhYZOOljueXpNyY0G/hO7A8Wa6UA3UdoXbEeDSdVC +fe+PdBiZY3E2GtGghnokVT+TDoGRbzfVTOjApqyhS8VH6NBiJZR099WBp8r2 +ZlZMPRi5xtQZHVoMdr+ylX8c1IOHrHfrZgIWg4/nlsTuX8vAbGm2zGy9NgRx +/Uo83ZdBtr2yC6dRC2Sva77r6VkKrS08dfaHRbCGu3as03kpLK/srB8u0QRS +LYtq37QEep9MLm8o1wDz8m1Py/cugT3tVwlFeerw6sm29S++6YKOmE34zSI1 +cOxLu3PTXhc07kvNOJYthP7Pevf7W2jQGLajSyNfFSravLaX7KLBoMvbE61v +VGA866vRlUYdKI19EXL7uTK0uzM7wVoHCg1jT5slK0HrOlH02arFIFOWo975 +dAFM66bcXGS1GGiZ29afi6fCGS/nfUfDtSExTEmM+FgRPllL8UOua0Ft3kH8 +TrQCRHFsN7ieXQS28Tt6aEI58D/JqJDx14TKPPNEKWlZqH9BkH8UqAEFoXob +R8elIF9jiPfHQx0O0q+aFcyQofG/pUFanmpw8GXdQi8iBv+9npS09VsI7R0y +/bJjkrAbRv2jXFVBYeI9MZUtDuZ8PV3XgyoARZ5Kem0EWCWhZB5hrwzXEiaJ +phECRmiZ/US5lRKQbs8ljKXNMU4unvUL3LcAQgb+iu75sRgZkoyXD5ypcFSi +UlMy5B+jeCo1puy0IhBiRqeSzEYZDJrRTptkBZBpM9ov39XPyI5eXXErVB4M +XXfvMlFpZbhtkTsQMiELklb98tsTixlnHC+rfD4gAwdx5sDXvdWo/7feOgpZ +Gr4ie4Mrhp1IY2qxs3kPBTQnvgV9PtGJXq2wOX6vkwIByTvfyhV1otX1wV1j +PyggNWdjlbKhC93Iuvs5p54CVoXbfd7t6EZWfRNUh3cUqFpinjFziImKAq4c +tounAFNywe1imz50af2ekC/2FCC5Na3aH9CH1NfHP7xtR4EVRXdbeLf70OZA ++zknKwqEeSpobm3sQ4V2KTHjaF5PhWxOo3M/CmSevrd9JQVcg8lfJrx/oaX6 +h/7uk6PAj2GBpP7lAZTz+K+tzncyNBxWcYxNHUBpe8qk79SRob5rRfp0+QDy +CTbwEq8hQ9XXgxYV/AH0TOsT/x+Qobjgw1nH0EHUce1TFrGIDPdCIgfDzv5B +br5bdacTyLCLIlvTdGwY0R9m5ed7k8EmfKmK6a1htPCYa1KKJxl28Cy8U7KH +0SJiek+sBxksxgMJfsPD6PrRFuOw/WQwbGwwFfiMINHuucybdmSQSnqQpXd4 +FB3IDH/rspYMn+iaty7uH0d7dTdbllPIkL0u0iY8dBx9XlvQNkIiQ+y2CcrN +5HG0HDNasEiSDM6H4Ob93nG0UtiSFyfEYCjB+3q23wRS3VMQnjuNgTT2+mr7 ++b9oF/39o04mBpNKKpuZj/6icvZqunM3Bi20y4TfZX/R99593PYODHalvWQE +EybRrua98WMtGKi+D90UsW0Scb9FtzjVYfBySmvjo/pJFJYvxzR+i8GjkGaN +lJ+TaNGXbWXkUgxiCDd5aROTiCb36NtwMQYn5f69e6bwD0VfTQytzMdgg8HH +DQVO/5DY/Q6v0pcY1Hr6rq/p/ocWHWnTTEjCYKwhz5g9NoWGeyfvqlzCwK7R +uyhLMIVYgf0Pr17EIKdRzcRdbhqJrV997m8oBkebItZWrZxG3Nm0a83B8/s3 +O5veOzWNfL9dPN0ZhMFAq8hiBWcaxaav7HDwwWBbW3FFH3kGaWg2POnxxiCz +zR89VJtBIx+Vwo96YeDd3ozzzWbQgqmCmvOHMOjveLG1NmwGJUi1REW7YrCl +060qLHYGLXdNqVdywSC9U3H76rQZFCRp8CnBGYNDXRd2JMIMcnz8SCHCCQNm +925rHwkWmgleR6rficGmn5K1akosVJSquGLOFoOUn29tvi5hoR5aylclGwzc +mLp2JjtYSN6kqlNxBwZlzPb6P/tYSKmDfWxyKwYaPbd3PvZlobA3oeFVmzHo +7JndJR7FQoHBXmFJFhiY9b76/iaJha6SL651MccgqdfT3j+bhTTWCkSzphhw +elUaNd+z0OcuUeipdRjs76vb01DHQgrGduuq18znWN+VpohuFjJoqCwaW4XB +wv61juvHWWipbbvvgBEGbf1pTqlybERPkCBt1MNg3S+nH3u02cj91J7H93Qx +iP9F2UdcxUY1pcaMHG0M9v0+7Rywh43O7lmUoKKKQclverv2YTaKSrd9eYiK +gfLAz/3Np9hondRtSQ/ZeT8OWLqaPWCjGzpxYUESGJgM8jvHM9nIRdR695SQ +BPcHCw6kv2EjgdDzrNwcCaYGfbqdPrGRZF9Ljvk0CRz+aLiT29gosfpp9uQY +CQr/NPx8/4eNNLaqMXUHSaA4FOlxgsNGrpzu3DomCRqG/h5sVZtFlsd3/XT4 +RgL10MY3R/VnUUvtNLOymgRe0kXSItNZxOy7KJdURoJXyQ8871vNIo+jVX1f +C0nANjpXqrd/Fq20dxl1eUkCnOEsW+Y7i7TmvHrXppAgyn6Dl33wLKKde5Pq +epcEmqf5ciHxs0jCa4x5OJgEPpJMb9nns6hnr2v1Pn8S5D1kvEt/M4vopKiQ +7QdIwFmWrrCuehYNyf9o3m5Hgi3/hfvUtsyiosbkANuNJIix9i7z+D2LlubG +7LJZToLWzu3U6en5eZEzcb0aCfwF5AqNBRy01WKHIPcfEQpjRxbk0ziIWFvi +vqybCHztev9txhwU+Vpp3KuaCHe2xCkf38NB+hMTBOoDInQ2nzwm5slBzi71 +a8JDiKB7xOHDw5McRF6TNDDqToSSG8rHK+I4qCJEO/ImjQgEtdlKhzQO+qzZ +9jFHnAjW2e0L/+RyUMaJyWinPknorn9cJf+Ng9Y7uokvfSQJ4lSapqfMHLre +lzvA4UiA3VOJUyyNOZR5NPL223oJeGgy8Dlq+RyqcF+YviBNAujOL08X2syh +q4sboz4gCdidvKJOImoOpUuSvBqCxCHRSEEnMXEOuU727P5jJg79Ff/OGb6c +Q1s4ZqssJcThXF8xbe/nOaQ4gj88dk8MkpeZhz4ncpGImnt2wSsCDJZqNpgp +c9E+t20dDacIsNJauPT7Ei6KcppSRGYEqDz2oXF2KxdV+TelzsSLGDKCDL0Y +Ry7adq3x4dPlIsbe2Gthi724KI0tFur3UcgYyrfUtw7nosc9uRPnBQKG8Rb9 +yz/vchHviar92ScCxoVmqR9B6VzUFy00drMSMKq8xwxIBVz0JuHX+WwWnyHH +/nrlEXDRaZGCl1gWn7H/Rl7rigYuSu3M+RJzmM/IWHjX8GMPFznzFc7l0fiM +saxT4c5/uSj937OakWEeY625U/uokIuu2bXb+/zHY0ypMH0a5HnINqMnZMct +HiN/ypdVvJiHHBULQj758hiB3/5FJK3moQXGvaC9i8cwzL5AvbSFhy4Z3Pc6 +vonHGIkkph925CFRNk0mZgOP8dIzbqWlNw/xZj4kOCMew8dCrWL5WR4ivLId +Dd3NYyxRe2qncJ2HBgvfONGP8hj9M4ZdM/E8ZKlk7GAex2M8aSjx73jBQ25Y ++JfsCh7D4xXOKf+Ph4pTTm+1nOMxNG7WXs/4wkNbXa9rrdvEZ7R7OSnf6OSh +TV64888YPiMeMZ8eG+Uh6fdHj2f/5jOcNPyM7fk8dCAySHHLdgGDOvsPTGT5 +yC5Gq94lV8BoaLqwW02LjwoXOt4/ry1kxOYSmYIVfJQ1Tt9DTxQypHzUeJ/s ++agpa++Z8FQRQ+wHvtblAR+t+PbW9xKbABX5tR8tnvFRxy3D6p/bxeBijJMD +rYSP6C3BdcXxYsDZ6nditI2PpE94vb4777/JwrisMA0BSrCptB4Mk4DcWDXT +w4YCVOiuNxP8VQICjj79tMNCgGqcZlYgTUn4o1P6S/6gAKmrLJvwLJGETAF+ +auaEADHLxu/+IBDhcEctoeOKAAXeeLGg0JoIzDvMRRkZAlRaIazUbCVCcoDf +q+tFAjSjurf96Pz9u1pNmR2rEqAXxyybM1zn80FE3G8yKEB5n5ZyTraS4EFX +3ODCWQH6SPqo3a+AgUOp2lkBJkTjg9yTM1YYfA00uvdJX4hirF87/S3AINqm +dHGOmRDlxy0b6+vHwGrZ5rw4WyE6IuWZHK04z1M/ner3HxciUaKTq7cfGcLf +Ml0tLgmRmdFsRPcdMuAP/YZ14oRIWr334qa3ZCizu0gazReiqOqOjmISBULp +pIffPwhR5YXfpe8MKGAqeUe3uEmIlMboAdPzfFj0/ikeNiNEzMM1FgtiKHAy +wei7J1GELss5hchmzfPj6VL3HSoipI6t/HOoigLZBnWh8qYiFHDld4wHmwIO +CVeZLZYidOCbl0S5tBRwJUy3PHIWIamdLQfmtKXA5mcmZWmwCMk3Ew+rWknB +lPWB4yPXRWhDiIBr4i4Fj0oUG/PiRcjW2JkaHSQFw3GXEs1KROhIRVDjcIIU +3OGb8EXVIrTRwWpakCUFpv6jB6t/iNAN04Fbbu+l4OaW/Xr2LBHinlEHpW4p +eMBd2GWsTsDvDAWxPVSkYWjVTIwyjYAfL1fl5upKw0bf75s4+gR8p7enW8Zq +afjdHJlRvoGAR8W3Yvq7pGHN6yl/KxcC/rwxzy8nQhqaDtZz3BMJeKTW2pYL +/dKwLP5FNv6EgHcoyy0JGJeG0PpwN92XBJzy2TLnLEcaaBs2wFApAX+8K0me +Li8Dp6jPb5xuI+BjBk2qOuYyoFh9WSVKRQz/bTju+ee2DNgbrDEpfiCGv2/G +bjnQZcE1JXbdiWQxnBW0Ks99tSwcURgxNcgUw4lvHuh7mMlCKPuJxZOi+V4Q +EbHZThaeVcpZxjSJ4RWn7yb3n5AFruuIi7eCOD4dsbnFtEQWMm+lX1aKEcct +DEk7szfJAWdMvu5MhATuVz1kO7dFHuhC1rmNyUR8mdKXx7YFCpBkGFijdRfD +e/EsKfIrRcjnPXXqSsJw1PbLyCdfEWpqO3oTMjBcPrPLp6pYEdh+2+cUijFc +uWuv+dVyRXB6pmkg0YbhlANfowXfFEFBq+7WH00yPrt5GUVvShFuytN3578k +40WlERUGplR4wnTvCigg4xeDdZ9EbKRC6ev7vvrvyDjNqcajG6fCoK3ockYd +Ga/LKBi7bU2FbTdb8x9MkPFNf2c0iAeoQBCLpIaYUPBcxwciuUtUWNjwLnWt +BQV3a9LmnQinwsq0SYOp7RScwjF63XCdCh4WbluPOVNwrkHC6J04KpSFrDnj +HkrB36WlfpJKp87/+/4E9QgKvvpWRoDvMyqMqqbFtN6i4KriYsYfs6igXiL1 +bHcKBe9rI9YHF1LBOBJfLfOcgi82HjrfUEIFa6dz5TW5FLxM5wlL7z0VDum+ +so4speAbY6aMLjGocH6q78dmoOC+HyJkmz9S4X9NQnFl + "]]}, + Annotation[#, "Charting`Private`Tag$19414#3"]& ]}}, {}}, { + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, DisplayFunction -> Identity, DisplayFunction -> Identity, + Ticks -> {Quiet[ + Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[ + Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, + AxesOrigin -> {-9.210340371976182, -12.442617007106682`}, + FrameTicks -> {{Quiet[ + Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , + Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[ + Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , + Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, + DisplayFunction -> Identity, + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, + "ClippingRange" -> {{{-9.210340118318708, + 3.2188755712107273`}, {-12.442617007106682`, + 0.1193447048649078}}, {{-9.210340118318708, + 3.2188755712107273`}, {-12.442617007106682`, 0.1193447048649078}}}}, + DisplayFunction -> Identity, AspectRatio -> + NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, + AxesLabel -> { + FormBox["\[Beta]", TraditionalForm], + FormBox["\"c(\[Beta]) / \[Beta]\"", TraditionalForm]}, + AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Exp[ + Part[#, 1]], + Exp[ + Part[#, 2]]}& )}, DisplayFunction :> Identity, + Frame -> {{False, False}, {False, False}}, + FrameLabel -> {{None, None}, {None, None}}, + FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines -> {None, None}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], + Method -> { + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, + "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> + None}, PlotRange -> NCache[{{-9.210340371976182, + Log[25]}, {-12.442617007106682`, + 0.1193447048649078}}, {{-9.210340371976182, + 3.2188758248682006`}, {-12.442617007106682`, 0.1193447048649078}}], + PlotRangeClipping -> True, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ + FormBox[ + TemplateBox[{ + "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \ +expansion\"", + RowBox[{"n", "\[LongEqual]", "8"}], + RowBox[{"n", "\[LongEqual]", "12"}]}, "LineLegend", + DisplayFunction -> (FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], { + LineBox[{{0, 10}, {20, 10}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.5], + Opacity[1.], + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, + ImageSize -> {20, 10}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.1] -> 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"], Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> + False], TraditionalForm]& ), + InterpretationFunction :> (RowBox[{"LineLegend", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + InterpretationBox[ + ButtonBox[ + TooltipBox[ + GraphicsBox[{{ + GrayLevel[0], + RectangleBox[{0, 0}]}, { + GrayLevel[0], + RectangleBox[{1, -1}]}, { + RGBColor[0.368417, 0.506779, 0.709798], + RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> + "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, + FrameStyle -> + RGBColor[ + 0.24561133333333335`, 0.3378526666666667, + 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> + None, ImageSize -> + Dynamic[{ + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], + StyleBox[ + RowBox[{"RGBColor", "[", + RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], + "]"}], NumberMarks -> False]], Appearance -> None, + BaseStyle -> {}, BaselinePosition -> Baseline, + DefaultBaseStyle -> {}, ButtonFunction :> + With[{Typeset`box$ = EvaluationBox[]}, + If[ + Not[ + AbsoluteCurrentValue["Deployed"]], + SelectionMove[Typeset`box$, All, Expression]; + FrontEnd`Private`$ColorSelectorInitialAlpha = 1; + FrontEnd`Private`$ColorSelectorInitialColor = + RGBColor[0.368417, 0.506779, 0.709798]; + FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; + MathLink`CallFrontEnd[ + FrontEnd`AttachCell[Typeset`box$, + FrontEndResource["RGBColorValueSelector"], { + 0, {Left, Bottom}}, {Left, Top}, + "ClosingActions" -> { + "SelectionDeparture", "ParentChanged", + "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> + Automatic, Method -> "Preemptive"], + RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, + Selectable -> False], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + InterpretationBox[ + ButtonBox[ + TooltipBox[ + GraphicsBox[{{ + GrayLevel[0], + RectangleBox[{0, 0}]}, { + GrayLevel[0], + RectangleBox[{1, -1}]}, { + RGBColor[0.880722, 0.611041, 0.142051], + RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> + "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, + FrameStyle -> + RGBColor[ + 0.587148, 0.40736066666666665`, 0.09470066666666668], + FrameTicks -> None, PlotRangePadding -> None, ImageSize -> + Dynamic[{ + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], + StyleBox[ + RowBox[{"RGBColor", "[", + RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], + "]"}], NumberMarks -> False]], Appearance -> None, + BaseStyle -> {}, BaselinePosition -> Baseline, + DefaultBaseStyle -> {}, ButtonFunction :> + With[{Typeset`box$ = EvaluationBox[]}, + If[ + Not[ + AbsoluteCurrentValue["Deployed"]], + SelectionMove[Typeset`box$, All, Expression]; + FrontEnd`Private`$ColorSelectorInitialAlpha = 1; + FrontEnd`Private`$ColorSelectorInitialColor = + RGBColor[0.880722, 0.611041, 0.142051]; + FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; + MathLink`CallFrontEnd[ + FrontEnd`AttachCell[Typeset`box$, + FrontEndResource["RGBColorValueSelector"], { + 0, {Left, Bottom}}, {Left, Top}, + "ClosingActions" -> { + "SelectionDeparture", "ParentChanged", + "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> + Automatic, Method -> "Preemptive"], + RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, + Selectable -> False], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], + ",", + RowBox[{"Directive", "[", + RowBox[{ + RowBox[{"Opacity", "[", "1.`", "]"}], ",", + InterpretationBox[ + ButtonBox[ + TooltipBox[ + GraphicsBox[{{ + GrayLevel[0], + RectangleBox[{0, 0}]}, { + GrayLevel[0], + RectangleBox[{1, -1}]}, { + RGBColor[0.560181, 0.691569, 0.194885], + RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> + "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, + FrameStyle -> + RGBColor[ + 0.37345400000000006`, 0.461046, 0.12992333333333334`], + FrameTicks -> None, PlotRangePadding -> None, ImageSize -> + Dynamic[{ + Automatic, 1.35 CurrentValue["FontCapHeight"]/ + AbsoluteCurrentValue[Magnification]}]], + StyleBox[ + RowBox[{"RGBColor", "[", + RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], + "]"}], NumberMarks -> False]], Appearance -> None, + BaseStyle -> {}, BaselinePosition -> Baseline, + DefaultBaseStyle -> {}, ButtonFunction :> + With[{Typeset`box$ = EvaluationBox[]}, + If[ + Not[ + AbsoluteCurrentValue["Deployed"]], + SelectionMove[Typeset`box$, All, Expression]; + FrontEnd`Private`$ColorSelectorInitialAlpha = 1; + FrontEnd`Private`$ColorSelectorInitialColor = + RGBColor[0.560181, 0.691569, 0.194885]; + FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; + MathLink`CallFrontEnd[ + FrontEnd`AttachCell[Typeset`box$, + FrontEndResource["RGBColorValueSelector"], { + 0, {Left, Bottom}}, {Left, Top}, + "ClosingActions" -> { + "SelectionDeparture", "ParentChanged", + "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> + Automatic, Method -> "Preemptive"], + RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, + Selectable -> False], ",", + RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{#, ",", #2, ",", #3}], "}"}], ",", + RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", "}"}]}], ",", + 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.78983242832556*^9, 3.789832453466649*^9}, { + 3.789832544222557*^9, 3.789832559707768*^9}}, + CellLabel->"Out[68]=",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"] }, Open ]], +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"s8", "[", "x_", "]"}], "=", + RowBox[{ + RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"s12", "[", "x_", "]"}], "=", + RowBox[{ + RowBox[{"Sf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\ + + CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, { + 3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, + 3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}, { + 3.789831546161499*^9, 3.789831546839629*^9}, {3.7898320404262114`*^9, + 3.7898320553038607`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"fit8", "=", + RowBox[{"ff", "[", + RowBox[{"sample8", ",", "0.5", ",", "0.01"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"fit12", "=", + RowBox[{"ff", "[", + RowBox[{"sample12", ",", "0.5", ",", "0.01"}], "]"}]}], ";"}]}], "Input", + CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, { + 3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, + 3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, { + 3.789820614022482*^9, 3.78982065862674*^9}, {3.789831005306398*^9, + 3.7898310300074987`*^9}, {3.789831442674109*^9, 3.789831462231441*^9}, { + 3.7898317830894527`*^9, 3.789831783399386*^9}, {3.789832066674664*^9, + 3.78983207936756*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], + Cell[CellGroupData[{ Cell[BoxData[ @@ -3021,14 +1149,20 @@ Cell[BoxData[ RowBox[{"s12", "[", "x", "]"}], ",", RowBox[{"fit12", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"x", ",", "0", ",", "25"}], "}"}]}], "]"}]], "Input", + RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", + RowBox[{"AxesLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\[Beta]", ",", + RowBox[{ + RowBox[{"s", "[", "0", "]"}], "-", + RowBox[{"s", "[", "\[Beta]", "]"}]}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7898191382164*^9, 3.78981915322369*^9}, { 3.789819203381546*^9, 3.7898192055038*^9}, {3.789819326102756*^9, 3.789819347009884*^9}, {3.789819591195232*^9, 3.789819600655766*^9}, { 3.7898196738325663`*^9, 3.789819677929298*^9}, {3.7898197611734333`*^9, - 3.78981977649758*^9}}, - CellLabel-> - "In[222]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], + 3.78981977649758*^9}, {3.7898322181303864`*^9, 3.789832224367557*^9}, { + 3.789832474001747*^9, 3.789832488208096*^9}}, + CellLabel->"In[65]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], Cell[BoxData[ GraphicsBox[{{{}, {}, @@ -3107,58 +1241,58 @@ E5LnnMKip27G7bxEGiS5XggCChYRNbqUa/Yt7dMuWkzDIg49wtBqAw3Ox724 TSxyGFJH0y006C3owLhvY1GYMe/h8FYaCJT8vvD4FxYRovgGRNpo4FR+/Fnf LhZxnT0RXb/viirvzb29/Xu/aAXbdhr8D3MPDy0= "]]}, - Annotation[#, "Charting`Private`Tag$71242#1"]& ], + Annotation[#, "Charting`Private`Tag$16381#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwVz3k8lP0exvGhUTooKVlyZMtWGcNUNyfP9ydLi6xZikMlO5FI1DxZsqRB -tko1tlLhaWGkQtwziLRYJlmimOEWFU1lj3GcP67X5/X+81L1DHHwFiWRSLHL -+385t7XO75J4D9dlyEHm8VxcaEGrExS8B1mFT2Ps9Vy8UPaTTbpyJ2z1NTtu -WtOBmxMJAxRmJ6SV4e1DXh04I76bFHL9A7SZcLJ16tpx+YZzZuOp3VDUuoZb -INmG12Sqd6ZI9EBQaINdZ2Qr7uH51mtbcg8IL7rtJo++w4tElBMD43uBrPFZ -hN/6Fqcizquxc32wL0M8/GHNa/xA7SqbEd8BKJp2Sk0UNuHUJc+pjYIBSGE2 -621ObMJTVI62qu8eBJo4trJybRMe7ll9xrFxEBx52ePXtF/i5iOnGis7eVD9 -xSouK6QB549/Oh45NQQaKwjXsL1svCuNUZluNAxKrZElih04/ppitLrk72Eo -vkGit8jiOCs0u6xXjADHE4w+53u1eOzUgSXjjSNwedtQCYNfjassPmMu7hyF -F08pDH5NJb4hz1sge34UjAMd6s02V+LisN5cDx+FgvQTe53jn+A/YoK/eewd -A6YRNyLgUAVeR95izHb5CkyJ1i53cjnuLpnZHRf5HfpnTX74OpXg76R2ria7 -C6C9qLpHJCIL51rJ5LTSBWD3klcc3piB9yRPaN5gCiDns4+99sZ0fFjsvrle -vwD067yKTBOT8YVFuZjDbj/hmOOK4/riUbjuxNz0gyO/YHCi/Mp4VyRcaq0d -dnKeBPnZp6HbTXIhTfJmmErEJOTcpWy1uJkH2QciRL9dnQSUNqSOpvIhv0lP -JebDJLSqzvfTHQrhaV2+W6njFKSnSNNkp+8A8SiWK3SYhu8XOnbbrS2BPVcs -2PdtZ0Eto0CMZFMOMQeelHCDZ6H0SopT7tVyqBNTz1pMnQXtow3xA/3lYEwn -+Rx6OwtlIy/knQNYYOhfI7G0bw4Mi0NjNWIrQMOM6uK8Zx6UqVNuS3mVsHJG -aYK8YwGgUprOL6gCcxajm+K4AJG1gVKFn6sg7uQ82zVsATxNYz9sUqoG4VB3 -Vln5Avg2Nh/ed60aZtozjf6rtwheazZ/T0mqgdFS8YQKLSH8nu+L2e1RC96U -eSmqFAn5fDBr6Qhhw8G+pLvyyiR0U2htCalsoCXJmpAoJKTdIjedWsoG8oB+ -UJsdCU0ukCbahtlwO8339clsEhL1qdkw7sKBgfHOxNJNIoi6qS6ejdXDkQeP -l9R1RRFD7but1UgDWOt4/9y4l4xOZ60eUfzTBPOMMzWfnMnILF/brk+6GYon -EhKKfMjo+YMs3mXNZiA/uadgkEhG2iFq/Gf2zVD916ip9UsyumQ7rX7wfjNo -OgZmXjQTQ4/yU0zCbF8BKTrUUAArkakhJco9uwVYnX+facHEkcHhiHy5qTfw -Hxndx+RoSYQF9fqTTNvB909m7t3D0sjAwVfZfTsXQpq+GD62lkFnjRYcHta/ -h8uuK7csBm1AdgYtU/1WH+BE83kfqt9GlGCWfL7kehdwVinYBx6RR14ZfV9z -ON1AXRdzbSxcERlS1wTJfeuBY79NttkEKaElCNRc/b0XCvNeKs2kKqMUSeM9 -tB8foSLNuI/roIKuZFLrmf19EF5tYpd7UBX1zqjuL3vQD/jru7+S3dSQ6UmF -c9Gxn8B/r1Gt/2F1tGK9u4ezyWdgFlMrAwM0UFD1GMNF+BkyftfGnjq7Bb3r -qmg1Zg3ASOmZCL/Tmsgzf0u+us4gNFpm5sTFaaFOG++HEvRBELH9yL8So42G -x973qDUNAsn0qUhBlA6iaEVKfpXgwSW5GWtuki5Sk+a5ljjy4JTrifqZi1vR -7YBri3+u8oAXS/OCq9uQnon+QepHHmzIuvExuXA72iptVfJckQ/3pHWjmm/p -oZ481l98Rz5wTm+20PqHgm7+iFYnMviQp1KgZOKoj/YJb7mKt/Chlj5P8mvX -Rw3M6QD6Ih9UrVYtqLtQEfmrGu8ZbQietOkwejup6A6dE1rvMwQpTUJ9FXcD -tI2lbRl1awiywsYCjvUboByf0ganN0NAl1Veq3bEEMmSipIk54agREfsdfig -IRJda9V2RGcYVk6KKHA8aKiY6Wy632kY7uuXX8j7QkMiWn8ZP704DDqepTaL -J3egqp7nsZplw9C3v4rl9G0Hqng8sPt2zzBw75zbDmE70SnWrHHCCgJmK+x3 -q/3aiQThWrb3dQlYen66MjF4F2qWC06l2RFgpW9pQZ/ahQK3pl5YH0lAszvF -PzAMQxvKtltHMwmQOeFXk3sGQ7vUvPao5BLg4Vco1X4WQ+/aNXU4y54+vZ5F -o2PIysztjWg+ARqXZuYX4zG0afqVZ0IhATEsPCX9GobOS88NJN0jwHiVXVll -FYYseVlb4soISJRMFh2twZC4tZW9ajkBHevqHRXrMNRRNBjMXrafEm3uQj2G -5lQeRwtZBFynyu/Z9wZDnOOqs1GVBEy6Db7/2I+hC5eSLYOrCUDHFTSlBjDk -fMgqQ7KGAIaPQyTwMGQyINNaumy10EalIgJDofK1//7yggD7xGLvkxMYclmq -lz2KE8Bk8J7lCzBEaZoRLCx7NF3xX9xfGMqes6i7yV7+cyvl0c4ZDPmFYJQu -DgFvC16S/Ocw9DObxw2rJ0DuntDh1h8MGY4/9FvXQIDnP7vuvlvEkOpovuDR -sh+VnZpZWsKQ2FRVwMFGAv4HqCLzLQ== +1:eJwVynk4lP0ex/HBWHpQkT2PRAnZJtJt/f4S9YSEqCSSIlLZi/IUsm9Jksp6 +krKcsk3FxG1rCElD9rLNzahosmTJcJw/Ptf7el3XZ7urt60bN4lEClvf/8sY +5igcFuwE4w3KbbsjGPiqmU4NO6cTzugnJlG3MPBc8S9WyXJdEBgzy6tL+4Sb +EpFDmhld0PvJO7D3/Cc8PqKH5P3gM0if8dWTq+nApRquH5hK7AFMxHtrnNBH +nJai2JUg2AukCsVH1UHtuLNr23m12F5IodMipyY+4HlcclFeEX2Q7m5s0dre +hlNQXfPk9QEY7PSoTqO14ObV/FbjF4YA03vV7b1KxylrrvMS7CGQH9oVJBBF +xxPkz7QrGg5Ds3n60axNdDzAtSrQrnEYWIrzuqHK73DTcZ9GatcIWKkWt4Z4 +N+CjU1/OBs2PwRszs7zTh2rx7qR4arIeE0yP6RlOdeB4i6behoJ/mdAhV7cx +QxzHy3xTS/p4CQhhWVxRya/Gw+bN1/QlxqGs9Imh82gVLs95ncHRZQHTgP03 +lUbFxbLc2OI3WODKFrWX2EbFBWCLqQbOgmbxHf3KERX4z9Ar350PTUJjTcoG +o2PleA15p37tiW/QmJzkqUUuxZ2EUnrCg36AGg8uJmxfgH8Q1t1AdmKDT+Vb +RcvAezjDQjS9PYQN7L6x2ZqGu3hv7LTSwww2YLMeGX7iyTiT95mpxuD6f8JD +vzsiFl/hSIaedPwFw/mCiQ68wbjq9NLvYocZcMkoONfYFwQx7dVM++NzEDRW +oTRmlAlJQo/85a/OwWKy+vDyoyxINb/K/f3+HOQEj/TOz2dDNl1DPvTzHNyU +DH7dY5sLr2qyHQvt5gGF39no8/sJEC/CGKu2vyEjwFqyaFMBmNwxq312dBGW +BYf91K1KIdS8ooBxZRHC/2qrb7lfCjW8ivc4iYtA6ueeEfpSCvohJPdjbYsQ +c3Yl8vbFMtD2pAmu/bMEgoql0zZh5bDjAOXEcZNl+F2k814tmwp8C7LT5L0r +IKllPbkptxJMy+J7NO1WwBorut7+tRLCLy/XnvJfAf23tSaHZatgdaznXknp +CgDw0wPTqmChI0XvtAYHDGOdHaqiacAqFIgs37UKrYFbpz2dq8FNc1mYIkxC +jJSxWyzvWrAciH4qJUdCfG+nVuwTa0EnWtyIpElCqVGvi/MKa4E8pHXpozUJ +uVTl5I0za+E/SRdaLqeS0BVFx1aek3UwNNUVVbiVC2X2Ohn0YPXgUPxyTVGV +Gy0MxfO5jjfAERW3XxKHyOirdUEG5Q8dluMDaV+Ok9HL0818M5ub4Pl0ZGSe +OxntuKidnqvUBOSKfOk9UWSUqlaf3m7TBFXGrP1H3pHRnFBav+uzJlCy80q5 +fYAXyTipzcUebQbSLV9tNvCh/7LbNQNS30NZ17+B7zEBlCUucVxjvhUMRFVf +km8JoWlzlXeC+zvgwp+UzKcnNyOW1utgD3UGeNMntF8eEUXqUpYv3tR3Qtwp +vp2cS2KIT0TahmXxGc413XCneEggA4W+7ooH3VDHL23j5SCFZHx2H8yr6wGK +SGjaZIAMmtzk3KTwvRdcZo3UrC7JIqocLUzsRx/kZr2TXUiUQybfYzPhZz+U +J+kPMGzlkZlv2N/PBwcgoMrIOtNyO7rT7ZtHKx4EvOXpTKyjAlqw8PwcF/YF +PA/pVXueVESVv4orzxp9hYznFKrXxR1I4aHehOvqV7g7Wx3mc20nuk3lUT1Y +NgTjhYFXPfyUUHXSB0sVlWFoPJiSHh6+C2kaCzuKhAwD19H+0Tuhysi470aU +Mn0YSPtfceUEq6A4Cfmqn4IjECO5cIQRrYr+XYsReGk3Aj6nztUv3N6NOA7G +RVxpIzASpnMe7quhWLXeJd3+ERC797A/NlcdRa3NHK+RGYX8zarBTY810J6k +Uz8m7Eahzm+b2a4iTTT/ddenb3dHIUs+R9bITgvlTR0Q2Ph+FKpDlkkeHVpI +LiFLKpwzCtst+FcUT1CQS19LUrXOGFR8VInv66KgVS/Pbc3uY5BAX9WSd9qD +onI7Zm8+HoN7/pMXXQb3oFl7W1/H1jEIEZfbpOCgjXx+WuwVXRqDAhXeloBh +bXR6dSbkjAoT+Oa4pOucdRBPwuq0lT0TnmmV3sya0EGnJcYnaLeZoOJaaMW5 +vBeJNbtoqpUwYeBwZZn9971oY3b0t2e9TGA8ua4O/rqoNTeHFcdDwGK5jaHC +jC6yOP9xpViVgLU3ftSoK/uQAr+Egb41ARZaB81C5vchusxeNekgApqcND29 +/DHknf15OSKDANFzHrTMQAyliAixd2YS4OyRK9xxDUPKte3d9HX/9ttSphOC +ofw9PMEC2QTsiFlY5kRg6Crhszk+l4DQMjwhOQ1D3Ws5iYn5BOjzW5dQKzGU +22HQGV1CQJRQLDeLhqFzhrOrSqUEfBKpt5OpwZBaaowsfd0esjpLN+sxZLf5 +hDq5nIAHFCmTf1oxJGvz/uktKgFzjsOd/YMY6rtGmfOvIgCdlVYSHsJQqcms +sSiNgHh32yAYwVB6e9WNknUr+DbK5hEYauN3a/3xlgCbqOdul6cxVDZ9seE8 +TkBG/MjrbDaG4qjZWdy1BLCSZf5izGDoJ2vKK2fdoY8TXuguYKjBeXhwoI6A +tpx3JM8lDFlGxIYG1xMgmb9q+/gPhpIG7SUkGwhwLdr39AMHQyE9h7Iq1v2i +xGdhbQ1DLsyzUraNBPwPLyX/JQ== "]]}, - Annotation[#, "Charting`Private`Tag$71242#2"]& ], + Annotation[#, "Charting`Private`Tag$16381#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" @@ -3240,61 +1374,66 @@ qisyz9TTQD/ilbXTj+2+F+qKbzXRIOXeWPHTBRKOkrxUDzbTYOYB/96uJRIW Fr370LLt4OSoN0prJFzbO3STs5UGH581EOx+k1D7XXtz6bZ5Xv41SP4vCfXu mTCat9HAIvfEi/ZNEjoH+J3Y9ZEGbwpc17a2SPjU4eSl7G3/DzlGjN8= "]]}, - Annotation[#, "Charting`Private`Tag$71242#3"]& ], + Annotation[#, "Charting`Private`Tag$16381#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" -1:eJwdknk41P0axodrRBrnlTYcryaDItlpks7zDW1EkZDiDdkiWUuohhCRbCmR -lJR9ly1+dg5jmxBRtpn5kWgSxprjOn/c1319/rrv57nufbY3Tex5CQRC0Kb+ -7/f7zHre9MAzEaKrXjAD8+SP8ffM6gHDuqGdtXcZ2J8T6jWc1E/QevpvgwNz -3djrXV+NoiV74ZNz0w+Pp92YHitkRCm5FwRJlFCuVjcWEfyZcPNZHwiihheJ -ol2YaIOf7szjz3BPI05cPYKOVcVSeiO3DUDkcb1hK047Zm1Lv6YQPgCp2lEe -GRbt2FseyVCX4EGYjSr9i6LahqmgutYpvyFIEEoffsPXiulX8xuxHUfgUnI8 -AxdvxFQ2bBd2c0Yg3PZOTmNyAxZJ/qeToj0KLO746gdyA+ZtW+lj2jgKjilX -vJ8p1mN6bPfG0t4xeESzH4m7WouNz3y18V2YAN7BzmgOpRLrj4oojT7ChOFt -pA5xqwqsTenI1sy7TNCfCaR8e16OFXnEFwzysaDfZIfsjz1lWOCC/obWbja0 -upUnu6qWYOT1suR1zUlIvWrZyknMxXam2HN2+U8CEU/IbDXOwQRgh54iNgnS -csIuCkLZ2E+a27T1qSnwtTQM0Y/KwGqIMlq15t/BV2TiB7ssDbMixX4O8v0B -BesNPFs0nmIdQppbiVYciE5UKXZYCgWGgcjzzgAOHCAs+bYHP4KB8FnZxGQO -PHf20v5HMAqYfO/1FIc5EFarFlNNi4W19T00i8u/gBBl4yphnAjys8uLOZfm -gJDcmeSunAZhndXMi2bzcFv1RctDlA9RpBde5Fvzm3ksDztuPsTr3+KdfjoP -rlzmTIxZAbxqViTT+ubhh+xXKBAshA81ry5nmS7A8nuxi7GuRcDKC2T8MVkE -3zDPR7qipaDz5ETt+3NLQAswuNYtWgk0/ZJMhtsSiDfylffbVUINHyVu/fES -aHXKxt/NqwStAILDBfoSUPp3ZBboVIGac9W2jdPLIKXWM9jk8BGkdVXMzXRW -gGTjpeCWUgNbuBKzRI014Auj5D51qgO9oojPSqZrEHM52WgmrA6CbqzUWnqt -Qaz4Sbd9mXXwZ+JzXEHhGrgrlliRp+qA2x175IriOpBIB48FOtbDZJZASPH+ -P5Cz0LYkZN0A9korQipCBMR5EWu3V70Jzg49TBeVJKD5ANeXv02aQP3hrmME -JQLiFQiPfe/RBMQRZdeu8wS0ls2ozM9rgjdRjm034gnoQ2O4wun9zTAy0xua -9W8eNGdVbdEt0gKXcvI3KPK86Mqnj7e6elvBUM7+1+5TROTs18Wv9BcdViJ8 -qr6aEdELv6ikJRk6ZMyGhLx1IKKx+KPhBdp0IJa8E1MNJaIFX9mRaWc6VP5n -8rhhExEtpQrbxDXQQdbUJfaBLh9yjjtr/tGrAwj3PdQ4sAXlDah57G3thKLe -uz7/pQogXem1fdNvuuGoiHw+8T4JfdPhSkvwfQLH1diX6RbCiFlxf+W7QB/c -bMbV8g1F0M/hazJhhf3wyHKLzLrrTkRcuTDpbjgAdi3+DipOu1HJh3uHBTMH -oY5fzNjlkihyNZ55JTf2BVS20xKmvMWR1vboCoboMFz9fUzByFUC2bfXVhA2 -N/U6pUmC+1gSjeY6UR9ofIPiKK0hhgkZKZQM9h9RHAHvymPnX57dh7oq9i+I -E0cBa0ufC78shT4yTuXGeY2C86kj1c4WFFTieZu01DcKyRkqpS7XpVHz+K9t -24+OQczv6kD32zJo5WS1lEHiGLCzfG45ecqilPAzE+SZMWg8Gfs8KGg/qk8Y -S17VHQeec1/Gn9AOIPFi6dXEmHEgHP/Ak3pHDgnYlHcVfxmHsD1cQ8ZDeUQW -Ff81JTsB7pZ29dwHBxH5QTHTwmUCxgLVr8FTBVQj9bugo2gCdsYlfgl/fQhp -Di0WOC5OwDth+TstSYqIUeFvaKbGhDrPvSf2Zyshds7WeeTFhBRyqsQxU2WU -0WtuQsxlQnXACsGpWxl5Ziv3cCeYsM+Af41iroLmyVIJvX+zoKRLLmKwVwVd -yUs7dNyEBZHNf5TJVqpI3tQjxS+cBXFeU9evDqui66NpT1KqWBCwS/IvqUtq -yPs8OzFomgWZcnxt3qNqiN6hViIhyYYt8zxiddbqqLxhsZpylg3vlQvvpeDq -KHibeVZzABvkbLOM1m9ooJqwnTmm2WwYOlNRdHFaA0nfIn2v7mMDI83vEHhp -ImFtg7JsXhyWio21peY00be21IGsgzhslHuWhrodRvS278M8F3AwUD55ImDh -MGKikMHmABxarJScXbyoSIfZnj77BgcRO6eqlz5U5ECTO/EsDQdrp9dC3bep -SOKgXR+8xWHRc0eRegAV5TzyaY1Ox0E6jLuyHkxFtta2yyoZONCKsMjoBCry -vFgR5pGLgxb/+YLSCioqiZF0Z5XhEEoK552soqLWf6krR5bj0LO93lS8horo -h/zHVCtwcJJQX75XT0VuvRl7aJU4PFMR1TndTkV5yu0MsWoc5i+PfvoyTEWj -yCdUvx4HZCMmKzRCRaTab5acTY5wMPGFMSqqT0ojJzTgIOXRKPGWRUVG2Bna -WCMOxqEZ9jdmqUh29lz07RYckiPGyl5xNvs9Hv4p0YrDZLS4IGOOioRlBlH9 -JtOSIvM0uVTE8VcoI7XhQE9tIjgvb/7DMmy4cJP3vPtjkrRKRe43rH+bteNg -m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA== +1:eJwVlGk41HscxYdGVLp1XVslTYioMNah+P4iLYoiFSm3iIhKJFkqZEkklLI1 +9l1kcGVc/nYuE5K9ZBnmb7k0tgYZrvviPOf5POfNec6Ls9f6rqktL4FA8FvX +/77RmZgzkvwZdDftZxzwb8dc+CO8XLI/QwE5nVPyqB1bNVCrYCd+AcVS/BBp +tg1LEuk3DpfsAK2+l60OUW3YsdGAAaX4DnD2nrL/od2Ghfh3E+6+7YROkvm1 +YPFWTLzGU3/qRTecEN0/KB3CwMoipTtCt/SAuVRvkhG7GbOyZtw4GNwDjrul +NaPNm7FUHslAR/9eKL1r2Cmk0oSRUVXjuOdXuD6tlRzJ14gZlvMbs24OgMwj ++ejunbUYec16QZQ9AGb6v7kUxddgoaQ/W6SPDEJBj3tVOqkGu29NdzOrHQSV +JzNaQYrV2DGWc21xxxCYXV9OfXqtEhue6r/+cIEJ0bGLu9qk6VhXWEhxuNYI +OH9SN1++Uoo1KWltyno0AoN5OXnl0R8x2r3XH3r5RuGWsE5Bs1gJ5rtguKYt +ygIr5WG5MypFGIlbEs/VGIMm5vvv+THvMWGqLVvEawwUb01gQSa5mAD8cUwR +GwPjXBvfScEc7IfPnUmrE+OQ0p8YtyksE6sg7tOuvDQBKVEaG9JLUrCrgpHd +fg//hQ1ER0V/tSjs01aNTcSrbGCGMi1uLQVC+2mh6BZvNvjMZe1pDXgOPcHT +sjHxbJi4so9pvSUMRvgyjil+YwOZHnoDfCNhhSvmY245A9lBdKCaxIDC9NLP +XItZ6BT3CihQToFnLeUjFy7Og3H+8YJGlA9hgrGupAfzYCsaaZnKyYfXhg94 +J6PmoVu9zJp28QMk1CuSfDrn4ZJtYVHb5gL4qyLBMttsAWxYP/6hOdFgNM+3 +fdX0JzDrT67ZiBeD3kuDyoyzizBJ39vLFqeDj2FRVvudRQjg/XaQY0OHCj7p +V9wXi5AqyBWg5tFB25tgd56xCGHCE7s/65WBqkPZlrWTS/DiXoYxy+5vkNEn +X7qotwzuCaeSwqgVsJEjMU1UXwHtjDA8zb4KjtFCupXMVqDekz+Y+6wK/G4v +V152XYEGrYJMclYVrDK7X30oWIE0oz3RyuNVwGmL1LqiyIWjB964R9yshrFs +gYBCuVUYEtZQlbSqAVul5a3krQS0j859p6RWB2e+BqWJSxKQfHx394bzdaAW +JKJDUCIgTbl5Rsm9OiAOKDu1niMgcrPOApZXB8lhN5tuvyagCea8nblcPQxM +dQRm7+JBco/2vxoUagCL3Pw1aQVeFDErVzDQ0QhG8rYzoieIKCFGWw+2MWA5 +xK2s/yIRtcYsdQrIMiBzOiAg1Y6IxIrSayqPMIBYlL5DJZCIFKIjdqw4MICu +O3bUqI6IFCu94lJqGCBr5hj5VJ8PUWklEQzXT0B4ck+VDRsRk0PNUWpsAVrH +I7d/KALoeyEZ5pLb4LCQQj7xiSDyaD+oJ8P3BW7+inyXZr4dPT5VLDYn0Al3 +63HVfCMhFOwUqxde0AXPL2/cx3USRtTgYD4Pox6wafCyI9uLIuPjRWZCWb1Q +xb/DxNFCHPEPSZWTh/qA/LvPm/H7O1FnYl1Xn/g3uDanc9DYSQIRLH92Ccj2 +QxK1ToLzQhJ56lAvhKh/h8Iw7a/tpiTUoL9t/qjiANyn65x7d2Yvivet3rCH +OAhYU9pssKUUeh47XPbWdRAcTmiVO5hLIz9toV0rnYMQn0kudrwlg15nh+4U +OTwEEXPlvs7u+1DDb+bkszFDwMp2e2DvIoucTEZmZKaGoPZ4ZLSfnxx6aeWd +s6Y/DDxn+4Zf+uxHY57YJmrEMBCO/sWT6CGPuvaf/17SNwzPxDhG7UEKaGqg +aG1KlgnOl22qOU8PoClD47krjkwY8lW7AVEHUejEC+wzjQnCr2L6gpMOId6U +CMzxJxPStyt4NMQpogRf0SuXVUegymWPgVyOEiq8n8pr4DoCVFKihI6ZMnoQ +P3tN4P0IlHsvE+zblBFybR74xRyBvaf5V6Qvrb/m2N+pPbtHoahVPqS3g4zk +H+geMTAdhdD6VWXSVRXE2SX4/nHwKLxyHb917ZsK0szUpSaXjYK3iOQ2KQtV +dFTcNzNwchSy5Pma7g+qopiolmqSJAs2zvPsqLJSQ4EhEQy5MyzIUC54TMXV +kMmXmY9N3iyQt8425t5WRyHn8unmOSz4eqqUdmFSHc3oZCxWdbKgPcXzELhq +oP4NrLp8XhwWC02OSM1qoNzIw3jeARzWProUB97RRLGRAZN853E4rXzcwHtB +E9EESGNN3jg0XFVycHSloG25dkWzyTgI2diXvXOjIJWTtefjUnCwsk/a2uZO +QeOzXKZ+Kg4/Xf6gqXlTkIfp9u7XaTjIPOMsc/0pSEmWy6+RiYMPDQsNf0NB +sNvsrdt7HLT5z30oLqUgX4vSx+MlOAQKBvOOlVFQVFeLbvhHHD7/Xm22s4KC +YhZE2BqlONhLqC09rqagI/H6sv50HN6SxfVONlOQ16Lt0O5yHOYtB7/0faOg +PIHtUcbVOKDrO2S3DlBQX5CHw/w6h9iZPoQhCnppo6sUW4OD1L1aidRRCtoV +NBI2WouDSWCm7e1pCpornqB6NeAQHzJUksBe73fBfZXUiMNY+M7N7bMU9P1f +17P16+wTF5qnwaGgcv2Guu1NODAS6wgOS+t77JWeLF5nsfRV07hf633Vl3gs +m3GwztFM+8SlIIstZzYTGDjkfXDmrK2t52RJYto6/wf6AQe0 "]]}, - Annotation[#, "Charting`Private`Tag$71242#4"]& ]}, {}}, + Annotation[#, "Charting`Private`Tag$16381#4"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, - AxesLabel->{None, None}, + AxesLabel->{ + FormBox["\[Beta]", TraditionalForm], + FormBox[ + RowBox[{ + RowBox[{"s", "(", "0", ")"}], "-", + RowBox[{"s", "(", "\[Beta]", ")"}]}], TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, @@ -3325,7 +1464,7 @@ m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 25}, {-0.28932295368603306`, 0.743733095422943}}, + PlotRange->{{0, 25}, {-0.2893170827593571, 0.743733095422943}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3339,9 +1478,10 @@ m304vWOdiiJ1C1dXNzmvwJ27sbF5j/ODhVQ6Dv8DV8YJRA== 3.7898196317659693`*^9, 3.789819637118384*^9}, 3.7898196782312527`*^9, { 3.789819743383521*^9, 3.789819776802191*^9}, 3.789820003836022*^9, 3.7898200483861856`*^9, {3.789820594030262*^9, 3.789820707787868*^9}, { - 3.7898224631465263`*^9, 3.7898224693046827`*^9}}, - CellLabel-> - "Out[222]=",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"] + 3.7898224631465263`*^9, 3.7898224693046827`*^9}, 3.7898317351153708`*^9, { + 3.789831769123528*^9, 3.7898317873044233`*^9}, 3.7898320868229*^9, { + 3.789832219182062*^9, 3.7898322246789417`*^9}, 3.789832488485786*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"] }, Open ]], Cell[BoxData[ @@ -3358,8 +1498,7 @@ Cell[BoxData[ RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "/", "2"}]}], ";"}]], "Input", CellChangeTimes->{{3.78982026538109*^9, 3.789820353900846*^9}}, - CellLabel-> - "In[223]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], + CellLabel->"In[51]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], Cell[CellGroupData[{ @@ -3368,7 +1507,8 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - RowBox[{"Exp", "[", "logN", "]"}], "-", + RowBox[{"Exp", "[", + RowBox[{"logN", "[", "8", "]"}], "]"}], "-", RowBox[{"ns", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"ns", "[", @@ -3381,11 +1521,11 @@ Cell[BoxData[ 3.786036298558413*^9}, {3.786036391518311*^9, 3.786036392481715*^9}, { 3.789817322122814*^9, 3.78981734350443*^9}, {3.78981904967447*^9, 3.789819050028948*^9}, {3.78981989295175*^9, 3.789819900229203*^9}, { - 3.789820346352702*^9, 3.789820358949071*^9}}, - CellLabel-> - "In[224]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], + 3.789820346352702*^9, 3.789820358949071*^9}, {3.789831035088595*^9, + 3.789831035495175*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], -Cell[BoxData["0.021472788440523752`"], "Output", +Cell[BoxData["0.02129579347364968`"], "Output", CellChangeTimes->{{3.786034765393785*^9, 3.786034815805835*^9}, { 3.786034880548635*^9, 3.7860348931752234`*^9}, {3.7860349290857697`*^9, 3.78603493955373*^9}, 3.7860350281548758`*^9, 3.786035066093541*^9, @@ -3398,9 +1538,10 @@ Cell[BoxData["0.021472788440523752`"], "Output", 3.789819607127367*^9, 3.7898196375034018`*^9}, 3.789819744075357*^9, { 3.789819893666527*^9, 3.789819900694466*^9}, 3.789820004964889*^9, 3.789820359137393*^9, {3.789820594929513*^9, 3.78982070858637*^9}, { - 3.789822463806806*^9, 3.789822470222951*^9}}, - CellLabel-> - "Out[224]=",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"] + 3.789822463806806*^9, 3.789822470222951*^9}, {3.789831035829953*^9, + 3.789831039712731*^9}, 3.7898311296448107`*^9, 3.789831173331883*^9, { + 3.789831771607078*^9, 3.7898317882862673`*^9}, 3.7898321075130663`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"] }, Open ]], Cell[CellGroupData[{ @@ -3410,24 +1551,25 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - RowBox[{"Exp", "[", "logN", "]"}], "-", + RowBox[{"Exp", "[", + RowBox[{"logN", "[", "12", "]"}], "]"}], "-", RowBox[{"ns", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "/", RowBox[{"ns", "[", RowBox[{"[", "3", "]"}], "]"}]}], "/.", RowBox[{"fit12", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, { - 3.78982037403331*^9, 3.78982038294141*^9}}, - CellLabel-> - "In[225]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], + 3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, + 3.78983177611141*^9}}, + CellLabel->"In[53]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], -Cell[BoxData["0.06180877242384175`"], "Output", +Cell[BoxData["0.06151301974783064`"], "Output", CellChangeTimes->{{3.789820091591922*^9, 3.789820112136485*^9}, 3.789820384157509*^9, {3.789820595407804*^9, 3.789820619979476*^9}, { 3.7898206520168953`*^9, 3.789820708977715*^9}, {3.789822464040449*^9, - 3.789822470632036*^9}}, - CellLabel-> - "Out[225]=",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"] + 3.789822470632036*^9}, {3.789831772132658*^9, 3.789831789119802*^9}, + 3.789832108205226*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"] }, Open ]], Cell[CellGroupData[{ @@ -4997,8 +3139,8 @@ Cell[BoxData[ "Out[100]=",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"] }, Open ]] }, -WindowSize->{692, 1060}, -WindowMargins->{{2, Automatic}, {2, Automatic}}, +WindowSize->{665, 1180}, +WindowMargins->{{583, Automatic}, {2, Automatic}}, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] @@ -5013,88 +3155,60 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 3308, 78, 246, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], -Cell[3869, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], -Cell[4540, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], -Cell[4960, 129, 819, 23, 31, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], -Cell[5782, 154, 1819, 48, 78, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], -Cell[7604, 204, 963, 26, 49, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"], -Cell[8570, 232, 705, 19, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"], -Cell[9278, 253, 2200, 55, 114, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], -Cell[11481, 310, 209, 3, 31, "Input",ExpressionUUID->"4442d61b-8ac4-4392-8a54-81f967a3e8ad"], -Cell[11693, 315, 1031, 29, 176, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], -Cell[12727, 346, 1256, 28, 31, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], -Cell[13986, 376, 610, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], -Cell[CellGroupData[{ -Cell[14621, 394, 1035, 22, 39, "Input",ExpressionUUID->"19600c28-5fcf-466c-b87f-667b0f106dc0"], -Cell[15659, 418, 845, 20, 53, "Output",ExpressionUUID->"6c93bebf-e58f-4c6f-b240-c9606f805231"] -}, Open ]], -Cell[16519, 441, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], -Cell[CellGroupData[{ -Cell[17046, 455, 812, 18, 31, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"], -Cell[17861, 475, 15340, 302, 67, "Output",ExpressionUUID->"d46af3b2-77be-4b80-8679-279619719d6c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[33238, 782, 812, 18, 31, "Input",ExpressionUUID->"13991a8c-a9a3-43e4-9f23-4e47933f94eb"], -Cell[34053, 802, 16484, 320, 67, "Output",ExpressionUUID->"45eec759-6cc5-44ad-b355-16c56c1102c3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[50574, 1127, 814, 17, 31, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], -Cell[51391, 1146, 17682, 314, 234, "Output",ExpressionUUID->"ca9155e3-bfd3-4546-9d9d-841e39a4c986"] -}, Open ]], -Cell[CellGroupData[{ -Cell[69110, 1465, 1944, 49, 99, "Input",ExpressionUUID->"018624ea-3752-4268-8269-52d7c0cc8dbf"], -Cell[71057, 1516, 31232, 622, 233, "Output",ExpressionUUID->"471fd61d-b901-4c45-bbb9-afb7a2622279"] -}, Open ]], -Cell[CellGroupData[{ -Cell[102326, 2143, 566, 14, 31, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], -Cell[102895, 2159, 16072, 314, 67, "Output",ExpressionUUID->"74adcd61-8d07-48ce-971c-dd83b1e3ca60"] -}, Open ]], -Cell[CellGroupData[{ -Cell[119004, 2478, 522, 14, 31, "Input",ExpressionUUID->"db5e13eb-a70e-45e3-bf97-b88ce1b857b6"], -Cell[119529, 2494, 16057, 313, 67, "Output",ExpressionUUID->"d6a711e2-2f0e-428d-8dce-4ea95f7261f3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[135623, 2812, 1240, 34, 69, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], -Cell[136866, 2848, 1845, 46, 67, "Output",ExpressionUUID->"8d55ea2c-d0f1-46ce-9113-d087b7dc0709"] -}, Open ]], +Cell[558, 20, 3307, 78, 269, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], +Cell[3868, 100, 668, 18, 59, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], +Cell[4539, 120, 417, 7, 31, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], +Cell[4959, 129, 819, 23, 55, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], +Cell[5781, 154, 1819, 48, 101, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], +Cell[7603, 204, 963, 26, 72, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"], +Cell[8569, 232, 756, 18, 50, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"], +Cell[9328, 252, 2200, 55, 137, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], +Cell[11531, 309, 1026, 28, 200, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], +Cell[12560, 339, 1306, 28, 55, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], +Cell[13869, 369, 656, 14, 31, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], +Cell[14528, 385, 1810, 44, 182, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"], +Cell[16341, 431, 502, 10, 31, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], +Cell[16846, 443, 552, 16, 55, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"], +Cell[17401, 461, 905, 21, 55, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"], Cell[CellGroupData[{ -Cell[138748, 2899, 1399, 37, 69, "Input",ExpressionUUID->"4efd9ff7-727d-4935-a6af-8855bb5270f5"], -Cell[140150, 2938, 3329, 70, 67, "Output",ExpressionUUID->"ffeff05c-4235-40d0-8626-532170640c37"] +Cell[18331, 486, 1473, 32, 78, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], +Cell[19807, 520, 30051, 577, 246, "Output",ExpressionUUID->"7b89c7a1-9d18-49a7-bf31-752df41c7067"] }, Open ]], +Cell[49873, 1100, 732, 18, 55, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], +Cell[50608, 1120, 839, 17, 55, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], Cell[CellGroupData[{ -Cell[143516, 3013, 732, 17, 31, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], -Cell[144251, 3032, 17420, 311, 234, "Output",ExpressionUUID->"135b3efe-ff78-4476-a93a-5619a5cc390d"] +Cell[51472, 1141, 1029, 23, 55, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], +Cell[52504, 1166, 17744, 317, 238, "Output",ExpressionUUID->"8db7b6a9-cb19-4300-b41a-8949de3e6820"] }, Open ]], -Cell[161686, 3346, 482, 15, 31, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], +Cell[70263, 1486, 478, 14, 55, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], Cell[CellGroupData[{ -Cell[162193, 3365, 957, 20, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], -Cell[163153, 3387, 1045, 15, 35, "Output",ExpressionUUID->"d5b365b4-17d5-4745-a5e1-e646a528553a"] +Cell[70766, 1504, 1034, 21, 31, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], +Cell[71803, 1527, 1212, 16, 35, "Output",ExpressionUUID->"5f4c18c9-8e83-4549-bb7d-63032de7adc1"] }, Open ]], Cell[CellGroupData[{ -Cell[164235, 3407, 524, 14, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], -Cell[164762, 3423, 370, 6, 35, "Output",ExpressionUUID->"0b79b77e-b068-4046-83cf-7e6ade1463f0"] +Cell[73052, 1548, 601, 15, 31, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], +Cell[73656, 1565, 438, 6, 35, "Output",ExpressionUUID->"f44bda96-870c-49ac-bc9e-91bcd0597cef"] }, Open ]], Cell[CellGroupData[{ -Cell[165169, 3434, 1167, 25, 31, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"], -Cell[166339, 3461, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"] +Cell[74131, 1576, 1167, 25, 55, "Input",ExpressionUUID->"57f24fa6-c961-417d-8040-d9f006e7bc42"], +Cell[75301, 1603, 76969, 1284, 238, "Output",ExpressionUUID->"765eacb6-1851-4d58-84e2-e2ed47100b2f"] }, Open ]], -Cell[243323, 4748, 1553, 40, 101, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"], +Cell[152285, 2890, 1553, 40, 147, "Input",ExpressionUUID->"8f6a5438-be42-44f3-87d6-da2bc37c171f"], Cell[CellGroupData[{ -Cell[244901, 4792, 632, 15, 31, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"], -Cell[245536, 4809, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"] +Cell[153863, 2934, 632, 15, 55, "Input",ExpressionUUID->"c4cbaaa3-d693-4c1c-b0a0-8724f52d4d94"], +Cell[154498, 2951, 1038, 28, 46, "Output",ExpressionUUID->"fa68dd36-a911-4b03-a5e1-774b6ced48f8"] }, Open ]], Cell[CellGroupData[{ -Cell[246611, 4842, 1030, 27, 55, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"], -Cell[247644, 4871, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"] +Cell[155573, 2984, 1030, 27, 78, "Input",ExpressionUUID->"ea17c51f-a1d7-41fd-a34c-228c2d4ab784"], +Cell[156606, 3013, 3907, 81, 240, "Output",ExpressionUUID->"734656d0-32f9-40e2-a69d-89571abd59bf"] }, Open ]], Cell[CellGroupData[{ -Cell[251588, 4957, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"], -Cell[251938, 4965, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"] +Cell[160550, 3099, 347, 6, 31, "Input",ExpressionUUID->"249cb54f-1c35-414f-8168-27f2195185e6"], +Cell[160900, 3107, 316, 4, 35, "Output",ExpressionUUID->"9b814a6a-324d-4cb2-98b4-7e298a5398a1"] }, Open ]], Cell[CellGroupData[{ -Cell[252291, 4974, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"], -Cell[252883, 4991, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"] +Cell[161253, 3116, 589, 15, 78, "Input",ExpressionUUID->"e66c9322-9282-4dd8-b7bf-4e72fb9ae72c"], +Cell[161845, 3133, 253, 5, 35, "Output",ExpressionUUID->"a4c4ccfb-7bb8-41fb-a9fe-42202dac8ba9"] }, Open ]] } ] -- cgit v1.2.3-54-g00ecf