(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 28394, 670] NotebookOptionsPosition[ 27521, 649] NotebookOutlinePosition[ 27917, 665] CellTagsIndexPosition[ 27874, 662] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ParaTheory", "[", RowBox[{"phase_", ",", "sign_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Phi]B", ",", "\[Zeta]A", ",", "\[Zeta]B", ",", "Pjoint", ",", "IP"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]B", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"Indi", "[", RowBox[{ RowBox[{"t0", "+", "\[Tau]"}], ",", "0", ",", FractionBox["1", "2"]}], "]"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "phase"}]], RowBox[{"Indi", "[", RowBox[{ RowBox[{"t0", "+", "\[Tau]"}], ",", FractionBox["1", "2"], ",", "1"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Zeta]A", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Epsilon]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], "*", RowBox[{"\[Phi]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Zeta]B", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Epsilon]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], "*", RowBox[{"\[Phi]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "This", " ", "is", " ", "the", " ", "probability", " ", "of", " ", "detection", " ", "in", " ", "the", " ", "same", " ", "detector"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pjoint", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ FractionBox["1", "4"], SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"\[Zeta]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], RowBox[{"\[Zeta]B", "[", RowBox[{"t0", ",", "0"}], "]"}]}], "-", RowBox[{"sign", " ", RowBox[{"\[Zeta]A", "[", RowBox[{"t0", ",", "0"}], "]"}], RowBox[{"\[Zeta]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], "]"}], "2"]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", "\[Tau]_", "]"}], ":=", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Pjoint", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], ",", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "\[Tau]", "]"}], ",", RowBox[{"N", "[", RowBox[{"IP", "[", RowBox[{"-", "\[Tau]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", RowBox[{"-", "1"}], ",", "1", ",", "0.01"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"TheoryFeed", "[", "sign_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "phase", ",", "\[Phi]B", ",", "\[Zeta]A", ",", "\[Zeta]B", ",", "F", ",", "GHV", ",", "PJ", ",", "Decoh", ",", "Pjoint", ",", "IP"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"phase", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"t0", "<", FractionBox["1", "2"]}], ")"}], "&&", RowBox[{"(", RowBox[{"\[Tau]", ">", RowBox[{ FractionBox["1", "2"], "-", "t0"}]}], ")"}]}], ",", "\[Pi]", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]B", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"Indi", "[", RowBox[{ RowBox[{"t0", "+", "\[Tau]"}], ",", "0", ",", FractionBox["1", "2"]}], "]"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"phase", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]], RowBox[{"Indi", "[", RowBox[{ RowBox[{"t0", "+", "\[Tau]"}], ",", FractionBox["1", "2"], ",", "1"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Zeta]A", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Epsilon]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], "*", RowBox[{"\[Phi]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Zeta]B", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ RowBox[{"\[Epsilon]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], "*", RowBox[{"\[Phi]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "This", " ", "is", " ", "the", " ", "probability", " ", "of", " ", "detection", " ", "in", " ", "the", " ", "same", " ", "detector"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pjoint", "[", RowBox[{"t0_", ",", "\[Tau]_"}], "]"}], ":=", RowBox[{ FractionBox["1", "4"], SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"\[Zeta]A", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], RowBox[{"\[Zeta]B", "[", RowBox[{"t0", ",", "0"}], "]"}]}], "-", RowBox[{"sign", " ", RowBox[{"\[Zeta]A", "[", RowBox[{"t0", ",", "0"}], "]"}], RowBox[{"\[Zeta]B", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}]}]}], "]"}], "2"]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"IP", "[", "\[Tau]_", "]"}], ":=", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Pjoint", "[", RowBox[{"t0", ",", "\[Tau]"}], "]"}], ",", RowBox[{"{", RowBox[{"t0", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"N", "[", "\[Tau]", "]"}], ",", RowBox[{"N", "[", RowBox[{"IP", "[", RowBox[{"-", "\[Tau]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", RowBox[{"-", "1"}], ",", "1", ",", "0.01"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"ParaTheory", "[", RowBox[{"0.01", ",", "1"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"ParaTheory", "[", RowBox[{"\[Pi]", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"ParaTheory", "[", RowBox[{"0.01", ",", RowBox[{"-", "1"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"TheoryFeed", "[", "1", "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"TheoryFeed", "[", RowBox[{"-", "1"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.884537010647662*^9, 3.884537119241461*^9}, { 3.8845371552362823`*^9, 3.884537223841054*^9}, {3.8845372613553457`*^9, 3.884537275080669*^9}}, CellLabel->"In[96]:=",ExpressionUUID->"749af5e3-1ac2-4a67-bb57-5e2e9953a7a3"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdVwtQlGUUJTJy0EzLpFBRSQstSxAUG/e7RCrkK2VkcByaCgd0ikodBERS KR9F+GhyNJ9jgS9GCJQUHOOCoGKhoogLKyLLc2UBV0WSsib2u2eZ6J9h2J1/ v/vfe865595/VMTnIZHOTk5OF7v/7P/lsrHjU2aQOWFw5l22TswM3xwwdmr4 1rMPvcLv8oXTv3QUjc6b6mpMXWZwvcumr76Zk/T3M4Zcjw3W+bnt/N29BO/8 k8GGKH21c3BxtGdCbqxhsA7YzhHBwcHuVXsN9mhbz7ZxU9TCzaVhZwzLDfaI bbz+xBP+rw00GkbYw3m0cYrvy/mzDTbDpVL71crpizYFdy7uo1brgK18bIvb 5Mr5bmqsTrCVk72SAiIzvJROz2jlt4Y0uo+J8Vc63AYre5qH1fk1z1AT9dX9 faZxwL7oBcpebZC5hc9/q7Ksyz9SutytLey+cktVTGa0UrrgFnb2i5u7qSRW tepwdzie+yc/lZKkdu+yX3fYM8Dlx6SgZBWsA97hy+Zat67x36tOe7kPLfxl 4KLG3WF7VJo9vVQLzyxQaasHpaoQDaCFn29MWWx6Nl0JCxYed3DxoPpV2Ur4 aOZDAZvdl7ucUsJHM5tOjHF+v+JXSc+1mT8+e9M71KVICR9N/LghJC60+YIS Ppq4OtAt+8GeS0r4aOI5X0SMV27XlPDRyOcGHHhj6LUKpdNb1siGZRn9/P6p UjqcRyNHtye8d35njdJ0lDbwbcuVHYd/N4OPBn4h72TW8fgG8NHAOycVvhk6 qxl81HPG0jDnzikt4KOe5xTl/+U/pQ181HP64+ltwz1s4KOO/deGTo7ZfU9t 0wnWcWDZk6dfd30APurYM53ePRzZAT7MnJ0StSr04EPwYWZb7MiNjws7wYeZ 17xaUN+Z8wf4qGXvtZ99uiL+EfioZc+ovj5Hnu4CH7Xst2Pv8H4fdIGPWvY9 5DL6k8Qu4H+bJ+G+4F3Tc17wreEJiC943up5vuBXzR3IT6fjVc0/I//1Gp+b PAz11en0TfxOr/pNPAn4SL1VfBj4SX2VPBv4Sj2VfBT4i56MvAP8iH6MPAj8 iV5u8HXwK/qo4HDwL3qoYF/oQ6eXcJ0LoJ8bOlw5K+jLR/NbzgXQn/B5jW3Q p/B3lSOgX+HrKl+FvoWfMt4H/QsfZeyJ/hD8L/MA9I/gfYnnor8E31Jeif6r 1Qn/xsXozx80fhd5KPp3ng5YwnHo774anwtc7iv9X6DxOMeWGPGHRF1/MZ+B f/jqeovYA/4i9RVyP/iP1FPAHvAnyT+fE+Ffku8ZToW/SX55nAH/k3xOcST8 MV4/P4eXwD8t+nnZbIK/Zun4mZwTJP67Tcc7ytuLxJ/X6fNpHAj/LtC/38/R 8He5v513wf/l+3r+01vmg9P/LtynIT5yH+fpAM4jPs3oFT+NXsHzD0h+1IH8 5PeZ5IX5YZP6aN4SqU/O51AG6h8o+FAq8JF4eVQN/CYIvnQF+Er8fDoG/I8I PxQKfuR5hTQV/PkLvzQd/Ar+xfQT+Ic+qA76gH7ICP1AXxQLfUF/9BL0B32S Q5/QL8VCv9A3TYe+oX/q32t+lNEo9Af6h/ajf9BfVI7+Qv/Rh+g/9Cd1oD9F z+VkRP9WSn/TLPS36P86laL/R4o/0DT4Q7H4B0XAP5aKv1AN/KW/+A+9CP/J En+i/fCnBeJflA3/eiT+Rgvgb3vF/+gY/E8WFBP5wh8FTxO9Df+Ev5LDX+G/ lAX/hT/Tffgz/JvWwb/h793xxd/h/+Twf8wHmtx7fpBjfmC+kGN+YP70nMd8 Ih/Ex/wix/zAfOvJD/OPjiN/zEcagfowP2ka6pd5UteDj/BbT2nAb6PMZ5oB fIXv7vvAf5zMd9oCfoT/BnIFf5dlP6Ay8Ct6aKQQ8I/9ghz7BfYPKoF+sJ/Q bOgL+wvdgv6w39Aj6BP7D0VBv9iPqBr6xv5ER3rNDws59ivsX/Qc+gf7GTnm B/Y3WoP+w35HV9Cf2P/Isf9hP6Q16G/sj9QH+6Pw0UIjsV8KHy1U0mt+WGk0 /EX4sNL9WvEf4cNKg+FPwkcrhcG/hI9WWgF/Ez5aKRH+J3y00UL4o/DRRnHw T+zn1IL5gf2dvob/Yr8nhf0e+z8lwr/xfkC58He8P5AF/o/3C5o38b/zw0aO +fEvYhEslg== "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-1., 1.}, {0, 0.000024305353009934467`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.884537019952211*^9, 3.884537121832992*^9}, 3.884537183050499*^9, 3.884537226445629*^9, 3.884537277650094*^9}, CellLabel->"Out[98]=",ExpressionUUID->"defa357a-adad-4b05-a0f3-075e99b1702e"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdlntM1WUYxzH5A7FVQ7IbwxxUhqGZ2nCT85gzYImMmJYLakJxSWhATbnl hguyZQhtsQAvwyC0xbjNG0Q8gBjauMn9JnC4ngMcDo1xmQjWeZ/nvL/1vhvj fHfO7/k97/N5nu/7bg6JDgh9wsbG5t5/f5b/tGbR+qnIW5/oWGSWOii9dn5L kKbtu/JiPO01fcs5der9WzNSh4mlaUcRUNOWaOm1JqljPS0RNb3JEs5Z040N ljUtdZIIqOnXRYKaFul1TUktwqVqeqdYmrbs1ls/KbXYbrqmdWLDmp4W4YxS 52RblqZ9REBNL1i2O2+QOt+SXp6mA0QBNU3LoPCYUHhMKDwmFB7jCo9xhce4 wmNMapFejKZFOGdNCxwNowqPUYXHqMJjROExovAYUXgMS50hEhxWeAwrPPQK D73CQ6/wGFJ4DCk8hhQeQ0r9B9GjMjD047ZtnlTvAYz55fhibGmVJ9V3AM3n atxs/Rx0VM8HGPbivl9dtvrpqH796HWqdO++yiSdSGdLP0LZYcPZ85d1KaI+ fbiuVb8+17dGNyzS78U00+PNvq/162j/vZhjW7BmsHVOR/vtwT27zvyxYdQO aH/d2NzmthwX5wS0n24sHOn7oWLTNqB+6sLnn76b1dXjCdQ/XXi0+8OzvvMH gfqlEx39jn2QN3MUqD86cGHO3HH+YChQP3Rg4kWf4JTTsSDSS2zHgrIrgd3N SdApwrWhe82NE/GRqfCW4NuGaYnrL7vbZwDxbMXGmYcf/f75z0D87mP4fFn4 OyW5QLzu46UdR1xHva4A8WlBF6cvT0a2FANRaMHAI5Z1Haj+TRi9I/141EuV QPVuxKyYoIVvdtcC1bcB/YMPFHnvqYchkfDf2OlReXvOvRGyRP3uYY8uOTDB oRX8RcC7mHnSeCLy2U6wE/Wpx8R3T1fY5fVCtajHHQzYP+morxiEr8X+63B/ +sVHbxQOwy6x39sYv+Hm7CvlY7y/GsxcPvPXpysG3k813vjxE9vU6GnOvwq/ CDG5GtfMcr6V6LQu4s7bnf9wfuWY4DDu1VQ4x/ncxJUXHmRvPDUP8eL913D3 4nfvLXkugkG8rxRL++38XMeXoETEL8LRz8wHgqMeQoaI9xsW+/xp6qtfhmTx fD66bV27PW72EVSL31/CirUTq88NrvD3P6HL9oFkY9oq6xQ8lF22nLm0Cta5 6I91qo91emz9Hqzf8/NgfZ7jw//j54P1/bmUH1zl/Oj3RTDE+c/S/qCY90fP XwN33v8zVB9Y5PpQvHL4iuv3JtUXNnJ9KX4VhHP9rxIfKGA+9L4a+J75eRBf iGK+VP868GH+3B/gz/3B/QPW/uH+Amt/cf9BH/cf9ye0c39y/0IA9y/3N+Rw f3P/Qyz3P88HBPF88PzAqzw/PF9wgeeL5w8ieP54PqGZ55P6uQ0SeH67ab5h A8839X87JPL8v0z+ACHsD3XkHzDO/hFB/gKmQ+QvT5L/gCv7Twn5Eww+Rf50 mPwLoti/lsjf4Bz72wXyP5jcSf63l/wRkP2R6tkL19k/2V/B6q/sv6Bj/2V/ hmPsz+zfEMX+zf4Oy+zv7P8Qxv7P5wP48vnA54ecEz5fpObzR2o+n6Tm80tq Pt+k5vNPaj4fpebzU2o6TzRNfEek/pbOZ6mJt6bd6HyXmvhruonuB1JTP4xJ zfcLqfn+ITXfT6Tm+4vUfL+Rmu8/UvP9SGq+P0lNy6DwMCg8DAoPg8LDqPAw KjyMCo9JhcekwmNS4TGl8JhSeEwpPKYVHtMKj2mFh0nhYVJ4mBQeMwqPGYXH jMLDrPAwKzzMCo9Zqf8FJzDYOg== "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-1., 1.}, {0, 1.944444444444449}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.884537019952211*^9, 3.884537121832992*^9}, 3.884537183050499*^9, 3.884537226445629*^9, 3.8845372789071503`*^9}, CellLabel->"Out[99]=",ExpressionUUID->"87af1a12-093e-4f79-bb9b-1eaa4bb98db2"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxVVwtQlOcVVcwYh2iEBZRWi9goQaYYSmJILOxp0gzkYRrjFNMotOIrKqRI bSNjQsZEEpMpDFpNKmiMRmONBYKEEXGE6wMkKEHer6DCLstjWVYMYqgI1P2+ 82em/8zOwvz73//ee+4953xzVycuW+c2YcKEivsf17e+BsT4KzeqY5t37k1Z 8cAznUF1fhExGReGAmNuyuQiSw5O5ka4Nx3ZHOF+Uw4989vgrpfdzKf9Puh7 9bRT3E5fDPshyGxery6nTHy6+IrpbLzZWwV0ysjGxdMT9+82u6JlXOiXpOd8 CnYsOWlOUhH7JSHlq4l+j1aa57jC+fXL0o+m7iyptZq/q3RdDvE/kjVotw6b 31YBHZKzbttrL2ydigUqQYecWu0Z+vEcP6j0mvrktZaUvGMtwVDhPuiThd6O s35Dv8Hj6uqThJCAlG3O5+GqNqrDLrv2+P6Q/FI0VLkZdnFerMt/4704mFXB djnjk3n5xNV4OFS4XrmT/Z/Y6Pi/IyvTdfXKWy0fv+7lvh3Pq4C94i1TxlM3 7sQdV7lDPWLy8PUIyNuFo670jvSIf2/sxJLIf2GZamCPeEYXLw+r/hwahR7J Cs2IC43+EhqPbllxLzvWPCsbGo9uSf7LuP/6RfnQeHTLwdHMw3OfLoTGo0ue fNFz6GJwMTQeXVKWniYrTReg8eiS+llvRkX5XILGwyYLe16cce2Ly1DpbbaJ PWi7b86Zq1Dh/GxSjaa1D2fXQsFR2SmdtjdedytqgMajU4KyftmweLSZeHRK SGjBm8sT24iHVXxX/WivmthOPKwSM+2xtJ81dhAPqzjDTrjnZluJh0Wqz99e O/iODbtUghYJ3PHYk7UR3cTDcr++M++P2HqIR4eY/vrc3UUJduLRIRvCSzfm lvcRjw45scanLGrAQTzapS3Q7eHu6/3Eo128r6QnFaY7iUe7+PzpQMSaYSfx aJeqBZFV5tk32f8bMmmVvq/7fV2ePbxbPa/7e13u7tur4ut+XpNPf3Wo0vV+ 3b826TwbftiVn0onsE32hox6hd3PP1X153t59GVLw/j9+iwq/VZZsLfhhfaf 6m8V37J891kpNtbbIlMC/pvlmWNlfc2S3+WMGr3fX11Ps9QEH+rKm9TOeWqS R9ZmWSvfauP8NIkpcsPbix5q4bw0yrzIknsDNQ2cjwb5es6OA1821nIeGqQz rOyzmEeqodLbVi/F8wNbVr53BY0qXJ3U7/y2aiy+HKEK3zqZPJqz5bBXKfGs lQG3nnUzU88Tvxp5NXlL9LO7hXjVSOSDQY83NxcTn2pZnDbdXj9UTDyq5Zhz 9ofOcWH/q2TV7+b4Fz94gf3+TiT4o1Mr/crY30qJXhO1eckrFWhXCV+WS6XZ XmlHq7BP9a9CjqcvuVPxz1osVQG/lZfmr7riG9+IKao/5XJs6wyP462tOKf6 USatva90Wq/dwDuq/lJJ2z+jqPaUBU+oei/KA7HLM+LExvrOy9i+P2+yTOhl PeckLbPi4OokB/MvkW+CTEfi3AaY71mZfvruN4mNt5hfkZgm1wR1Zw8yn0J5 PzZ8h3/KEJLV+wtkU2HC1ZGIH9Gj3ndSBmfWrJ7fNYw8FT9X/OfG/iMu4S52 qXhfyYxl+0e+Lx/BdvX8Ufl9qy1k68A9nFO/Pyipnz80PvPGKO/vla/n3dje mz7G/1OlIjN/5JPhMRi60ZY0uzxp9rhxH8Z9Pg/jecbH/8c/CuP9h3R+8GB+ +ve58GP+A7o+3GJ9+vkCrGf9Hro/eJf90fGKMI39C9H9hTv7q+OXIJv9P67x wbvER7/vPG4Tv6c0vhiO0fjq/pdiD/HnfKCZ88H5gTE/nC8Y88X5w785f5xP lHE+Ob8w5pfzDWO+Of8w5p/7AWM/uD8I5/5wvxDF/eL+YSn3j/uJW9xPPc91 MHF/m/V+w8L91vNfj8vcf3/ND3CSH0o1f6CA/LFB8wtCyC9TNf/g5+SfPM1P +DX56Q+av9BI/hrW/IZT5LcDmv8wjfwXrvkR3uRH3c9WBJI/ya+YR34l/+JT 8i/5GR3kZ/I3PiF/k98xRn4n/8Pgf+oDDH2gfuAq9YP6gpnUF+oPDP2hPsHQ J+oXsqlf1DcY+kb9g6F/1Ec8QX2kfiKI+qn1xIJK6qvG14oe6u+HWp/xR+qz xtsKE/U7SOs7AqjvGv9O/IL6X6X9AaroD/Q82HCO/oH+Aoa/oP9AKP0H/Qnq 6E/oX3CJ/oX+BiH0N/Q/OED/Q38Ewx/RPyGG/on+Coa/ov+CB/0X/RkC6M/o 3+BJ/0Z/B8Pf0f/hb/R/9IcYpz+kf0QJ/aPGw47b9JcaDzv20H9qPPqQSH+q 8ejDoJf2rxqPPgTQ32o8HEim/9V4OLCe/ljj4YD9C+2fNR798KC/1nj0YwX9 N/05ttCf07/DtEn7d/p73HlK+3v6f/QXav/P8wHSeD7g+QELeX7g+QKfTdLn C54/ftKR/wELlGhg "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-1., 1.}, {0, 1.944444444444449}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.884537019952211*^9, 3.884537121832992*^9}, 3.884537183050499*^9, 3.884537226445629*^9, 3.8845372815024433`*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"d2dc88e1-4ae7-4468-a92b-7fcaf4b1a3fa"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdlntM1WUYx/HyB6mlU8tNGeqipRheypotOK+WKTOG5dQumhNLJWEJbqAh brhQ2qzAzfJuJpq22BkwFnj9Ct4dKorAUQ9yDofLuR+2QlmW5Xmfp/fM590Y fHc4z+95v5/n/b6/8SvWLljZPyoq6sqTn/BvWj34/y/rXGfeSGsIVaeXrPy0 MTZpaXFd74SlIaw7tOZhdoU1aVBLaVbSoBAmFtfGD0ztb6mJ3eL7oCaIvtEz j7w4yWJZpVcQtk0ViTNPZVhG6oJBvFO50L1t73ZLuFpxXQBXbjoHH0ypsGTr igF8Gfh3fMrL9Zax4XKxAfw48Jd+bbdclmv14eXH5OlFJ0d09Fk26oJ+tDbG P1q/foiaqBv0o8Z179sTY2OVbq/Fh3FDL+9quZOgdLktPqyyfbgtpfct9Zpe PsSkLl9cGkxW4d3OdXrx7J+hpr3vLVJ6u8Ve5O9PTivcnKYsesNeHK08usR2 I0P5dTkPhtX+nrMhI0ft2R1eHmzMG/xzwqAClawLetAc/OuT374oUg/C2+11 I7O3cvWs8hJ1ONxeqRv7pi2K65izUy3QBroRH7MuN6PhJ0UU3Fi+KLyOKOLR jZxpxWsyx5Qp4tGNA1lLH3z9eqUiHt1YnDbbOvfNakU8umCfcercHwmnFfF4 oi0FS74aXqeIRxf25HpyMp6/qIhHJzLf3XwiuvSq0u1ldWL2296RzhM3lC4X 24l5xfv/fqXsltI46jtQOKK656XjTYp4dGDno6KLn/1jYx4dqNy+bOCWtXbm 4ULWikCcp5+Debgw+pn0C280O5mHC3nDu+ZcL3Mxj3bkT23d/cKmTlWiG2zH lIffzOtL6mYe7aiyR6fGdbmZhxNtn4dmp2V6mYcTx5JPB+5d8jEPJ+InDZiy vsfPPByoGdD9eFRbgHk4EDflfoHnuyDzcCB1d+WjH/qCzMMBe3bMpeyYEPvf hvn8Ofl933yf/L2Paq5PfrZiMj+f/LOjjPvT7Uyww879F2p/7sHK+2vX7d/F tKf2fxc57A/t9w42sH+0PxvGsL+0Hxsy2X+apxZYmQ/NTwt2MD+al2bkMF+a jybMYv40D02YwfOh28u7jdU8P826XCO28ny9qvk2op7nj3jewg2eT+J3E/N5 fonXTezi+SY+DUjn+SceDfiYzwf5fx1xfH7I72s4xOeL/K3HSj5/Dt3wVVzm 87lL+3cFuXx+39cFL2Mon+9o7c8lZPH5P6v9uIBlnA/5ev/nEcX5MV3v9xxG cb7Q/mqRwvlD+zmLx89RPlH/Z3CU84v6PYUGzjfq7zimc/5RP9VYzfm4QT+/ Cimcn279vArUcb6W6/pW2Coof0t0vV/xOJ/yuUB//zD2cH6f1f9/AO7vKd/p 8x1I5PwnXYiPTtL9ECUWf66e1juM5vri88NGH6T+xP9bje6h/YnvVxk9jPwR 9Y4bPZX8FfXPGH2M+Ijn1Ro9g/gaTf6fj9Sj+TCa58doni+jef6M5vk0mufX aJ5vo3n+jabVYDSfH6P5fBnN589oPp9G0zw3Gm2j8200zf9to8dRPhh9nvLD 6HTKF6OHUP4YXU75ZPRCyi+j+yjfjN5H+Wd0IuWj8DOiOV+Fv3ajOZ+F361G c74L/yOa7wfBw2E03y+CT0Tz/SR4OY3m+03wi2i+HwXPiKb7pF3wdRm9le5n wTui4+l+F/wj+jq9H4h56BR+RjS/fwh/u4zm9xfhd0Tz+4/wP6L5/UnwcAse bsHDLXi4BQ+P4OERPDyCh1fw8AoeXsHDJ3j4BA+f4OEXPPyCh1/wCAgeAcEj IHgEBY+g4BEUPEKCR0jwCAkePUb/B7j00xk= "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-1., 1.}, {0, 0.9722222222222245}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.884537019952211*^9, 3.884537121832992*^9}, 3.884537183050499*^9, 3.884537226445629*^9, 3.8845372828239603`*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"9acb3596-71d3-40a3-a9b2-21537c6592e9"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdVw9QlHUaJrVC7a5G6Y8dkR1qRpqY2lDn7uN5pnSZlpdnk8YInca1OICN qMs5h6cczpihN3iKlEmQ2kQojGlyyI9/hqIgLgErLrL/d4EF9sZQTlJvv/f3 7n4z3zfDLM98+73f+77P+3ued59LSl2xblRYWNjFwJ/yKS+/CP5XusRmjCgd DOE1ubVD09eoeFxHUZpunIp/iMrue+eHgRBeT5eKIyigipVoubX9IZyuUyKq +FklXJSKmy4rly+EMymgil+gBFVM6XX0hTCFy1bxHLpUrFS7xNYbwlRuror1 VLCKfRSuJ4QP5SuXiuMpoIpvKeUOeUO4WEmvSMUrqIEqlpdXw4dHw4dHw4dH w4dbw4dbw4dbw4crhCm9NBVTuCgVEx2XnRo+nBo+nBo+HBo+HBo+HBo+7CG8 lxK0a/iwa/iwafiwafiwafiwaviwaviwaviwavrfLeIqV6/7oPUlnez3DZH2 1ce308uqdLK/N8TgZzUxY5ZN0Mt+don1Ty/4OvrFZXrZP4tYvK1s/oLKTD2l M90iUP6ud3dBoX4n9ee6GGuyjT+ytEZvp/Q7xZ7++88tfd6il/V3ikNjjj7Q bbqpl/VeE6/OzfnPRGc4ZH1mcaU1ZmTz5kjIesyixHH904pnX4Kcpw7x1KMX DnZc00HOT4d4z7xq99KhNyHnpV1ELFv756KB9yDno03cujnYVvDmOsh5aBPG L+ITd25PB6Vn/EkcLT+22nwlE+0UrlXMrDm9aYshGy8Tv61ij3F84cxxeyH5 NImmgTvvf/vXA5D8XRUfDZV/9PuTRyD5uioOz145xbn4GCQ/LSI6cmOGoeUE JAstYvVK5foesv/NInV27scpv6mE7HeTOJi25taOebWQ/b0s3k5cVLrk1QZY KeFG0R5XWXdzZhMOUv8uimv6rNVbJ5jwNgW8IPZn9GwyPN6OcOpPgzC+vr0i vKgT1dSP82LFwt4IW0U3/kb114uFuV/8MqPEjrlUb53YMvGMf+pZF9dXI/aP 5Pz44V0v11MtTu9LGJOd6uP8q8SGpP4pPQ/4Od9KETk2+fwr7f/l/M6KrRPc i5tLbnI+Z8TdSV35T2wbwhZ6/ykx7/auPw7rbsNL7ysTZZbwZVPcwzhJ8UuF 8y+DixJT7mAvxftGnIg/13+9YQRZ9HyxiHlx9KzN/l9QTd8/LCpGe+492X2X 7+eJ6Fk3snr23GO8U7yVXz6yf/gegufCkh7ZkB55P3gfjXyfn8epKd30PMdH /Zfj76vxi5Hc5YpV3n9E5odLyQUjSn7y+6X4R94Hu5X8/bI+bOgyJU0N1Cef P4X0zI1XRgL1Pyb7g/iypTsmB/oj453Fnab/xXgC/YuV/cWG+6tOpQb6K+NX oW1/R1HiKD+OS37wQpS5MCndx++rQfb6SWn2sB7ESX7x928/zU8ULu5/PRbm 7Go0nbYH5wM5rSXPOLu6g/MDS16c4XhnZ3C+UPBO9apJhvbg/KHk0K4Ljf8y BecTVR7D1s+Km4Pzi3vitevLl18MzjcuPOExro06H5x/zLc8Xlz3cG3wfOBB +qwOnh/UHc3y9w2dC54vJI/NCb9lPhc8fwizPJOUvE8EzycWGnVvzdpZw/Pc immlhY+KifUwy/ONYvuiu79NaeD5/wkP7UjYlrP9EiZLfcDnf7hTkBHdgnqp H3g59Y259e0mJEt9Qcsnv8qLMLXhEak/2HWsKSVh/DWclPqEqrpFxpEMC96V +oXY2H9PvjTaimGpb5hvf3770x02fC71Dx+GzeuY/Z0D86U+4sScAui3ubif nYgLn5XwkN4D1ldUdMcWTnd7ub8WGKOPJySl9IL1GXEX5021NPRxv7sw7ec9 r2z2+8D6DucnWwPz28/9v4G1D9oD8z0A9gcsKFDmf4D5sKKLzscg67EVy/Pl ffYfTKPzNcD6bYU8f/3Mlw0z6Hz6wP6Gb+j89jF/NljpfPeC/RHf0/n3Mp92 xJI+eCD9xI6MWEU/XMyvAxtJXxz4p/RnPEn6Y2O+HUgmfbIiRvo7jpN+WZh/ J3aTvpnRLPcDpJH+tfE8uPAa6aOJ++nC66SfV9hfXEglfW3k/rpxgPT3R/Yj N7pIn2u5326YSb/PsX958CfS9zPcfw8Ok/6Xs995kEH+UMJ8eLGW/ONr5iMw B+QvXzIfXnxF/nOA+fDCQP60l/noQTv5Vw7z0YNM8rcs5qMHT5H/bWI+evEd +aOB+ehFFvlnIvPRi8d+Vvx1JfPRhyjy33jmow8zyJ9/x3z0wf9rxb9nMh8+ ZJK/RzEfPuSR/z/CfPgwPEfZD4b1ko9+rKT9wcH7ST8SaL+4rOf9HJeuKvtH mZ73d7xP+8k+Pe/3aKb9xaDn/R9W2m94PRk3iIhcZf8ZpeffDzhE+1Gpjn9f YJj2pyid5MMf8pH/A5Alp0M= "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-1., 1.}, {0, 1.944444444444449}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.884537019952211*^9, 3.884537121832992*^9}, 3.884537183050499*^9, 3.884537226445629*^9, 3.884537284429893*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"305e1e67-e935-4620-a2d5-132c0272c226"] }, Open ]] }, WindowSize->{808, 746}, WindowMargins->{{12, Automatic}, {Automatic, 24}}, FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"82bf8c6b-86be-4f2d-8898-ccb3e51569a9" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 8901, 234, 1015, "Input",ExpressionUUID->"749af5e3-1ac2-4a67-bb57-5e2e9953a7a3"], Cell[9484, 258, 3629, 76, 251, "Output",ExpressionUUID->"defa357a-adad-4b05-a0f3-075e99b1702e"], Cell[13116, 336, 3274, 70, 251, "Output",ExpressionUUID->"87af1a12-093e-4f79-bb9b-1eaa4bb98db2"], Cell[16393, 408, 3937, 82, 251, "Output",ExpressionUUID->"d2dc88e1-4ae7-4468-a92b-7fcaf4b1a3fa"], Cell[20333, 492, 3287, 71, 251, "Output",ExpressionUUID->"9acb3596-71d3-40a3-a9b2-21537c6592e9"], Cell[23623, 565, 3882, 81, 251, "Output",ExpressionUUID->"305e1e67-e935-4620-a2d5-132c0272c226"] }, Open ]] } ] *) (* End of internal cache information *)