(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 147329, 2926] NotebookOptionsPosition[ 143952, 2867] NotebookOutlinePosition[ 144310, 2883] CellTagsIndexPosition[ 144267, 2880] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"<<", "peeters`"}], "\n"}], "\[IndentingNewLine]", RowBox[{"peeters`setGitDir", "[", "\"\<../project/figures/phy1520-quantum\>\"", "]"}]}], "Input", CellChangeTimes->{{3.766106985098918*^9, 3.7661069851079903`*^9}, { 3.7661071252246037`*^9, 3.766107125490589*^9}},ExpressionUUID->"ae4c2688-d781-4ec8-bdbf-\ e02db7bd11dc"], Cell[BoxData["\<\"peeters`\"\>"], "Output", CellChangeTimes->{3.7661069891197844`*^9, 3.766107126945381*^9},ExpressionUUID->"2165505a-121b-4a3c-9cac-\ 15b2020a0b58"], Cell[BoxData["\<\"/Users/pjoot/project/figures/phy1520-quantum\"\>"], "Output", CellChangeTimes->{3.7661069891197844`*^9, 3.7661071269536047`*^9},ExpressionUUID->"701a8a9f-ddb6-4868-b9f5-\ cd50be5dab11"] }, Open ]], Cell["\<\ Dirac wavefunction, energy vs momentum curves for a stepped potential barrier.\ \>", "Text", CellChangeTimes->{{3.6548095564545755`*^9, 3.6548095780370536`*^9}},ExpressionUUID->"dfd211f8-f721-4515-8b0f-\ 6bad6df9bbad"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"e", "[", RowBox[{"k_", ",", " ", "v0_", ",", " ", "s_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"s", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"1", " ", "+", " ", RowBox[{"k", "^", "2"}]}], "]"}]}], " ", "+", " ", "v0"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eApprox", "[", RowBox[{"k_", ",", " ", "v0_", ",", " ", "s_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"s", RowBox[{"(", " ", RowBox[{"1", " ", "+", " ", RowBox[{ RowBox[{"k", "^", "2"}], "/", "2"}]}], " ", ")"}]}], " ", "+", " ", "v0"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"k2", "[", RowBox[{"k1_", ",", " ", "v0_"}], "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", " ", "+", " ", RowBox[{"k1", "^", "2"}]}], "]"}], " ", "-", " ", "v0"}], ")"}], "^", "2"}], " ", "-", "1"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", "there", " ", "is", " ", "no", " ", "solution"}], ",", " ", RowBox[{"rescale", " ", "the", " ", "point", " ", "so", " ", "that", " ", RowBox[{"it", "'"}], "s", " ", "off", " ", "the", " ", "chart"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"k2r", "[", RowBox[{"k1_", ",", " ", "v0_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Re", "[", RowBox[{"k2", "[", RowBox[{"k1", ",", " ", "v0"}], "]"}], "]"}], " ", "+", " ", RowBox[{ RowBox[{"Im", "[", RowBox[{"k2", "[", RowBox[{"k1", ",", " ", "v0"}], "]"}], "]"}], "*", "100"}]}], " ", ")"}], "//", " ", "N"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"With", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v0", "=", "2"}], ",", " ", RowBox[{"d", " ", "=", " ", "3"}], ",", " ", RowBox[{"r", " ", "=", " ", "10"}]}], "}"}], ",", " ", RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", " ", "v0"}], "]"}], ",", " ", RowBox[{"eApprox", "[", RowBox[{"k", ",", " ", "v0"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"-", "d"}], ",", " ", "d"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "r"}], "}"}]}], "}"}]}]}], "]"}]}], "]"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", " ", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", " ", "v0", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"(*", RowBox[{ RowBox[{"eApprox", "[", RowBox[{"k", ",", " ", "v0", ",", " ", "1"}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "[", RowBox[{"k", ",", " ", "v0", ",", " ", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"(*", RowBox[{",", " ", RowBox[{"eApprox", "[", RowBox[{"k", ",", " ", "v0", ",", " ", RowBox[{"-", "1"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "[", RowBox[{"k", ",", " ", "0", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"(*", RowBox[{ RowBox[{"eApprox", "[", RowBox[{"k", ",", " ", "v0", ",", " ", "1"}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"e", "[", RowBox[{"k", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"-", "d"}], ",", " ", "d"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ "\"\<\!\(\*FractionBox[\(\[HBar]\\\ k\), \(m\\\ c\)]\)\>\"", ",", " ", "\"\<\!\(\*FractionBox[\(E\), \(m\\\ \*SuperscriptBox[\(c\), \ \(2\)]\)]\)\>\""}], " ", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", " ", RowBox[{"e", "[", RowBox[{"kp", ",", " ", "0", ",", " ", "1"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", " ", RowBox[{"e", "[", RowBox[{"kp", ",", " ", "0", ",", " ", RowBox[{"-", "1"}]}], "]"}]}], "}"}], "]"}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", "v0", ",", " ", "1"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", "v0", ",", " ", RowBox[{"-", "1"}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", " ", "v0", ",", " ", "1"}], "]"}]}], "}"}], "*)"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "v0", ",", " ", "0", ",", " ", "\"\<\!\(\*FractionBox[SubscriptBox[\(V\), \(0\)], \(m\\\ \ \*SuperscriptBox[\(c\), \(2\)]\)]\)\>\""}], "}"}], ",", " ", "0", ",", " ", "10"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", " ", "2", ",", " ", "\"\\""}], "}"}], ",", " ", "1", ",", " ", "20"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", " ", "4", ",", " ", "\"\\""}], "}"}], ",", " ", "2", ",", " ", "10"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "kp", ",", " ", "0", ",", " ", "\"\<\!\(\*FractionBox[\(\[HBar]\\\ \*SubscriptBox[\(k\), \(1\)]\), \ \(m\\\ c\)]\)\>\""}], "}"}], ",", " ", "0", ",", " ", "10"}], "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6548050694725857`*^9, 3.654805321845643*^9}, { 3.6548053519356203`*^9, 3.654805498530072*^9}, {3.654806611233664*^9, 3.6548066991910257`*^9}, {3.6548068249337792`*^9, 3.654806825466258*^9}, { 3.65480690258627*^9, 3.6548069545897617`*^9}, {3.6548069863439336`*^9, 3.654807110806714*^9}, {3.654807177138254*^9, 3.654807198695751*^9}, { 3.654807623055621*^9, 3.6548076833636556`*^9}, {3.6548088865739436`*^9, 3.6548089548422356`*^9}, {3.6548090185673733`*^9, 3.65480902814902*^9}, { 3.6548091797892075`*^9, 3.6548092042885723`*^9}, {3.65480930855478*^9, 3.654809341943093*^9}, {3.6548102541205273`*^9, 3.654810568475274*^9}, { 3.6548106523906813`*^9, 3.6548106577885537`*^9}, {3.6548106954382906`*^9, 3.6548107417640133`*^9}, {3.6548107748168373`*^9, 3.6548107812436676`*^9}, {3.654810895848072*^9, 3.6548110033365803`*^9}, { 3.65481108596651*^9, 3.65481115845076*^9}, {3.6548111903803988`*^9, 3.6548111905915904`*^9}, 3.654811230481927*^9, {3.654811916841674*^9, 3.65481195960048*^9}, {3.654812099812667*^9, 3.654812104009152*^9}, { 3.654812195996992*^9, 3.654812213298602*^9}, 3.654812247226904*^9, 3.6548124178513136`*^9, 3.6548125262031994`*^9, 3.6548145927823095`*^9, { 3.6548165167027392`*^9, 3.654816522020768*^9}, {3.76610714186443*^9, 3.76610714559112*^9}, {3.766107233725197*^9, 3.766107252811254*^9}, { 3.766107325986699*^9, 3.766107333333117*^9}},ExpressionUUID->"a57bed39-3655-4f19-be3a-\ 38fba1ccfb1e"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`d$$ = 2, $CellContext`kp$$ = 0, $CellContext`r$$ = 4, $CellContext`v0$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`v0$$], 0, "\!\(\*FractionBox[SubscriptBox[\(V\), \(0\)], \(m\\ \*SuperscriptBox[\ \(c\), \(2\)]\)]\)"}, 0, 10}, {{ Hold[$CellContext`d$$], 2, "domain"}, 1, 20}, {{ Hold[$CellContext`r$$], 4, "range"}, 2, 10}, {{ Hold[$CellContext`kp$$], 0, "\!\(\*FractionBox[\(\[HBar]\\ \*SubscriptBox[\(k\), \(1\)]\), \(m\\ c\ \)]\)"}, 0, 10}}, Typeset`size$$ = {360., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`v0$4578$$ = 0, $CellContext`d$4579$$ = 0, $CellContext`r$4580$$ = 0, $CellContext`kp$4581$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`d$$ = 2, $CellContext`kp$$ = 0, $CellContext`r$$ = 4, $CellContext`v0$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`v0$$, $CellContext`v0$4578$$, 0], Hold[$CellContext`d$$, $CellContext`d$4579$$, 0], Hold[$CellContext`r$$, $CellContext`r$4580$$, 0], Hold[$CellContext`kp$$, $CellContext`kp$4581$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[{ Plot[{ $CellContext`e[$CellContext`k, $CellContext`v0$$, 1], $CellContext`e[$CellContext`k, $CellContext`v0$$, -1], $CellContext`e[$CellContext`k, 0, 1], $CellContext`e[$CellContext`k, 0, -1]}, {$CellContext`k, -$CellContext`d$$, $CellContext`d$$}, PlotRange -> {{-$CellContext`d$$, $CellContext`d$$}, \ {-$CellContext`r$$, $CellContext`r$$}}, PlotStyle -> Thick, AxesLabel -> { "\!\(\*FractionBox[\(\[HBar]\\ k\), \(m\\ c\)]\)", "\!\(\*FractionBox[\(E\), \(m\\ \*SuperscriptBox[\(c\), \(2\)]\)]\ \)"}, BaseStyle -> {FontSize -> 14}], Graphics[{PointSize -> Large, Point[{$CellContext`kp$$, $CellContext`e[$CellContext`kp$$, 0, 1]}], Point[{ $CellContext`k2r[$CellContext`kp$$, $CellContext`v0$$], $CellContext`e[ $CellContext`k2r[$CellContext`kp$$, $CellContext`v0$$], \ $CellContext`v0$$, 1]}], Point[{ $CellContext`k2r[$CellContext`kp$$, $CellContext`v0$$], $CellContext`e[ $CellContext`k2r[$CellContext`kp$$, $CellContext`v0$$], \ $CellContext`v0$$, -1]}], Point[{100, 100}]}]}], "Specifications" :> {{{$CellContext`v0$$, 0, "\!\(\*FractionBox[SubscriptBox[\(V\), \(0\)], \(m\\ \ \*SuperscriptBox[\(c\), \(2\)]\)]\)"}, 0, 10}, {{$CellContext`d$$, 2, "domain"}, 1, 20}, {{$CellContext`r$$, 4, "range"}, 2, 10}, {{$CellContext`kp$$, 0, "\!\(\*FractionBox[\(\[HBar]\\ \*SubscriptBox[\(k\), \(1\)]\), \ \(m\\ c\)]\)"}, 0, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {211., 217.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.6548092053445053`*^9, 3.6548093430530863`*^9, 3.6548104775644197`*^9, 3.6548105370163727`*^9, 3.6548105693660803`*^9, 3.654810658722397*^9, 3.654810706971184*^9, 3.654810786477409*^9, 3.6548108977798176`*^9, 3.654811030749838*^9, {3.654811115754365*^9, 3.654811159389598*^9}, 3.6548111928115935`*^9, 3.6548112316579523`*^9, {3.6548119189235983`*^9, 3.6548119606224*^9}, 3.654812104583665*^9, 3.654812214028308*^9, 3.654812254376355*^9, 3.654812418838241*^9, 3.6548125281879907`*^9, 3.65481438303012*^9, 3.6548145941429214`*^9, 3.6548165229114275`*^9, 3.766107147006699*^9, {3.766107327342194*^9, 3.766107334084552*^9}},ExpressionUUID->"d416632e-fd0a-4a79-8324-\ 5477a964acc7"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "0"], "<", " ", RowBox[{"2", " ", "m", " ", SuperscriptBox["c", "2"]}]}], TraditionalForm]],ExpressionUUID-> "caaef1c3-f5b4-4bb8-a18e-912928a6e3b2"], ", but momentum small enough for total reflection." }], "Text", CellChangeTimes->{{3.65481301495362*^9, 3.65481304588754*^9}, 3.6548147646887817`*^9},ExpressionUUID->"e0c5db18-22ff-4508-b0cb-\ 90de3b70c9b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p1", " ", "=", " ", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"d", "=", "2"}], ",", RowBox[{"kp", "=", "1.56`"}], ",", RowBox[{"r", "=", "4"}], ",", RowBox[{"v0", "=", "1.36`"}]}], "}"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", " ", "\[Rule]", "Thick"}], ",", " ", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ \ c\\)]\\)\>\"", ",", "\"\<\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \ \\*SuperscriptBox[\\(c\\), \\(2\\)]\\)]\\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", RowBox[{"e", "[", RowBox[{"kp", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.654813064953025*^9, 3.6548130829472647`*^9}, 3.6548165054050293`*^9, {3.766107155831175*^9, 3.766107162133995*^9}, { 3.76610735450482*^9, 3.766107383550856*^9}},ExpressionUUID->"724e3e92-4acf-4b70-8291-\ 94cb4f3cbd1f"], Cell[BoxData[ DynamicModuleBox[{$CellContext`d$$ = 2, $CellContext`kp$$ = 1.56, $CellContext`r$$ = 4, $CellContext`v0$$ = 1.36}, GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0Vd/bAPC6x3idkNJoirrl0i2lWyr2TpmKQhkakAaESjJGSBJSSSqZ yxAqQ5EhbPM8E+IiRCLzrLi//V3rff8466zPWs8561lnnf0MWy7d1L1KWbFi xRK+/rszwLohNpuNvD52A1RMwpsLUj4Li2x0Y68i272QhCmf5WhTM2xUWvmp HuaTcM8OrUsDw2yU57EysfArCfev9mqvbmUjY2KEWfaJhLBvovJ1MhtZtnPl N0WRUPdhzfu9JmzEtFXNX3QloWOd13XzvGVU/2QN6bmPhM3NfEMFpkvIwSyU 800oHxTNv7l2v8g/tFVntdS1VXww3aqYU6BzEY2ES+R63KfCi/5y4989F9AI w16teowXzge6+CAwj9SnxixGzHlhNH/XxuCeWSSUucFyQysPDDsuZ9vkO4ME KLoesSd4oKe1qZO0xjTi2n+3UbeaG7oQiY62I5PIuvBDV4wKNzT1qNvaEj+B XlhOUtyquOCL3P7gMMtx9MRZDHobcMHs7h3kB8lR1PYj2cu5ixNKCULlMxHD aDguPTLIlhN+ovtY9vYNIqGsjBEWwQm7S1IlmMwBJH8gfduJCA7YL/tiD/rS h07dbNmRpcoBV7slMBkre9CXupD5O+MElGWOycZOsVDxoMZz4QQCmjHc3bM6 WajrzqqG6XcEjKQJNNaUsdCm9bXFzXEEFFq/y3E2lIVq3hvXvYwh4NzcjQK1 Yyx0nv+qk1QUAQuzRvWGgjpQdeE2A5NXBDRUHHXbxWxHedvpjMveBLx/bKQ+ y6kVrZWZU080w/Hqf07JX25FfuqbfHKvEnCF1nBtklYrCpSUfNhwhYCuer+r oyVbEdX8e8nfSwR0MOsvf1zdgvivftI8a0JAC5/OfFOJFmTaIvrlgCEBNatr UnjLm9FDrx9v/Y4T0K++epfXp2a0Nu2O3hcNApY3VyUthzWjgeJndb3qBFTp rPgwdasZubdu2aykRkCl0ZL4zs3NqD1Jbt3yUQLuFsyLSr3ZhBq5e2qjFQko fCYp4Oz6RiSnUfj9oRwBP9EeZasQjYi1ofzm990E1F4w/yk31oD81wdlyWD7 RWw5QC1rwN+Dca2RQcDlwaDubIcGBBsOKO6QJeDAXReGSEs9StP37pqhEfDG qWfBudJ1qMXiCmOTKAHjp4//ebGyDuX0rA3wFCFg72sOeON7LZIWrkkc3kxA /Z+Ov8R8axE1bIovfxMBgbMx02OwBv1zu3bv1gYCCkbLNCu/q0Zp8Uvn5tbg fGdLBMq3ViInjvb6p3wEfJL4tlBpoQIxV8S1c2BbGbvbp9dUIJ4xu6I7VAJu LT3Q8dahAhkbVu+5xkvAly/ex90tL0diQtKPtbkJeEf+meJe6zKUUiagr0Hg fAavjyfAMmTEqXylmkLAvWHHoyWEy9DZE2JntLH/EBy8/HmlaAvd4fu5lQQ0 bnJoHhQoRYK5S2532BSobHvBKuJzMYJGVgY//1KgGE1BTNinGMlWhgXaY//9 Ltzw6EIxaontTuXGTjtSx3TmLEZUG3o4Y5ECaauVKWcMilBUTzb94TwFUlO2 v+b9W4Covpvg5RkKjO3of/zbKw/d2LDuQPkYBba7rosM35uH9rgPRbpg84up pej05qJokq9xF7bDxfjGLJCLGmN9X4SMUqBqv+V6v8WvqDKvO9R5hAIHR8ei 6DZZaOmyZqbRMAWKBEh86hLLQv59rFpRbG05naLAmkzUNECkdg1RYObtT/2L 9ExkLXex7RK277wdvar/C8qU0k63+02BdMriZ6vzacjfBWTk/aJA42h6iTg1 DTnFejx9hB147HxLU+Zn1BJuIX8We9E7Z/7Qus+IOm3xc3aAAqv43BXJhlR0 cbag6xD2io/JJ/PdUxHHTIOoALb8yR8mdoxUJBK1KN3XT4FhAUc8WY9SUOHt yoTH2G10nidnHyehAbFS9T8/KRBev5ZSMPQRLcqzJ0qw45MrG6XVPyLJgs8W UdjO8o/XL1I+oANiOXkG2JuUhN6EOCUg1yIH/vo+CvT0uF1EaYlHm8jsrSnY w4XN/ZZ745H8+WqeZ9g5aq/oh0bjEI/G/YN62EY6Imkdl2PQsyA5lV+9FPhn akbBvjgaVXOy1WuxXV/WIf5t0ahzskPoC3ZYh2fVkYE36MPmH/MPsWXdLuh0 qL5BjC9rhW2xv0owW+3eRaFZ39tzF7DTqhpLTjVEoKht5fz7sJsFvRs8A8PR Lc+Ko5LYU3oKnemnw9A5ZRIIYu/5ETm9ueU1Coqw9BntoUCdbadXnHoVjGY5 Alq6sG0suUhPw1fI6xJ1uA47edpaarA9CKmKC5inYdcqSOzaHPYcVbq+qX2H PerWdPCkUSAia4P/hWKvKvZWvSf2DOl7zo8HYBsK2cVYoKfItK7ovTf2q7D2 r7VHHiP11CXZu9gttCNN8sV+yG8o3s4Oe23qu6EQVR/ExVHuaY19+hA/ZWXF AzStaWRwFTuwxG6j+Yn7qLfdctIYu/5Ux+6aGg+U5jt5+iy2WNr9ALMoVxT1 d8blDHZouTbaE+uI6K8dLLWxN3SKji4n2CKpZ/biWtgyfd8UXhpZofi2qZDj 2DTS5hXD3BRJyEyy1LE9mnc0by7SQgept/rVsGUFOi05d8qD0VybtP/cMuEZ KThvCFzOTGj8Fz9+avvkTVszYPl2MlYD2+W5aqWVvA3wUbYrP4G97OYcGrnL Hoy+sE89+d/7LT9YN9HvgOWimYu62IR+tyI3zR1cyp5q0ccukvB9GC7oCYR2 3lhzAdvrpaTN/ideQP/l5XWXsFXJHMMGvoegkNnYbYHN7al3xMrXFxwRzrxp g10+NyrNye0PhNhCpU7Yftd9hCK9noCqhz9672HHTQTcFbkXAC7xipU+wjY3 p5t9WQ4EXUqd3W+w1SUdz91XDAIR3obrkrB3dBad1HZ9Af6OMtd8xR7SNdo/ tPAK8NevutiKXbkqUSbjwGuwX3A5eQD7ffmsuJdjCJhkw9JZbGulAB6xmTBQ zfFBZSP+H7UWWP+G9kaALOHKJBlsRpr0RIZtJOiqoXUpYc8H9fzZMR8FbqQ9 eGqOnUV1+VZoHw1kDXYdLsSO2inclCwZAyQaaLMsbG/t5Pqwuhiw0nLP63ns My/7qhyk40DelEnIHnwex7doFtI748FeYuFhKnbrsQG03i8BGB908m3CzjP3 yOXYnwiCHmTcnsV+9DEtsyvgPah0VaUAXA9oCqLJgceSQHeNClcHNnkh44P7 RBIoTTTX5MD1ZspNJ9E6IhmET/XcYWBf7C3UlXJNAY9l4gIeYDN2zGktfUsF Xn/Kw5Vw/ar4bHIs1TcN1I8Y7Gbh+ne4RLZo+480sGYmcnrNIAWmtCwciWCm g6k5ZpQm9suF5+BRXzqw28z5MR/7Cig/eFUxA0zfmgv5jOstu3K33MaJLHCs 7Xd6Ma7Xtqyl5Kdq2eC4mVc/9Q8FDoxUMrgissF2jw1/dbCrBa/KTh3/CrZV 1bT2Yofov95eE5MDRprQGQHcH/b1rhS7Z4jAdKul6vNxnH+2wcTuBATyXpiK 9mLTAj8W/1hAwP4T86vcBAXyvfmwL0orH6SUiZ9owv6nbchij+aDje3ns8Sn KLAzJVkayRUCujvM7sT9K9LGuFgxoxj8q5J4PYL7X9gF3qQX3cWA31lrs94/ CgxWT3s1wl0CDjsImeZiB0hQrcINS8BLjTFmwBI+P/Xpq5cWSkDVZBIPwP3W dPcqk5zDZYC/ykW6APdnqfGvCwcLK4CQyj4Pfdz/XWuOek2PVIAhWv3MD+yW xCr+pI2VYL7dQtMazwt+VzukttyqBM/8u0MfkAQcb1/U4paoApxJv/IK+QmY V6LwtuluNaDNVv8xw/PHudCM49YKdUDJwPKVHp5v0pzAt21X64BjiHTDX2x+ /TKT7oA6QNNp7X8rRsACwVY73cE6sL1zZ+SUOAHXHnU5FXaiHoiEUDUjJQno khni7LlYD+T550zEdxBQI/p7zUnDRnBxvfZk/l6cz4Mks5LrjYBbNjLYTZ6A wRb32YfuN4J4g9N8ivsIOLhzp5x0UiMgSgX0cpgE9Mn0CCI4mkDJ0cbbxQp4 XqzZfj4zuQm4hVV9XAQEVJu3H9zC/Q2gskDvJU08P2oJETPprUCk5+fcqWt4 njLlnVioaAUX1u1sY1gSsM1+RfdyZyvwD3c14rcioGXEaDYPVxuIlzTXr7PG 8WOVtiL6beDnAuuvoQ2Of3a/9+hsG1B4mzzo54jjW6YLApntIOUL2WuO5+en Jq0euzNY4NZP9+HFWAKWnRRdpS3UAx6sVlNzmyTgyBZht8aQPiBQIRi7+igH tLeTMX26bgD83O+nVIlnx1aWoK5Z+SBYfKNyLY7NAS86H/7FrTkMeHWUihhX OWGRzH6/Is5RcOWagIn3d05I480ZjFEfB3k7v5ReOsEFRXOsVDh9JsC7f4mn ziEuuGKRkmDbOwkqaEt02yPccE4n17hk2zQIieGLtc3jhh3yJpu3ec0AV/3q H0YaPNDGQHC1JGsWZDgExnY088CNQT8NOUTngdkr7dFbZ3lh0vmod1NOC8A/ pZkrdJgXGii6q5fnLoJZz9tqaxyoMNX4uuTBf3+B29K3OC82Fc5TjxJZekuA /knE3PAlH9RtOMQUDV4Gze4yX322kpB6iK8gJ3wZ0HU0grm2k7Agpv3Ehehl wPL2feIlTcLdTs6moUnL4O1HlVIPBgn5xTP8N5YsAzshN9M7B0hYYb2nT3hy GSS5PFK01cT7Jo90AL8mG8gmbFO2syPh/K35TUk6bLBj/wRjxoGEyR1lsVoG bFDo8GSvgzMJxZLNvvpfYgMzC2EvJzcS/tOLGaA6YzcqHHHzIWFGtLgidxwb sJhrpZ6EkfDGqrGyuPds0D6q7CMYSUKaY56uaiob2B2M5nj+hoRBx40sHuSw QbBig3JwHAltJ0KeE01s0DZS3xSdQkL6eUux6DY2uLLhzgTtMwl7ihUSlLvY QBVx0RLTSagd3JZ37zcbiLVFN6Vkk5CHEq+xZQw/v/KNpnwuCZGVY3P+NBvc WH+elYFI6PBN1eTiIhvY3Cv3PIT38//b38H/7+//A4j8qdU= "]]}, Annotation[#, "Charting`Private`Tag$4763#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0VWsbAHAZMlyJrtIgSeYkSuiiRylpINyUuhIlXBpcKdxcZEpCaDBm iLrI7AiFx3DkmKdz9pEhEsU5ERHHkPPtb63v+2OvvX5r7bX38777eZ73fbdf umF5hZeHh+cnef33rg4bWFwuF1cP9kai0Fe8sbAjdGGRi3lz5uG1XDYWFGsq zvzgothppa76OTbuUTa99JnNRdbOSzqtI2zUkQjqbWFy0UVb3HWwmo2Gn6ab 4vO5mBzj+VDCm42W91pf7b3IxabpW1G54yz0bA+65lS1gtoO2djUPI50+i+s Gvuf2Fbb+MLY4Qturb4hqSO9jAHX0rY47RzFEleqwNqBRcxM/RBYz/cJ7cI1 p94HLGDmiEbuDGUIOTF3QhE4KP9Vx3FKdQDTxT5sivs4h17rfG+YZPRg0nFN 9+77P9Duksn2QhM6Bly191I5NosbRZ4XbTHrwDt82Z7uE98xrklf2VqThvb+ 7fJE5jTKmsZeZUVW45PK0bgklym08y7w7U8uwjeDyqI5cpPoL8kOUWY9wB3i hodOJ7OR53W3dP5KOhSphroMfxpDjadKbaZEKQzWF8pqa3/GsR49J6PDtTCq 9mQPvv6Ehk7K+y5XNoCEb5a2+qqP2GE3rGu8vRXUtL+pvZjpx2UnjnFbcwc4 qvv5lQ/0oxqzz5pO74AUxbVdrQ39ePIH8YY+0AHrpHZ7ziX2Y8EpS0fqtw6Y n79ec/RwPxrqbZO5+Gsn1JZPWrEe92FZ7CZl/3OdYG0w6btbuxeV3eZu2H/s hMDDEx3lXkz0soqMVx7sglqTr6e0LjOx5c9bqZGfu4DHlN2WZ8rE8HjtzMmJ LvCxGm9Jl2Mi9ZZPUdJyF9x2HKVFtBCYGUy5U7CpG5xDB6rtZQkUX7LWKLHs hpMtrQXCNDoO3TdqUqjuhrCOlt1BRXT0WuO+j/auG2j05ryVJDqOhJQ7OLR2 w5GBxpyZv+go+11XKKy3Gw5M1mcObKHjYZ03u8Nmu0FDvCq18EY3Bt0AFxsl Oqw/nRd1TqoLoxz2/aofSocixQdvjvB1of6X1ZfzI+hgvuA0ovmtE8umX0pu fUSHsOTtuiINnUiJ7Yz98owOK2OPB9/c7kRJ+bvzusV0+PzPHXVpogO9OJIT zf10uH4qOq5SpR2dneSvZ+1kQObs8a9PVrWjbmqqnaMGA4bj+Q2vv2/DDv7B sK37GHBmxPOLzP02pLVm3/37AAPA21bbf6wVdV8vMSbNGSCevpN+6N8W9HA+ L1ztwYCiufq1NPkmPB3meX65lAGR2c9rDyw0onOOlOjpCga42vrdKmltxP59 qfUZ1QyQf6fb9/x2IyqzR45rNjLg6ZNXL/+h0VBtK9dz7j0D/taKNth7tQEf uzVqaCyS8Yxdm8oybECNQB2UWmHA3qTj6bLrG9D8dytDzioCvvLxC4tVvUPx C0/XZwgTYNt9mz629h3G1Z8bf7mRgEPuNq7JxVSUpH5VsN5HgIzifpn1oVSs sLE/2aZLwNL79Z0PbKjo7Hfc0kCfAMrBdm1vASq27JqdFzAiQFHiEO/ps3Uo neb24KA5ASIFSvHCSzVIu3JzyO5PAl70jUaMB1VhJuup7P6nBPT6bEh5trcK wykzH5/FESAmc7TAYrgSeY59M19OIOC2XWZXOVRiqN+i1ssUAoxHXaTCFt8i rfQYb14mAWOT31JV3cpRI3JEJqKcAOko2aIPMuVIibZzCX9LgLmmRV1Maxn6 eyqfC64koOxm0eiiahlWyBnLONQQcJ/jodo8+hptot5pM2gEqPIuFrv+QcGy zhNKwQQ5P+mq9dtEKHg64NAVmR4CYg7/QXSXFaMD8h4ofE/AYkgFR29DMbas 4amq6yeg+Rc/A9HOQpRe0mEnDhPAk5tvVu1XiLMCZd9XjRCgZTZ00UO9ELVy 3aPtRwlIijoY0P+gAEXFZ2PWjBHQoyoUeS4iD7++3pC4cYIAw2t/FtSwcvHk ajOLE5MEZOY3damY5KLoi6xEz28EeGtFSC3y5qBNhSO7YpqAzQfWpSV4ZaF+ TPS1xR8EBPjfrOMlMtHE1PPtwhwB7Fr6qMveTPShjyR8nyeg4misqt7kS+y/ smtN5wIBFyykKX2XMzBK+G2p4U8yX2Z+7L9FTUeK36l4oRUCfJ62o5hCOmpI OR9vIp3UF9B88HMalnUYb9bjYYKar41Fn3Ea5iyn6bJIv5XVZnr8m4rOtq8U Hq1iAqW5q/5UZzJuvLvatYuXCXTxkM6AmGcYlbBU68zHhBmr/QMlvyehSeLo GIf0nqGU2S1EPPqUf3+2WoAJFgq/85yKjUPnkAa1INJuLqtFA6xjkRM/G7pE On/26o6x3sc4UtyWyVzNhLb9sru3JD1CWoPeVX1BJkz6dv9mdiEGKwzuLieQ XkMNMb4rE40OiYHnZkhbr/PIcMaHKL5XJfCIEBNik3rfth2MwJ4d572jSROK B7u1qGFIPcejzyQtWfgvK8E4FMciBJs3CDPhdz0x3lWNwehjfEHRnHRMvccm pxOBKMqcMg0k3XGqT6O11R+97IoPFpCWoQRGOab6oGRn7Com6USaOe554Ym0 kZiIedIbB7ZOrmS5I49C4qiECBN2fmLsf3rBFXvGMoUVSSuKusWqO9njRqvX C3tJ+9OV6VvqTPGkDZbokVZbO+AisEsLcqpqDAxIE9MBKeIcazAUqYzWJT11 Sun7DXdHaEkoKtxF+s4j4yZXLTfoj3/xTJr0iq93YsruW5C5kmAl8N/3u+Rc 7Vb9G9Qi499/IePjOzNoIKjoB6J9WSpU0nWy9+89Ew+A0CPEkQTSQU/l3HQi g+Dqkqq6C2lj0Qrrzl/ugRCnZHgvacEAq4Ou9++DOP+9y/PkfNLmJ1UEBMMh vCS/gEI67FroupSgSKi+YdTkSvrldNQ/0nejQPTy2QJp0k5Oqo6vV2JAufTC sCv5/0zkPM8HGjwGee9AdRHSygN1ZuY+T8BQO+roczIfWJYXdFgLsZCz6/0Q kvnStCZ7Z6luPNipnbU/QvoVbW5bkGcChOdBPpWfCVcPRAnJ/EgCyr0vxQVk Ppou9C+z9iaDOc+8y1bS6hSV6VL3FJAHialAMp85jz9+VeakQo7I5isHyHwv F7nDqL2VDpTZFq4zWS+pu9Z358tlgLSChMYjsr5CzPM7ktozQNyWIvV6mYDT Tz8131Z5CfLiJmKfFwmY2n6yVnUgE/wf+6VNkvXLPPwZpcKyQLkv+MkHsr6r nPwr+XWywevuA6OGWQIe5FLKPkS9AmrDr+0B38l+vH9rfszhPJCFTfnPyX4i alOa4zedB1/PivhafyVgxtci+2pyPmhI6IoIsgmwG6613OFTAAUWG2zMyH6k rjxv+pNRCJxjPDPBZD9rLL54uPA+BZIg1DaeQYB+vVqd0hAF/AVM9Pu6CSgg Fg4ma5eA/+TDwfVdBDxdeAQPPpWAT5eM9602AhyA9tsVg1LwkAkX/vCOAG6T huam6XLgsDmaVq8JcO//mf/w6Bug3ZEv2UEh4PNEk/rq5DcwlBMoxC4koEX8 itrM8bcwdfq9nEMuAQln4pVaMyqgQOyYHk8GAfuGV8nctUbwmpzKHXpIxv/m 7LRGFoIyj97cnxHkfMTkUocWENw2xwhOhBHwS1rOvlTTaohzOxY6FEzAsrl1 P3eyGswHnDf8c4eAgYJ8FdSsBRrFaG3EFQJS3GypBqVU0Dc7uFGMXB+TbITz ngxSIWO0b3WXJgFxJpTYCcF60Fou7nmoTkCUrIjrM+t6cLBvVVlQIsC/o0Ti 50I9VEt1JAZsJsBeY83FCv0GyLD688lf5Hq9Y+rtwm+1jRAa/GzwXQ0DfFqN gmYnGoF2+92em5UMILKbxfI2NYE1weO7sZwBYVf6dmz/qwmijp3gNStgwFTv oqmgbDNMGYiwHJIZUFW//3n3Py0wsjz4t5E3A84nlh6/ur8d5GdnFdpUGEDx AobClXaw6108myTPALEzDRcHo9phRD6i6PI2BtSIMz0sx9phiNrzZUCSAZJG d04lnegArYHv/v5cOtwpS/AOWOwAD/2HH/266XAs/X2rmXUXbJx5Z3bzNh2m gvMc6691wZCpmXSIGx3inAO5eoFdQJ/KCYlxocPYrl2aKnnkvtO3UTfOlg6h Zf6P+fi7YephyaGzxnSgtSr9UZbfDWpNLPcXknQ4yrk1tl2QAbJuhTmROeT+ 0XQd348SJui+kJVbauyCSHvh6YVGJugvfdjGX9cFPbd4BlcGmFBRc+mHYEUX uCRPvhFa3QP9cWLqPOR3I781uUuf6QHOh4u8xdHk89GBw0ZzPWCe1JS4gxyH CzFbE6PdC3Gcjx165P754UWmv0ZpP0SFmQSnj3RAg9nWNebrPsKQkYyZxKpW mNi+3rcr4RMYNgf81TffALc8dto/3PAZpgbY7y3Ca4HZL27pSBsDWW8XG5kL ZWDnrf9F8CQb/NWzflO0/hfqduqE1QlMgn/azc+88yGoKFwxlmEyBW7clxbX Nhfi1grXIwKh0+Dfb+hmG4/Is8ib5T78HezEjSbUJhtw3qLStl5hFtwmVCO1 qtqxT+viFoWgH0AV2KLgoU1Ht7PiEnL9c5AqePLEpZge3PR4xJp/Kwc2rjGI liztx7w/Uv+d8VoAOXZetnrGEJ418DOhVS5Cm5Zq7tq2YSy0vSb32/ISsGQo qoyZEeSIGPGVW/2E5Om2nfKnvqBlp5721rgVMFYW8Rm9N44ier/UVDxbgYRr d6f6o8exJqP3hE36Clw6HNBITxxHDS9v+8S8Ffh70D2zPn8cxbaVhm+qX4F3 7qfX5zDHsfHqnk/rv69AtlRY8AMlFhoKqUSJneTC89bvsY8aWMj5i7M5z4IL MQLbT8R2sjC/r+GF6VkuLPI9vZDYx0KZfMe34Ze4ENlUmJLxjYXLVhmfRbxJ uxs9fivFxtL0bQaCL7ngyJ+7ZcmJjdfXfGt4+YoL50ecCvjd2ajoWWVpXMiF d+vG08R82Pj4+AXn4AouWG5LS9gRxUb36YRHfN2kh1I+WJSxUfUPF5n0Hi4E hB22sq1l40fq/qxDH7ggpuip5NrCRvO4nqq741y4fp89EDzERiHezGPbv3Hh jMZQzSMWG9HVk149y4XsEBrP81k23mYYX7Rb5MJrdd+EghU2/u/8Dv8/v/8H JQZheQ== "]]}, Annotation[#, "Charting`Private`Tag$4763#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgyVDCEVGUqRhHQk1XPMGmTIVMpQF12UcjOWuEhKxowZ u4YoGULGbNO55kynQ4YUt64U3mM+wvnuu9bv98e73vVZa6/3fdZez36e/Uhd dTN12EAikdbw899bEUQm2Ww2ylRpj/YaJ1PdWDKhrBU2Cq84YHLsC5laVKIs O7fARl+N0qRZn8hUlQOGV7/9YKNhzqlfvoNkqppA8GBHPxvdCx0I9e8hU6nj zLakQjZ6ZDsr8ASRqaYPO18dsWUjsyVlwZJkMtWrK/iGU+06mhFiXzluRqbS 6Zsn6+3XUNyPEMuLVSSqeJ3bdrXdq0iLsXpHSoFELXNp4tw2soJE9XZIuOuw we6JMvExkIVEr9er8Iivw3LM3VAEy6iDeOtxdusaZPJ9Ekv8sojsfbm9n//4 BSlnlN37Hi0ga767WdX0FQh0tfeWOz2PTnv3GIgwWHCX46WX+9QsEolUsq9q WQb7gK69jFwmchqtznOlL0Hcu6+JKc4EurgmtNfv5yJUjR7Yki89jX62U15f W1kAGX6qllnaDyRkpTWeJL0Ab+RDncfGJ5DdPT1/ed15GKUVS1Io31COr+bM Jt85+KoQp4LejqOhiaCFsbZZELifR1Ekf0F5eVviHCVmQYEyo5A9N4yahpzb kiOZ4Kjo7185MoyW2UzdS+FMSJfd1tvZPIxuHfvj0M4wJgiKHvZaTB5G/fax WmkhTFhaulmvrzOM5mSfx5b7MaGhctp8MnYIfYiUNj3sygSrk9P3D1MGUeXF gyS1M0wI0pnqrvTuRw52tKM0Xrze4KeR6rV+ZJy8ufQHNxNIhj/eFxj2Izuj XW+EuJhwz/x7R6Z0PzIdeHT4OgcTPB2/toR3MNBFusZJmVUCroeO1NlLMhD7 rSD/2BQB5zo6i3ha6OisUOL3B70EPO7uOBz8ho4c3DvOj3QT0EJvL1hPoSPe 2BUtShcBuiOt+XO36Uijcufgz3YCTk3Tckd20dGs0/FuVxoBSvy1GcVufWhM LEmzooIAYbOCqIuivSg9xdoyIIOAN7JhVbocvWhewylIJp0AY5bTP8ozPchc nS3Skor/nyZ1jLe5BzEiVT2FkwlYn4gdrfLsQbX5BhL1cQR887uruJvRjbLL x+0uhxFw0yg68Z1cF/o+lE7K9iIgd/7MzzhyFyrrJDV5eBIwlrSRevPjexSp epul70GAxT9e/0o8eo9MtGqrCXcCwMeGEjDRiY5yv8y5cJMA/syDdK0XHSjH uveirQOOd5G2rWVvG1IUCtONMiMg4uVfDadYrSiPV+ai7wUCXGz8Pco6W9G5 iTp5R1MC9v59bOgvz1bEqnLj0TYmID7uVY5fSwvyVpSrFThHgK9q9Mkjrs0o LWnRiEMHxzNxg8ijNqOl7dauPNoEHEk5kykp3IxmMoTOCWgR8JNjIw9f7d/I 36bRQpZKgE2fJ31i29/oSnDvc4cTBGi5X3ZJK2lCtU2vTdWPEiAhqy4hHNqE YtP4W61VCfj1Ubgn7HIT+m4ezxVwhIBSzS6KD2cTMp48+KlTmQBZAa0NZpaN 6F7nOdZ9RQJ4i/Yn8fyqRya7t+xVO0BA9tDX8O/BtUhMg2M7WZyAwXsi6alH alEGd/64024C+CT0i0zG3qEgmSn97l0EeNrl9lbCO/TFfPJ99k4C9L46iz5e qUY9D+OHru0gYGJ6JkP+ViVS63XbrrCdgN1Rkm8+SVQii54ozXwhnA/KJo0x nRVovP8TpyJ2xR9vvq7IV6DtNxLMKIIEPFq+I9/+9S3KN/Hiu8RPgPyGlRIX 61JkTrYQnN6C9ydTnraHtxQpmg80PMSO0bFm9FWUoEnd3C0y2CshNcsaIiXI eDbX1WYzAe2b/U9u6SlGq4uX7Cd4CCC9Ljxf51+M9OZ9RyOwVc9/tr2jWIw8 z3QsUbBTojQDh8OKUB3TZSmMm4ABee6Ii+EFiNvg2tHTXARQb/xeVD/5Gind +fBwdRPOx8K2XjmD1yjgySmPYmwf1XDRlQ35KF/PSEoSe+cpwefPvPOQanRT HT8nAYEBfzRuYOSi29Jnp7o3EvCjgf7V+UguyqpzK4vBrtFPkNeYzkHnUkZ2 7MK+YrK7dOhaFrI9clwROHC+zC2oezRlIobwh6Nbse/FdyG+fZloaSaidXgD jn8osF3z23MUp5kQF4CtcP+yyZDec5ToSXpvhl0tSem/8yIDyUnUxshjl7b3 0ox60pCfuVP9IJkAOn9IT2BMKtqzzflgGfacufpI2YUUxIyYkYrGVvmcPr+L kYR+088vNcQ22XeBZJSQiOS2LxkrYt9y3rQl0CoB6Xb98OHHLpx3lZkYjEVt Bgu3P5IIeK8ueXhXylPUw7FTsw57+n7f8fNXYpBZDndqLvbWphC9PyWi0SRf y4MYbCvBO1nXUSRi59r88sNOSBmsfq8Zjjpde9ecsRmymn2qTY+R6eiB8IvY 24tfTD7TC0WnBZ3yTmNf0ODbQG59gPZmRZtqYMfQ7og5nQ1CpLr8UEXsbqMh pc7OAJQtXnNWBluiNCjKMeMeuk9uTBbDTm4xRirZXij6RJO3APaOEfHp9Tx3 FKTQMMaLfXD8g3r8FRcUXl37kRNbdsutBEUne+RnV31lA3YA/QB9V6MhKpKo vEnCVtg24sx5SBV2hFRs+c8MZmA6/7IVHCmpVCNjE0b7Z93cHYHfqGaGA/vu U702F9VbcC4SqXJjr9/3SU4/7AFilIZNfP993znftU/eF47FNDgIY3NYjJ7k kvUHkn+tiQR2o+Sjh6n8gWD/W0nbAezgeOlbahHBMEFJ61bF1ttSY9Wz+SHU e929poXNFWiu6fLoESBV/SAT7JalaTlOridgx712+Cr24xuhgunBEdAnlvj7 HewcZpTf7j+jgCQupBSK7eQk7/h2PQZYD6OvlWIbSHtdCjoZC76iod0d2AdG Gs8b34uDIxM6bd+wJ02vqE2yEsDq5ey1PThf2ra+PFh+LAleyfdxnMJ+1bK4 J9jrGUjyXlSywXY9FcUtsZACDKHDhzOxDVnDq5NH0qDwqAu5BVuxVI5Z7p4O K9l77aaxl2O//DywnAE7/hhrAJzvlbx3PzR4ZEJ8xdHdC9gZh4T7CqWz4F7+ 3ih5fJ5CjAu7U7qyAD5pMOyxzeLH2z3lcqCKGT/wAZuQOtcgP5ILmfytJX34 fPbrfEOij/OAdb/5rSg+37VOAe82qr0EB2G9sCvYYa9LKz5FvYJejt9yp7Fl 1cULY3QK4Ff21SJZXE+2XC7P92cWQIttzgkf7Ln7Ji9d0wrBi/ksqRPbbqzB VOZeEVjay9Du4nqkeGDJcO1DMeiOXx+dwvWqtcRWp/hRKQx/Ddkot5WAEzSF xv2fS+HavEh4InYRg6WZRikDmRWdf3j4cL9iPYWw8TLYq/lljYn9G7QcdzhZ DrLTtI/9uN6y25SUxZiVQKt6uW0F12/34bXCSP0q6GGM3gwRxv15qk1xU1oV hPFyP9suQkAHv4PC3JlqeJjhfoEiSsAzi6T9nVk1IPrGwjBSjICjY2SJP60Q 7KvKV0qQwPFXWTKV8hBUHn32SXUP3o+Y102fWQj2u+nspGNvfp5/NMOwDlKT RI6LShGwamw1zJ6uA7faCJEiGQJGigrlkHIDRHNb7VCQIyD9lk3TyfImUP1r B+Ms7o8pl3kK4kab4NLq7cGdFAISDUoTprho8Hbxl8MP7ChJXpdUKxo4p5YJ RB/D56e7TGCNRYO+GdWyaQ0C7JW22tacaIZLGe8XZ3F/liGqWccbWsE+VjNL HPf/e53awfNTrSBg5RWpgu8HjJftfAVibXCoLvfEaXx/eOwwJCN1uw1sZeKH 7lrgfBlcMeSSbAd9xxypxUs4P2jqf/X5dcDjxVt+p34j4FJy+RlX9S6oqnjV u8sb12Nv+LDPoQsOgrzedR/cfy2abUejuuBx/gO3t74E1PP33zGd6IKwJpUx Sz9c77TvGqWc7QbPUz81CgNxvah45hO40g05srRrheEEnM782HneqhfWjnmF zmbheB4UONJu9MLZq8IfbuTg/bkexNYI6oWISr+qyRe4fx86pCxX0Ava8YuG 318SEFoREMuxsQ+ao++GsYpwPejcb11R2AfHtG+yHd4RoL/sMSHF9QGqk1aL XPrx/dFQkGOhrB88OjKe8vMzIcKeh8lq7Yd5irLZewEmDHiQRtdH+sFMt9sm XIgJzmnTVdybBuCJUbbxNlG8fqbNfbfFAHCuRyVLS+D10UFj2osDUHie4hGi gNcz5utjKIOQ6kU4UfH9OdK2P0CpfBj29DF8HR8xofm8+FZjwS+gf8hB5Yb0 LExJCd/vfTYO1inLU08bZ8HjzkH7SJFvwOn7Q5Lz9hz0D/ObOrZMgPL5q57v TsyDnc+Jf7nO/QCj/Avy77kWoPGg2uNGzmnYNLJg70csgCxPzUSWAQFVDtrK FPoiiNe46HKGMiGM45D2vpolIK1syHMfm4Uuyx6WWd0yLJm8s6Htm4fbF6an zKtYMKRqu2tf8AKolrs5KHSvwC1LfgHp4UV4tfRrev+/v0As9h+rjeLLwKPu HWBGrEKBdcaLOW8WmLkEFOdsXwfLk/4GLe9WQJ6/ViVBjg3FNjekj6/iOSuw fvmEBIm6zKvNUWm+BqfVuCv5y0hU0x4NinjiOsxtFN2qqU2m8mpsrq9JXQcD hupkrS6ZWp81ePZy5jqsbPb4fMKATFXy9rFPLliHOhXlHeqGZCrfnvInYrR1 eJrwe4mKJZna6qoyLjy7Dh0kr0h5FzxvcstF8Z1jwxlFgViFp2Tq8u3lnQUm bNCrGQ54HUemFg41ZxtasuHzL58HiolkqkShY/WTq2x4MEViKKWSqavmWd94 fbAt9z2lvCBTyzP3nOTKYcOvavYdvWoy9ebWmeacV2xY/kNxsOUdmSrrVWuq V8yGpyjC4mwdmRp75sr1BzVseNtQE2tMI1Pdmc+ecvSxYdG9Zt/lLjJV3tpZ InOADYGpDtqjeD7+0qSep/WJDQ46s15X6WSqceJA7Z/f2XDySuS+3z+Sqdwb ck9LzbBhKeRJ2s8hMhW5eNHr5tnwJEVP8Raevz0/6NnarbAhclMpfe4zmfp/ 8zv8//z+P/Op/DM= "]]}, Annotation[#, "Charting`Private`Tag$4763#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgxJKElFhlIkIZ2SamcIDTJkajLURRelXPMQF5WSMWPG LomSIWTM85quOdNxlCHFrSvCe8zHdL77rvX7/fGud33W2ut9n7XXs59nP5I3 nIxs1lEolFX8/PdWQNvG2Gw2pCu3RLqPUAknlnQwa4kNoaX7DY99oxL5hUoy M3Ns+K6fIsX6QiWU9+vd+DHOhgHOiWWvPipxVDCor7WXDT7Bn4L9OqnE6RFm c0IeGx5bTgs+BSph9KjtzWFLNhgvKAkVJlIJ9/ag23ZVazC1hX39uDGVoNM3 jlVbr0LM+EOzy+UUQoxw2np01wpoMFZcJOUpRLFDHefmwSUQ0d4u7qzFBqun SuTnABaI3KpW5hFbg8Uo72BAi9BKvnc9v2kV0vm/iMZ/mwdrL26PF+PLkHRO ybn78Rxc5ffOqKAvQYCjtYfs2Vk469Gpu43BAm+O1+7OE9OwLVzRurxxEaz9 2/cwsphgN1SR7UhfgJgP3+OT7Em4vLplj++veSgf2s+XIzUJv1pob28uzYG0 wGkN45Rx2GKuMZIgNQfv5ILth0dGwcpH20/uzCwM1RdI0Gg/INNLfWqD1wx8 l49Rhvcj0D8aODfcPA2C97NpCtRvkJ3NF2MrPg3ytCn5lzMDUNdv35wYzgRb BT+/ssEBWGQzz1wJZUKqzOautoYBuHvsj4M7QpggJHLIfT5xAHqtozVSHjJh YeFOtY7WAMzIvIgu8WVCTdmkyVh0P/SESxkdcmSC+cnJ+4dofVB2+QDl6Dkm BGpNdJR59IKNVf2Rel68XveXvsrNXjBI3Fg0zs0Eit74x1y9XrDS3/luCxcT fEx+tqZL9YLRp8eHbnEwwc32e2NoKwMu09VOSq+QcCt4kLCWYAD7vZDA8AQJ F1rb8nka6XB+S/zPB10kPOloPRT0jg42zq0XBztIaKS35K4l0YE3ekmD1k7C mcGmnJl7dFAr29H3q4WEU5P1WYM76TBtd7zDsZ4ERYGqtAKnbhgWTVAvLSVB 2Dg34rJIF6QmXTXzTyPhnUxI+RmOLphVswuUTiXBgGX3j9JUJ5iosrc1JuP/ p0ge423oBEa4iptwIglro9FD5W6dUJWjK14dQ8IPX2+FXYwOeFkyYnUthIQ7 +pHxH2Tb4Wd/KuWlOwlZs+d+xVDbobiNUufqRsJwwvrTdz5/hHCVeywdVxJM /3H/V/zxRzDUqKognUlAnhY0/9E2OML9OvPSHRIE0g/QNV61QubVrsuWNjje +frNjXuaQWFLyJkIYxLCXv9Vc4rVBNm80pe9LpHgYOHnWtzWBBdGCTlbIxL2 /H2s/y+3JmCVO/FoGpAQG/Mm07exETwUZKsEL5DgpRJ58rBjA6QkzOtzaOF4 Rm+T2acbYGHrVUceTRIOJ51LlxBugKm0LRcENUj4xbGeh7/qb/CzqDWVOU2C RbcbfXTz33A9qOuFzQkSNJyvOaQU1kFV3Vsj1SMkiMuoigsH10F0ikDTVRUS lj8Ld4Zcq4OfJrFc/odJKFJvp3ly1oHB2IEvbUokyAhqrDM2qwWftgus+wok 8ObvS+BZrgbDXXx7ju4n4WX/99CfQVUgqsaxlSpGQp/PttTkw1WQxp0zYreL BH5xnXzD4Q8QKD2h07GTBDerrK4y9AG+mYx9fLmDBO3v9iJPliqg81Fs/83t JIxOTqXJ3S2Do11OW+W3krArQuLdF/EyMO2MUM/ZgvNBybA2qq0URnq/cCpg l/7x7vuSXClsvR1nTBMi4fGii1zL9/eQY+jOf0WABLl1S4UOV4vAhGoqNMmH 9yddrn43bxEomHyqeYQdpXWV0V1aCGNnsviksZceVi6qbSsEg+ksR4uNJLRs 9DvJ11kAK/NXrEd5SKC8zbtI+BWA9qzXUBi2ysWvli4KBeB2rnWBhp0UoR4w EJIPBNNhIYSbhE9y3GGXQ3OBW/fmkbNcJJy+/Xt+9dhbUHTpebSyAedjXnOX rO5b8H96yrUA21MlVGRpXQ7kaOtLSmDvOCX04rlHNqhE1hECnCQE+P9Ru46R Bfekzk90rCdhvIb+3f5wFmQQTsVR2JU6cXJqk5lwIWlw+07s64a7ivpvZoDl 4eMKiAPny8ycqmtdOjCEe45swvaJbQf+vemwMBXWNLAOx98f0KL+4wXEqMfF +GPL379m2K/9AuLdKB+NsSskaL0ur9JAVrwqSg67qKWrXr8zBXxN7Kr7qCTQ BR52BkQlw+7N9geKsWdMVAeLLyUBM2xKMhJb+Wvq7E5GAvymk1Okh2249xJF Py4eZLcuGChg37XfwBdgHgdn2sc9BbDzZh2lR/uioVl37t5nCgkfVSUO7Ux6 Bp0cO9QJ7Mn73ccvXo8C40zu5CzsTXUPtf8Uj4Qx/sYHUdjmQi4ZtyAc2FkW y77YcUl9FR/VQ6HNsWvVHpsho96tUvcEjIb2h17G3lrwauy5djCcFbLLPot9 SY1/HbXpAezJiDRSw46qdxG1Ox8IFCInWAG7Q79fsa3NH16KVZ6XxhYvCoyw TfOB+9TaRFHsxEYDUH7pDpEn6jwEsbcPik2uZTtDoHzNMC/2gZEe1djrDhBa UfWZE1uG726cgp01+FpVXF+H7U/fT99Zqwf54mV3KNjymwftOQ+qoO0PS/n+ M4MZkCqwaI4OF5YdpWKT+vumnZxtkYB+5RQHtvcz7WYHlbvoQjiocGOv3fdM TD3kikRpNRv4//u+fY5jt5wXOhZVYyOMzWE6dJJLxg9R/KoMxbFrJR4/ShYI QNa/FTbvxw6Klbp7NCwIjdJSOlSwtfkqzTs3PkLV7t43NbC5AkzUHR4/RqCi E2iI3bgwKcvJ9RRZca8euoH95HawUGpQGOoWjf/dBTuTGeG7688IRBHbohiM bWcnZ/t+LQqxHkXeLMLWlXK/EngyGnmJBHe0Yu8frL1o4BODDo9qNf/AHjO6 fnSMFYfMX0/f3I3zpXnT6wMlxxLQG7lujlPYbxrndwe5P0cSvJcVLbAdT0Vw i88lIcaWQ4fSsfVYAytjh1NQ3hEHaiO2QpEss8Q5FS293GM1ib0Y/e3X/sU0 tP2P4RqE872M17unxjUdxZYe2TWHnXZQuDtPKgP55OyJkMPn6aFBXkdSewZC X9QY1tjGsSMtbrKZqJwZ+6kHm5S8UCM3mIXSBZoKu/H57NX6ASJPshHrfsN7 EXy+q+z8P6w/+hrZCGuHXMcOeVtU+iXiDeri+C1rEltGVSwvSisXLb+8kS+D 6wnftZIcP2YuarTMPOGJPXPf8LVjSh5yZz5PaMO2Gq4xkvbJR2bW0vXeuB4p 7F/QW+0pQGdGbg1N4HrVVGipVfC4CA18f7hedhMJJ+rla/d9LUI3Z7eFxmPn M1jqKbRiJL2k9Q8PP+5XrGcoZKQY7VH/tsrE/g01Hrc5WYJkJus/9+J6y25W VBJllqH68tebl3D9dh5YzQvXKUedjKE7D4Vxf55oVtiQUo5CeLmfb91GQquA jfzMuQr0KM35Ek2EhOemCfvaMiqRyDtTvXBREo4MU8X/NAe0tzxHMU4cx19u xlTMBlR25PkXld14P6Le1n1lAdrnpLWDjr3xRc6RND0CJSdsOy4iScKKgfkA e5JATlVh2/KlSRjMz5MFpRoUyW2+XV6WhNS7FnUnS+qQyl/bGedxf0y6xpMb M1SHrqzc69tBIyFetyhugqsevZ9fthnHjpDgdUg2r0f2ycWCkcfw+ekoFlxl 1aPuKZXiSTUSrBU3WVaeaEBX0j7OT+P+LE1WsI7XNCHraPUMMdz/fdo0g2Yn mpCguXu4Mr4fMF638OeKNqODRNaJs/j+8MSmX1ryXjOylI7t9zbF+dK3pMcl 0YJ0bDMl56/g/KhX/avbtxU9mb/re+o3Eq4klpxzVG1H5aVvunZ64HrsgXr2 2rSjA0hO+5Yn7r+mDZZDEe3oSc4Dp/deJFQL9LoYjbajkDrlYTNfXO80vfWT zncgt1O/1PICcL0ofe4ZsNSBMmXqb+aFknA2/XPbRfMutHrMPXg6A8fzINe2 /nYXOn9DuOd2Jt6fW4FstcAuFFbmWz72CvfvgweVZHO7kGbsvN7P1yQEl/pH c6zvRg2R3iGsfFwP2vZdLc3rRsc077BtPpCgs+g6KsnVgyoSVvIdevH9UU+I Y664F7m2pj0TEGBCmDUPk9XUi2ZpSsYfBZnwyZUytDbYi4zPdFiEbmGCfcpk OfeGT+ip/kuDzSJ4/VSz8y7TT4hzLSJRShyvjwwc1pz/hPIu0lwfyuP1jNnq KFofSnYn7U7j+3O4Za+/YskA2t3N8LJ9zISGi2KbDIS+IZ2DNsq3paZhQlL4 ftfzEXQ1aXHiWe00uLocsA7f9gNxeo1LcN6bgd4BASPbxlGkdPGG24cTs2Dl eeJfrgvjSD/nktxHrjmoPXD0SS3nJNowOGftS86BDE/laIYuicptNJVo9HkQ q3Q4wxnMRCEcBzX3Vi4AZWldtvPwNGo362QZE4uwYPjBon7vLLp3aXLCpJwF /SqWO/cGzSGVEicb+Y4luGsmICg1MI/eLCxP7vt3GUSj/zFfL7aIeFQ9/I3J Fci9mvZqxoOFjB38CzK3roHZST/dxg9LSE6gSjlOlg0FFreljq8so6SA6sUT 4hRikVeTo8xkFZ09yl0mUEwhjDrVaGLxa2hmvcgmdU0qwau2sboyeQ3pMlTG qs5QieqMvvPX0tfQ0kbXryd0qYSih6d1Yu4aIpSVtqvqUQn+3SVPRevX0LO4 3wuVzahEk6PyiPD0GmqluIfLOeB5k1s2gv8CG51TEIyWf0YlFu8t7sg1ZCPt ygH/tzFUIq+/4aWeGRt9XfZ8oBBPJcTzbCue3mCjBxMUhmIylVgxyfjB64lt tvcZ7RWVKEnffZIrk42WK9gu2hVU4s6mqYbMN2y0+IdCX+MHKiHjXmWkXcBG zyDM9DxBJaLPXb/1oJKN3tdURhvUUwln5vNnHN1sNO9cufdaO5WQu2ovnv6J jQKSbTSH8Hz8rU41W+MLG9loTbvfoFMJg/hPVX/+ZKOT18P3/v6ZSnCvyzor OcVGCw+fpvzqpxLg4E4nZtnoaZK2wl08f7v1aFtaLbFR+IYi+sxXKvF/8zv6 //n9f9yUesI= "]]}, Annotation[#, "Charting`Private`Tag$4763#4"]& ]}, {}, {}}, {PointSize[Large], PointBox[{1.56, 1.8529975715040752`}], PointBox[{87.00306859479637, 88.36881532874035}], PointBox[{100, 100}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \\*SuperscriptBox[\\(c\\), \ \\(2\\)]\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, BaseStyle->{FontSize -> 14}, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-4, 4}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.654812998870495*^9, 3.6548130837549953`*^9, 3.654816276236845*^9, 3.6548165067332325`*^9, 3.766107163710597*^9, 3.766107384739275*^9},ExpressionUUID->"5f569665-475b-4034-ba2a-\ 6f761689d123"] }, Open ]], Cell[BoxData[""], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.6548124886480618`*^9, {3.654812837275695*^9, 3.6548128426885757`*^9}},ExpressionUUID->"a421d4d0-8c31-4f4e-aa56-\ a0ab8945e922"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "0"], "<", " ", RowBox[{"2", " ", "m", " ", SuperscriptBox["c", "2"]}]}], TraditionalForm]],ExpressionUUID-> "b5ee8477-e4fa-4e4e-8987-3405ca46b6b9"], ", with high enough momentum to have transmision." }], "Text", CellChangeTimes->{{3.65481289530236*^9, 3.6548129809824038`*^9}, { 3.65481485458225*^9, 3.6548148857821856`*^9}},ExpressionUUID->"c66d464e-0e67-4de9-893f-\ 76f8308ea507"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p2", " ", "=", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"d", "=", "2"}], ",", RowBox[{"kp", "=", "1.48`"}], ",", RowBox[{"r", "=", "4"}], ",", RowBox[{"v0", "=", "0.66`"}]}], "}"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", " ", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ \ c\\)]\\)\>\"", ",", "\"\<\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \ \\*SuperscriptBox[\\(c\\), \\(2\\)]\\)]\\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", RowBox[{"e", "[", RowBox[{"kp", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.654812440906123*^9, {3.654812828464735*^9, 3.654812866343925*^9}, 3.654812986445298*^9, {3.65481306756538*^9, 3.6548130676364517`*^9}, 3.6548164980728035`*^9, 3.766107175918749*^9, 3.766107388990004*^9},ExpressionUUID->"7d421063-0b3b-4aba-8827-\ 49f38e7197f9"], Cell[BoxData[ DynamicModuleBox[{$CellContext`d$$ = 2, $CellContext`kp$$ = 1.48, $CellContext`r$$ = 4, $CellContext`v0$$ = 0.66}, GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0Vev7AHDzkSm5ja6E5CKZElE8u0nlRkjSzVhR11BSQoQrVxKSiCRD JMrcycxrODJnHuKITAmJqNibc77vXev3+2OvvT5rvWvvvd79vM8gff6qqT0X BwfHKr7+uyvDxik2m42mf9NP27GTRlxd3h68TLJR95MU+wl5GpH7Rk1u4Qcb 7VLbovVSjkaoyxuen5hmI9nPl0QVZGiE1rrA/uZeNmL8ferZri00ghidb3yS w0bthIucDo1GmN5teb3bho3i+zLl7Eb5CI/WQJdLFSyk9cPLbfIpH9HVJThV ZbeKBps5nWlcfMTWyqvrtSRWUEihx73W67zEWycG79pBEp3iubv98xcewjZU be5DwDI6FT2QpW7OQyxFegcjWELZZ81bT73nJlJEPm6J/fQTeUr6tfnqchPx Bmpunfd+IPfLRROC+VxEgLOdp8LxReT8bHRvsToX4c39ysPt63fUKf/bEcFM TsLOv1W2J30eUW0Wf4+pcRLR5eOx8Y5zaHEoMG2mnIMoGZIXypSZRXpHN04P HeYgtosSB80SptFz8b1CP/PYkK8Y7DgyOonm9PanB3WxYKg2T0pTcwJp6mpt vrCGBeNK0eqoYBQ5vvaShL9WYZ1vhqYy5ye015mrojprBZQ0vym9WGAiswTb hV+SK+Cg7OdXPMhEwdWfrxRIrECi3NqOljom4qAum98UXwGxTSoeP58ykYNs iBO5YQV+/bpSdfQwEwV8eVz+m/AKVBfPnp6KGkAXTTd736cosNCd9VXR7EfH JKQVHn2g4M7hr23Fnr1oUabUWjqOgupjMyc1LvSiYSvOwaOxFHAYTr/PNuxF c+vWDVx9TIHP6S/NKTK9aCTOz4IRScFNh/H6sOYeNPlYzcHvPgWXgwcr7aR6 ULgXv7bebQpONLfkrqnvQv3dYWIjdhSEtDWrBOZ3oUWNag9tWwrqu5qyWfFd KM58zinSmoIjgw2ZC9e6UKO3KPfxcxTozdamD/7ehQIUVZfrzShQFa1Iyrva idyY4Y7rj1GwwSw74uymDqRsY+LPVKEgX+5+yRHuDhTIssz0U6bAePnSmNq3 djRGLYLsLvz+BOm9AnXtyMFUMfGaIgWsyaihkpvtyOiq3tGtOyiYuO2tLNHT hjRufbhXJE7BlZMPY8sVWpFnQrQCJ42C9EWDmWjOVnQ44udMOy8FI094iCsf 3iPJXw4yqTwUmI95fJa89x4N89DHTnBRAF7Wmv6TLYjRmNias0qCaMrOroMv m5GmZH1A6SIJ+T9r19bLNqKKbv8rM6MkhL96Xq233ID2tmwO6Bkhwcnaz/1t SwNivio4Vf2JBNl3ewee32xAwbft1ROHSHgc/Trtdn094p+X/OwyQMItjYe6 u53rkLLljKdNJwnmky5zGUQdCuo1jrbvIGF3vEGK1IY65HthjbtLOwkz3Dxr RCreIRHpYr+AVhKsO292Ta59h2b06xurmkg46GbplPCGgYzupnhHM0iQlNOW 3BDMQLJ2fN8La0igPmxov2/JQJ6bQ1WZ1STQD7RqevEy0HCmNE2xigS5dQe5 zM7UIKGIgzID5SQI5P7xZA1VhYY/cho+KiThxcB42JfACpS+urTfKpOEfp+N ic92VyDVpmQhxmsSRCSP5pqMlCOxiRFXJeybtukdxVCOXDcP/+J8RYL+uOOm ELIU2RqE8lS+JGFy9luSomsxehdlrxucQoJEhFT+R8liNPEoyJEf21jNpCay pQi5xXUphzwnoeh6/jipWIRSVcJuRyaTcG/phmLTeAHav95FqyCRBEUu8o3T OToaq/lzn0E83p8UxdptAnRUsen99OhTEiIPn+vpLHqDbvEn7PHDJoPKlvZt fIOG6QnRJXEkNAn66Qq156HQYuOQw09I4MjKMar0y0M9Ba7807EkaBgN29xQ zkN8wtVSj7DjIw4EMO/nImO6ndRkDAl9ivzhZ8OyUazAWesXj0kgXP7OrZrK QpWaTbkW2Ok5jR0Kx7KQ6EmNBGFsL42wTSRXJtq/5oiBTzQJ4npiyXGeGYhx quSLcxQJAf7Xa7h60hHHOLFxF/Z0dde44+50pHHH/uPsIxLKjsYo7ptNQ0zr zgMe2FYmEvSBC6lo9ofKmaeROF4Wfmi7M1KQQ1+j9d/YPo9bkciOFBSUH/h9 L3b8QEDTgYlkJMsTVsF8SIKSr6XJgH4yktf++TMXu1RKs/fGyyRUNPymNAib 3tRRe7I9AQlttprSxO4SDWoPiHyGstttzNZhL5zWHnx7Kh75m4wbfI0gQX04 cfH3nidocc3zwQxskx2nOE7GxKKinhmvEGxXRz6hAIsY1PXw03Nn7JxF5+2T /VHoL8HpuD3Y77WlVH6Pf4Rs3611lMCe9e3UMbKKRGOXWbU82MKMIP1/JB+i W+3l2bMPSLAQu5F6GT1A4U5msv3YMfH9pe8PhCFLlXq5OuweuQOdGowQNJIs WfAWe33ey6k4/WDU12XZ8QL71D4RLs6GfxHd4a53DHZk7Y0tl/68gyICnueF YLedHFBtafFHGsN5N/ywJel3IhySfJAIo4jhjv203hipv/BAUuziZBfszYNb Z1kZbkjsW6HgJeydo93aj62ckIQvnes8tpyQa4zyJTsktD0vyBrbv0u+6/ca Q0R8yo6xxFZaO+jIu0sD0o9l7/nPPfMBiaJLFlDtnmNrhT138o/vV90cIGld /mZbbO9H+o1OGq7ANHlrdRGb5ev1NFHFHdKXClUc/3u+Y6Zzp+ItqDcrCr+G zW0+pEuT84OIA/Rbt7BrpO7dfSYaAHNyGQuB2IGPZVy1wgPBc/nRcgS2vlCZ RbvgXTDWuRaagE0LOH3A6d49MPq1PzMLu/7XrAIvLRTmGr9bVGCHuASLJQaG w3lmWGQbdtp8xG2JfyIgYoj/7Bj2pUuKDgWsSAg2uBsqiv/nMRmPv+7oRoFA /+1leWz5wRojY59oqH6ls3AQe8rUSmtqOQYmnSdDvbEbhV/tLNz7BHS+1ivF Yb+u/7kt0CMOcpuNzpZgO+tF8Ev+iAeHHlkLNrbhMnNlancC6C3ZKsrieFWm K8wXuiVCyGXxewbYS1GfZuSXkiB9T9/0U+xiAe/uavcUkPPeecQEn5ekXRs6 c2RSQeiqeHEQdpBxTlt8ayq8T1Jjl2ObPR5tuqmQBgb0UE51fB7npE9UKw6m g3pnBVMFn9/ewxNoU0gGBB8oH7qOXXHJv5xH6xUs9u6jF2Pfz6IXfYx4Deff nW03wPlATntrTuThbPx9Fh8CcL4QsizM9JvPBguZePtu7AVfk1fOCTnAR4+o VsD5x3ak2nS7Ty5MbN8y24utLP/LcLU7D7peWPMb4HzW8MbmcN49Ojin++z6 F+fH/bVKNX8M0+F7gVDBInZuz/KBBM23kF+mI+zwDNer5Udwf/Qt0Ll75YwS SLgI9Tr2uoVQkFvKpZFEArtRVW3LfDGY3U7aa55KghtzNefB0RKwfdIdM4I9 8bVRmS+hBMRbVqtdX5DQLGqvtGBQChsvXPaJTCMhzvzJHy2pZZB248TN6XQS 9oxwSv5jgYDu8/zsQhb+/pIz86oZCI4tPaA9zMb7EZnFGF5GUKCmc0g1hwTB 5Mw9SYaVoGQpdOF6LgkrxhZM9mwlsPwDQegNCYO5OQpIrRqkmgwPBBeRkOhq zdAtZADjogj7Ja6P8ZZrsqOHGDBVcYnbo5aE2GP0mK+0WtAvng8/+o6ECCkB p2cWtUDavNb5WofPT9vbdavLtXA+X/GjAa63dqrCNmX762DqPGPbSVyvt8+V LutUN8CcuVaLF67/Pi2HAhe/NkCSuEtROO4Pel41iWRvaYSygAT7F7h/CLEf 2C59rRFmx+/z9I3jeOknDWlSTdAjH29gOoXjo1b7eeftZhAvdkiLWyDhr6eF Bs7arWDgnUx54P6G7gndO+xboYRT6iqDnwIR8zqboYhWEL/qHSsmQEGVaO8N 00nsu/KCdCEK1h/yPhn/ZxvwcY5cFBSjwLsoziuAbAPNLyWhglspOJ7yocXI ogNCKec8Iw0K5v7Ndqh16YB+WUFWwx4KYi/fYe+70wGSPtdH9bUomNy1S00h uwM6LGZuHtGhILjIP4qbpxPMza7RTxO4X2z541xRTifU816Urz5BwdEl90lp WjcYWH7/UOeA+0dDMe4fb3uB58HjMudECsLt1swvN/RC4LLcbcVkCvrcOYZY g70wRnt398tzChwTZkv4+fpAQuypl1MaXv+t0U3CvA+iKoMYvll4/cM7I4d+ 9oHeOqWEkVK8vmexKlKzH5R0JiLicf/8wKbXX7WQCdnRzSnVm1egzmirsLHY J+j59te5hrwV+Cq9wbcjbhSmrGc3zpmugvuNnXYPNk5A1P5Px+04WNDLFDV1 qJ+ESlGLxC3NLLD12v+ZdmIaPl45fkoxhg01O7VCanhnoanVvXYGOAi5NWWT qcfmYEeUxK6GPA5ia5nTEd7geRC+sK6gcgcnwUFyZbiNfAeVsAsP+15yEr9M yq1rdywCh6Cb4AdZLmJAw+b3HYE/YKRM/Sgjh4twPSO6Tob5E7YOLgke3MdN bIkas+DZugTNqwVmfYibyD6X9HLBcxm+b9znwmnKQ5zR9TtWj/s4qy8fsryY PESetYuMzgoFYxf2C0/b8xJLAoe4i0+vwsPNd1oqVngJ0/Z9mltjWbBv4qH0 txA+QmCfYFXZMxZEFOawnMP4iKrU/j8tU1hw8Ou3xakHfISqp5fd02wW8K/P VPocxUeIbCsM3VLLggHPsbrhBD6iwVl9dMN3FqwfmU/py+cjCH6FCJETbIhc G5re389HLF1bEs82YUP4szPR5wb5iJyBuheGZ9g47y8+YQ7xEZI5DqWh59nQ 8t576uMYH7FyOnVCwAt7b9LLsVk+ojBlmy4tjQ2Hnt26t8hFI64If6tLe80G 4nTG7E1eGiHnUWGqj+e8gaQ1Tst4vo0ysLr8bxkbWClaGSwhGuE2H/eIu5MN emZaOgKbaITiOUfJlD42NPoOnwnD8/EnhnbGwY9syNrhEioqQSOMY/sq/vnC hn/1BHQ2SdMIfq7049Lf2ACXaW/ittMI5OTRVbnIhq7bVQcl8fx9s1vfxpZk Q+9n5S/JeD7/v/kd/n9+/x+inUfj "]]}, Annotation[#, "Charting`Private`Tag$4823#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0VV0fB3CRMSFPxpDhISSZ0mPcURGiKFJp0IAHyWNMCiGhSBKREBIy JUOG/HLN83jOvcZC5BHXzL2S+553rff946yzPmv91l7r7P397X221LXbVjeZ mZiYfhPPf9/KSHCGwWBAWXraRuxhOtymy4TTNxgQWXDRb7c6HYo+qsotrzJA e8RILF6ZDmry5temfjJA3uR7Z6IsHQ7vCh1sJzPAyaJqOv0POhyZWGxNLGRA 8CZ1o2qeBlaPOt6rX2GAsJLbL85sGvh2hd5yrNkCi5scz4VFaNDfv2Om1v43 JO0WDrOZXAPxL7d3HxbbhJV/WWqnmleh1KWelXdkA8JDpFcFSlfg6hPVhYFg OoS/bePMj1oGWqx/OCAa6CrXnpy/vwQZPKMiL8fWoLec/9Rxu0VINlX16ItY hXazh/5Xji9AsKv9HQWTFfB0KUdeUVTwZ8n19Zhbgp2J3u7VHrNgH9T1J569 CIVaT7ZJRc7Ai8+TL5OdF+C5t+6aQeU0VH6V586TpkIFfzAHLz4FMnxHDM+m /AT2/Yle/nKTUKwY7jw+MQ1vPN/kJbtMwNeGD5KamlNwwD3hiTU2BpNKL9Sg bAISTool7vT9BrsCcjSVt42BQ/LFIgXdUVDSnFd6uzwMvTf6H24xDYODcmBg xcgwpK8ueNLWhyBVjre3o2kYgsmru2jUIeAXOui79moYJO7fdeAYGYL1dbda 42PDEP0sv+BWxRCQKqjWM3FDIHjoY+ZJzyGw1aMGHNQchCw73M7l5yCEHJvr rrhDBhtfffXMuQEgnZg9pXGdDMzXzynpTw0Ak/nPzgJzMhiqx/85OjoA96z/ bc+QJgPXudOiKt0D4OMw2RzVjoOcsbCl2McBcAof+WIviUNNj2ey0N0BONne UcTZ3A9Uwwjmd9wDENndfjC0uB9s4ELCdrYBaO5vK9hK7oeZ4384OTEocHyk JW/5n34oGHxeb7hEAX1qQ/bInn6IfMH/2pBCARW+mrQPt/vA9FLUNfe3FBA4 WxBzXqgX9J0SKmKOUaBY7nHlcZZeiJ1s+FscUeA03fG76nwPCA7JfirUokBk itRfXE09IHrol8akMgW2puO+Vvr0QGW2GfZchAJT9/2VxfBusOkv/8q0QAa3 U89eflboAoeb2Zdl3pAhe8V09sW2LohXUnJ1SCbDeOL2I24DnbDVNGdQmEDM 43ffHxIRncDGkDKziiYD8rusGTTdAfGCPWsj/mTgy9jfb/iuHS7c8KjjtiVD 8VoDb/OfrXDX0NqjezcZonPTSfr0FnCQLP1yh48MLpcDvUs7WmApXoldnpsM fzb+NZTu0wJZYz8evGIhQ/yL91n3m5shvbDjLL6Ew12NZ3rqrk2gbceSnNyL g830rYWcI02QYvJiZ2knDurJphmSAk0Q4Of7pL8Vh1mW7Zw8NY1Qc1uzXL4O h8t9Pv3TvI2gye45IVuCg6GHnUvKx3qo5PiW5ZWAg4ScloRAeD3wu7sEbT3H 4deAQM9ju3pwMA+++zQGhxKDLk0/1npgTqX0N0YQudhlyHz2XB0U77czeHwP B66ifYmcv2qBzfH8rMt1HN4OTUb9G1oDcuOH8p5r4jB4TzD1tXoNGAoPzChr 4MAjYVxkOf4ZOkNG/LtVcfC5mt1bgT6DkXlvgtwBHIwmnYUiN6qATSCkVeJP HKap82mK7hWQoj+dj/7AQSxGsnhUogJEdVyvHdmFw2lVy7rYjk9gYZ3pacyL wyfP4skNxU/AnxtW4LQDhwial2LbZBl46LLFr7PgoMi88dHlYgkI/gp6a7yG weUMxYa9XCVw1zTSsWAFg9hjF/G+Tx/BeWdr9J5lDDbCqmk6gh+BGdp5OBcw aNsRqMfd8wGKe+LGVGYwYMovtPgS+AEGG3cPtk5joGHx7YqX8gdI2ntBx+UH BskxBsHDj4uAVE3Rgu8YUBQ5os9HFcC4QJlqyVcMjtz6u6h2Jh+CGwP8H4xi kF3Y2qtwIh9I+2RUrUcw8NOIEtpgzgMPPocx3iEMRPX53yTdyYFYbZ0rvTgG wUGedcx4NoQFWu/qwzD4SeqfdFbPBivaD9XBfgyqjRMUdahZsOSQCr96Mbhk KVYydD0T9Ot2CTzpwmB2eVXLuz4DRM3vq9d3YnAvvgt4ZDMgpfRGMDPh5KHg NoOpNyC4+bD4WTsGSgF2lkNGb0C6WzFuvA2DKklNste7NHBwk3qnRbikrbfh VE8KlJk12m+0YNDPF9YTHPsa9NV6OG8QXrbWGik9kwxhqj8m+poxUPuWurIH TwSrPwaVG5swsJQ9w3Qq4SU4GLGmnSDs7szGHWybALga5WhPIwaFK64y04Nx MCO8JbPagEGnluTBPcnPgY312dUYwtSAPm2LS7HA/9SsW5XwzvowowcSz8BZ 1cRzoB4DW36vTCd4CjWJGSaPCCckD1Z1GkTBWrbHGR3CuJxBn0Z9JHB5tses 1mGw+8O7mSSjcJjSb9hWRviMDg/ztpaHYBV2O+se4dgGLxFHsxAgrQ4FmBDu PjWk0tERBDauIo/FCEuUhMQ4pN2Dyl8abaskDF41nwa1t77ANq2FMMLCI+LU rRwP6Hyn+qOS8P4JTCv+kgusTcjUZRGW43ZPUHa0hzJfwb6XhIP65fv31JlD sPtOoWeElXhHnFkPaCBpnh1PnxLGF4NT+Wi2KJrEqxNHeOHUvqXbHg6IWU10 Typh/+dGrS4a7mhJbd/BIsJbAX6vUg96I7lOVd+m/47vnOfap3gXpeurL38n zGLzVY9dLhCRFqUzOIjvqZOMePSaLxgZPVoLUyMcGi/tfjg6FF3reZNyjbAR d7Vtz45HqLFfcOYlYfZgawOXiAhU03z8b4xw8zpVgZX9CTIUEhcTJuY78lY4 f2poNOK5FMFsTzhrMea+2IMYRPrbW6yIsKOjokPZVizKErg9c5VYzxPSvhdC 9OJQ7hmTFBJh+ZE6i9P3XqDoeN2HikQ+ZqwuHZ6hJyDp1OWf3ER+Wnfm7i// KxG5pXm7PCL8vnltb6hvEjKUiBLnIPLnqh/DIbGajESPTwqLEfk0pw9vzqin oIB2zL6QsHKJwmK5RyrKjaoaPtGKAS1ubFaeloakScWO0UTeK7j8MZJ3BhKl MNqvE/2SdkCgr1A6ExW/q0rWIvor7HRhd3JXJqpxEy4V7MbgbPxEm49CFsqt Dq2Z6iHWR+okSXEkG1n8Zb5/lOhf8rEpEIrMQVmLRoepRH/XOAZ93n44F9mY GUSwUjB4nF/yaTTmPeJirfhtMkjkQ0u8MPZYASqI+iiuSOwn3HbleYGLBWjc i2Th9Y3otwDLXNeUQpRSFUdqGMPg6jjJSuZeEZLwL3MPIPYjZfl189/YB4QH tw8YEftZy8crxz5ElCC1qGNu6usY6DYo1e37VoIsmkJjFmkYFOF0gxTNUmQx qjtXtoFBPP05ejxRiqw28s+c28LgBmrWvqlXji4UHKmjsuLAaFVRFVmsQPi3 viRfQRw8hn8XPjWuRGyW2UI5wjhMzbUqs6VUIupek/oxURza+W4qLZtWoVHf 5RynvTgk2STu68isRhI1Ic/a5XE4NL5N4oEtIJvRIYlZXRyUK88tquQAymp/ hl9DxPkUm1//jQ7ocrF2w1cDHHa8yTuUZv4FadqFHJs1wmHztO0wg/oFBcxf LztlicNIUaECqJIQm3DEZ+SIQ6r75Xq98noUG/C4pIY4H5PtOAtefK1Hij8W GjaScHh5oiRhjr0BJXULr+im4BAjyeXy2rYBObsw0vsycQjqLt31m96AeEo3 VUyLcbBX2XmlWrcJKfpeP3yROK9lFqro2qQWZGR8cI51BxnudRwNXZlrQWw2 bEnnecmA57bxFIi0Ip+1NouSP8gQeXNIRuqfVqQf8qA1QIwMC4Mb5uySbWg0 mjTuqEyGmgat9L777Wima9Yy4gwZLrwqN3XV6kK5FHLWVjoZSu4gTPZmF3Jb 6vFSySYDj03Tla8xXWjmHRL9O58MtXxkL6vpLkRlX/lOLSfD7qP+p5LNulHS /IDZyQ4y+H9K8gve6EYXYvR+nqSTwSRjoMPCtheVDbAGnLehwMLDAoeGW72I GhBQZGRHgZdOIQydkF60MbTXSPsaBaYPHFBVKOhFnRYscRpuFAj/FBTHsr0P jeoKRXqHUaC5Y9/FT4V9KJ15/Py+TxQwpnlPS7FjqMBuj6S+5AAcN+dnWS0l o/h9ebk9zIMQbc+5SG8ho9ieubxmzkGgeDN93RohI/4dzuR6vkFwTqFWcrBR 0JJ6TUq7BFE/3+ohZkNB+Jxrq4gOUf8sZPzoGgUFqDCr5ngR9fhKbazmINLs n/kVQ/w/P71CDlIpH0b6hqHGCtND0GQhvvM0/xgazf0se+zkKMxJCQT0Jk2g hI+skbedvoG31377p4JT6Kfbz3nLujEgD/NZOTRPo6NCA0mkCxNw1U/3B/vJ nyiwr4r5+8J3qNt/OLKOlYrmNJg8DElTIMdZPZ15YgFZG73iK4mYBvFql+Os 4Yto/YGbRuz5GWDaYM7xGF9CgYrlbxbtZ2Hd8vPlBtkVVCe1GLFsTYUhjSt7 ZENXUeaKn273kQVwP8e3S3p4DYkdYmtsO7cIInHfbbeL09Bdn+BztKtLUHAx 7d3yHTqqz44MN324DOf0Ak80f95ASebNnDpJK/Dh8i1p7c1fKNswqlk8fxVo XEdZKqx/I+Y8UZOGwTWw6tHRFH+5hWyM/1qUXV8HLp0dtdWvtxDTjOd7qc11 qM0cNLPL2EI3rFcSxLfRQOWOn/2rgi20kO7KLriDBjx7y5+INGyheNcRPc69 NGhxVZsQWNpCHIi2SjOiwREOhRiekwy0PUmJsRlPA9o/NNECSwbaLK2jbL2i QeFQ01vzcwykcmhrjOkNDSQKHaqeXGOgu8LcIazvabBpnTnF5Ud49uxvPqBB ecZePfYsBnIo5axV+UEDt53zTVnvGeiqrOPjQ7M0kPOtsTL6wEDx1ftCtRdp EGd6yelhNQMNk0KYjv+igcdi0nOWPgaykwmRtuOlg+JFZ4kMCgN53cEuXdtN h7F6rRzDUQbSbqQ2OonQ4fRLSs2DfxloZl1e2keGDhzM2SZS8wx02Uxm9315 OoCLb/+XFQYK90lQDz1ABx/M6MrVDQaKNvUIeqxGh//d39H/7+//AQyQ2TY= "]]}, Annotation[#, "Charting`Private`Tag$4823#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgyVDCEVGUqRhHQk1XPMGmTIVMpQF12UcjOWuEhKxowZ u4YoGULGbNO55kynQ4YUt64U3mM+wvnuu9bv98e73vVZa6/3fdZez36e/Uhd dTN12EAikdbw899bEUQm2Ww2ylRpj/YaJ1PdWDKhrBU2Cq84YHLsC5laVKIs O7fARl+N0qRZn8hUlQOGV7/9YKNhzqlfvoNkqppA8GBHPxvdCx0I9e8hU6nj zLakQjZ6ZDsr8ASRqaYPO18dsWUjsyVlwZJkMtWrK/iGU+06mhFiXzluRqbS 6Zsn6+3XUNyPEMuLVSSqeJ3bdrXdq0iLsXpHSoFELXNp4tw2soJE9XZIuOuw we6JMvExkIVEr9er8Iivw3LM3VAEy6iDeOtxdusaZPJ9Ekv8sojsfbm9n//4 BSlnlN37Hi0ga767WdX0FQh0tfeWOz2PTnv3GIgwWHCX46WX+9QsEolUsq9q WQb7gK69jFwmchqtznOlL0Hcu6+JKc4EurgmtNfv5yJUjR7Yki89jX62U15f W1kAGX6qllnaDyRkpTWeJL0Ab+RDncfGJ5DdPT1/ed15GKUVS1Io31COr+bM Jt85+KoQp4LejqOhiaCFsbZZELifR1Ekf0F5eVviHCVmQYEyo5A9N4yahpzb kiOZ4Kjo7185MoyW2UzdS+FMSJfd1tvZPIxuHfvj0M4wJgiKHvZaTB5G/fax WmkhTFhaulmvrzOM5mSfx5b7MaGhctp8MnYIfYiUNj3sygSrk9P3D1MGUeXF gyS1M0wI0pnqrvTuRw52tKM0Xrze4KeR6rV+ZJy8ufQHNxNIhj/eFxj2Izuj XW+EuJhwz/x7R6Z0PzIdeHT4OgcTPB2/toR3MNBFusZJmVUCroeO1NlLMhD7 rSD/2BQB5zo6i3ha6OisUOL3B70EPO7uOBz8ho4c3DvOj3QT0EJvL1hPoSPe 2BUtShcBuiOt+XO36Uijcufgz3YCTk3Tckd20dGs0/FuVxoBSvy1GcVufWhM LEmzooIAYbOCqIuivSg9xdoyIIOAN7JhVbocvWhewylIJp0AY5bTP8ozPchc nS3Skor/nyZ1jLe5BzEiVT2FkwlYn4gdrfLsQbX5BhL1cQR887uruJvRjbLL x+0uhxFw0yg68Z1cF/o+lE7K9iIgd/7MzzhyFyrrJDV5eBIwlrSRevPjexSp epul70GAxT9e/0o8eo9MtGqrCXcCwMeGEjDRiY5yv8y5cJMA/syDdK0XHSjH uveirQOOd5G2rWVvG1IUCtONMiMg4uVfDadYrSiPV+ai7wUCXGz8Pco6W9G5 iTp5R1MC9v59bOgvz1bEqnLj0TYmID7uVY5fSwvyVpSrFThHgK9q9Mkjrs0o LWnRiEMHxzNxg8ijNqOl7dauPNoEHEk5kykp3IxmMoTOCWgR8JNjIw9f7d/I 36bRQpZKgE2fJ31i29/oSnDvc4cTBGi5X3ZJK2lCtU2vTdWPEiAhqy4hHNqE YtP4W61VCfj1Ubgn7HIT+m4ezxVwhIBSzS6KD2cTMp48+KlTmQBZAa0NZpaN 6F7nOdZ9RQJ4i/Yn8fyqRya7t+xVO0BA9tDX8O/BtUhMg2M7WZyAwXsi6alH alEGd/64024C+CT0i0zG3qEgmSn97l0EeNrl9lbCO/TFfPJ99k4C9L46iz5e qUY9D+OHru0gYGJ6JkP+ViVS63XbrrCdgN1Rkm8+SVQii54ozXwhnA/KJo0x nRVovP8TpyJ2xR9vvq7IV6DtNxLMKIIEPFq+I9/+9S3KN/Hiu8RPgPyGlRIX 61JkTrYQnN6C9ydTnraHtxQpmg80PMSO0bFm9FWUoEnd3C0y2CshNcsaIiXI eDbX1WYzAe2b/U9u6SlGq4uX7Cd4CCC9Ljxf51+M9OZ9RyOwVc9/tr2jWIw8 z3QsUbBTojQDh8OKUB3TZSmMm4ABee6Ii+EFiNvg2tHTXARQb/xeVD/5Gind +fBwdRPOx8K2XjmD1yjgySmPYmwf1XDRlQ35KF/PSEoSe+cpwefPvPOQanRT HT8nAYEBfzRuYOSi29Jnp7o3EvCjgf7V+UguyqpzK4vBrtFPkNeYzkHnUkZ2 7MK+YrK7dOhaFrI9clwROHC+zC2oezRlIobwh6Nbse/FdyG+fZloaSaidXgD jn8osF3z23MUp5kQF4CtcP+yyZDec5ToSXpvhl0tSem/8yIDyUnUxshjl7b3 0ox60pCfuVP9IJkAOn9IT2BMKtqzzflgGfacufpI2YUUxIyYkYrGVvmcPr+L kYR+088vNcQ22XeBZJSQiOS2LxkrYt9y3rQl0CoB6Xb98OHHLpx3lZkYjEVt Bgu3P5IIeK8ueXhXylPUw7FTsw57+n7f8fNXYpBZDndqLvbWphC9PyWi0SRf y4MYbCvBO1nXUSRi59r88sNOSBmsfq8Zjjpde9ecsRmymn2qTY+R6eiB8IvY 24tfTD7TC0WnBZ3yTmNf0ODbQG59gPZmRZtqYMfQ7og5nQ1CpLr8UEXsbqMh pc7OAJQtXnNWBluiNCjKMeMeuk9uTBbDTm4xRirZXij6RJO3APaOEfHp9Tx3 FKTQMMaLfXD8g3r8FRcUXl37kRNbdsutBEUne+RnV31lA3YA/QB9V6MhKpKo vEnCVtg24sx5SBV2hFRs+c8MZmA6/7IVHCmpVCNjE0b7Z93cHYHfqGaGA/vu U702F9VbcC4SqXJjr9/3SU4/7AFilIZNfP993znftU/eF47FNDgIY3NYjJ7k kvUHkn+tiQR2o+Sjh6n8gWD/W0nbAezgeOlbahHBMEFJ61bF1ttSY9Wz+SHU e929poXNFWiu6fLoESBV/SAT7JalaTlOridgx712+Cr24xuhgunBEdAnlvj7 HewcZpTf7j+jgCQupBSK7eQk7/h2PQZYD6OvlWIbSHtdCjoZC76iod0d2AdG Gs8b34uDIxM6bd+wJ02vqE2yEsDq5ey1PThf2ra+PFh+LAleyfdxnMJ+1bK4 J9jrGUjyXlSywXY9FcUtsZACDKHDhzOxDVnDq5NH0qDwqAu5BVuxVI5Z7p4O K9l77aaxl2O//DywnAE7/hhrAJzvlbx3PzR4ZEJ8xdHdC9gZh4T7CqWz4F7+ 3ih5fJ5CjAu7U7qyAD5pMOyxzeLH2z3lcqCKGT/wAZuQOtcgP5ILmfytJX34 fPbrfEOij/OAdb/5rSg+37VOAe82qr0EB2G9sCvYYa9LKz5FvYJejt9yp7Fl 1cULY3QK4Ff21SJZXE+2XC7P92cWQIttzgkf7Ln7Ji9d0wrBi/ksqRPbbqzB VOZeEVjay9Du4nqkeGDJcO1DMeiOXx+dwvWqtcRWp/hRKQx/Ddkot5WAEzSF xv2fS+HavEh4InYRg6WZRikDmRWdf3j4cL9iPYWw8TLYq/lljYn9G7QcdzhZ DrLTtI/9uN6y25SUxZiVQKt6uW0F12/34bXCSP0q6GGM3gwRxv15qk1xU1oV hPFyP9suQkAHv4PC3JlqeJjhfoEiSsAzi6T9nVk1IPrGwjBSjICjY2SJP60Q 7KvKV0qQwPFXWTKV8hBUHn32SXUP3o+Y102fWQj2u+nspGNvfp5/NMOwDlKT RI6LShGwamw1zJ6uA7faCJEiGQJGigrlkHIDRHNb7VCQIyD9lk3TyfImUP1r B+Ms7o8pl3kK4kab4NLq7cGdFAISDUoTprho8Hbxl8MP7ChJXpdUKxo4p5YJ RB/D56e7TGCNRYO+GdWyaQ0C7JW22tacaIZLGe8XZ3F/liGqWccbWsE+VjNL HPf/e53awfNTrSBg5RWpgu8HjJftfAVibXCoLvfEaXx/eOwwJCN1uw1sZeKH 7lrgfBlcMeSSbAd9xxypxUs4P2jqf/X5dcDjxVt+p34j4FJy+RlX9S6oqnjV u8sb12Nv+LDPoQsOgrzedR/cfy2abUejuuBx/gO3t74E1PP33zGd6IKwJpUx Sz9c77TvGqWc7QbPUz81CgNxvah45hO40g05srRrheEEnM782HneqhfWjnmF zmbheB4UONJu9MLZq8IfbuTg/bkexNYI6oWISr+qyRe4fx86pCxX0Ava8YuG 318SEFoREMuxsQ+ao++GsYpwPejcb11R2AfHtG+yHd4RoL/sMSHF9QGqk1aL XPrx/dFQkGOhrB88OjKe8vMzIcKeh8lq7Yd5irLZewEmDHiQRtdH+sFMt9sm XIgJzmnTVdybBuCJUbbxNlG8fqbNfbfFAHCuRyVLS+D10UFj2osDUHie4hGi gNcz5utjKIOQ6kU4UfH9OdK2P0CpfBj29DF8HR8xofm8+FZjwS+gf8hB5Yb0 LExJCd/vfTYO1inLU08bZ8HjzkH7SJFvwOn7Q5Lz9hz0D/ObOrZMgPL5q57v TsyDnc+Jf7nO/QCj/Avy77kWoPGg2uNGzmnYNLJg70csgCxPzUSWAQFVDtrK FPoiiNe46HKGMiGM45D2vpolIK1syHMfm4Uuyx6WWd0yLJm8s6Htm4fbF6an zKtYMKRqu2tf8AKolrs5KHSvwC1LfgHp4UV4tfRrev+/v0As9h+rjeLLwKPu HWBGrEKBdcaLOW8WmLkEFOdsXwfLk/4GLe9WQJ6/ViVBjg3FNjekj6/iOSuw fvmEBIm6zKvNUWm+BqfVuCv5y0hU0x4NinjiOsxtFN2qqU2m8mpsrq9JXQcD hupkrS6ZWp81ePZy5jqsbPb4fMKATFXy9rFPLliHOhXlHeqGZCrfnvInYrR1 eJrwe4mKJZna6qoyLjy7Dh0kr0h5FzxvcstF8Z1jwxlFgViFp2Tq8u3lnQUm bNCrGQ54HUemFg41ZxtasuHzL58HiolkqkShY/WTq2x4MEViKKWSqavmWd94 fbAt9z2lvCBTyzP3nOTKYcOvavYdvWoy9ebWmeacV2xY/kNxsOUdmSrrVWuq V8yGpyjC4mwdmRp75sr1BzVseNtQE2tMI1Pdmc+ecvSxYdG9Zt/lLjJV3tpZ InOADYGpDtqjeD7+0qSep/WJDQ46s15X6WSqceJA7Z/f2XDySuS+3z+Sqdwb ck9LzbBhKeRJ2s8hMhW5eNHr5tnwJEVP8Raevz0/6NnarbAhclMpfe4zmfp/ 8zv8//z+P/Op/DM= "]]}, Annotation[#, "Charting`Private`Tag$4823#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgxJKElFhlIkIZ2SamcIDTJkajLURRelXPMQF5WSMWPG LomSIWTM85quOdNxlCHFrSvCe8zHdL77rvX7/fGud33W2ut9n7XXs59nP5I3 nIxs1lEolFX8/PdWQNvG2Gw2pCu3RLqPUAknlnQwa4kNoaX7DY99oxL5hUoy M3Ns+K6fIsX6QiWU9+vd+DHOhgHOiWWvPipxVDCor7WXDT7Bn4L9OqnE6RFm c0IeGx5bTgs+BSph9KjtzWFLNhgvKAkVJlIJ9/ag23ZVazC1hX39uDGVoNM3 jlVbr0LM+EOzy+UUQoxw2np01wpoMFZcJOUpRLFDHefmwSUQ0d4u7qzFBqun SuTnABaI3KpW5hFbg8Uo72BAi9BKvnc9v2kV0vm/iMZ/mwdrL26PF+PLkHRO ybn78Rxc5ffOqKAvQYCjtYfs2Vk469Gpu43BAm+O1+7OE9OwLVzRurxxEaz9 2/cwsphgN1SR7UhfgJgP3+OT7Em4vLplj++veSgf2s+XIzUJv1pob28uzYG0 wGkN45Rx2GKuMZIgNQfv5ILth0dGwcpH20/uzCwM1RdI0Gg/INNLfWqD1wx8 l49Rhvcj0D8aODfcPA2C97NpCtRvkJ3NF2MrPg3ytCn5lzMDUNdv35wYzgRb BT+/ssEBWGQzz1wJZUKqzOautoYBuHvsj4M7QpggJHLIfT5xAHqtozVSHjJh YeFOtY7WAMzIvIgu8WVCTdmkyVh0P/SESxkdcmSC+cnJ+4dofVB2+QDl6Dkm BGpNdJR59IKNVf2Rel68XveXvsrNXjBI3Fg0zs0Eit74x1y9XrDS3/luCxcT fEx+tqZL9YLRp8eHbnEwwc32e2NoKwMu09VOSq+QcCt4kLCWYAD7vZDA8AQJ F1rb8nka6XB+S/zPB10kPOloPRT0jg42zq0XBztIaKS35K4l0YE3ekmD1k7C mcGmnJl7dFAr29H3q4WEU5P1WYM76TBtd7zDsZ4ERYGqtAKnbhgWTVAvLSVB 2Dg34rJIF6QmXTXzTyPhnUxI+RmOLphVswuUTiXBgGX3j9JUJ5iosrc1JuP/ p0ge423oBEa4iptwIglro9FD5W6dUJWjK14dQ8IPX2+FXYwOeFkyYnUthIQ7 +pHxH2Tb4Wd/KuWlOwlZs+d+xVDbobiNUufqRsJwwvrTdz5/hHCVeywdVxJM /3H/V/zxRzDUqKognUlAnhY0/9E2OML9OvPSHRIE0g/QNV61QubVrsuWNjje +frNjXuaQWFLyJkIYxLCXv9Vc4rVBNm80pe9LpHgYOHnWtzWBBdGCTlbIxL2 /H2s/y+3JmCVO/FoGpAQG/Mm07exETwUZKsEL5DgpRJ58rBjA6QkzOtzaOF4 Rm+T2acbYGHrVUceTRIOJ51LlxBugKm0LRcENUj4xbGeh7/qb/CzqDWVOU2C RbcbfXTz33A9qOuFzQkSNJyvOaQU1kFV3Vsj1SMkiMuoigsH10F0ikDTVRUS lj8Ld4Zcq4OfJrFc/odJKFJvp3ly1oHB2IEvbUokyAhqrDM2qwWftgus+wok 8ObvS+BZrgbDXXx7ju4n4WX/99CfQVUgqsaxlSpGQp/PttTkw1WQxp0zYreL BH5xnXzD4Q8QKD2h07GTBDerrK4y9AG+mYx9fLmDBO3v9iJPliqg81Fs/83t JIxOTqXJ3S2Do11OW+W3krArQuLdF/EyMO2MUM/ZgvNBybA2qq0URnq/cCpg l/7x7vuSXClsvR1nTBMi4fGii1zL9/eQY+jOf0WABLl1S4UOV4vAhGoqNMmH 9yddrn43bxEomHyqeYQdpXWV0V1aCGNnsviksZceVi6qbSsEg+ksR4uNJLRs 9DvJ11kAK/NXrEd5SKC8zbtI+BWA9qzXUBi2ysWvli4KBeB2rnWBhp0UoR4w EJIPBNNhIYSbhE9y3GGXQ3OBW/fmkbNcJJy+/Xt+9dhbUHTpebSyAedjXnOX rO5b8H96yrUA21MlVGRpXQ7kaOtLSmDvOCX04rlHNqhE1hECnCQE+P9Ru46R Bfekzk90rCdhvIb+3f5wFmQQTsVR2JU6cXJqk5lwIWlw+07s64a7ivpvZoDl 4eMKiAPny8ycqmtdOjCEe45swvaJbQf+vemwMBXWNLAOx98f0KL+4wXEqMfF +GPL379m2K/9AuLdKB+NsSskaL0ur9JAVrwqSg67qKWrXr8zBXxN7Kr7qCTQ BR52BkQlw+7N9geKsWdMVAeLLyUBM2xKMhJb+Wvq7E5GAvymk1Okh2249xJF Py4eZLcuGChg37XfwBdgHgdn2sc9BbDzZh2lR/uioVl37t5nCgkfVSUO7Ux6 Bp0cO9QJ7Mn73ccvXo8C40zu5CzsTXUPtf8Uj4Qx/sYHUdjmQi4ZtyAc2FkW y77YcUl9FR/VQ6HNsWvVHpsho96tUvcEjIb2h17G3lrwauy5djCcFbLLPot9 SY1/HbXpAezJiDRSw46qdxG1Ox8IFCInWAG7Q79fsa3NH16KVZ6XxhYvCoyw TfOB+9TaRFHsxEYDUH7pDpEn6jwEsbcPik2uZTtDoHzNMC/2gZEe1djrDhBa UfWZE1uG726cgp01+FpVXF+H7U/fT99Zqwf54mV3KNjymwftOQ+qoO0PS/n+ M4MZkCqwaI4OF5YdpWKT+vumnZxtkYB+5RQHtvcz7WYHlbvoQjiocGOv3fdM TD3kikRpNRv4//u+fY5jt5wXOhZVYyOMzWE6dJJLxg9R/KoMxbFrJR4/ShYI QNa/FTbvxw6Klbp7NCwIjdJSOlSwtfkqzTs3PkLV7t43NbC5AkzUHR4/RqCi E2iI3bgwKcvJ9RRZca8euoH95HawUGpQGOoWjf/dBTuTGeG7688IRBHbohiM bWcnZ/t+LQqxHkXeLMLWlXK/EngyGnmJBHe0Yu8frL1o4BODDo9qNf/AHjO6 fnSMFYfMX0/f3I3zpXnT6wMlxxLQG7lujlPYbxrndwe5P0cSvJcVLbAdT0Vw i88lIcaWQ4fSsfVYAytjh1NQ3hEHaiO2QpEss8Q5FS293GM1ib0Y/e3X/sU0 tP2P4RqE872M17unxjUdxZYe2TWHnXZQuDtPKgP55OyJkMPn6aFBXkdSewZC X9QY1tjGsSMtbrKZqJwZ+6kHm5S8UCM3mIXSBZoKu/H57NX6ASJPshHrfsN7 EXy+q+z8P6w/+hrZCGuHXMcOeVtU+iXiDeri+C1rEltGVSwvSisXLb+8kS+D 6wnftZIcP2YuarTMPOGJPXPf8LVjSh5yZz5PaMO2Gq4xkvbJR2bW0vXeuB4p 7F/QW+0pQGdGbg1N4HrVVGipVfC4CA18f7hedhMJJ+rla/d9LUI3Z7eFxmPn M1jqKbRiJL2k9Q8PP+5XrGcoZKQY7VH/tsrE/g01Hrc5WYJkJus/9+J6y25W VBJllqH68tebl3D9dh5YzQvXKUedjKE7D4Vxf55oVtiQUo5CeLmfb91GQquA jfzMuQr0KM35Ek2EhOemCfvaMiqRyDtTvXBREo4MU8X/NAe0tzxHMU4cx19u xlTMBlR25PkXld14P6Le1n1lAdrnpLWDjr3xRc6RND0CJSdsOy4iScKKgfkA e5JATlVh2/KlSRjMz5MFpRoUyW2+XV6WhNS7FnUnS+qQyl/bGedxf0y6xpMb M1SHrqzc69tBIyFetyhugqsevZ9fthnHjpDgdUg2r0f2ycWCkcfw+ekoFlxl 1aPuKZXiSTUSrBU3WVaeaEBX0j7OT+P+LE1WsI7XNCHraPUMMdz/fdo0g2Yn mpCguXu4Mr4fMF638OeKNqODRNaJs/j+8MSmX1ryXjOylI7t9zbF+dK3pMcl 0YJ0bDMl56/g/KhX/avbtxU9mb/re+o3Eq4klpxzVG1H5aVvunZ64HrsgXr2 2rSjA0hO+5Yn7r+mDZZDEe3oSc4Dp/deJFQL9LoYjbajkDrlYTNfXO80vfWT zncgt1O/1PICcL0ofe4ZsNSBMmXqb+aFknA2/XPbRfMutHrMPXg6A8fzINe2 /nYXOn9DuOd2Jt6fW4FstcAuFFbmWz72CvfvgweVZHO7kGbsvN7P1yQEl/pH c6zvRg2R3iGsfFwP2vZdLc3rRsc077BtPpCgs+g6KsnVgyoSVvIdevH9UU+I Y664F7m2pj0TEGBCmDUPk9XUi2ZpSsYfBZnwyZUytDbYi4zPdFiEbmGCfcpk OfeGT+ip/kuDzSJ4/VSz8y7TT4hzLSJRShyvjwwc1pz/hPIu0lwfyuP1jNnq KFofSnYn7U7j+3O4Za+/YskA2t3N8LJ9zISGi2KbDIS+IZ2DNsq3paZhQlL4 ftfzEXQ1aXHiWe00uLocsA7f9gNxeo1LcN6bgd4BASPbxlGkdPGG24cTs2Dl eeJfrgvjSD/nktxHrjmoPXD0SS3nJNowOGftS86BDE/laIYuicptNJVo9HkQ q3Q4wxnMRCEcBzX3Vi4AZWldtvPwNGo362QZE4uwYPjBon7vLLp3aXLCpJwF /SqWO/cGzSGVEicb+Y4luGsmICg1MI/eLCxP7vt3GUSj/zFfL7aIeFQ9/I3J Fci9mvZqxoOFjB38CzK3roHZST/dxg9LSE6gSjlOlg0FFreljq8so6SA6sUT 4hRikVeTo8xkFZ09yl0mUEwhjDrVaGLxa2hmvcgmdU0qwau2sboyeQ3pMlTG qs5QieqMvvPX0tfQ0kbXryd0qYSih6d1Yu4aIpSVtqvqUQn+3SVPRevX0LO4 3wuVzahEk6PyiPD0GmqluIfLOeB5k1s2gv8CG51TEIyWf0YlFu8t7sg1ZCPt ygH/tzFUIq+/4aWeGRt9XfZ8oBBPJcTzbCue3mCjBxMUhmIylVgxyfjB64lt tvcZ7RWVKEnffZIrk42WK9gu2hVU4s6mqYbMN2y0+IdCX+MHKiHjXmWkXcBG zyDM9DxBJaLPXb/1oJKN3tdURhvUUwln5vNnHN1sNO9cufdaO5WQu2ovnv6J jQKSbTSH8Hz8rU41W+MLG9loTbvfoFMJg/hPVX/+ZKOT18P3/v6ZSnCvyzor OcVGCw+fpvzqpxLg4E4nZtnoaZK2wl08f7v1aFtaLbFR+IYi+sxXKvF/8zv6 //n9f9yUesI= "]]}, Annotation[#, "Charting`Private`Tag$4823#4"]& ]}, {}, {}}, {PointSize[Large], PointBox[{1.48, 1.7861690849412886`}], PointBox[{0.5179351386780968, 1.7861690849412888`}], PointBox[{100, 100}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \\*SuperscriptBox[\\(c\\), \ \\(2\\)]\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, BaseStyle->{FontSize -> 14}, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-4, 4}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.6548128810864887`*^9, 3.654812987671384*^9, 3.654816279320445*^9, 3.6548164991353426`*^9, 3.76610717702367*^9, 3.7661073903440237`*^9},ExpressionUUID->"1446ae43-173b-48c9-b156-\ 8f0f1ac5bd2c"] }, Open ]], Cell[BoxData[""], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.6548123697580805`*^9, 3.6548128609360447`*^9},ExpressionUUID->"ba05416a-dcb2-41e5-8de5-\ 3bf3396dd36c"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "0"], ">", " ", RowBox[{"2", " ", "m", " ", SuperscriptBox["c", "2"]}]}], TraditionalForm]],ExpressionUUID-> "7ea328ce-411d-4054-8961-0629816edd16"], ", with momentum low enough that there is anti-particle transmission." }], "Text", CellChangeTimes->{{3.6548131018153095`*^9, 3.6548131050041795`*^9}, { 3.6548144530737963`*^9, 3.6548144724604645`*^9}, {3.6548146639698043`*^9, 3.6548146755389714`*^9}},ExpressionUUID->"65a6ae54-fa65-4807-97e1-\ 2a81cf38acc1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"p3", " ", "=", " ", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"d", "=", "2"}], ",", RowBox[{"kp", "=", "1.72`"}], ",", RowBox[{"r", "=", "4"}], ",", RowBox[{"v0", "=", "3.4`"}]}], "}"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", " ", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ \ c\\)]\\)\>\"", ",", "\"\<\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \ \\*SuperscriptBox[\\(c\\), \\(2\\)]\\)]\\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", RowBox[{"e", "[", RowBox[{"kp", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", "1"}], "]"}]}], "}"}], "]"}], ","}], "*)"}], RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.654814431799556*^9, 3.6548144400399485`*^9}, 3.6548164931665993`*^9, 3.6548166879539247`*^9, 3.766107181893545*^9, 3.766107393774681*^9},ExpressionUUID->"321aa09c-ffbc-42c1-b1f9-\ 17b1e9a0c50e"], Cell[BoxData[ DynamicModuleBox[{$CellContext`d$$ = 2, $CellContext`kp$$ = 1.72, $CellContext`r$$ = 4, $CellContext`v0$$ = 3.4}, GraphicsBox[{{{{}, {}, {}, TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0VlvYAPDXOclUwm0W15BZxiKFZ6dJylikG5W+oosm11gyV0pKEiqR S0IyhAxhJ2TO9EaZI5JkeF8zeb991/q+P84667f2s87Za6+9n+fZkqcvWpyl GAzGb/L891aBtcMcDgdLcDUaeMSx4OKcdPDcPAcfmlpdPpXAgsxsdVn2FAfH fFCQdE1mgYa88enBnxyc/tedC5eyWKAtHNRe18bBFyxzjziUsQD1T9Q8yuDg Iy/8DUy+s8DiZv1LzZMcXOJBGTBU2eDREHTeoWQJB+ufS50oZgOTKTBcavcb 696zzsuemASxdxdXa29axH0Fzt7SgtOQ61TOvaprHptKmBhOSs7AqTvq418C 5rDpUqKm7YFZmA2/GoxhFj92yxjfeGwOEgS7N0R/ncbcI7aj5VfmIcZI3aXl 1hQWsP5Zmnp/AQKc7TwVDkxisdEIMbOwRbhKp3q4/GJhs7Zt3GlPf4OdX8Pm 1uQJzLmRWjR3fwkeFg9ExziO45V/Wxj88OJAYY/8ijSpUaxXH2XDpcVA0kLI 4EjsT6zIE75rMJ6BXisGO/b1D2F66h77qRAX6qnIktDSGsS9buFvVd250IDy Qw38ph9/0L+cX1rPhYR9UrRUuL7iE91pQxxpCilrjSk/Z3di84rfxmedKGSv 4utb0NWJtTV3CN1wplCc7Krm+spOvBDptSnpPIVE1ql6TD/pxIbUD+FvFyk0 M3OhdP+eTlwY13fuqCuF3heMWg5HdGDDn5K3Ra9RyFpv1EdVqx1b3RDLXneX QoF7fjUWeLZhRqBZdOMrEm84Yrr1f9pwyNktx4rTKcQw/vkx3bgNB4bI/JWS QSFvyx91CVJtmH//BVHfLAq52w9Uhda14uUHHkZI5lLoXHDXOzuJVpzTpqBk UEShQ3X1mXxVTHxXwUF/vJpCtxvrVINeMzFjvi6kvIZCVcza9KUYJlb5kSsc XUuhvV3VaezLTBzZKvNBt55C+qMVyV2iTLyDs6bWu5FCakIlz7IutmCDJHuR tlYKrTmSHnZsXTP+duY6D7uPQq9lQwr30s1Y56Hv5fh+CpnNOXxTH2vCwZHZ cqbfyP9jJbfzVzaR9VjvmTxAoaWhiJ5C9ybM7BRMtBii0OC1qyqbWhvxqaOl 1PVfFLpgej+6WKEB6+/tf31qhkLJk0YjD7kasHWdhvkscd+jZejCl494JPqK 1r1ZCll98/gufusj5hc58qlwjkLgdULLb6ger1ftPsm3SCGhBCWmwYs6fIrb 6EYgg0avpytWVW2uwTEp54V+8tLobuq/7/XnqnH3q/jl7nw0cjrh65ZbX41X 4mYxBj+NNn/Y3vGvezV+Y3k1XViARpEPXyZdq6rCM0/EjyiupNGVrff1NJ0r 8ZlB7RB1YRpZDZ0fT0GVOD+Z+1o6sWaMUYLEmkpcdFohVFGERiP0Mj7Bkg94 MrCJR+IPGp1ocWcOrfqAl00cOM1YQyMDFxun2OxyzDTrvBW5nkbisjria4LL 8Y/+VBPuDTRa+LKmKcSmHOvznlP9hzhnV4OWF3c5FtAX23NoI41khQ2oI0fL sFvdnTdsURrxZ8o94lsoxfwyW+LX/Umj5x0DoT+CSnDSQ/WU15tp1O69Nu6p ZgnuV7HdxSEWFN+fad5XjF3idVcdlKGR+6nk5gIoxga8JQd7ifcNOK67Pf8W G4057OWSo9HQ6NgzxUsFeL3RgryYAo02hUm87hYvwME1jiK2xGbq5mXh9fnY oHK3Wgxx/j+vB+YV83GK93fe9Yo0ujXrqlg78Abb3p5RWq5EI0VqPtvpeA4O 1uBVLFIm65OgWPEnfw6O4a00HyMO33O8tSU/G+sL9aRJbqHR/I2i2Z1rs7FA YfdiIHGtgK/eiqYsnJt3nQIVGjFeZZi8883CQgVuZU7EW016T7qqZOHZlcZ5 UcQxYbsCOkMy8eEd17R/EX9W5L17LDQdq97zj76rSiN0/u/M0uFXWNTLcCyH ODmjplnB8BVmjzzwbCf22hq6bp5Kw133QqSk1Wi0UV8k/rFnCn403NicShzg 908Z1ZqM5+NDi2qIf75nDjhqJuOvFlc//yAu2h+luHM0Ca88W54ko04jW/NN OR3/k4iDNqyNeUA8wp7ScStPwIbJhtFpxN6RDVhQJgFvf+v0sZw4piOgliRC fC7cYYhFrOxjY96xLx5/n9Go49Wg0VsJrTbXF8+w+GbmDzHinNrmCtOmWOwa 7Nu8l5gpdKMpIPwpTlTyeWpNzLbU6co9HIMLnXb+60is0Rs3Kdr6CPuv6rK+ Q2wuc5hhGhWNxVPy+GOILzkuXxFgHYXDDupNpxJnTDpLD7VH4I93t1/5QPxR R0JVNOYBNlJPEmkhHvVp2WFiG475etO/dROvLL+xz1/8Pi5RMh3/QWwt4pp4 Dt/DOd2B2yaJo2La337cFYrrFg/k/CZuld3VsrX8Nr5dFuu8XJNGq7NeDD/e F4wFU31PCBIf3ilIcVVfx5J2w7fWEIdXuG5wOBiINVs6R0WJG0071Orr/fCp zZahksTiOYFh9s+8setr87OyxE+qzLDGcw88vLrJXZF4fZfY6FKKC2Ztai7d QqzU/0kn0tYJO386vE+NWHbFpSgVBzs8GWC5TIPYjynPFC0zxh0JrQv/WXlV lyP3lq0gN96qrEncOhEQJzRrDY+PWUX9Nz5uKse66GIPLwUsd6oTX32wr8Zp 6yUIdWpZr0q85OP1JE7VDWTXN6sq//d9xzTnFsUrsG7Y3E+emLbq0eOR9YVs 9mH+zcRlErduPhUKAMr/S704cVCk1CXtu0GA132rWU+8b0WRdZPATbDwcOMS IeYJsNzldOsWMKPvXeYnrpoZVeDmuQN0xlZRivj2+WCRuKC7YCTrsDRL1j9p IuzaJv8wyE5UEB0jdnBQtH+zFA5aFx25vhAbSnn8FagXAe5yYzV1xPJdZSZm 3g9hIxb6iImHLWy1h+eigKdbxz+BuGZlqlLe9kfQ/fSAegTxy6rpP4M8HoN0 +nLRIGJn/TBe8akYMEx58sSO2Hiuc3FYMxZsoq9pmBKr5ChM5LnEgVavBK1L PBvxdUR+9hm8mCs1/4O4gP/qp/duCTBktf55Pjkfz7asacmQSoSpTomfT4lv mGU0xjQkwuo9awwDiI9E9te6KySBVeH3fYbE45KH3it2JUNfqsmxanJe2/YM 4nW3U+DNPw1HXxCXOPgVL9NOBT/5sPNBxCGvcvK7w16CkTpXz05iWR2xjPA9 6WR+XB1xJF+ssMlL851IB1O6N8KdmO1jnuocmwGehWftDxGf6ntvIe2dCcEB 8WZTJB+pyM8Y//6UBWGlPrt1iauzT+7JupUDe9+NZcaSfKhboVwm15sDVMGL EXvizNa5XbFauSD1RmiXCnHk3AMI6c+F+HCDrYUkv56Bqh1n9fJAQtdsXyXJ v5waNfUNEwXQ+MlW6Y08jVw6f2fc218INfvLFi4SD/6qUVkeWwijW1QH5Ynr hM4qs43ewnifF180yf+PrR7J1ScWgXz7zTtOsjTa1scl7m+NQaK18/F3aTL/ wqMTaikYrNYPlkUTy4a/Ku+dw/BsQUj2ALFAfNq2Z8bv4MygXOQLKRotmll3 ckbfwWLLT7njkjTqysxQwOrvYViFR+6pOI3iLp0o18srhw19soahpD7G2PCl P+wph+Xb5itkiKMNc6J+8VTAZ+1tfsXraBQmwe/01LoCfM5Ypw6vJeenMVf4 91wFGL2N/ryT1Fs7tZUni3QrYXl/bV4BqdfS42/ndryvBupvEbvNpP571+8O mvxVDYo3PX4+Iv1Ba2qtYPqGGtjU0h0hSHz7bIe05OUaCJI8t3eKh+yX9nlj HolaEGKcksrnJvujQufflmt1MJp3ZfIPLhr99STPyFmnAVqtug7IkH4mxxM+ yZxtgNg/xIV8pykkaFV5siesAUZtLi20TVGoVKjN1WKIuHGDwc1JCq3efdU0 5mAjzP6h97BjgkJX8x97Bcw3Qm+cmf/xEQodSPhSb2LdDDmRM6MFvRQav55u X3G+GQQDkg0XeygUfS6QszOwGZytJj/pEQ9t2aKukN4MIkPad0q6KBSc7xdB L2sBM0e382/aSb9YL3c8P6MFooS9Nf2YFNo/6zYkyfMJrAZz/rpWSfpHYxF6 KrcNZutO/1B8SaG7dnwTc9VtUBC1ke9QKoU+uzF6lrra4JZQbaBzCoUcY0cL eZd/hvMhvbdfviDxYzUum6w+g1qO44BkIom/H9i3e/ozdApEz47FkPjWydJw rXY4M7ODI0L653sn2/zU8johsbpyyvcChSpNxFaaiXyFsBjG40VJCv2SXOPT /Lgflg9o6f7dxIXcXJXs7q0dBDX34n8zr3Chtk4hC/uqIdi4gvJkruZCp7x0 v/Mc+gkrbPnED2UwUJmS9u0y7lHI3LM9YHIHA8nyFQ0lGo5DGkN6m1o4B8SK nPZyB09Ax2kd6V2pS8CYp1Jc+lgQJfjQWTjpN8yYF5+okJmEKRFPT6G0RejY elJUJmgKNDKmGTsiF+DSUSFhqc5peHvB0UPfdx42RHyzXiY2C7ZbRgeE3ecg /fizF2zPORBZGMjB5rNwVM/XsKp4HnStkjUbdGcg68R5qR2LC6Bi1+86ojAN s/y76QLL38CcsZzcszgJFk07tcSil8DPZvuhbz1s4N8pUFr0dAlaCxbvD7Wz oTSx/aBNwhK4mHg/H/nEBjVPL7sn6UswyFimNVnLBsE/8+5sqFgCpP2Aw8hn Q7WzRv8a1hJ8POO5XziMDYhXIUzwEAea+fbor0RsmL08uzHdnAPtv9LOCOxk Q0ZH5XPjoxxIuuBynE+LDeIZ9m/vnOaATciZwmXKbFi0TBzkJ/c6mzxRNLeO DXkJf+rxJHHg0qi995cxFlxYOVaZ9JID7j58r5nDLJD1KLHYl8UB9N2woGGA BRFGtueuF3FgvndEt6KDBS4Tjx/QLRy44vdrY3olCxSPO4onfObAaaUnPS/e s+BruU6KQTcHYrr83eOLWWAW/bnE/wcHRl7uF43IZgEvlXxAcowDntbGCqHp LMBOHsx3kxww2fKF70YKC9w/7Tt5ap4DhseWinwSWfB/93f4//v7/wLaT3W5 "]]}, Annotation[#, "Charting`Private`Tag$4883#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgyVDCEVGUqRhHQk1XPMGmTIVMpQF12UcjOWuEhKxowZ u4YoGULGbNO55kynQ4YUt64U3mM+wvnuu9bv98e73vVZa6/3fdZez36e/Uhd dTN12EAikdbw899bEUQm2Ww2ylRpj/YaJ1PdWDKhrBU2Cq84YHLsC5laVKIs O7fARl+N0qRZn8hUlQOGV7/9YKNhzqlfvoNkqppA8GBHPxvdCx0I9e8hU6nj zLakQjZ6ZDsr8ASRqaYPO18dsWUjsyVlwZJkMtWrK/iGU+06mhFiXzluRqbS 6Zsn6+3XUNyPEMuLVSSqeJ3bdrXdq0iLsXpHSoFELXNp4tw2soJE9XZIuOuw we6JMvExkIVEr9er8Iivw3LM3VAEy6iDeOtxdusaZPJ9Ekv8sojsfbm9n//4 BSlnlN37Hi0ga767WdX0FQh0tfeWOz2PTnv3GIgwWHCX46WX+9QsEolUsq9q WQb7gK69jFwmchqtznOlL0Hcu6+JKc4EurgmtNfv5yJUjR7Yki89jX62U15f W1kAGX6qllnaDyRkpTWeJL0Ab+RDncfGJ5DdPT1/ed15GKUVS1Io31COr+bM Jt85+KoQp4LejqOhiaCFsbZZELifR1Ekf0F5eVviHCVmQYEyo5A9N4yahpzb kiOZ4Kjo7185MoyW2UzdS+FMSJfd1tvZPIxuHfvj0M4wJgiKHvZaTB5G/fax WmkhTFhaulmvrzOM5mSfx5b7MaGhctp8MnYIfYiUNj3sygSrk9P3D1MGUeXF gyS1M0wI0pnqrvTuRw52tKM0Xrze4KeR6rV+ZJy8ufQHNxNIhj/eFxj2Izuj XW+EuJhwz/x7R6Z0PzIdeHT4OgcTPB2/toR3MNBFusZJmVUCroeO1NlLMhD7 rSD/2BQB5zo6i3ha6OisUOL3B70EPO7uOBz8ho4c3DvOj3QT0EJvL1hPoSPe 2BUtShcBuiOt+XO36Uijcufgz3YCTk3Tckd20dGs0/FuVxoBSvy1GcVufWhM LEmzooIAYbOCqIuivSg9xdoyIIOAN7JhVbocvWhewylIJp0AY5bTP8ozPchc nS3Skor/nyZ1jLe5BzEiVT2FkwlYn4gdrfLsQbX5BhL1cQR887uruJvRjbLL x+0uhxFw0yg68Z1cF/o+lE7K9iIgd/7MzzhyFyrrJDV5eBIwlrSRevPjexSp epul70GAxT9e/0o8eo9MtGqrCXcCwMeGEjDRiY5yv8y5cJMA/syDdK0XHSjH uveirQOOd5G2rWVvG1IUCtONMiMg4uVfDadYrSiPV+ai7wUCXGz8Pco6W9G5 iTp5R1MC9v59bOgvz1bEqnLj0TYmID7uVY5fSwvyVpSrFThHgK9q9Mkjrs0o LWnRiEMHxzNxg8ijNqOl7dauPNoEHEk5kykp3IxmMoTOCWgR8JNjIw9f7d/I 36bRQpZKgE2fJ31i29/oSnDvc4cTBGi5X3ZJK2lCtU2vTdWPEiAhqy4hHNqE YtP4W61VCfj1Ubgn7HIT+m4ezxVwhIBSzS6KD2cTMp48+KlTmQBZAa0NZpaN 6F7nOdZ9RQJ4i/Yn8fyqRya7t+xVO0BA9tDX8O/BtUhMg2M7WZyAwXsi6alH alEGd/64024C+CT0i0zG3qEgmSn97l0EeNrl9lbCO/TFfPJ99k4C9L46iz5e qUY9D+OHru0gYGJ6JkP+ViVS63XbrrCdgN1Rkm8+SVQii54ozXwhnA/KJo0x nRVovP8TpyJ2xR9vvq7IV6DtNxLMKIIEPFq+I9/+9S3KN/Hiu8RPgPyGlRIX 61JkTrYQnN6C9ydTnraHtxQpmg80PMSO0bFm9FWUoEnd3C0y2CshNcsaIiXI eDbX1WYzAe2b/U9u6SlGq4uX7Cd4CCC9Ljxf51+M9OZ9RyOwVc9/tr2jWIw8 z3QsUbBTojQDh8OKUB3TZSmMm4ABee6Ii+EFiNvg2tHTXARQb/xeVD/5Gind +fBwdRPOx8K2XjmD1yjgySmPYmwf1XDRlQ35KF/PSEoSe+cpwefPvPOQanRT HT8nAYEBfzRuYOSi29Jnp7o3EvCjgf7V+UguyqpzK4vBrtFPkNeYzkHnUkZ2 7MK+YrK7dOhaFrI9clwROHC+zC2oezRlIobwh6Nbse/FdyG+fZloaSaidXgD jn8osF3z23MUp5kQF4CtcP+yyZDec5ToSXpvhl0tSem/8yIDyUnUxshjl7b3 0ox60pCfuVP9IJkAOn9IT2BMKtqzzflgGfacufpI2YUUxIyYkYrGVvmcPr+L kYR+088vNcQ22XeBZJSQiOS2LxkrYt9y3rQl0CoB6Xb98OHHLpx3lZkYjEVt Bgu3P5IIeK8ueXhXylPUw7FTsw57+n7f8fNXYpBZDndqLvbWphC9PyWi0SRf y4MYbCvBO1nXUSRi59r88sNOSBmsfq8Zjjpde9ecsRmymn2qTY+R6eiB8IvY 24tfTD7TC0WnBZ3yTmNf0ODbQG59gPZmRZtqYMfQ7og5nQ1CpLr8UEXsbqMh pc7OAJQtXnNWBluiNCjKMeMeuk9uTBbDTm4xRirZXij6RJO3APaOEfHp9Tx3 FKTQMMaLfXD8g3r8FRcUXl37kRNbdsutBEUne+RnV31lA3YA/QB9V6MhKpKo vEnCVtg24sx5SBV2hFRs+c8MZmA6/7IVHCmpVCNjE0b7Z93cHYHfqGaGA/vu U702F9VbcC4SqXJjr9/3SU4/7AFilIZNfP993znftU/eF47FNDgIY3NYjJ7k kvUHkn+tiQR2o+Sjh6n8gWD/W0nbAezgeOlbahHBMEFJ61bF1ttSY9Wz+SHU e929poXNFWiu6fLoESBV/SAT7JalaTlOridgx712+Cr24xuhgunBEdAnlvj7 HewcZpTf7j+jgCQupBSK7eQk7/h2PQZYD6OvlWIbSHtdCjoZC76iod0d2AdG Gs8b34uDIxM6bd+wJ02vqE2yEsDq5ey1PThf2ra+PFh+LAleyfdxnMJ+1bK4 J9jrGUjyXlSywXY9FcUtsZACDKHDhzOxDVnDq5NH0qDwqAu5BVuxVI5Z7p4O K9l77aaxl2O//DywnAE7/hhrAJzvlbx3PzR4ZEJ8xdHdC9gZh4T7CqWz4F7+ 3ih5fJ5CjAu7U7qyAD5pMOyxzeLH2z3lcqCKGT/wAZuQOtcgP5ILmfytJX34 fPbrfEOij/OAdb/5rSg+37VOAe82qr0EB2G9sCvYYa9LKz5FvYJejt9yp7Fl 1cULY3QK4Ff21SJZXE+2XC7P92cWQIttzgkf7Ln7Ji9d0wrBi/ksqRPbbqzB VOZeEVjay9Du4nqkeGDJcO1DMeiOXx+dwvWqtcRWp/hRKQx/Ddkot5WAEzSF xv2fS+HavEh4InYRg6WZRikDmRWdf3j4cL9iPYWw8TLYq/lljYn9G7QcdzhZ DrLTtI/9uN6y25SUxZiVQKt6uW0F12/34bXCSP0q6GGM3gwRxv15qk1xU1oV hPFyP9suQkAHv4PC3JlqeJjhfoEiSsAzi6T9nVk1IPrGwjBSjICjY2SJP60Q 7KvKV0qQwPFXWTKV8hBUHn32SXUP3o+Y102fWQj2u+nspGNvfp5/NMOwDlKT RI6LShGwamw1zJ6uA7faCJEiGQJGigrlkHIDRHNb7VCQIyD9lk3TyfImUP1r B+Ms7o8pl3kK4kab4NLq7cGdFAISDUoTprho8Hbxl8MP7ChJXpdUKxo4p5YJ RB/D56e7TGCNRYO+GdWyaQ0C7JW22tacaIZLGe8XZ3F/liGqWccbWsE+VjNL HPf/e53awfNTrSBg5RWpgu8HjJftfAVibXCoLvfEaXx/eOwwJCN1uw1sZeKH 7lrgfBlcMeSSbAd9xxypxUs4P2jqf/X5dcDjxVt+p34j4FJy+RlX9S6oqnjV u8sb12Nv+LDPoQsOgrzedR/cfy2abUejuuBx/gO3t74E1PP33zGd6IKwJpUx Sz9c77TvGqWc7QbPUz81CgNxvah45hO40g05srRrheEEnM782HneqhfWjnmF zmbheB4UONJu9MLZq8IfbuTg/bkexNYI6oWISr+qyRe4fx86pCxX0Ava8YuG 318SEFoREMuxsQ+ao++GsYpwPejcb11R2AfHtG+yHd4RoL/sMSHF9QGqk1aL XPrx/dFQkGOhrB88OjKe8vMzIcKeh8lq7Yd5irLZewEmDHiQRtdH+sFMt9sm XIgJzmnTVdybBuCJUbbxNlG8fqbNfbfFAHCuRyVLS+D10UFj2osDUHie4hGi gNcz5utjKIOQ6kU4UfH9OdK2P0CpfBj29DF8HR8xofm8+FZjwS+gf8hB5Yb0 LExJCd/vfTYO1inLU08bZ8HjzkH7SJFvwOn7Q5Lz9hz0D/ObOrZMgPL5q57v TsyDnc+Jf7nO/QCj/Avy77kWoPGg2uNGzmnYNLJg70csgCxPzUSWAQFVDtrK FPoiiNe46HKGMiGM45D2vpolIK1syHMfm4Uuyx6WWd0yLJm8s6Htm4fbF6an zKtYMKRqu2tf8AKolrs5KHSvwC1LfgHp4UV4tfRrev+/v0As9h+rjeLLwKPu HWBGrEKBdcaLOW8WmLkEFOdsXwfLk/4GLe9WQJ6/ViVBjg3FNjekj6/iOSuw fvmEBIm6zKvNUWm+BqfVuCv5y0hU0x4NinjiOsxtFN2qqU2m8mpsrq9JXQcD hupkrS6ZWp81ePZy5jqsbPb4fMKATFXy9rFPLliHOhXlHeqGZCrfnvInYrR1 eJrwe4mKJZna6qoyLjy7Dh0kr0h5FzxvcstF8Z1jwxlFgViFp2Tq8u3lnQUm bNCrGQ54HUemFg41ZxtasuHzL58HiolkqkShY/WTq2x4MEViKKWSqavmWd94 fbAt9z2lvCBTyzP3nOTKYcOvavYdvWoy9ebWmeacV2xY/kNxsOUdmSrrVWuq V8yGpyjC4mwdmRp75sr1BzVseNtQE2tMI1Pdmc+ecvSxYdG9Zt/lLjJV3tpZ InOADYGpDtqjeD7+0qSep/WJDQ46s15X6WSqceJA7Z/f2XDySuS+3z+Sqdwb ck9LzbBhKeRJ2s8hMhW5eNHr5tnwJEVP8Raevz0/6NnarbAhclMpfe4zmfp/ 8zv8//z+P/Op/DM= "]]}, Annotation[#, "Charting`Private`Tag$4883#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgxJKElFhlIkIZ2SamcIDTJkajLURRelXPMQF5WSMWPG LomSIWTM85quOdNxlCHFrSvCe8zHdL77rvX7/fGud33W2ut9n7XXs59nP5I3 nIxs1lEolFX8/PdWQNvG2Gw2pCu3RLqPUAknlnQwa4kNoaX7DY99oxL5hUoy M3Ns+K6fIsX6QiWU9+vd+DHOhgHOiWWvPipxVDCor7WXDT7Bn4L9OqnE6RFm c0IeGx5bTgs+BSph9KjtzWFLNhgvKAkVJlIJ9/ag23ZVazC1hX39uDGVoNM3 jlVbr0LM+EOzy+UUQoxw2np01wpoMFZcJOUpRLFDHefmwSUQ0d4u7qzFBqun SuTnABaI3KpW5hFbg8Uo72BAi9BKvnc9v2kV0vm/iMZ/mwdrL26PF+PLkHRO ybn78Rxc5ffOqKAvQYCjtYfs2Vk469Gpu43BAm+O1+7OE9OwLVzRurxxEaz9 2/cwsphgN1SR7UhfgJgP3+OT7Em4vLplj++veSgf2s+XIzUJv1pob28uzYG0 wGkN45Rx2GKuMZIgNQfv5ILth0dGwcpH20/uzCwM1RdI0Gg/INNLfWqD1wx8 l49Rhvcj0D8aODfcPA2C97NpCtRvkJ3NF2MrPg3ytCn5lzMDUNdv35wYzgRb BT+/ssEBWGQzz1wJZUKqzOautoYBuHvsj4M7QpggJHLIfT5xAHqtozVSHjJh YeFOtY7WAMzIvIgu8WVCTdmkyVh0P/SESxkdcmSC+cnJ+4dofVB2+QDl6Dkm BGpNdJR59IKNVf2Rel68XveXvsrNXjBI3Fg0zs0Eit74x1y9XrDS3/luCxcT fEx+tqZL9YLRp8eHbnEwwc32e2NoKwMu09VOSq+QcCt4kLCWYAD7vZDA8AQJ F1rb8nka6XB+S/zPB10kPOloPRT0jg42zq0XBztIaKS35K4l0YE3ekmD1k7C mcGmnJl7dFAr29H3q4WEU5P1WYM76TBtd7zDsZ4ERYGqtAKnbhgWTVAvLSVB 2Dg34rJIF6QmXTXzTyPhnUxI+RmOLphVswuUTiXBgGX3j9JUJ5iosrc1JuP/ p0ge423oBEa4iptwIglro9FD5W6dUJWjK14dQ8IPX2+FXYwOeFkyYnUthIQ7 +pHxH2Tb4Wd/KuWlOwlZs+d+xVDbobiNUufqRsJwwvrTdz5/hHCVeywdVxJM /3H/V/zxRzDUqKognUlAnhY0/9E2OML9OvPSHRIE0g/QNV61QubVrsuWNjje +frNjXuaQWFLyJkIYxLCXv9Vc4rVBNm80pe9LpHgYOHnWtzWBBdGCTlbIxL2 /H2s/y+3JmCVO/FoGpAQG/Mm07exETwUZKsEL5DgpRJ58rBjA6QkzOtzaOF4 Rm+T2acbYGHrVUceTRIOJ51LlxBugKm0LRcENUj4xbGeh7/qb/CzqDWVOU2C RbcbfXTz33A9qOuFzQkSNJyvOaQU1kFV3Vsj1SMkiMuoigsH10F0ikDTVRUS lj8Ld4Zcq4OfJrFc/odJKFJvp3ly1oHB2IEvbUokyAhqrDM2qwWftgus+wok 8ObvS+BZrgbDXXx7ju4n4WX/99CfQVUgqsaxlSpGQp/PttTkw1WQxp0zYreL BH5xnXzD4Q8QKD2h07GTBDerrK4y9AG+mYx9fLmDBO3v9iJPliqg81Fs/83t JIxOTqXJ3S2Do11OW+W3krArQuLdF/EyMO2MUM/ZgvNBybA2qq0URnq/cCpg l/7x7vuSXClsvR1nTBMi4fGii1zL9/eQY+jOf0WABLl1S4UOV4vAhGoqNMmH 9yddrn43bxEomHyqeYQdpXWV0V1aCGNnsviksZceVi6qbSsEg+ksR4uNJLRs 9DvJ11kAK/NXrEd5SKC8zbtI+BWA9qzXUBi2ysWvli4KBeB2rnWBhp0UoR4w EJIPBNNhIYSbhE9y3GGXQ3OBW/fmkbNcJJy+/Xt+9dhbUHTpebSyAedjXnOX rO5b8H96yrUA21MlVGRpXQ7kaOtLSmDvOCX04rlHNqhE1hECnCQE+P9Ru46R Bfekzk90rCdhvIb+3f5wFmQQTsVR2JU6cXJqk5lwIWlw+07s64a7ivpvZoDl 4eMKiAPny8ycqmtdOjCEe45swvaJbQf+vemwMBXWNLAOx98f0KL+4wXEqMfF +GPL379m2K/9AuLdKB+NsSskaL0ur9JAVrwqSg67qKWrXr8zBXxN7Kr7qCTQ BR52BkQlw+7N9geKsWdMVAeLLyUBM2xKMhJb+Wvq7E5GAvymk1Okh2249xJF Py4eZLcuGChg37XfwBdgHgdn2sc9BbDzZh2lR/uioVl37t5nCgkfVSUO7Ux6 Bp0cO9QJ7Mn73ccvXo8C40zu5CzsTXUPtf8Uj4Qx/sYHUdjmQi4ZtyAc2FkW y77YcUl9FR/VQ6HNsWvVHpsho96tUvcEjIb2h17G3lrwauy5djCcFbLLPot9 SY1/HbXpAezJiDRSw46qdxG1Ox8IFCInWAG7Q79fsa3NH16KVZ6XxhYvCoyw TfOB+9TaRFHsxEYDUH7pDpEn6jwEsbcPik2uZTtDoHzNMC/2gZEe1djrDhBa UfWZE1uG726cgp01+FpVXF+H7U/fT99Zqwf54mV3KNjymwftOQ+qoO0PS/n+ M4MZkCqwaI4OF5YdpWKT+vumnZxtkYB+5RQHtvcz7WYHlbvoQjiocGOv3fdM TD3kikRpNRv4//u+fY5jt5wXOhZVYyOMzWE6dJJLxg9R/KoMxbFrJR4/ShYI QNa/FTbvxw6Klbp7NCwIjdJSOlSwtfkqzTs3PkLV7t43NbC5AkzUHR4/RqCi E2iI3bgwKcvJ9RRZca8euoH95HawUGpQGOoWjf/dBTuTGeG7688IRBHbohiM bWcnZ/t+LQqxHkXeLMLWlXK/EngyGnmJBHe0Yu8frL1o4BODDo9qNf/AHjO6 fnSMFYfMX0/f3I3zpXnT6wMlxxLQG7lujlPYbxrndwe5P0cSvJcVLbAdT0Vw i88lIcaWQ4fSsfVYAytjh1NQ3hEHaiO2QpEss8Q5FS293GM1ib0Y/e3X/sU0 tP2P4RqE872M17unxjUdxZYe2TWHnXZQuDtPKgP55OyJkMPn6aFBXkdSewZC X9QY1tjGsSMtbrKZqJwZ+6kHm5S8UCM3mIXSBZoKu/H57NX6ASJPshHrfsN7 EXy+q+z8P6w/+hrZCGuHXMcOeVtU+iXiDeri+C1rEltGVSwvSisXLb+8kS+D 6wnftZIcP2YuarTMPOGJPXPf8LVjSh5yZz5PaMO2Gq4xkvbJR2bW0vXeuB4p 7F/QW+0pQGdGbg1N4HrVVGipVfC4CA18f7hedhMJJ+rla/d9LUI3Z7eFxmPn M1jqKbRiJL2k9Q8PP+5XrGcoZKQY7VH/tsrE/g01Hrc5WYJkJus/9+J6y25W VBJllqH68tebl3D9dh5YzQvXKUedjKE7D4Vxf55oVtiQUo5CeLmfb91GQquA jfzMuQr0KM35Ek2EhOemCfvaMiqRyDtTvXBREo4MU8X/NAe0tzxHMU4cx19u xlTMBlR25PkXld14P6Le1n1lAdrnpLWDjr3xRc6RND0CJSdsOy4iScKKgfkA e5JATlVh2/KlSRjMz5MFpRoUyW2+XV6WhNS7FnUnS+qQyl/bGedxf0y6xpMb M1SHrqzc69tBIyFetyhugqsevZ9fthnHjpDgdUg2r0f2ycWCkcfw+ekoFlxl 1aPuKZXiSTUSrBU3WVaeaEBX0j7OT+P+LE1WsI7XNCHraPUMMdz/fdo0g2Yn mpCguXu4Mr4fMF638OeKNqODRNaJs/j+8MSmX1ryXjOylI7t9zbF+dK3pMcl 0YJ0bDMl56/g/KhX/avbtxU9mb/re+o3Eq4klpxzVG1H5aVvunZ64HrsgXr2 2rSjA0hO+5Yn7r+mDZZDEe3oSc4Dp/deJFQL9LoYjbajkDrlYTNfXO80vfWT zncgt1O/1PICcL0ofe4ZsNSBMmXqb+aFknA2/XPbRfMutHrMPXg6A8fzINe2 /nYXOn9DuOd2Jt6fW4FstcAuFFbmWz72CvfvgweVZHO7kGbsvN7P1yQEl/pH c6zvRg2R3iGsfFwP2vZdLc3rRsc077BtPpCgs+g6KsnVgyoSVvIdevH9UU+I Y664F7m2pj0TEGBCmDUPk9XUi2ZpSsYfBZnwyZUytDbYi4zPdFiEbmGCfcpk OfeGT+ip/kuDzSJ4/VSz8y7TT4hzLSJRShyvjwwc1pz/hPIu0lwfyuP1jNnq KFofSnYn7U7j+3O4Za+/YskA2t3N8LJ9zISGi2KbDIS+IZ2DNsq3paZhQlL4 ftfzEXQ1aXHiWe00uLocsA7f9gNxeo1LcN6bgd4BASPbxlGkdPGG24cTs2Dl eeJfrgvjSD/nktxHrjmoPXD0SS3nJNowOGftS86BDE/laIYuicptNJVo9HkQ q3Q4wxnMRCEcBzX3Vi4AZWldtvPwNGo362QZE4uwYPjBon7vLLp3aXLCpJwF /SqWO/cGzSGVEicb+Y4luGsmICg1MI/eLCxP7vt3GUSj/zFfL7aIeFQ9/I3J Fci9mvZqxoOFjB38CzK3roHZST/dxg9LSE6gSjlOlg0FFreljq8so6SA6sUT 4hRikVeTo8xkFZ09yl0mUEwhjDrVaGLxa2hmvcgmdU0qwau2sboyeQ3pMlTG qs5QieqMvvPX0tfQ0kbXryd0qYSih6d1Yu4aIpSVtqvqUQn+3SVPRevX0LO4 3wuVzahEk6PyiPD0GmqluIfLOeB5k1s2gv8CG51TEIyWf0YlFu8t7sg1ZCPt ygH/tzFUIq+/4aWeGRt9XfZ8oBBPJcTzbCue3mCjBxMUhmIylVgxyfjB64lt tvcZ7RWVKEnffZIrk42WK9gu2hVU4s6mqYbMN2y0+IdCX+MHKiHjXmWkXcBG zyDM9DxBJaLPXb/1oJKN3tdURhvUUwln5vNnHN1sNO9cufdaO5WQu2ovnv6J jQKSbTSH8Hz8rU41W+MLG9loTbvfoFMJg/hPVX/+ZKOT18P3/v6ZSnCvyzor OcVGCw+fpvzqpxLg4E4nZtnoaZK2wl08f7v1aFtaLbFR+IYi+sxXKvF/8zv6 //n9f9yUesI= "]]}, Annotation[#, "Charting`Private`Tag$4883#4"]& ]}, {}, {}}, {PointSize[Large], PointBox[{1.72, 1.989572818471342}], PointBox[{0.9946380419001044, 1.989572818471342}], PointBox[{100, 100}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \\*SuperscriptBox[\\(c\\), \ \\(2\\)]\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, BaseStyle->{FontSize -> 14}, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-4, 4}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{ 3.654813108309157*^9, 3.6548144434890423`*^9, 3.6548164945701456`*^9, { 3.6548166889852095`*^9, 3.6548166922367144`*^9}, 3.766107182956317*^9, 3.766107395192954*^9},ExpressionUUID->"4b23d943-722c-4a4d-89c6-\ 6da016225a56"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6548107069181128`*^9, 3.654810712771448*^9}},ExpressionUUID->"e4d98ac8-06df-4ebd-89c8-\ 6084355541af"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "0"], ">", " ", RowBox[{"2", " ", "m", " ", SuperscriptBox["c", "2"]}]}], TraditionalForm]],ExpressionUUID-> "950e3c0a-4e18-4842-9fd8-246c10aa4fe5"], ", with momentum in a total reflection domain." }], "Text", CellChangeTimes->{{3.6548145140043483`*^9, 3.654814541523571*^9}, { 3.654814809110848*^9, 3.6548148095952425`*^9}},ExpressionUUID->"6cf94ce3-706d-4e5c-a305-\ 1b5300d3ac61"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p4", " ", "=", " ", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"d", "=", "2"}], ",", RowBox[{"kp", "=", "1.87`"}], ",", RowBox[{"r", "=", "4"}], ",", RowBox[{"v0", "=", "2.62`"}]}], "}"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", " ", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\>\ \"", ",", "\"\<\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \ \\*SuperscriptBox[\\(c\\), \\(2\\)]\\)]\\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", RowBox[{"e", "[", RowBox[{"kp", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{3.654816486522531*^9, 3.766107187166498*^9, 3.7661073984787283`*^9},ExpressionUUID->"70c6d0a7-3b60-4499-96f0-\ eb86255061a5"], Cell[BoxData[ DynamicModuleBox[{$CellContext`d$$ = 2, $CellContext`kp$$ = 1.87, $CellContext`r$$ = 4, $CellContext`v0$$ = 2.62}, GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw11wkwlV8fB3AUwj0u/qRFN1K2ECVL4hxCUiQlKiq9SSEhlKxJQpFEJKH4 W0qWi+xOca99d7OLKEkSka3iPb0z7zPzzDOfmd88z5k5c36/7yNx7oqZLQcb G1s9uf8+rdKfuohensRs/7sEUMmgDCVzyySeCJ+3nf1BRZICSPdYwlfMZv7H n3qHiuhywfbDI2NYym6l2WIdFQ0yc8VVVUfxgdHfXNV0fvRJPnonfj2Cz2+i 8aqc4keCvhmqiuwfcL3PcM/P1fxIXvW7/L8z/bj70QO3iHKALij6+RUP9OMf Mub0K2UAJUpR25tq+rEiUyT1cClAQqI7rs096cfDJ1JzBIsBmp93ertfrx87 l2WeSMgHqLJ40nw8qg8POV9W730JkKXWpO8O1V7c/s6F+j4OoFt631qLr3dh mR5tuW1epN5w4rDKf7pwwpzNJfUbALEZf23OMu7Cqa2XLh7yBMjb/Etj8pYu vFlEIs3jGkAeFz7VhjV24i3/LCmwrgJ0MXjgjY14J/YItI3JcwToUGNTDk8t C8fvlAnkPANQaGvjjkA6C8ucq1RVPg1QLashazmehX+59uRYWwOkP1CXOePC wlG3L/0uOgWQ9iQzfWAjC3+38py/bgmQkkBFUu6VDvy5QCaHZgaQyLGsiBOi 7dhgnqeUwwAgutTdEv1V7XiqmnrkmD5Apot2H5W/t+EkZl9cqh75foKEOm9N G/7g7GFkvA+g5bGowRKPNmzu509LRgCN+ngpinW24trVzdhZEyCnww9iy2Vb 8PjaTGq0MkDps0YT0ewtuPW+lcsfJYCGH69GTj3NWLtK+N4F4uMfr32mhTRj mpHmtz07AIKep1X9x5qwgELuuQl5gASSt7N00xpx3XH9va4yZL1zTGrt1noc Rpeg84oDFP7ieaX2Yh02yvpW6rcZIIfTfu4FTXVY7GlZyk8aQFur1fuee9Rh Vy5h4Y+bAHoU/TLVp7YW73zj7NSwEaAbKg+0djnWYKa7hRpDlKxn7PJUBqrB rnkh+vuJd8UbJYuL1GCnRdvdDWsBmli1moe/ohqrdpeXvBMB6HSHB2uMWo23 Ouif/fkPQLquVg4JeQxszpenfkYAIJqUBk0kmIHR9Y9Xp6gA/eoRabtrxcDj R6UfBhDn67SoenIyMI3m6pvBD5CUoC7HMYsqnH+fg8IBAOLNkX7M8+stpqmd k3jPA9C/fZ/CvgRW4IBq6/X7VgPU67028emuCmygsPPm3CqA+Gn7c44Ml+Oi ErO8F8QeZ9Pbi2E5Hj3a5iFCbPDJXjR0qRS/d5T2mWUHaGzye5KcczEWEop6 3L1CQWIR4vT3tGL87MHWnFhiU+UjVZFNRXgs6mDkCeKiq/RPS3JF2H8wrXhg mYJCFtzkGj69xo1tMY++/6EgOY6lPIdT+ThJ9k6sxm8KOp0sx9zMm4/DjtY6 cxFH6p3q7CjKw18P5oiwflHQUlDZgubaPEx7nsN0IW7g89OitOVitxSeN6+X KIjtVbbJG79cvD55/UoIsYrJ0Bk3xVysbKLLd5o4PkInoP9uDu6UELq7hrhb bk34ibAsvNQI5OwWKQhdvpTzdvwV5h8x6EDE6dn17bKGr7DqlV8HNhJ7qoSJ LnFk4kONq5LaFyhog7bQs7jrGTjCpeK7EXGA/9Uqjs50rFjCzrWd+Gsl65P9 rnRsyCM8zkdctj9GTnMyFYvN129snacg6yNi+X3/ScGpup5S54gnZn5quDOS 8Yc8A7kDxN6PWjD/tmT8I0lyVok4vi+gQWf0GX5TJ93LQSzva3Wkz+AZ1j1v NTcxR0Gl4qpdbmlJmFe9tLuLOL+hnXm4LQHnd1CnsolZAkFtAZFPcZCS4Lan xDPmGgMFR+Ox09RR8bvEO4cSZzd2Psbph+iXLhEf2XaU7XBMLObN6yo8Qexs z0UJsIzBsQJmjUbE2bOOkmO9UfhU03HDHcTNGuI7NsY/xO/lvmRvIZ707dhj Yh2Jxb2HBtYSA0aQwU3aA+yghNr5iC2F3FIu4vvYw4cvjJ04Jr63tFknDFud 0edf+ElBnVI6HSqMUJwYO2X+nVg4N208ziAYb6BTz38mPqrJz8Fedxuv+ZWi PkQcyXRbb3fwFp4Lpnf0ELce7lNqavLHtWp7drOIafm3Ii4keeOCDC3rFuIn taZ457/XsPb+ioMNxOsGNk0uZ7hidVjOVku8feSdxiNrB1wWpOnNJJaiOMco 2tlglR6Niipif5YMa2OVMTYpKqquJJanDthzKqhADsei6L/unA5IFFiwhBEc Gtv/1k8dlv5xxfUC9DXdc4dB7PXQoN5BxRnGT5VmVBMv+3o+SdzhDjn0yiPr /r7fPtOxQ+4GFHLV0m0iXnV8UItbyg96XNQsaiOuEg+581QgAEr1Fcx2Egc+ 2uKsFh4I7fVezvcTG1DKLNv47sDOj+vfjhBzB5jrOISEwONVK6ZfiWvnJ2U5 ue9BqVcn02aIQy8HCyUGhsOh3TKM38Sp0xE+YjcjoEehbRoX2R87O7kLr5cj 4Y+JrW/FiA23XDt5SysK5qkkzcsQywxUmZh6R0OBp76zu4nHzazVxhdj4BZf cx0z4nrwYnuh+mN4qEL/gQ3xy9q5zYHX4iBXVnCaC7GjdsQa2s94+IE+IxVF bLzY/3t8VwJsrhKMSCVWzJedLnRNhDNeTriYeCHqw4TMQhIMONfkPExczOv1 rtI9GepwXtukRc5HkoJIR/aWFKji59RlQRxkmt0a35IC1667ceMq8bFHIw0e sqmw41ma1yviKYlDlXID6dAwF12SJ+e1S28Ui4ZmQNcxbG9CXGHnX75a7QVM 37VyzIX47qv8ovcRL+GgXPhIMbGUxqbsSL0sOOsV9tmc9AuKVWGm33QW7LXM VvAjnvE98sIxIRvSn8laZRCfHa40k/TOgc97vrmwkX6kKDNv/OddLoyNE/Ar Jq7LO6OXG5IPPz5JFLQg/XAvU75KeigfyiR/fhdOnNO5qJOgWgDXpPrerCF+ tPgQ3h0pgMF1h8I1SX89D2v32GoVQh5x6K1I+u9KvZLy+uliaBmkHAPZAHLt /5N9f38JPC3cWH2bePRbvSJXQgncq3i2v5G4UcBWfsaoFO7xFCm2Jv0/7vhj 6aaUMsgRwK0aygHQ7mF22k1LDNcE0aX5OQFSLLGYVsrAsH1fxrIVsVTkK8bQ IoahZ33jM4n5nmXuTjJ+AxnudvImXAD9NrXsX5l8AxWDk+PiuAEayMmWxcqV UFsh+IklL8ljzqcZWoUMKHDj4o2LZD7GW/FkRQ8yoKR09O8W4ljD/Jhv3Ex4 ZOtJXXVBgCLEeR2eWjLhy3nVdXxCAPm3Fgj+WWTCoaS5L8Vk3toogTNle2ug pGcV714yryWnShf3VNZBqRlvmzYy/72b9gXOfquDyyzRrlMkH3S+aODPWl8P KSE5Cp+JQ237JCVc6mHqHmkfNgmApnqXjLnFG+AGqx1JWpIAVTA1nnf4NELN FOHmD9IAnXxSaOSo0QKPctKvt5J8k38dvttm2wLvGbrQPXaS+Xu85sxgRAvU XKHVbNoF0FuBLjezsRa49667v5MKQML7vA7HH2yFyoZmChvUAPIqivMMWGqF B8q0deL2AnQguafJxLIdujFjOjQNyXpuZ11gXm6HYr2jnovEsRdvrWjeaofl nE8mCg+Q+a2goCyb1Q7XuVmoqh0EKLjIP2rV6g7YO73eHJqQvNgkfaoouwNG Gv1z3/0YQPsX3MckuN9Blnuv3XUbkh+NhVb9LOiCSvfle+p9SJ6y4ZlerOuC zgy34gxfgLrd2QaXB7pg0kGGdogfQPYJkyVruLphWWuWmtFNUv+93lXseDdc SNs60BFI6h/cGt431w1NTOfrOO+R+s7Zt5GqvZBx/ljVMMnP9890+SsV9sOg yJpG9xKAakw2AVOhDzAOh8sscvGjbxIivu1xI3DrNcugexb8yN1tu839taNw 4VPbZv0sftTVL2B2oXYM8puGGUkIU9FZz72fuQ99hbSV2ykZnlRUtV0ttIpz EnqKWiD2SSqiTpd2lzpOwv//j/wXYBv8gQ== "]]}, Annotation[#, "Charting`Private`Tag$4943#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0VevfAHBRV4ZQ94rKXBGVTFcD+lJCg4MuUTLeWzJFxkQIhaTMc+gi pByKzJ5MGU9mjuEkRGSezxbO77lrve8fZ+31WevZZz9r7+/0iFo6XL3FzMTE tIl//12lYe9PBoOB4t4HThtGUMGBOBhErDOQln/igl46FfI+yIovrTBQUMPs rcsfqSB3RNtyfIqB2vg9EpX7qXByd0B/Sy82i6ACv1gfqI4uNMWTGejOZdLU h/w+uBpIyZE3YyCeUL1Jz7Z+cG8NsLeq3EKnsiaeqnHSoKuL42eVxSYKWNEf Sp/5BoKfHP44KbCB2i49tA4QH4VC29od3LR19IZPdZs4aQzMn8nO9/kR6E3n TO9a0g+gR3gGIaAj1Wrmq87lk5DG9XVf3PAq2ks2065nTEHSJVmnzuAVJBb4 YDni+Cz42Vncl7y4jNL6xrvv8s6DJ8sbd6eZRdRTHVjRJLYAFr6th3qyFtBj pw0Xfr5FiK4Yi0uymUeR+unrrIxFKB06wvlWbBYxPXl0T3RhCQ7yqJ7TT55C fYSr0lTDMryXCrIZGZ1Az7rvpdx4vQJDdfkiiorjSKPX7YT3vVUYOxYthz6O ot3WCpL/iqzBbu9sReltw+h8Vk6wEGUNjinOHctYGkRH3LT1J43pcFvax6eE NoiW9T5TpUzpkCLO3UGpH0Re+y4s2JjTYQ/fCffVxEHEO39wcPwfOqyt3a3S VB9EhBTfU4o9HapLZg1+Rg0gvuroFgMfOhipzHqfUOxH8vRnQqRXdPBXn2kr ud+LAhcWJ9A3vF5rWkfh716U9PGtTfwIHZi0p77kaveiZ8wv7e59p4OXwWRL mlgvSvCQnhOYoIPb7bGG0JYeFPnQa9hijg53gmifLER60ExCBlfaJh2utFDy 2Bq60KuzIn8y+Al42tZyIuB9FwocmmrN3E9AQ1dz7lZSFxqpqBggCRBwgdb4 duleF8qPe6keJ0zA2dm6LNqBLrQ++ZDEL06ADE9lar5DJ2I/JUxrkSOAVz83 7DpfB9IuvFm//TIB78VDSi+wdCA6r16ixRUCdAmr77Jz7SiWv4S1Qhs/P1n0 FHt9O9pb7Z/loEvA1kTUUKlbO5LOcGCqNSBg/KGntEBPG9JM6Ko4Yk7AXZ3w uArJVsTixi/0zZmArOVL09HbWtHJgKIb3K4EjMRvV73b9wWZCGoeVnEj4Np3 9x9CwV9QIve6ZdR9AsDDVNF3goKKLnLdl31IAE/a0a5zmS1IY3Ws9vATvN/V Ou6GQ02o8uzxvuUYAp6/+bf6LNGIzmtG17HHEWBr6uNaSGlEqdZrS0LxBBz6 fGrgX7dGtBSjxXsukYCY6JzXDxsakMvBF+bOKQQ8UAhXkberR6Tiqi+PMvF+ Juzns1Xr0YqyyXvPLALkky6lifDWo8289A7nbAKmWbazcVV+RvZLy/WmOQSY drp1TXB/Ri8oY17CZALOOd20Tf5Qi6RD2VsufyRASPy0EG9QLTL6kGkgWUTA rz7e9pCbtYhlQ5RvRzEBBWqtih47alGS1TPVohICxHefY9Y3rEGOAbaHf6sg gD1PIp7tVxVK/PPtunYNARkDY6GTAZWoc28he8AXAvq99qa8lK9EVy5yKgm2 EsAlpJmnN1KBrKWbewqw3cyzOkqgAnFsUHSG2gjQGLPhe7pehg40iZ4X7SRg YnYuVcqxBBX6aLFf7yVAIEzk/VehEhTjK0GjYuvK6tVEUIoR24M+fkMqAcXO 78fWpYoR9btIE6mPgGC6i1Tz2EekyqTGc3SAACnm9Q+2xgUoVteSM/Yrfj9p UnXC7AWocmPIeBM7Qt24p7P4A2Lm5NljOUTA+pNyutLeDyjJjPu9+DcCmjl8 VDjb89H8DZOKpGECmN6RSZ988tFrExVYxVYgfTNzkc5HbqzT4qQRApLC1PwG Q/LQMfMrEgQ2VWrn8+uhueg7m8Gk0ncCVO2t86p+vkPltJGYIOwsclOHpNY7 ZFfnkd2J7aEQyrfO/Bapclhv/jNGwP6ze14l3M9GxZ+WTFzGCfDzda5h7slC nifsZQuwp6q7xmzks5BWuJb1Ina5ZqyU0uxrlFrYv8PmBwEmegIFA3+no1Ah 7/kLEzhellZOu9amob3KoxPu2F4xrYjrcBpasZA0yMJOGvBrVht/hQx5RIO3 TxJwzPum3oDGK6Q/UKQrg10motjrkpmKauTXQ25gFzR31Om0JyOHDV2TN9hd PE/a/SJeIso50lIr9pLBaVrhX0noV3XDxhK23LeU5QM98SiIndPm5E8C9A7/ xaQTG4dqVKoo17AdbX7j9DOKRZl+Leku2ORlu4MT/VFIjK3mbQ72l9MiJw4k RaIDpGRaLfasd+cZkkkEisshPxrE3lX7ROORUDhiPj8ft4httMcl/Q56gWay rh9knSIgNqm/7ItaKBIeGxPZj90jrtapUPsUJTi9CD+K/Ud+5s8EjSCUBnq4 IRDwlxIX87bGx6jhnXjLReyIOpd9Vpf90XQ4R8w17DadARkKxRdpKmx0WGAL FfiH3U71Qnd1V/xssRMbdJFchjsy5l3OcMbmpwnObmU7IevDq0oPsI+Odp+O MbFFZjGEug+2OKdjrLSVBXJY2Pjkh+3bdaTrQI02UpZnkAOwj3HTbHYcV4Cu Zsbux//tf8EvhYduBCXJW+P+2PM6EosOTrdhkHlD+hG2Z6RGk62CI6RW0ye9 sLe8PRJTTrhC54FVPvf//t/mrV2n1AMoQCvFDtgs14ZUWMV9YLqDaLmNXSMS HPiSxw9CZrbr38QOiBFzPPk8ALYf2E/SxdbgLDdq5wiEo/3KZeewWf0M1GyD g+G44L1EeeyGtVnJHazP4NnFslkx7Kf2QXtSAp7DvlMihTzYrxfCHgo8CoNp hYzZDfy9rKykbn/cioClRvGyNmwtMfcb/ipR4HRGhlSMfYRWQ9L1ioYSa2f9 ZOyfV01wGMVCVGZd6S3spl1vjhadigc1ibH9mtg5DavCAe4J0KJpNiuObXc2 bKfQShLsPRs8N4zjUZsY3PgpnwwqAtqCFdjSBZILRU4psJgTWRmDTY8anj5C T4Wur93GF7BL2D27q13T4Fq8H3MYzpfU47ydZLF0cMyIfH4D+4kuuS2pNR3e OXtpHcTWjxltdpN8DXLmohpknI/zoleqpWhZcFFtziYf52uv+jjie5oNSx3z VvbYlVa+FdtPvoFAZadICeyQdwXFX8NyYD9J3y0G1wPx04LkCPVcWMgxuGuK 6wXnzaK3Pgu5cGhx9wgH9pK33hu7ZDK4mgs+LholwHyk+upBrzyIno+6zoYt fWRNe7M7HzLv6kAsrl+NH8zU84MLgMdOdv9NXA+V647VSHwrgGCTV+HTNALy egi1ZMVCaDR0PuOJHUNEQshoITTw9IpEDhLwDzScuaVSBJ//XlR/108Ao0lG dt9CCUjE7uIO6SHAaXCT/EKzFA54Uslb3bg/zzRJ/5ZcChaaeQGO2C08t44t XSqDW/kXmkldBCRci5egpJdDd4pF+0o7AX+ObBN6ZISgPpZjdqYF77/UcEEm G4G8gJCqLrZ4xLvabwSCuhHn7fnNBHC8evtnqvYn0Cl+9d2+iYANXaNBxuwn eBgpubO7ngBaHlkSyVaD8UXz365XE5DiaFqrUlQLxeQUrdO4PybdZMuNHqqF CAMNdZtCAuK0CmJnWOtA0bi8OL6AgDARdtuXRnXgV8C8a/k9zp+2wt2bRB3s s/S3jsH91kJml1m5cj1E5E9KROB+fXC+jDhT3QghFW4PrHD/96KcD1ieaYQB QvXFVTwf9Lxp5srd1wQonHtEKRbnx62Bg6L3miBUWuw8WzSOl/51bVaRZsiY 2r35PAzHR93pfzsftoClseYrjUACbiQWXbI73Qpy8ZxXrPF8U3Afug/faoWq Pc+pAk64/16rNxsKawXLDDnyF0cCqnh6Xa5OtIJF6GPl43dxvTvvqZN0uQ3c fm8Z6b6D60VxgoffehtoHF0q7TYh4GJaH4Vk1AFz/GoxERp4P49zb9fZd8Cr uX8v8l3A7+eOP0PJvwNM4878k3Ae9+/jx2Ulczsgu6yqLVGVgKBi3yiW7Z1w +JNyZMgZXA8oEsbF5E4o4LokLCxNgCbddUKUtRtki8vs9/2B50ftPSwrhb3g /pgvxGWADs8t2BaIxl6g7w9s+thHB6or09AWrRfiOCfQWi8dbJJnS3f+RgVz 5t+/uHbh9XNNTgLXqPDjLwl/SwpeH+4/cn6VCiosftlblXh9z3JVhGI/6PTX f1TH8/MLs15fmaJBoHgPpwlZ0qGeJLhLd88wZBz6a5qvcQ1mRHm9OxJGIbwQ ySxIrIGry1GLF3vH4Udvy6bPg1XoHeS5erthAspYrmXV566AuYfyD9YrU/Ay 45/lj6PLUHP05NOaHbMw7lJdzvprCcTZyifSteZBbtplhsS3BILlthd2BOFz CylkwOzEIjCtM2c7jSyC4Pr4IZmjC7CmV2Fad3gZPLcaZU7IzsOAgtmBwwEr 4PhnuFO+4iw4GvLsFhtcxfF436x05zTsi/putF2QDp9lfZUtVich1zg1cwnP sTIUh/7ydz/AUMVHq6FiHQL8l3sH/Mcg39Re7MzGL7gTb3Njr+ko0NnPs5QY bELBZ53r9czDcLVdSVEwbgv4RST3cEbRgF2Jo6r85RY4Rp+RFPSlQVV6/+Wb aVvw7ccp9+N2NJC572GRmLsFefmGJZfVacAlXPRsXx2+PyRqyHt5EBrt5EZ5 F7dAV02SgfQHQXWnZBjXFQaYdxv2k/8YAPo9+v5cPQb43vrlnMU0AOSB+gxt Qwbk3dmtkzrdD0Lk22XPLBkQNNDXFFrbDxsG6ePsHtghH4fNXPqhKE1YhfU1 A6hWox3fOvvg7q65+tc5DJjPtM+moD4Qd6+8qpHPAP7Ltp9Lcvog6pLJncfl DGCS+9X1wr8PnBYSIlk6sfM2r8jL94GUsY1QGpUBqcYFZvuF+2C49nT2ua/4 eYd0ypg4+kA3jlr5aJIBDSa3Sc0jVNjJnHVRdI4BdO6HT8hfqIBs3bs+LTNA 9++3OyNLqeDWrWFmvs6AU7+rdbu+psL/nd/h/8/v/wMpd5K1 "]]}, Annotation[#, "Charting`Private`Tag$4943#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgyVDCEVGUqRhHQk1XPMGmTIVMpQF12UcjOWuEhKxowZ u4YoGULGbNO55kynQ4YUt64U3mM+wvnuu9bv98e73vVZa6/3fdZez36e/Uhd dTN12EAikdbw899bEUQm2Ww2ylRpj/YaJ1PdWDKhrBU2Cq84YHLsC5laVKIs O7fARl+N0qRZn8hUlQOGV7/9YKNhzqlfvoNkqppA8GBHPxvdCx0I9e8hU6nj zLakQjZ6ZDsr8ASRqaYPO18dsWUjsyVlwZJkMtWrK/iGU+06mhFiXzluRqbS 6Zsn6+3XUNyPEMuLVSSqeJ3bdrXdq0iLsXpHSoFELXNp4tw2soJE9XZIuOuw we6JMvExkIVEr9er8Iivw3LM3VAEy6iDeOtxdusaZPJ9Ekv8sojsfbm9n//4 BSlnlN37Hi0ga767WdX0FQh0tfeWOz2PTnv3GIgwWHCX46WX+9QsEolUsq9q WQb7gK69jFwmchqtznOlL0Hcu6+JKc4EurgmtNfv5yJUjR7Yki89jX62U15f W1kAGX6qllnaDyRkpTWeJL0Ab+RDncfGJ5DdPT1/ed15GKUVS1Io31COr+bM Jt85+KoQp4LejqOhiaCFsbZZELifR1Ekf0F5eVviHCVmQYEyo5A9N4yahpzb kiOZ4Kjo7185MoyW2UzdS+FMSJfd1tvZPIxuHfvj0M4wJgiKHvZaTB5G/fax WmkhTFhaulmvrzOM5mSfx5b7MaGhctp8MnYIfYiUNj3sygSrk9P3D1MGUeXF gyS1M0wI0pnqrvTuRw52tKM0Xrze4KeR6rV+ZJy8ufQHNxNIhj/eFxj2Izuj XW+EuJhwz/x7R6Z0PzIdeHT4OgcTPB2/toR3MNBFusZJmVUCroeO1NlLMhD7 rSD/2BQB5zo6i3ha6OisUOL3B70EPO7uOBz8ho4c3DvOj3QT0EJvL1hPoSPe 2BUtShcBuiOt+XO36Uijcufgz3YCTk3Tckd20dGs0/FuVxoBSvy1GcVufWhM LEmzooIAYbOCqIuivSg9xdoyIIOAN7JhVbocvWhewylIJp0AY5bTP8ozPchc nS3Skor/nyZ1jLe5BzEiVT2FkwlYn4gdrfLsQbX5BhL1cQR887uruJvRjbLL x+0uhxFw0yg68Z1cF/o+lE7K9iIgd/7MzzhyFyrrJDV5eBIwlrSRevPjexSp epul70GAxT9e/0o8eo9MtGqrCXcCwMeGEjDRiY5yv8y5cJMA/syDdK0XHSjH uveirQOOd5G2rWVvG1IUCtONMiMg4uVfDadYrSiPV+ai7wUCXGz8Pco6W9G5 iTp5R1MC9v59bOgvz1bEqnLj0TYmID7uVY5fSwvyVpSrFThHgK9q9Mkjrs0o LWnRiEMHxzNxg8ijNqOl7dauPNoEHEk5kykp3IxmMoTOCWgR8JNjIw9f7d/I 36bRQpZKgE2fJ31i29/oSnDvc4cTBGi5X3ZJK2lCtU2vTdWPEiAhqy4hHNqE YtP4W61VCfj1Ubgn7HIT+m4ezxVwhIBSzS6KD2cTMp48+KlTmQBZAa0NZpaN 6F7nOdZ9RQJ4i/Yn8fyqRya7t+xVO0BA9tDX8O/BtUhMg2M7WZyAwXsi6alH alEGd/64024C+CT0i0zG3qEgmSn97l0EeNrl9lbCO/TFfPJ99k4C9L46iz5e qUY9D+OHru0gYGJ6JkP+ViVS63XbrrCdgN1Rkm8+SVQii54ozXwhnA/KJo0x nRVovP8TpyJ2xR9vvq7IV6DtNxLMKIIEPFq+I9/+9S3KN/Hiu8RPgPyGlRIX 61JkTrYQnN6C9ydTnraHtxQpmg80PMSO0bFm9FWUoEnd3C0y2CshNcsaIiXI eDbX1WYzAe2b/U9u6SlGq4uX7Cd4CCC9Ljxf51+M9OZ9RyOwVc9/tr2jWIw8 z3QsUbBTojQDh8OKUB3TZSmMm4ABee6Ii+EFiNvg2tHTXARQb/xeVD/5Gind +fBwdRPOx8K2XjmD1yjgySmPYmwf1XDRlQ35KF/PSEoSe+cpwefPvPOQanRT HT8nAYEBfzRuYOSi29Jnp7o3EvCjgf7V+UguyqpzK4vBrtFPkNeYzkHnUkZ2 7MK+YrK7dOhaFrI9clwROHC+zC2oezRlIobwh6Nbse/FdyG+fZloaSaidXgD jn8osF3z23MUp5kQF4CtcP+yyZDec5ToSXpvhl0tSem/8yIDyUnUxshjl7b3 0ox60pCfuVP9IJkAOn9IT2BMKtqzzflgGfacufpI2YUUxIyYkYrGVvmcPr+L kYR+088vNcQ22XeBZJSQiOS2LxkrYt9y3rQl0CoB6Xb98OHHLpx3lZkYjEVt Bgu3P5IIeK8ueXhXylPUw7FTsw57+n7f8fNXYpBZDndqLvbWphC9PyWi0SRf y4MYbCvBO1nXUSRi59r88sNOSBmsfq8Zjjpde9ecsRmymn2qTY+R6eiB8IvY 24tfTD7TC0WnBZ3yTmNf0ODbQG59gPZmRZtqYMfQ7og5nQ1CpLr8UEXsbqMh pc7OAJQtXnNWBluiNCjKMeMeuk9uTBbDTm4xRirZXij6RJO3APaOEfHp9Tx3 FKTQMMaLfXD8g3r8FRcUXl37kRNbdsutBEUne+RnV31lA3YA/QB9V6MhKpKo vEnCVtg24sx5SBV2hFRs+c8MZmA6/7IVHCmpVCNjE0b7Z93cHYHfqGaGA/vu U702F9VbcC4SqXJjr9/3SU4/7AFilIZNfP993znftU/eF47FNDgIY3NYjJ7k kvUHkn+tiQR2o+Sjh6n8gWD/W0nbAezgeOlbahHBMEFJ61bF1ttSY9Wz+SHU e929poXNFWiu6fLoESBV/SAT7JalaTlOridgx712+Cr24xuhgunBEdAnlvj7 HewcZpTf7j+jgCQupBSK7eQk7/h2PQZYD6OvlWIbSHtdCjoZC76iod0d2AdG Gs8b34uDIxM6bd+wJ02vqE2yEsDq5ey1PThf2ra+PFh+LAleyfdxnMJ+1bK4 J9jrGUjyXlSywXY9FcUtsZACDKHDhzOxDVnDq5NH0qDwqAu5BVuxVI5Z7p4O K9l77aaxl2O//DywnAE7/hhrAJzvlbx3PzR4ZEJ8xdHdC9gZh4T7CqWz4F7+ 3ih5fJ5CjAu7U7qyAD5pMOyxzeLH2z3lcqCKGT/wAZuQOtcgP5ILmfytJX34 fPbrfEOij/OAdb/5rSg+37VOAe82qr0EB2G9sCvYYa9LKz5FvYJejt9yp7Fl 1cULY3QK4Ff21SJZXE+2XC7P92cWQIttzgkf7Ln7Ji9d0wrBi/ksqRPbbqzB VOZeEVjay9Du4nqkeGDJcO1DMeiOXx+dwvWqtcRWp/hRKQx/Ddkot5WAEzSF xv2fS+HavEh4InYRg6WZRikDmRWdf3j4cL9iPYWw8TLYq/lljYn9G7QcdzhZ DrLTtI/9uN6y25SUxZiVQKt6uW0F12/34bXCSP0q6GGM3gwRxv15qk1xU1oV hPFyP9suQkAHv4PC3JlqeJjhfoEiSsAzi6T9nVk1IPrGwjBSjICjY2SJP60Q 7KvKV0qQwPFXWTKV8hBUHn32SXUP3o+Y102fWQj2u+nspGNvfp5/NMOwDlKT RI6LShGwamw1zJ6uA7faCJEiGQJGigrlkHIDRHNb7VCQIyD9lk3TyfImUP1r B+Ms7o8pl3kK4kab4NLq7cGdFAISDUoTprho8Hbxl8MP7ChJXpdUKxo4p5YJ RB/D56e7TGCNRYO+GdWyaQ0C7JW22tacaIZLGe8XZ3F/liGqWccbWsE+VjNL HPf/e53awfNTrSBg5RWpgu8HjJftfAVibXCoLvfEaXx/eOwwJCN1uw1sZeKH 7lrgfBlcMeSSbAd9xxypxUs4P2jqf/X5dcDjxVt+p34j4FJy+RlX9S6oqnjV u8sb12Nv+LDPoQsOgrzedR/cfy2abUejuuBx/gO3t74E1PP33zGd6IKwJpUx Sz9c77TvGqWc7QbPUz81CgNxvah45hO40g05srRrheEEnM782HneqhfWjnmF zmbheB4UONJu9MLZq8IfbuTg/bkexNYI6oWISr+qyRe4fx86pCxX0Ava8YuG 318SEFoREMuxsQ+ao++GsYpwPejcb11R2AfHtG+yHd4RoL/sMSHF9QGqk1aL XPrx/dFQkGOhrB88OjKe8vMzIcKeh8lq7Yd5irLZewEmDHiQRtdH+sFMt9sm XIgJzmnTVdybBuCJUbbxNlG8fqbNfbfFAHCuRyVLS+D10UFj2osDUHie4hGi gNcz5utjKIOQ6kU4UfH9OdK2P0CpfBj29DF8HR8xofm8+FZjwS+gf8hB5Yb0 LExJCd/vfTYO1inLU08bZ8HjzkH7SJFvwOn7Q5Lz9hz0D/ObOrZMgPL5q57v TsyDnc+Jf7nO/QCj/Avy77kWoPGg2uNGzmnYNLJg70csgCxPzUSWAQFVDtrK FPoiiNe46HKGMiGM45D2vpolIK1syHMfm4Uuyx6WWd0yLJm8s6Htm4fbF6an zKtYMKRqu2tf8AKolrs5KHSvwC1LfgHp4UV4tfRrev+/v0As9h+rjeLLwKPu HWBGrEKBdcaLOW8WmLkEFOdsXwfLk/4GLe9WQJ6/ViVBjg3FNjekj6/iOSuw fvmEBIm6zKvNUWm+BqfVuCv5y0hU0x4NinjiOsxtFN2qqU2m8mpsrq9JXQcD hupkrS6ZWp81ePZy5jqsbPb4fMKATFXy9rFPLliHOhXlHeqGZCrfnvInYrR1 eJrwe4mKJZna6qoyLjy7Dh0kr0h5FzxvcstF8Z1jwxlFgViFp2Tq8u3lnQUm bNCrGQ54HUemFg41ZxtasuHzL58HiolkqkShY/WTq2x4MEViKKWSqavmWd94 fbAt9z2lvCBTyzP3nOTKYcOvavYdvWoy9ebWmeacV2xY/kNxsOUdmSrrVWuq V8yGpyjC4mwdmRp75sr1BzVseNtQE2tMI1Pdmc+ecvSxYdG9Zt/lLjJV3tpZ InOADYGpDtqjeD7+0qSep/WJDQ46s15X6WSqceJA7Z/f2XDySuS+3z+Sqdwb ck9LzbBhKeRJ2s8hMhW5eNHr5tnwJEVP8Raevz0/6NnarbAhclMpfe4zmfp/ 8zv8//z+P/Op/DM= "]]}, Annotation[#, "Charting`Private`Tag$4943#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0ldv7APBzkgxJKElFhlIkIZ2SamcIDTJkajLURRelXPMQF5WSMWPG LomSIWTM85quOdNxlCHFrSvCe8zHdL77rvX7/fGud33W2ut9n7XXs59nP5I3 nIxs1lEolFX8/PdWQNvG2Gw2pCu3RLqPUAknlnQwa4kNoaX7DY99oxL5hUoy M3Ns+K6fIsX6QiWU9+vd+DHOhgHOiWWvPipxVDCor7WXDT7Bn4L9OqnE6RFm c0IeGx5bTgs+BSph9KjtzWFLNhgvKAkVJlIJ9/ag23ZVazC1hX39uDGVoNM3 jlVbr0LM+EOzy+UUQoxw2np01wpoMFZcJOUpRLFDHefmwSUQ0d4u7qzFBqun SuTnABaI3KpW5hFbg8Uo72BAi9BKvnc9v2kV0vm/iMZ/mwdrL26PF+PLkHRO ybn78Rxc5ffOqKAvQYCjtYfs2Vk469Gpu43BAm+O1+7OE9OwLVzRurxxEaz9 2/cwsphgN1SR7UhfgJgP3+OT7Em4vLplj++veSgf2s+XIzUJv1pob28uzYG0 wGkN45Rx2GKuMZIgNQfv5ILth0dGwcpH20/uzCwM1RdI0Gg/INNLfWqD1wx8 l49Rhvcj0D8aODfcPA2C97NpCtRvkJ3NF2MrPg3ytCn5lzMDUNdv35wYzgRb BT+/ssEBWGQzz1wJZUKqzOautoYBuHvsj4M7QpggJHLIfT5xAHqtozVSHjJh YeFOtY7WAMzIvIgu8WVCTdmkyVh0P/SESxkdcmSC+cnJ+4dofVB2+QDl6Dkm BGpNdJR59IKNVf2Rel68XveXvsrNXjBI3Fg0zs0Eit74x1y9XrDS3/luCxcT fEx+tqZL9YLRp8eHbnEwwc32e2NoKwMu09VOSq+QcCt4kLCWYAD7vZDA8AQJ F1rb8nka6XB+S/zPB10kPOloPRT0jg42zq0XBztIaKS35K4l0YE3ekmD1k7C mcGmnJl7dFAr29H3q4WEU5P1WYM76TBtd7zDsZ4ERYGqtAKnbhgWTVAvLSVB 2Dg34rJIF6QmXTXzTyPhnUxI+RmOLphVswuUTiXBgGX3j9JUJ5iosrc1JuP/ p0ge423oBEa4iptwIglro9FD5W6dUJWjK14dQ8IPX2+FXYwOeFkyYnUthIQ7 +pHxH2Tb4Wd/KuWlOwlZs+d+xVDbobiNUufqRsJwwvrTdz5/hHCVeywdVxJM /3H/V/zxRzDUqKognUlAnhY0/9E2OML9OvPSHRIE0g/QNV61QubVrsuWNjje +frNjXuaQWFLyJkIYxLCXv9Vc4rVBNm80pe9LpHgYOHnWtzWBBdGCTlbIxL2 /H2s/y+3JmCVO/FoGpAQG/Mm07exETwUZKsEL5DgpRJ58rBjA6QkzOtzaOF4 Rm+T2acbYGHrVUceTRIOJ51LlxBugKm0LRcENUj4xbGeh7/qb/CzqDWVOU2C RbcbfXTz33A9qOuFzQkSNJyvOaQU1kFV3Vsj1SMkiMuoigsH10F0ikDTVRUS lj8Ld4Zcq4OfJrFc/odJKFJvp3ly1oHB2IEvbUokyAhqrDM2qwWftgus+wok 8ObvS+BZrgbDXXx7ju4n4WX/99CfQVUgqsaxlSpGQp/PttTkw1WQxp0zYreL BH5xnXzD4Q8QKD2h07GTBDerrK4y9AG+mYx9fLmDBO3v9iJPliqg81Fs/83t JIxOTqXJ3S2Do11OW+W3krArQuLdF/EyMO2MUM/ZgvNBybA2qq0URnq/cCpg l/7x7vuSXClsvR1nTBMi4fGii1zL9/eQY+jOf0WABLl1S4UOV4vAhGoqNMmH 9yddrn43bxEomHyqeYQdpXWV0V1aCGNnsviksZceVi6qbSsEg+ksR4uNJLRs 9DvJ11kAK/NXrEd5SKC8zbtI+BWA9qzXUBi2ysWvli4KBeB2rnWBhp0UoR4w EJIPBNNhIYSbhE9y3GGXQ3OBW/fmkbNcJJy+/Xt+9dhbUHTpebSyAedjXnOX rO5b8H96yrUA21MlVGRpXQ7kaOtLSmDvOCX04rlHNqhE1hECnCQE+P9Ru46R Bfekzk90rCdhvIb+3f5wFmQQTsVR2JU6cXJqk5lwIWlw+07s64a7ivpvZoDl 4eMKiAPny8ycqmtdOjCEe45swvaJbQf+vemwMBXWNLAOx98f0KL+4wXEqMfF +GPL379m2K/9AuLdKB+NsSskaL0ur9JAVrwqSg67qKWrXr8zBXxN7Kr7qCTQ BR52BkQlw+7N9geKsWdMVAeLLyUBM2xKMhJb+Wvq7E5GAvymk1Okh2249xJF Py4eZLcuGChg37XfwBdgHgdn2sc9BbDzZh2lR/uioVl37t5nCgkfVSUO7Ux6 Bp0cO9QJ7Mn73ccvXo8C40zu5CzsTXUPtf8Uj4Qx/sYHUdjmQi4ZtyAc2FkW y77YcUl9FR/VQ6HNsWvVHpsho96tUvcEjIb2h17G3lrwauy5djCcFbLLPot9 SY1/HbXpAezJiDRSw46qdxG1Ox8IFCInWAG7Q79fsa3NH16KVZ6XxhYvCoyw TfOB+9TaRFHsxEYDUH7pDpEn6jwEsbcPik2uZTtDoHzNMC/2gZEe1djrDhBa UfWZE1uG726cgp01+FpVXF+H7U/fT99Zqwf54mV3KNjymwftOQ+qoO0PS/n+ M4MZkCqwaI4OF5YdpWKT+vumnZxtkYB+5RQHtvcz7WYHlbvoQjiocGOv3fdM TD3kikRpNRv4//u+fY5jt5wXOhZVYyOMzWE6dJJLxg9R/KoMxbFrJR4/ShYI QNa/FTbvxw6Klbp7NCwIjdJSOlSwtfkqzTs3PkLV7t43NbC5AkzUHR4/RqCi E2iI3bgwKcvJ9RRZca8euoH95HawUGpQGOoWjf/dBTuTGeG7688IRBHbohiM bWcnZ/t+LQqxHkXeLMLWlXK/EngyGnmJBHe0Yu8frL1o4BODDo9qNf/AHjO6 fnSMFYfMX0/f3I3zpXnT6wMlxxLQG7lujlPYbxrndwe5P0cSvJcVLbAdT0Vw i88lIcaWQ4fSsfVYAytjh1NQ3hEHaiO2QpEss8Q5FS293GM1ib0Y/e3X/sU0 tP2P4RqE872M17unxjUdxZYe2TWHnXZQuDtPKgP55OyJkMPn6aFBXkdSewZC X9QY1tjGsSMtbrKZqJwZ+6kHm5S8UCM3mIXSBZoKu/H57NX6ASJPshHrfsN7 EXy+q+z8P6w/+hrZCGuHXMcOeVtU+iXiDeri+C1rEltGVSwvSisXLb+8kS+D 6wnftZIcP2YuarTMPOGJPXPf8LVjSh5yZz5PaMO2Gq4xkvbJR2bW0vXeuB4p 7F/QW+0pQGdGbg1N4HrVVGipVfC4CA18f7hedhMJJ+rla/d9LUI3Z7eFxmPn M1jqKbRiJL2k9Q8PP+5XrGcoZKQY7VH/tsrE/g01Hrc5WYJkJus/9+J6y25W VBJllqH68tebl3D9dh5YzQvXKUedjKE7D4Vxf55oVtiQUo5CeLmfb91GQquA jfzMuQr0KM35Ek2EhOemCfvaMiqRyDtTvXBREo4MU8X/NAe0tzxHMU4cx19u xlTMBlR25PkXld14P6Le1n1lAdrnpLWDjr3xRc6RND0CJSdsOy4iScKKgfkA e5JATlVh2/KlSRjMz5MFpRoUyW2+XV6WhNS7FnUnS+qQyl/bGedxf0y6xpMb M1SHrqzc69tBIyFetyhugqsevZ9fthnHjpDgdUg2r0f2ycWCkcfw+ekoFlxl 1aPuKZXiSTUSrBU3WVaeaEBX0j7OT+P+LE1WsI7XNCHraPUMMdz/fdo0g2Yn mpCguXu4Mr4fMF638OeKNqODRNaJs/j+8MSmX1ryXjOylI7t9zbF+dK3pMcl 0YJ0bDMl56/g/KhX/avbtxU9mb/re+o3Eq4klpxzVG1H5aVvunZ64HrsgXr2 2rSjA0hO+5Yn7r+mDZZDEe3oSc4Dp/deJFQL9LoYjbajkDrlYTNfXO80vfWT zncgt1O/1PICcL0ofe4ZsNSBMmXqb+aFknA2/XPbRfMutHrMPXg6A8fzINe2 /nYXOn9DuOd2Jt6fW4FstcAuFFbmWz72CvfvgweVZHO7kGbsvN7P1yQEl/pH c6zvRg2R3iGsfFwP2vZdLc3rRsc077BtPpCgs+g6KsnVgyoSVvIdevH9UU+I Y664F7m2pj0TEGBCmDUPk9XUi2ZpSsYfBZnwyZUytDbYi4zPdFiEbmGCfcpk OfeGT+ip/kuDzSJ4/VSz8y7TT4hzLSJRShyvjwwc1pz/hPIu0lwfyuP1jNnq KFofSnYn7U7j+3O4Za+/YskA2t3N8LJ9zISGi2KbDIS+IZ2DNsq3paZhQlL4 ftfzEXQ1aXHiWe00uLocsA7f9gNxeo1LcN6bgd4BASPbxlGkdPGG24cTs2Dl eeJfrgvjSD/nktxHrjmoPXD0SS3nJNowOGftS86BDE/laIYuicptNJVo9HkQ q3Q4wxnMRCEcBzX3Vi4AZWldtvPwNGo362QZE4uwYPjBon7vLLp3aXLCpJwF /SqWO/cGzSGVEicb+Y4luGsmICg1MI/eLCxP7vt3GUSj/zFfL7aIeFQ9/I3J Fci9mvZqxoOFjB38CzK3roHZST/dxg9LSE6gSjlOlg0FFreljq8so6SA6sUT 4hRikVeTo8xkFZ09yl0mUEwhjDrVaGLxa2hmvcgmdU0qwau2sboyeQ3pMlTG qs5QieqMvvPX0tfQ0kbXryd0qYSih6d1Yu4aIpSVtqvqUQn+3SVPRevX0LO4 3wuVzahEk6PyiPD0GmqluIfLOeB5k1s2gv8CG51TEIyWf0YlFu8t7sg1ZCPt ygH/tzFUIq+/4aWeGRt9XfZ8oBBPJcTzbCue3mCjBxMUhmIylVgxyfjB64lt tvcZ7RWVKEnffZIrk42WK9gu2hVU4s6mqYbMN2y0+IdCX+MHKiHjXmWkXcBG zyDM9DxBJaLPXb/1oJKN3tdURhvUUwln5vNnHN1sNO9cufdaO5WQu2ovnv6J jQKSbTSH8Hz8rU41W+MLG9loTbvfoFMJg/hPVX/+ZKOT18P3/v6ZSnCvyzor OcVGCw+fpvzqpxLg4E4nZtnoaZK2wl08f7v1aFtaLbFR+IYi+sxXKvF/8zv6 //n9f9yUesI= "]]}, Annotation[#, "Charting`Private`Tag$4943#4"]& ]}, {}, {}}, {PointSize[Large], PointBox[{1.87, 2.1205895406702355`}], PointBox[{86.63655078037408, 89.26232182438521}], PointBox[{86.63655078037408, -84.0223218243852}], PointBox[{100, 100}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \\*SuperscriptBox[\\(c\\), \ \\(2\\)]\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, BaseStyle->{FontSize -> 14}, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-4, 4}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.654814477181821*^9, 3.65481648758657*^9, 3.766107188433528*^9, 3.766107399383024*^9},ExpressionUUID->"c8dc0331-5e7f-47a1-9c67-\ b76f1cc7de66"] }, Open ]], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["V", "0"], ">", " ", RowBox[{"2", " ", "m", " ", SuperscriptBox["c", "2"]}]}], TraditionalForm]],ExpressionUUID-> "b0c9700e-a537-44cd-a756-7b1be82e28ba"], ", with momentum high enough for transmission." }], "Text", CellChangeTimes->{{3.654814824998517*^9, 3.6548148437309713`*^9}},ExpressionUUID->"d92087fc-03d7-448d-aa63-\ dd4ae06f5bc0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p5", " ", "=", " ", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"d", "=", "6.26`"}], ",", RowBox[{"kp", "=", "4.3`"}], ",", RowBox[{"r", "=", "5.03`"}], ",", RowBox[{"v0", "=", "2.7`"}]}], "}"}], ",", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "v0", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"e", "[", RowBox[{"k", ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "r"}], ",", "r"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", " ", "\[Rule]", "Thick"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\>\ \"", ",", "\"\<\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \ \\*SuperscriptBox[\\(c\\), \\(2\\)]\\)]\\)\>\""}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", " ", "\[Rule]", " ", "Large"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"kp", ",", RowBox[{"e", "[", RowBox[{"kp", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", RowBox[{"e", "[", RowBox[{ RowBox[{"k2r", "[", RowBox[{"kp", ",", "v0"}], "]"}], ",", "v0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"100", ",", "100"}], "}"}], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6548146463498216`*^9, 3.6548146471947994`*^9}, { 3.6548164737503705`*^9, 3.6548164776116095`*^9}, 3.766107192510137*^9, 3.766107402126745*^9},ExpressionUUID->"7aaf7b20-eba7-44a0-8202-\ aa7f21bf4124"], Cell[BoxData[ DynamicModuleBox[{$CellContext`d$$ = 6.26, $CellContext`kp$$ = 4.3, $CellContext`r$$ = 5.03, $CellContext`v0$$ = 2.7}, GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw11ns8lNkfB3DLksXzjGtlN7qYiEWFKDbnJMmKmC7Uuk+b+ypMfnRTLYpN hEpo3CORQkxup1zGLXIZRkRiZBhbauROv/P74/fH83pe79fr/PGc5/v5fs/Z TD9z5LSoiIhIKn7+947enWU0zBF5uTFCQGOpKkKXaqn8bf2rKHohxFz+kgIM SLhqWpG6iF53WdE3xMnD6CbFhtTcWUSj9pNvK+Wg1B3p2W7nr6hJcmSsclQW Si/7icraTSFe7tlOOaostDZ00MreMYUGOGmOIZtl4c2z+47slptC9bWfIodV ZaHMmFKmW5cA9WpfaHmujN1es+/ZMQGSPDdhyaBgp8tePXJyEsVWxSZGzlKg jHnp90Q6H22TjgoNzqNA68tMDc39fCQ+qhT7PIsCb7Ju2Far8VEMr+afeSZe r+OcNsYbRzsak+2i72CvlQCGnuPoYZBRzuA1bL7DZa7vR6Q3WR9o6YJ9c2lZ +RwPFctFhDusp8A1o7tbJI/yUOM1fn+dAgWKGgffm9vBQ16qgTm7KBS4MD69 s2dqFH1djCvTlKDAj/s/esT9OYoMk+i5x2ZI+HKpo0Pi2Ajid+1orOokIcP3 YbZQbxg9HzCeI2+T8EztaMCI7DDqX30TvCeGhD16ZpczB9+jE9OaZ3yiSFh7 y6jE+fh7NGB4VPD+KglTLbaocMyHkPHifxaUg0hIK5ubfqn2Dpmv2fao056E FXcyk5I/cNFEqH72DTUSZvwEzFYyuChJyce4fhMJb1waELjSuahhzXd7CVUS 2p9WBFtHe9GTY6G/MdeT8ItB5FgRrwdJTMZ4qpAk3Mbx1msY70a9d9qTXRYJ SLGUeKeR142OvJg8Lz5PwNnKzIhor24UbhlhVvKNgPVZA322E10oFeilqX0h oGuQTVj/ZCfyO8vTPsEnoPZWetL7gTeoz9vJQ6mPgIsyKYJspzeI0VzioNNL wKaZblOfwXZkWf/jdWsOAU/VHxibGWpD6iMuJekdBEw+paknNdKKXgtMWtKb Ceh1iB7xht6KzO1l9IWNBDTUT+lLHG1Bhozh79ZsAnaKEmEbx5rRzUO+3LV1 BJTMnG414Dci+16zObFqAvZGaW5c9GpEho5vF25XEjA7gB6IJthoXs3zmkYF AcE+znorQQPaTVPY5V1OwODh8tOun+rQn56How8WE9C8aZpFPVOHfs2oUpd/ RkD5p5oyk59rkb/GbQ9eEQELw1KKGV9eIZ+95YNphXh/e1dXFSYQkt6cJhr0 iIDXFFcGHnyuQbqmbUNheQTcK1hiacxWo16Pd5qJuQQsTloINBGrQi6s6rXd OQT0OzNv2/BTJTo/5V+9kk1AdYs5bVvZCvSzCHq3HTtFOPORrsJC6csbb+Vn EtC+RVg3pVaOQofOUoUZBJTN+JoerFWGNjkMm+zHDj88/Ue0USmqWKj8tpBG QNOtn40UTUvQsltDihv2wtK/ikzzYuSWq9HSziSg/yNB+zPaUyTPtWG/ekBA mkiPw3+ePkFxKj/ds8BmF3bJ/VNdgGa6pWe7Uglo7NjRymzJRwkaD3ge2EWS 7RHF3Dz0Su3zKVFsalkrYPMeosl01XM5KQRMOtW88PZLNuIZ6CvbYRNyjSX/ rmYiJ+pGmij2tZr6v36QyUB+x5FKVTIBP3HDbbX0mMh//0DYJew+vSt1NOtk NCSkhlhg18ZcMAr1uItuTO1esw77MT/4cfqVeNSlxdT5fJ+AWtd5pnG7YpDp BragHXvltwH1994RaFOSjFkZdsZYlorTbxfQxf7yHTnYcZlbBoS/eyLqlfny FOyb66UUzRJswY/hE9z72L7chMCWqCDA3BsXl4Y9suso7W7cVVDr9u5DATbl ipP3QacoELCa2/oKW3WsGC4nxIHVyHKbIWyD6PLXnNBE4NL2wlMUf6/V9qoT ha5J4KG0pbIutjvnJS/iQCpg88fc3bGrqui7i5TSQWDYD/tSsQ9STl9OkcwE hh7C50PYXe6e9deXsgCbtYq24f/nXOotxfiUAwK20FzOY/Ml/OzcPuSCpgnR uG5sxkn/u9acR4CxsvaYAa5P9Grglq0VhWDIfU2sDK6vEu2cl1xhEVhyDBML x+7oNOGuvnkKPq69LS6G8+FENVUR1BYDoWNnwTqcn0wbAN2rSsAJuvBwIfZ4 MDzFfV4KGq3vhlilEzCw2exRXV4ZWLjp7piC88j6uv/1nsxyoDrIlbXF+V35 5cDnohQWYOzxtZDKIuAN/4O7Um9VgEDVHM17OO9pCtavGIwaUHBAPV4K94+U Q+kLpb8RCDxvVEri/jKxIU8OWL4E0cL5hF/yCZgbF0y76PAK7OS1XLYtIGDY uoNmNYw6YOTDTNmI+9dgz4UacrkO2G8eOeCN+3vyjyJj17/rAZ3yJLayBPcT c52+SHwDcDPmT4eWEVB3K1/NrKgROI33/OVcRUCexYb0eMMm0MdYShLg+ZLs ZbdhtLoJDF48BK4hAkoUsBTDXzcDrf1XJ5pqCTioFyXOnmgF8cckqZV4nlls uiOkyncAL9edPrpvCbh5Z9HOtuMdIET6MHvfAAGX9zWfOXe/AySV/2XuPIjn w6kVQcOmTqDj2xRT8AHnKfc0z2N7F6CCwszHkwT8pmPYk2fNAZcp8aT6Kq6X qZ0CLY4Dyr6BSywREubb+tAWujngX6Z01hExEroFMNt+d+wBW3Ts5x5IkvB1 qQR70rsX0FWS5mIVSJhtwi3Tvt4H1FWC+/u1SHgr8s2YLbsPjDmakM90SBja 2agYJP4WOF2MjI/ZQcLDnqzAF3+/BV7hQUEnDUk4H39f1+JKPxAdE/BMzEho M+n40DX0HXCpr5jY6kjCC9bTVs27hsFOaY0pN3w+Tgf4jfxxfBjYtEcXzSSS 0OMeP3SKMQyeiFsLY5JIaDcynEcpHQYbQNSHjjQSqod0StjrfQBK+TfS7z0h YUdWce2I7gjYnHV0YksbCalLDONlDR7wONikJEZS4JAYU1vfigfa+s6PJ8pT YJJMo6qPHw9wrK+YaK/D9wFVZbG+pzyQbsa08t1EgTOwurVkzxhw0jXQ0NKn wIZIcWffQx+BdaL796yTFOghfzes358PHod8ajmST4G5muX1rOdToEnv0nCE tixMjrVsq475Cl7aXv25eUoWOv6qbHE4ZBb8eVbqtH6xHCzdHqkYXb4ItCgJ 7IE78nBNT+8048kqkONFdrsFKcDmH5ZzRHtE4P/va/8FMdyv+w== "]]}, Annotation[#, "Charting`Private`Tag$5008#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw113k0VW3bAHBDZDgyZDieTBUZUiJTyLVJlIyVVMhUUvQYktKAntDwVkRC pAyFJOODBt0785QhMxnSMQspnLO34dvfWu/7x173+v2x97r3Na11bXbzOXyG g42NrYt6/v800wp23ssnidcK/XC/IC2AW105WmPFLYk3lTO9ssQE8KMfVNRc OCTxJwmd10YEBHAXo67Vfwg6HsXHKnBapeFXLHcl107ScZm6vSFWgzT89Znh b0ca6LiH359o9RQaLvDE9OT5+3RcLpjAV+RpeNviBru4DXS8PFp7Q64qP74n WfdS9Yo4fsxFqrVahBd3cZpo5V0Tw7sdX7HtkF6Pv9qqeMaCSwz3NTB8JaPB hVc3r2w5vbgRZ/6nW+6EDCeeEeMgHcUSwYOdZKz51dhxt72HjR+NCeOVu5EG r9oqMpjpePaoVwi/n6b65ao4gXIvfPayQIJ45vGsb7fNFlFCPc8v2ecCOM/4 woq3yjzitj81uymNHw/b0rjUmTuN8n99OSmez4v7koEqQ/ojSOi4z6YPj9fj x29xO0R59qJfP2Xs7iRx4UK8Gxc1pWtQhDUbYy2IEx96oJUh7p0PJxA5eMmV HZ8bmMwM/tAGp8r4Xiv1rqIwNq4sPcYQ+MXcNHyfRCB/7cD3E4fG4V6taFVS xiIyfU3arZuZAb5Y/sU2p3lkum+gKbBrHviXvTmEbKZRT3WanGznAlho26uk 75pGKyJjS2FDC3Df1+iwrvA0snfINmdMLgBtRCzV5esUEi4MMohco9z0ySj/ 6BQyjcaNY5UWgfZC6ObhE5PI/Kfp3hNBlE2K1h67jSNJm6MXg8SWwCI4WVF5 3zg69ULvACmzBPdL71iXbR1HVs/GrS4pLQFth9PzEcYYWt+9q8pWn7I4N2if HUNSIUubsl0oj9sHd3mNIs7ob6EdWZTvk8uSlxiIc5+jU4kWE9b/0K3nOcJA vS6xeQOGTODQC4xb2sVAccr/bCLNmMAam1PvmP6BbvmasEROMmF036hH1Okf aEUrRaLsBhNwsqWF++gwisfXdU+XMyHA61X6b40htPp27vIBExb4lP/wGxYa QkWe1Vd+H2JBh4ZxcGr/ICoJF7nz6AgLyh/qFDrZDaICJop85caCJNMt0u0m A+iPX+BFjVAW2BYvzeFbv6Ehe3HRilIWvI9NjX/6vQs98V+TtpMlIIUXjFdS upCOfvSvfnkC7tzom3J260IDxzxLT6gQcOyMKCj86ET8ZRd/KmsR8EszYiSX 0YEcos3jtpsToNR+TqNqrA2V6dXtyvIjQPAA9zfFzDZU9TvK1yGQgMUPqeH3 PNuQc4fD97WrBFSm9XVbT3xF6mPsSrJhBDhftAzpnWxFkeHPaMWxBKgquMUP 9jWjkuicBP1iAgha4lS6YzMKbVst5n9PQO2fNsPz/U2ou9/x+JcyAtwr94/8 GfiCNqVmrslXEfDUXVmDb7gBtT6caZVvI8DzkFt4s1sD+v7Oki20kwDt3Ynd j3/Uo5UbLz0aewho5RAIkR2pQzbNkSW6QwTwpM41aI7XoLJ3Q5dPTRPQeVdZ lvCsQcu5hf7GswSk+7n5o4lqdFkm3lVingAwaqebT1UhZgUsxywREDhUcsZ5 pgKlxNXZdrGTYFI7VyrvU4FE5H/SjdeRIJKnTJucLUf3JUwSnnGTkBOSWBDw 6zOKnVp6vY2fhNq9q6sbJxA6LK/kGrqRhH9EV/qezX5CApMNmR5iJOydIksV F8tQWXyOiKEECQXxLH99zo8oZ2FSF/+LBG8fpnUV7wcU8ODO1HkpEraZLqla C71Huz3G33DLkJD4+8+om3QpUrqwzVx4MwnH6n9XTG8tQYFZYdKhW0gQSpl/ EahSjJRKX84MbiUhzGru5D2dIrTgP3PVfxsJhgqzOqKGhcgnvW/nS0USWORP 0WSTApQlIfG1VomEv7OmmvJt89D+0vqeYRUSbNk67C/nvUVm24/q9mwnoTrn q/B/yt6gm5+sruKqJOg5tDQk179GxhKqz+J3kJDL0xRe0JWJRmXuJLvuJEG+ uAGqGa9QjLzy9U1qJMS717F6fqWj58tru6spCwjXFP5cTUX50kqVrruoeH2q vMBOS0GRH8ZUZijPdIVZq2gkoweDuR5e6iR0a4RW2Fo8RTnBUoE9lMsfXNMJ 8niCTjz4Y6+rQUL2eGD2i9BoVCWkwn+HsspthmGU1gM0taP3YS3lFYO+bYPn wpGStuUwi3LKSJq0o8E15Je/uE5qNwlRqVv6fh88i+Q8Li3upHyfzidqHGMN zqdiijUoe3XF+NffvQjbp/bvV6Q8rHXE9knUTWCk56TSKAuGOp4zc7wLEefE m4ep78uMFGDLMVHgdXypPouy5r2Sxvagx5DTMP/ElbK52sfjOc7xIG3duZuP sms7zgjfnwTfHj9NTaP+7+NHN91csRcQdtadsYOymeCZ4ESeVCATQohMKj5f Xc9W3ibToO+P56goZaeic3wBMy8hYnNllh8V33FubxuX7xnQHe1iiqh8BJz4 +4lFexbc9NL9tELl696q/xaF9zmQk2p/wJLKp5jtJU/hnFzwf3vW+RSV75ZW /a7V5jx4pmvi4ELVg6O8ofRUeQH887aCpkPVS6olYK4fC+FdSkgtP1VPY4GY e9e/RdDbuOdSqwIJ/nXGWRWZxRBokZarRtVj6fy+xj2pJaD6ptiklqrflU37 Z3MTSyHkd2SPrRwJd/4200p6+B7ClaU26kqT8HyjxeeAgE8g3CdpbCtOAp99 0TuxWwjC/ZZWDoiSoG+54UTfARzsQgIM1URIyIgKtL1u/xm4k1s8awRICJEw M/4UUAHEI2U1Rap/Nfdc+7RhuQI+bE3tjaH6e/Jkrp7zrUpIM+Mzm12l5mWy xG626CrI+BUb5s8iYKfC+Fbj3BrIi3t/L/snAQxTqRfR2rVQet1HM3KSmlee NlI/ymrhrXfzmOsYAdxvSkXDGutAbMg9pp2aR/0ad7mqJxrApMxOZu4rAaZy sb/lRVogPoMzmreIgM3quepf7FrgsjXVb7kELBvV+VxKaAGdpXv92dkEFLiv TFXJtcKGqA5zgTQCZDLOMDzUvoLsOP9mwUcELOzQ7si0aIcLZsYH/zpPQIuh zUbbqHZYuTrqtXCagNfW521Zbe3wUMla7rMzAS5+yV8OOnSAAu39ZRU7AhqL uKsnz3VC2nbty6ZAzUf9rmLV290gpXo1P0+IgIcRzSPW1d2Q/Hb24Dp+AoJa a0QvcvVA/oUTRoe4CLA6W+r/7lYPxDmFhBSyWMCMTthpGtoLp5MeJs18Z4Hl pMMr56BvkN0/F/1XHguuWcyZ12kNAbcN/WH6PhbM+XkPn7QbgqY6m/U3DFjg ETceNB0wBPwOTSHmWiywGR7KFCwaArXxI2mV21iw7Uor9zGN72AoYqegw8uC lrSC8uGdw7BNDsXINTJBngzQW1ZkQFJXh56LORMGOJNVd5szoKnIN87AiAnx tBqZ894MQI1nZgV0mUCTkeTszmOA8nfl1kgFJvzByhoK94xALu+qhAgbE6oi uJy8Do1C8960szKFS+Ah8iSk9+9xELl0twUXXoIM5ZLK0n+nwTzRj2FVtABP Iw98KXswDx6KrstGhfPgsF3S1OrKIrw9GJSurj8LRWoRovdKCAg+ohk/Iz0O 6zs65wLersKBN7G7qtW/w9zboKD8A+xYafap6tM+7ZCpeEwh+DQnJnfwplbI eCH0+8of3+LIhWEJ+ewJ9hXIeQbXkgpej2XOJb7YU9aDThlYP/15jRdrfyli /NOXgWSvVzzCffgx1cp3jx5NTiHVOS7NiQcCmO8WHS513nlUoqnnNHFbEDt6 oY1967cFVHMsOV62UwgLyLgyuIOLQKL3RSwO/RDG5ubjS0/KrKLnWWvlbgMi 2KnzvVf6WWy4zfcjgi9nNmLlXoPuSoKcOMa+WbZtWhTL02pf4uXgwoX/cmWy j4phTw9Wr0xPceM8ljwZDn/EsZbzl9/osvHihp5KkilzEti2qrhjMb/4cH9k dG/9ggSmaxDra0Tw4a/EHcgLLAmM6ZIeO8vBj2+oetCvx0HHeNYNsVmI8uOD m3+ntG+kYxZNig5cOvx4aF+ZCo8OHTu6MCh59To/Xm51xMDnBh1zNCXjvNbT 8MWX3jkdN+mYajkH7yYhGq6yEi5jEEHHklU8wurpNDw6u5SNN5KOaQpuf6qs QsPdeWSqUl9Q7/8lbjRuQcPXlY9bdlbQMba1ystno2m4riQHMqilYwV0nvsS iTTc23fTrrRGOkZfd/h1TRoN75CxEvHtoGNJd0bWKf1Lw19dK+zkHaNj9YlX 1Se6aHjv10Yz3ynq/jfcYxOGaPgGldHSzlk61rKizGk+QcMDu+mJaUw6phGu v/yaoPYbNQ0a3wod8z53/bYDpwA+EHHohi+7JHY0I0KKRhPARQZOz3RySWKa 2nYfPooK4P/dr7D/7Vf/B7KOz2g= "]]}, Annotation[#, "Charting`Private`Tag$5008#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw11mk4lWsXB3CSeZu36CUkQoMOQhLrMSRFphJCilLKSUk64qCQOMaKZJ4q 1UHZijLc2xySmUql2LLN996GZOp93g/vh+d6rt913V/utf5rXfdmdx+7M+s4 ODhKyO9//9UZMYeBMgm6fMSEbbkclXh813lTwi9xesyys5/daQnC3cDOOHFU jF79IGhjvKM4sW+6NyPxkyj9+bxU6AU7MaL4z5oLlkiE/lPxZ13RCVHiQQsf Sz5LiJ4Ze0+6o0iY4HE4MSOTJ0jXz41xiG+gEC9Ybcc3vOCn+zvq5icyBQhR Rx+Zinu8dO7zS/nPfvARrCk5+9vp3PTtLUtMb0Fe4pY1B+N3ABd9+5QbY48w N+GElgevnuKkVxoE1aspchEnqgSeqn5aQwFOjjPRJzmJy3dvGL5JX0LLUov2 hkK/IfottSH98QISO6HNp1G5DAJJggvdrmw0PXP0dKXzIgiueK8TtZlEzt7x 4lTXebDUcdiW/8ck0lWw1C+ym4eYS0Z2e8Qm0Zf+SKaV+TxQRiRzT3ZNoC2h rxfytEi/rzZ6cXQCTWf74gwB0tmiN+ycxtH4/sn5j6/ngGJa+vueOxPJDH9F rzfNgWVwpoqaCRP13Vkc16XOQUz5beuqLUz0I+kQo0qAPL/TNWuEMYp2Oq+7 +P3nLFA28IDO2VEkXaovdbuLNNMhuP/CD6SRc6zENYp0zPLKxqsMpIH7egNX 2cA7vKeF7wgDHe/KuHl0jg3r9vrf//kHA2Xwv5DaM8GGX6NYo3dyGL2ondZT +MiGHyY/PBNODyPd1UQZ/5dsoC93dPAcHULpvurOZpfY4HfhUf6s5jekE25c MT7NAp/a4ctDot9QaIv3GxhlQa+mcXDul0H0d6HCs5xBFtTG6dJc7QfRzb1X 8mI6WJBupripx/QrImoqEQeNBbavfmL6ls/o6ICs/KXrLHiTlJuS+r0fZdK1 JL9KsCCHH4xXc/rR6s9sI3thFtz+e2DCzb0fHfvccv0jHwuOnaGC8nAfUvNH +/nXMLB23xopZvSij9nMNN4xDKo9XpoNo93o2qLXuugaDCLmPJ9VCrqRD+TW 9ldiWKjIjYg+1416Xftttcox1OcNfLAe60JclhqC1GIMblcOh3wa70QPC5O2 /p2BYYeye8rgQDv6Ozviwc8gDEuUtIl8l3ZU6rY7SCUAw9u5bsPzX94jF/u+ T2euYvCo3z8y97UNbUyM1hK+iCHVQ01TYKgVeeSbnhI+ieGchXtEu3srOhIw oklzwaCjlfbh3nAL0n0Z+87TCUPnOqEQ+ZFmxPDIC1yyw8CXi1t3M5vQtQC7 ih4zDH1RavJL55rQnrAQOjbBkH/Z3ReNNaIqalqnjBEGMOqRPjTRgPb5zOpk 6WPw/1Z2xm26Dt1N8/rurIHB9C0uV/KpQ4oiZv9hqWMQf65GGZ+pRQUyMw+S dmAoDEkr8WPVoKwD+rcpquT9DNbWJMYQGhIW7CqRx3CTujqQMVONVA6ejX63 CYPBxHK5ykIVupYaoTAvg6Ek5ZevPlclijQwX/KVxuDts2jdwF+B6A+fHni7 AcNWs587rEXfIM62Q7d2SGJIm5374b6pHFEaKWObxTEca5mtm9xShqqjiiRp ohhEc9jZ/tteIUpgrOkREQzhVvh4tG4pArppOZ2CwVB5RpdqSEMNcQ7r4wQx /FqeomaalqB/ZGRPnRfAcPHJxPsXts/RzPVzTjZ8GGw5eh2uPS9CU7yDS068 GBoLu8T+qfoX0fwY5b48GPY6d7RmtjxFbBne5FRuDMV87yNK+guQFfXZvc71 GJRetUIj4xHKERYokyKd4tH86yMrHyXpaP325sIgJNZEm1rLRWGSgj6d68h6 Vdf/yUnJQQ+vWfDtJz3dH269TTMTPT4S9q6JE8MHzdA6W8tUFFm6ocqJdG1s oG6AZzIaeGg4sMSB4RnT/1l26B3ko8iv+oz0tkiGYYJ2LDrI7ZR/nvTqvoGt g14RiLI6YqNHOmckb5PLvkBUd2OfuhTphFzFgdmDZxG1rWrfetIx0gJU47vW 0NuTFcRB+kL/Xd+WqCvAbz41JUh6SPuIbXLCDbCJi0jYSlok1MXrgEsUFDXL nrYhLTdSQqzcTYDmT/rnokjvji571xNwDyLPEumdpA/tqnQsdEsBKYbLb1Xy Pqd66IyI/engmJmSEE+6stJ9T7FkNjxvbbfiJutxQORMcBpfLug9oO2JJt11 6mx95HIeOBm2WMqR9XQt9RLwm34IRWI+UTWkmTzeNie/PwaX7K7JK2T9/Zwu Jlv2PAFa05KfNtmv6DVfReU3hRCZMDA+QvZT0vbqObHCYqgNb+3uIfvd0anf v9b+HO4vTfd3kXlwUTLcNFFbAiXhPltXyLzkHgbiVCUNAhNp51XIfI36Ex79 L0vhuOevqlNCGHybjZ/UFbyC6h/xYVxkPsvZJu/0csuALzJo+rwY2Q+Z/TPF aeXwEvKcvpN5vn3xgHZ63Bso5pdSWCbzniVhWePnVw1bHDeyvstiEHAofS0Z hqC4Rl97XA6D/mFhpwFzOgzSque4NmN4nOBvG+RQA+pJ7i0XlDGESB0wrvar g705/Ospu8j66wVWC6/UQYBIomMWOd/jx4v3uoXVQ+KE6qTJbnKeMqW0OO40 QKxRRhFdD4O6MnOLcXEThKf9VRC5HwPDTDb7js5bCHpVt5ZnTu6rczayw1Vv 4Vajh0WnBQaef8up4e+aQf5Ie9YJch990YzibhxrBXz1C9WE3GdmCkmzSuId kP7Prhy1EAybNYo12uw7oGqYnLcwDCtGzT5XH3TAqn6BfWQkuR88VicaFDph a54rUzmBzNPjMwzPXV0gaaEirpSLYX6nTm+BZQ80TeAx6WayX4Y2ErYJPaBb btlk8B7DU+vztr+6e+CRAEPctxvDycuZbQede0FEJaCC7yuGd6U8jeNefZDI u1oxOUvuR/3+VzsiP4A07+sbNxVZEHerfcS68QMkh5uMqauyIKCziXqF+yOE NXxkje5kgdXZct/XYR8ho5dGC9FjweKdB+pmoZ+gIzk/2dSWBYfHnR+5BXyG KHvjbOkwFgRa4kPN2t9Affg/D+NmWIAvew8dt/8Gnl5D218tsMDzPjNg0u8b qH04TWOussBm6FuBSOk34LYYjL9IYcPWvzp5jml+hwWFr0IramzoyCupHVIf AmEJvyzxs2xQWvbbu6LCgBRn18UuJhu+cmXu0DrEAM/g2rQFFhtSKE1y570Z cNWzzUR5mQ0UuY1cH54zQNCO3z1PaBbmiKpWmt4IRKhpy2zWmoWGW9yuFyx+ wJn5+FZq6Cx4iieHfLrIBMXqJ+6+m+fgsVpZffnLSRi/X2PFCJ6H1HjztqpY NrwX7NJhhSyC8/aNZlZ/LYBr3MLJ1KRlKN11ixpdtgRX+TeO6iv9Bt7ePuxX tAa31f2EVA9zErgoIOCFOSexpb6No1CQiyhQOaYcfJqLsI2fyrJfWk98uaTk qOjCTajTStUk2nkIt2m6tmwwL1EsVdhGdPIRJ/ZZp04F8hMiJnLjPS8FCPmg ukS6jyDxUIBvzeAehdiBuXePxQoRXdu0ZTUzhYmy3XtdxyJFCMUCo9heE1Gi 6VhminyfKPF04amptJUYQY0Rt7QYFiOi+GevexwVJ7Ke/K51/ypOrHDujao4 KEHol+YbkO9h4v/v4f8CzSqmhA== "]]}, Annotation[#, "Charting`Private`Tag$5008#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJw11mk4lWsXB3CSeZu36CUkQoMOQhL3NiRFphJCilLKSUk64qCQOMaKZJ4q 1UHZijKsxxySmUql2LLN996GZOp93g/vh+d6rt913V/utf5rXfdmdx+7M+s4 ODhKyO9//9UZMYeBMglCPmLCtlyOSjy+67wp4Zc4EbPs7Gd3WoJwN7AzThwV I6ofBG2MdxQn9k33ZiR+EiWez0uFXrATI4r/rLlgCSLET8WfdUUnRIkHLXws +SwhIjP2nnRHkTDB43BiRiZPkNDPjXGIb6AQL1htxze84Cf8HXXzE5kChKij j0zFPV6C+/xS/rMffARrSs7+djo3sb1liektyEvcsuZg/A7gIrZPuTH2CHMT TrA8ePUUJ1FpEFSvpshFnKgSeKr6aQ0CnBxnok9yEpfv3jB8k74Ey1KL9oZC vyH6LbUh/fECiJ3Q5tOoXAaBJMGFblc2TM8cPV3pvAiCK97rRG0mwdk7Xpzq Og+WOg7b8v+YBF0FS/0iu3mIuWRkt0dsEr70RzKtzOeBMiKZe7JrAraEvl7I 0yL9vtroxdEJmM72xRkCpLNFb9g5jcP4/sn5j6/ngGJa+vueOxNkhr/C601z YBmcqaJmwoS+O4vjutQ5iCm/bV21hQk/kg4xqgTI8ztds0YYo7DTed3F7z9n gbKBB+mcHQXpUn2p212kmQ7B/Rd+gEbOsRLXKNIxyysbrzJAA/f1Bq6ygXd4 TwvfEQYc78q4eXSODev2+t//+QcDMvhfSO2ZYMOvUazROzkML2qn9RQ+suGH yQ/PhNPDoLuaKOP/kg3EckcHz9EhSPdVdza7xAa/C4/yZzW/gU64ccX4NAt8 aocvD4l+g9AW7zdolAW9msbBuV8G4e9ChWc5gyyojdOlu9oPws29V/JiOliQ bqa4qcf0K9BqKoGDzgLbVz8xseUzHB2Qlb90nQVvknJTUr/3QyahJflVggU5 /Mh4NacfVn9mG9kLs+D23wMTbu79cOxzy/WPfCw4doaKlIf7QM0f9vOvYWDt vjVSzOiFj9nMNN4xDKo9XpoNo91wbdFrXXQNBhFzns8qBd3gg3Jr+ysxLFTk RkSf64Ze135brXIM9XkDH6zHuoDLUkOQWozB7crhkE/jnfCwMGnr3xkYdii7 pwwOtMPf2REPfgZhWKKkTeS7tEOp2+4glQAMb+e6Dc9/eQ8u9n2fzlzF4FG/ f2TuaxtsTIzWEr6IIdVDTVNgqBU88k1PCZ/EcM7CPaLdvRWOBIxo0l0w6Gil fbg33AK6L2PfeTph6FwnFCI/0gwMj7zAJTsMfLm4dTezCa4F2FX0mGHoi1KT XzrXBHvCQghsgiH/srsvjDVCFTWtU8YIAzLqkT400QD7fGZ1svQx+H8rO+M2 XQd307y+O2tgMH2Ly5V86kBRxOw/LHUM4s/VKOMztVAgM/MgaQeGwpC0Ej9W DWQd0L9NUSXvZ7C2JjEGMCQs2FUij+EmdXUgY6YaVA6ejX63CYPBxHK5ykIV XEuNUJiXwVCS8stXn6sSIg3Ml3ylMXj7LFo38FcA8fDpgbcbMGw1+7nDWvQN cLYdurVDEkPa7NwP903lQGmkjG0Wx3CsZbZucksZVEcVSdJFMYjmsLP9t70C SmCs6RERDOFW+Hi0bikgwrScoGAwVJ7RpRrSoSHOYX2cIIZfy1PUTNMS+EdG 9tR5AQwXn0y8f2H7HGaun3Oy4cNgy9HrcO15EUzxDi458WJoLOwS+6fqX6D7 Mcp9eTDsde5ozWx5CmwZ3uRUbgzFfO8jSvoLwIr67F7negxKr1pRI+MR5AgL lEmRTvFo/vWRlQ9JOlq/vbkwCIk10afWciFMUtCncx1Zr+r6PzkpOfDwmgXf ftLT/eHW2zQz4fGRsHdNnBg+aIbW2VqmQmTphion0rWxgboBnskw8NBwYIkD wzOm/7Ps0Dvgo8iv+oz0tkiGYYJ2LBzkdso/T3p138DWQa8IoKyO2OiRzhnJ 2+SyLxDqbuxTlyKdkKs4MHvwLFDbqvatJx0jLUA1vmuNenuygjhIX+i/69sS dQXxm09NCZIe0j5im5xwA9nERSRsJS0S6uJ1wCUKFTXLnrYhLTdSQlu5m4Ca P+mfiyK9O7rsXU/APRR5lpbeSfrQrkrHQrcUJMVw+a1K3udUD8GI2J+OHDNT EuJJV1a67ymWzEbPW9utuMl6HBA5E5zGl4v0HtD3RJPuOnW2PnI5DzkZtljK kfV0LfUS8Jt+iIrEfKJqSDN5vG1Ofn+MXLK7Jq+Q9fdzuphs2fME0ZuW/LTJ fkWv+SoqvylEkQkD4yNkPyVtr54TKyxGteGt3T1kvzs69fvX2p+j+0vT/V1k HlyUDDdN1JagknCfrStkXnIPI9qpSjoKTKSfVyHzNepP8+h/WYqOe/6qOiWE wbfZ+EldwStU/SM+jIvMZznb5J1ebhniiwyaPi9G9kNm/0xxWjl6ifKcvpN5 vn3xgHZ63BtUzC+lsEzmPUvCssbPrxptcdzI+i6LQcCh9LVkGKDiGn3tcTkM +oeFnQbMCTRIr57j2ozhcYK/bZBDDVJPcm+5oIwhROqAcbVfHdqbw7+esous v15gtfBKHQoQSXTMIud7/HjxXrewepQ4oTppspucp0wpLY47DSjWKKOI0MOg rszcYlzchMLT/iqI3I+BYSabfUfnLQp6VbeWZ07uq3M2ssNVb9GtRg+LTgsM PP+WU8PfNSP5I+1ZJ8h99EUzirtxrBXhq1+oJuQ+M1NImlUS70Dp/+zKUQvB sFmjWKPNvgNVDZPzFoZhxajZ5+qDDrSqX2AfGUnuB4/ViQaFTrQ1z5WpnEDm 6fEZhueuLiRpoSKulIthfqdOb4FlD2qawGPSzWS/DG0kbBN6kG65ZZPBewxP rc/b/uruQY8EGOK+3RhOXs5sO+jci0RUAir4vmJ4V8rTOO7VhxJ5VysmZ8n9 qN//akfkByTN+/rGTUUWxN1qH7Fu/ICSw03G1FVZENDZRL3C/RGFNXxkje5k gdXZct/XYR9RRi+dHqLHgsU7D9TNQj+hjuT8ZFNbFhwed37kFvAZRdkbZ0uH sSDQEh9q1v6G1If/8zBuhgX4svfQcftvyNNraPurBRZ43mcGTPp9Q2ofTtOZ qyywGfpWIFL6DXFbDMZfpLBh61+dPMc0v6MFha9CK2ps6MgrqR1SH0LCEn5Z 4mfZoLTst3dFhYFSnF0Xu5hs+MqVuUPrEAN5BtemLbDYkEJpkjvvzUBXPdtM lJfZQJHbyPXhOQMJ2vG75wnNwhytqpWuN4Ii1LRlNmvNQsMtbtcLFj/Qmfn4 VmroLHiKJ4d8ushEitVP3H03z8FjtbL68peTaPx+jRUjeB5S483bqmLZ6L1g lw4rZBGct280s/prAbnGLZxMTVqG0l23qNFlS+gq/8ZRfaXfwNvbh/2K1tBt dT8h1cOcBC4KCHhhzknbUt/GUSjIRRSoHFMOPs1Fs42fyrJfWk98uaTkqOjC TVOnl6pJtPMQbtOEtmwwL61YqrCN1slHnNhnnToVyE8TMZEb73kpQMgH1SUS PoK0hwJ8awb3KMQOzL17LFaI1rVNW1YzU5go273XdSxShKZYYBTbayJKNB3L TJHvE6U9XXhqKm0lRlBjxC0thsVoUfyz1z2OihNZT37Xun8Vp61w7o2qOChB 6JfmG5DvYdr/38P/BYsN/4Q= "]]}, Annotation[#, "Charting`Private`Tag$5008#4"]& ]}, {}, {}}, {PointSize[Large], PointBox[{4.3, 4.414748010928823}], PointBox[{1.3929683201653773`, 4.414748010928823}], PointBox[{100, 100}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*FractionBox[\\(\[HBar]\\\\ k\\), \\(m\\\\ c\\)]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*FractionBox[\\(E\\), \\(m\\\\ \\*SuperscriptBox[\\(c\\), \ \\(2\\)]\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, BaseStyle->{FontSize -> 14}, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-6.26, 6.26}, {-5.03, 5.03}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.654814651134959*^9, 3.654816482338827*^9, 3.766107193611343*^9, 3.766107402964028*^9},ExpressionUUID->"5a136a6a-63a9-4404-8f2c-\ 304a548cb21e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p1"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p2"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p3"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p4"}], "]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p5"}], "]"}]}], "Input", CellChangeTimes->{{3.654814954218404*^9, 3.6548150026164284`*^9}, { 3.654816286505158*^9, 3.6548162964077854`*^9}, {3.6548167024670506`*^9, 3.6548167096843743`*^9}, {3.7661074103365297`*^9, 3.76610741572082*^9}},ExpressionUUID->"cc51f1d2-d412-4b29-8863-\ 50aa816a57f4"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"ps4DiracStepPotentialFig1.eps\"\>", ",", "\<\"ps4DiracStepPotentialFig1pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6548150112306204`*^9, 3.654816290883556*^9, 3.6548165334685326`*^9, 3.6548167149836006`*^9, 3.766107419341857*^9},ExpressionUUID->"03d07721-bf8d-4d7e-9849-\ 1cd00cfbb8d4"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"ps4DiracStepPotentialFig2.eps\"\>", ",", "\<\"ps4DiracStepPotentialFig2pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6548150112306204`*^9, 3.654816290883556*^9, 3.6548165334685326`*^9, 3.6548167149836006`*^9, 3.766107420337047*^9},ExpressionUUID->"4d22e8c9-3056-4116-805e-\ f47c9cad99d4"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"ps4DiracStepPotentialFig3.eps\"\>", ",", "\<\"ps4DiracStepPotentialFig3pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6548150112306204`*^9, 3.654816290883556*^9, 3.6548165334685326`*^9, 3.6548167149836006`*^9, 3.766107421316613*^9},ExpressionUUID->"7ca7f292-c9f4-46f6-8958-\ b8f46fc0c1f3"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"ps4DiracStepPotentialFig4.eps\"\>", ",", "\<\"ps4DiracStepPotentialFig4pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6548150112306204`*^9, 3.654816290883556*^9, 3.6548165334685326`*^9, 3.6548167149836006`*^9, 3.766107422306299*^9},ExpressionUUID->"cc9b0ee3-1bb8-4ef6-af82-\ aaae6281c7ce"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"ps4DiracStepPotentialFig5.eps\"\>", ",", "\<\"ps4DiracStepPotentialFig5pn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6548150112306204`*^9, 3.654816290883556*^9, 3.6548165334685326`*^9, 3.6548167149836006`*^9, 3.766107423381896*^9},ExpressionUUID->"5835825c-d095-45fe-b8a1-\ 146339b9786d"] }, Open ]] }, WindowSize->{1584, 763}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 367, 8, 73, "Input",ExpressionUUID->"ae4c2688-d781-4ec8-bdbf-e02db7bd11dc"], Cell[949, 32, 169, 3, 34, "Output",ExpressionUUID->"2165505a-121b-4a3c-9cac-15b2020a0b58"], Cell[1121, 37, 207, 3, 34, "Output",ExpressionUUID->"701a8a9f-ddb6-4868-b9f5-cd50be5dab11"] }, Open ]], Cell[1343, 43, 232, 5, 35, "Text",ExpressionUUID->"dfd211f8-f721-4515-8b0f-6bad6df9bbad"], Cell[CellGroupData[{ Cell[1600, 52, 10197, 253, 934, "Input",ExpressionUUID->"a57bed39-3655-4f19-be3a-38fba1ccfb1e"], Cell[11800, 307, 4600, 89, 447, "Output",ExpressionUUID->"d416632e-fd0a-4a79-8324-5477a964acc7"] }, Open ]], Cell[16415, 399, 452, 12, 35, "Text",ExpressionUUID->"e0c5db18-22ff-4508-b0cb-90de3b70c9b4"], Cell[CellGroupData[{ Cell[16892, 415, 3113, 80, 115, "Input",ExpressionUUID->"724e3e92-4acf-4b70-8291-94cb4f3cbd1f"], Cell[20008, 497, 23542, 411, 267, "Output",ExpressionUUID->"5f569665-475b-4034-ba2a-6f761689d123"] }, Open ]], Cell[43565, 911, 232, 6, 30, "Input",ExpressionUUID->"a421d4d0-8c31-4f4e-aa56-a0ab8945e922"], Cell[43800, 919, 479, 13, 35, "Text",ExpressionUUID->"c66d464e-0e67-4de9-893f-76f8308ea507"], Cell[CellGroupData[{ Cell[44304, 936, 3125, 81, 115, "Input",ExpressionUUID->"7d421063-0b3b-4aba-8827-49f38e7197f9"], Cell[47432, 1019, 23585, 413, 267, "Output",ExpressionUUID->"1446ae43-173b-48c9-b156-8f0f1ac5bd2c"] }, Open ]], Cell[71032, 1435, 204, 5, 30, "Input",ExpressionUUID->"ba05416a-dcb2-41e5-8de5-3bf3396dd36c"], Cell[71239, 1442, 555, 13, 35, "Text",ExpressionUUID->"65a6ae54-fa65-4807-97e1-2a81cf38acc1"], Cell[CellGroupData[{ Cell[71819, 1459, 3485, 89, 115, "Input",ExpressionUUID->"321aa09c-ffbc-42c1-b1f9-17b1e9a0c50e"], Cell[75307, 1550, 18134, 321, 267, "Output",ExpressionUUID->"4b23d943-722c-4a4d-89c6-6da016225a56"] }, Open ]], Cell[93456, 1874, 154, 3, 30, "Input",ExpressionUUID->"e4d98ac8-06df-4ebd-89c8-6084355541af"], Cell[93613, 1879, 478, 13, 35, "Text",ExpressionUUID->"6cf94ce3-706d-4e5c-a305-1b5300d3ac61"], Cell[CellGroupData[{ Cell[94116, 1896, 3217, 85, 94, "Input",ExpressionUUID->"70c6d0a7-3b60-4499-96f0-eb86255061a5"], Cell[97336, 1983, 22418, 393, 267, "Output",ExpressionUUID->"c8dc0331-5e7f-47a1-9c67-b76f1cc7de66"] }, Open ]], Cell[119769, 2379, 427, 12, 35, "Text",ExpressionUUID->"d92087fc-03d7-448d-aa63-dd4ae06f5bc0"], Cell[CellGroupData[{ Cell[120221, 2395, 2918, 76, 94, "Input",ExpressionUUID->"7aaf7b20-eba7-44a0-8202-aa7f21bf4124"], Cell[123142, 2473, 18012, 321, 263, "Output",ExpressionUUID->"5a136a6a-63a9-4404-8f2c-304a548cb21e"] }, Open ]], Cell[CellGroupData[{ Cell[141191, 2799, 980, 20, 115, "Input",ExpressionUUID->"cc51f1d2-d412-4b29-8863-50aa816a57f4"], Cell[142174, 2821, 350, 7, 34, "Output",ExpressionUUID->"03d07721-bf8d-4d7e-9849-1cd00cfbb8d4"], Cell[142527, 2830, 350, 7, 34, "Output",ExpressionUUID->"4d22e8c9-3056-4116-805e-f47c9cad99d4"], Cell[142880, 2839, 350, 7, 34, "Output",ExpressionUUID->"7ca7f292-c9f4-46f6-8958-b8f46fc0c1f3"], Cell[143233, 2848, 350, 7, 34, "Output",ExpressionUUID->"cc9b0ee3-1bb8-4ef6-af82-aaae6281c7ce"], Cell[143586, 2857, 350, 7, 34, "Output",ExpressionUUID->"5835825c-d095-45fe-b8a1-146339b9786d"] }, Open ]] } ] *)