CHSH-NA-v1.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    209558,       4440]
NotebookOptionsPosition[    205994,       4374]
NotebookOutlinePosition[    206395,       4390]
CellTagsIndexPosition[    206352,       4387]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Psi]", "++"], "(", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"]}], ")"}], TraditionalForm]],ExpressionUUID->
  "0ba18cbf-c377-486d-8a59-b0c9ddee1db8"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Psi]", 
     RowBox[{"+", "-"}]], "(", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"]}], ")"}], TraditionalForm]],ExpressionUUID->
  "e907d7d2-33f8-43e9-9fc8-c221a4b0d787"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Psi]", 
     RowBox[{"-", "+"}]], "(", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"]}], ")"}], TraditionalForm]],ExpressionUUID->
  "73de7b75-0161-40b6-a35e-6b7ef03e7a7d"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Psi]", "--"], "(", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"]}], ")"}], TraditionalForm]],ExpressionUUID->
  "3727a46f-103d-4981-8fba-34585809a646"]
}], "Chapter",
 CellChangeTimes->{{3.8015811511937137`*^9, 3.8015811654972963`*^9}, {
   3.801591183718176*^9, 3.801591212144122*^9}, {3.801600630531561*^9, 
   3.8016006348240843`*^9}, 3.80165465859727*^9, {3.801654755645492*^9, 
   3.801654805403366*^9}, {3.8016555095484066`*^9, 3.801655538612647*^9}, 
   3.8017338208348455`*^9, 
   3.801823285989793*^9},ExpressionUUID->"4f2e3ca6-c506-4644-acf8-\
89f0096d0293"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]1", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", " ", "+", " ", "\[Sigma]2", " ", "+", " ", 
          RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"]}], ")"}], "2"]}]]}], 
     RowBox[{"4", 
      SqrtBox[
       RowBox[{"\[Pi]", "  ", 
        RowBox[{"n", "!"}], " ", 
        SuperscriptBox["2", "n"]}]]}]], 
    RowBox[{"HermiteH", "[", 
     RowBox[{"n", ",", 
      FractionBox[
       RowBox[{"x1", "+", "x2"}], 
       SqrtBox["2"]]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]2", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", " ", "-", 
          RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"]}], ")"}], "2"]}]]}], 
     RowBox[{"4", 
      SqrtBox[
       RowBox[{"\[Pi]", "  ", 
        RowBox[{"n", "!"}]}]]}]], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "n"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", "2", "\[Theta]"}]], ")"}], "k"], 
      FractionBox[
       RowBox[{"Binomial", "[", 
        RowBox[{"n", ",", "k"}], "]"}], 
       SuperscriptBox["2", "n"]], 
      RowBox[{"HermiteH", "[", 
       RowBox[{
        RowBox[{"n", "-", "k"}], ",", "x1"}], "]"}], 
      RowBox[{"HermiteH", "[", 
       RowBox[{"k", ",", "x2"}], "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]3", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", " ", "+", " ", 
          RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"]}], ")"}], "2"]}]]}], 
     RowBox[{"4", 
      SqrtBox[
       RowBox[{"\[Pi]", "  ", 
        RowBox[{"n", "!"}]}]]}]], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "n"], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "2", "\[Theta]"}]], ")"}], 
       "k"], 
      FractionBox[
       RowBox[{"Binomial", "[", 
        RowBox[{"n", ",", "k"}], "]"}], 
       SuperscriptBox["2", "n"]], 
      RowBox[{"HermiteH", "[", 
       RowBox[{
        RowBox[{"n", "-", "k"}], ",", "x1"}], "]"}], 
      RowBox[{"HermiteH", "[", 
       RowBox[{"k", ",", "x2"}], "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]4", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n"}], " ", "\[Theta]"}], ")"}]}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"]}], ")"}], "2"]}]]}], 
     RowBox[{"4", 
      SqrtBox[
       RowBox[{"\[Pi]", "  ", 
        RowBox[{"n", "!"}], 
        SuperscriptBox["2", "n"]}]]}]], 
    RowBox[{"HermiteH", "[", 
     RowBox[{"n", ",", 
      FractionBox[
       RowBox[{"x1", "+", "x2"}], 
       SqrtBox["2"]]}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Psi]", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"]}], ")"}], "2"]}]], 
      RowBox[{"4", 
       SqrtBox[
        RowBox[{"\[Pi]", "  ", 
         RowBox[{"n", "!"}]}]]}]]}], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "0"}], "n"], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", " ", "+", " ", "\[Sigma]2", " ", "+", " ", 
            RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"\[ImaginaryI]", " ", "2", "\[Theta]"}]], ")"}], "k"], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", " ", "-", 
             RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "2", "\[Theta]"}]], ")"}], 
          "k"], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", " ", "+", " ", 
             RowBox[{"n", " ", "\[Theta]"}]}], ")"}]}]]}], "+", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "n"}], " ", "\[Theta]"}], ")"}]}]]}], ")"}], 
      FractionBox[
       RowBox[{"Binomial", "[", 
        RowBox[{"n", ",", "k"}], "]"}], 
       SuperscriptBox["2", "n"]], 
      RowBox[{"HermiteH", "[", 
       RowBox[{
        RowBox[{"n", "-", "k"}], ",", "x1"}], "]"}], 
      RowBox[{"HermiteH", "[", 
       RowBox[{"k", ",", "x2"}], "]"}]}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.765201640263876*^9, 3.765201820302681*^9}, {
   3.765201868722091*^9, 3.7652019917947283`*^9}, {3.7652020236193075`*^9, 
   3.7652020558401127`*^9}, {3.7652021123417587`*^9, 
   3.7652022067752633`*^9}, {3.7652022718899803`*^9, 
   3.7652023031254253`*^9}, {3.76520237853159*^9, 3.7652025181759253`*^9}, {
   3.765202680337906*^9, 3.7652026894425745`*^9}, {3.7652028208588824`*^9, 
   3.7652028510884514`*^9}, {3.7711815076153903`*^9, 3.7711815243672047`*^9}, 
   3.7728246181644487`*^9, {3.7729696034724607`*^9, 3.772969603632615*^9}, {
   3.772972624889949*^9, 3.772972639856269*^9}, {3.775989714474778*^9, 
   3.7759897245757627`*^9}, {3.775989755891261*^9, 3.7759899572790017`*^9}, {
   3.7800018199658747`*^9, 3.7800018301719074`*^9}, 3.801654658596272*^9, 
   3.8016547039178886`*^9, {3.8016547721992025`*^9, 3.8016547773783493`*^9}, 
   3.801733820835845*^9, 3.80173478732257*^9, 3.8018232859908237`*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"16d3ff04-b1d7-46c2-aee9-320ee04be3d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["CHSH Inequality (without binning)", "Chapter",
 CellChangeTimes->{{3.7797087965746374`*^9, 3.7797088193974075`*^9}, {
   3.8021698195291786`*^9, 3.8021698247736316`*^9}, 
   3.812709811172806*^9},ExpressionUUID->"563becd5-d82e-44cd-b504-\
ac4ab89e9c31"],

Cell[CellGroupData[{

Cell["Without Binning and Without Losses", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.801734027957523*^9, 3.801734032345787*^9}, 
   3.80173409592467*^9, {3.8127098219890213`*^9, 
   3.8127098262947845`*^9}},ExpressionUUID->"d07c7bb1-0ecb-43bf-98ee-\
4e50a59177e0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Expec1", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "i", ",", "j", ",", "k", ",", "l", ",", "e", ",", "f", ",", "g", ",", 
       "h"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "=", 
       RowBox[{"\[Psi]1", "[", 
        RowBox[{
        "n", ",", "x1", ",", "x2", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
         "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"j", "=", 
       RowBox[{"\[Psi]2", "[", 
        RowBox[{
        "n", ",", "x1", ",", "x2", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
         "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"k", "=", 
       RowBox[{"\[Psi]3", "[", 
        RowBox[{
        "n", ",", "x1", ",", "x2", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
         "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"l", "=", 
       RowBox[{"\[Psi]4", "[", 
        RowBox[{
        "n", ",", "x1", ",", "x2", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
         "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"e", "=", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{"i", "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "j"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "k"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "4"], "l"}]}], "]"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"f", "=", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "i"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", 
            RowBox[{"3", " "}]], "j"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "k"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", 
            RowBox[{"3", " "}]], "l"}]}], "]"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"g", "=", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "i"}], "+", 
          RowBox[{"\[ImaginaryI]", " ", "j"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", 
            RowBox[{"3", " "}]], "k"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", 
            RowBox[{"3", " "}]], "l"}]}], "]"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"h", "=", 
       SuperscriptBox[
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "i"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "j"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "k"}], "+", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], "l"}]}], "]"}], "2"]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"N", "[", 
       FractionBox[
        RowBox[{"e", "-", "f", "-", "g", "+", "h"}], 
        RowBox[{"e", "+", "f", "+", "g", "+", "h"}]], "]"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"S1", "[", 
    RowBox[{
    "n_", ",", "x1_", ",", "x2_", ",", "\[Theta]_", ",", "a_", ",", "b_", ",",
      "aprime_", ",", "bprime_"}], "]"}], ":=", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"Expec1", "[", 
      RowBox[{
      "n", ",", "x1", ",", "x2", ",", "a", ",", "b", ",", "\[Theta]"}], "]"}],
      "+", 
     RowBox[{"Expec1", "[", 
      RowBox[{
      "n", ",", "x1", ",", "x2", ",", "a", ",", "bprime", ",", "\[Theta]"}], 
      "]"}], "+", 
     RowBox[{"Expec1", "[", 
      RowBox[{
      "n", ",", "x1", ",", "x2", ",", "aprime", ",", "b", ",", "\[Theta]"}], 
      "]"}], "-", 
     RowBox[{"Expec1", "[", 
      RowBox[{
      "n", ",", "x1", ",", "x2", ",", "aprime", ",", "bprime", ",", 
       "\[Theta]"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8032154230334053`*^9, 3.8032154264971437`*^9}, {
  3.8032162960119333`*^9, 3.8032162993699493`*^9}, {3.803217276390397*^9, 
  3.803217279576833*^9}, {3.8032240312957478`*^9, 3.8032240343814993`*^9}, {
  3.803317647556487*^9, 3.803317655126238*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"5f2253f2-92c1-4104-a97f-85b1f65bf2ad"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Effects of losses", "Chapter",
 CellChangeTimes->{{3.8015811511937137`*^9, 3.8015811654972963`*^9}, {
   3.801591183718176*^9, 3.801591212144122*^9}, {3.801600630531561*^9, 
   3.8016006348240843`*^9}, 3.80165465859727*^9, {3.801655561421625*^9, 
   3.801655591056334*^9}, 3.801733833480968*^9, 3.801739909225475*^9, {
   3.8018275726069174`*^9, 
   3.8018275745886145`*^9}},ExpressionUUID->"ccc4e7e1-606c-4c21-a605-\
025fd2b3d5db"],

Cell["\<\
Work done in the file \[OpenCurlyDoubleQuote]Calculations for the effects of \
loss v3.docx\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.8116793413853865`*^9, 
  3.8116793682374067`*^9}},ExpressionUUID->"79aab984-0d60-438e-928b-\
c540e66b15b5"],

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{"Assumption", ":", " ", 
   RowBox[{
    FormBox[
     RowBox[{
      SubscriptBox["\[Psi]", 
       RowBox[{"+", "-"}]], "(", 
      RowBox[{"x", ",", "x"}], ")"}],
     TraditionalForm], " ", "and", " ", 
    FormBox[
     RowBox[{
      SubscriptBox["\[Psi]", 
       RowBox[{"-", "+"}]], "(", 
      RowBox[{"x", ",", "x"}], ")"}],
     TraditionalForm], " ", "amplitudes", " ", "are", " ", "negligible", " ", 
    "after", " ", "post", " ", "selection", " ", "on", " ", 
    FormBox[
     RowBox[{"x", "=", 
      RowBox[{
       SubscriptBox["t", "A"], 
       SqrtBox["N"]}]}],
     TraditionalForm]}]}], ")"}]], "Text",
 CellChangeTimes->{{3.8018275788182955`*^9, 3.801827581141079*^9}, {
  3.8127098623937845`*^9, 
  3.8127098646241446`*^9}},ExpressionUUID->"4f1bb4c9-ef43-4364-abdf-\
3a909890e931"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"\[Phi]a_", ",", "\[Phi]b_", ",", "tA_", ",", "tL_", ",", "R_"}],
      "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Alpha]", "=", 
        RowBox[{"tA", " ", "\[ImaginaryI]", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["tL", "2"]}]], 
         FractionBox["R", 
          SqrtBox["2"]], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]a"}]]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Beta]", "=", 
        RowBox[{"tA", " ", "\[ImaginaryI]", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["tL", "2"]}]], 
         FractionBox["R", 
          SqrtBox["2"]], 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"\[ImaginaryI]", " ", "\[Phi]b"}]]}]}], ";", 
       "\[IndentingNewLine]", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"Abs", "[", "\[Beta]", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"Abs", "[", "\[Alpha]", "]"}], "2"], "-", 
           RowBox[{"2", 
            RowBox[{"\[Beta]", "\[Conjugate]"}], " ", "\[Alpha]"}]}], 
          ")"}]}]]}]}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "already", " ", "squared", " ", "because", " ", "of", " ", "two", " ", 
    "modes"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", 
    RowBox[{
    "m_", ",", "n_", ",", "x_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", 
     "\[Theta]_", ",", "tA_", ",", "tL_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"outPhase", ",", "\[Psi]", ",", "\[Phi]"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"outPhase", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", 
           SuperscriptBox["\[ImaginaryI]", "2"], ",", 
           SuperscriptBox["\[ImaginaryI]", "2"], ",", 
           SuperscriptBox["\[ImaginaryI]", "4"]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[ImaginaryI]", ",", 
           SuperscriptBox["\[ImaginaryI]", "3"], ",", "\[ImaginaryI]", ",", 
           SuperscriptBox["\[ImaginaryI]", "3"]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[ImaginaryI]", ",", "\[ImaginaryI]", ",", 
           SuperscriptBox["\[ImaginaryI]", "3"], ",", 
           SuperscriptBox["\[ImaginaryI]", "3"]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox["\[ImaginaryI]", "2"], ",", 
           SuperscriptBox["\[ImaginaryI]", "2"], ",", 
           SuperscriptBox["\[ImaginaryI]", "2"], ",", 
           SuperscriptBox["\[ImaginaryI]", "2"]}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Psi]", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"outPhase", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", "1"}], "]"}], "]"}], 
          RowBox[{"\[Psi]1", "[", 
           RowBox[{
           "n", ",", "x", ",", "x", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
            "\[Theta]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"outPhase", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", "2"}], "]"}], "]"}], 
          RowBox[{"\[Psi]2", "[", 
           RowBox[{
           "n", ",", "x", ",", "x", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
            "\[Theta]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"outPhase", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", "3"}], "]"}], "]"}], 
          RowBox[{"\[Psi]3", "[", 
           RowBox[{
           "n", ",", "x", ",", "x", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
            "\[Theta]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"outPhase", "[", 
           RowBox[{"[", 
            RowBox[{"m", ",", "4"}], "]"}], "]"}], 
          RowBox[{"\[Psi]4", "[", 
           RowBox[{
           "n", ",", "x", ",", "x", ",", "\[Sigma]1", ",", "\[Sigma]2", ",", 
            "\[Theta]"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"\[Phi]", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "\[Theta]"}], ",", 
           RowBox[{"-", "\[Theta]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "\[Pi]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "\[Pi]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Theta]", ",", "\[Theta]"}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"Abs", "[", " ", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"tA", " "}], "2"]}], ")"}]}], 
            FractionBox[
             SuperscriptBox["R", "2"], "4"]}]], 
          FractionBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"tA", " ", "tL"}], ")"}], "n"], 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"tA", " ", "tL"}], ")"}], "2"]}], ")"}], 
              FractionBox[
               SuperscriptBox["R", "2"], "2"]}]]}], "2"]}], "]"}], "2"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"i", "=", "1"}], "4"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"j", "=", "1"}], "4"], 
         RowBox[{
          RowBox[{
           RowBox[{"\[Psi]", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Conjugate]"}], 
          RowBox[{"\[Psi]", "[", 
           RowBox[{"[", "j", "]"}], "]"}], 
          RowBox[{
           UnderoverscriptBox["\[Sum]", 
            RowBox[{"k", "=", "1"}], "2"], 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"l", "=", "1"}], "2"], 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"\[Phi]", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "k"}], "]"}], "]"}], ",", 
              RowBox[{"\[Phi]", "[", 
               RowBox[{"[", 
                RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", "tA", ",", "tL", 
              ",", "R"}], "]"}]}]}]}]}]}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8033028208413916`*^9, 3.8033028855923977`*^9}, {
   3.803302963037253*^9, 3.803303030729229*^9}, {3.8033035345733366`*^9, 
   3.8033035696867332`*^9}, {3.803304144564331*^9, 3.8033041531931286`*^9}, {
   3.803304840156602*^9, 3.803304895809764*^9}, {3.8033049536946917`*^9, 
   3.8033049775688405`*^9}, {3.8033050254954004`*^9, 3.803305080990303*^9}, {
   3.8033051137215967`*^9, 3.803305297574069*^9}, {3.803305342085217*^9, 
   3.803305473782984*^9}, {3.803305507416233*^9, 3.803305524957314*^9}, {
   3.803305585575139*^9, 3.8033055904873853`*^9}, {3.8033056354301767`*^9, 
   3.8033057075344195`*^9}, {3.8033060660182314`*^9, 3.80330613818312*^9}, {
   3.8033061766324377`*^9, 3.8033062948271017`*^9}, {3.8033063321549087`*^9, 
   3.8033063355288863`*^9}, {3.8033124215844116`*^9, 
   3.8033124703764706`*^9}, {3.803314269601398*^9, 3.803314325353789*^9}, 
   3.803314523446763*^9, {3.8033145963578105`*^9, 3.803314606776943*^9}, {
   3.8033146636403933`*^9, 3.8033146919985666`*^9}, {3.8033148835342307`*^9, 
   3.803315032882759*^9}, {3.8033156417131305`*^9, 3.803315644662244*^9}, {
   3.811695789030807*^9, 3.8116959623012285`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"1d9ce4d2-ea2f-4b69-af32-acf302ef3701"],

Cell[CellGroupData[{

Cell[TextData[{
 "Calculating the expectation value:- ",
 Cell[BoxData[
  RowBox[{"\[LeftAngleBracket]", "ab", "\[RightAngleBracket]"}]],
  ExpressionUUID->"f088d251-ede8-4f1d-9c1e-e15a11647fbe"]
}], "Section",
 CellChangeTimes->{{3.801655255280401*^9, 3.801655333086234*^9}, 
   3.8017338400863295`*^9, {3.8017342805375853`*^9, 3.8017342967592*^9}, 
   3.8017344860248623`*^9, 3.8017345301637154`*^9, 
   3.8017398422965884`*^9},ExpressionUUID->"25ac9f6e-84fd-4e4d-b32b-\
21fd62418769"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LossyExpec1", "[", 
    RowBox[{
    "n_", ",", "\[Sigma]1_", ",", "\[Sigma]2_", ",", "\[Theta]_", ",", "tA_", 
     ",", "tL_", ",", "R_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "=", 
       RowBox[{"P", "[", 
        RowBox[{"1", ",", "n", ",", 
         SqrtBox["n"], ",", "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Theta]", 
         ",", "tA", ",", "tL", ",", "R"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"j", "=", 
       RowBox[{"P", "[", 
        RowBox[{"2", ",", "n", ",", 
         SqrtBox["n"], ",", "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Theta]", 
         ",", "tA", ",", "tL", ",", "R"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"k", "=", 
       RowBox[{"P", "[", 
        RowBox[{"3", ",", "n", ",", 
         SqrtBox["n"], ",", "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Theta]", 
         ",", "tA", ",", "tL", ",", "R"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"l", "=", 
       RowBox[{"P", "[", 
        RowBox[{"4", ",", "n", ",", 
         SqrtBox["n"], ",", "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Theta]", 
         ",", "tA", ",", "tL", ",", "R"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"N", "[", 
       FractionBox[
        RowBox[{"i", "-", "j", "-", "k", "+", "l"}], 
        RowBox[{"i", "+", "j", "+", "k", "+", "l"}]], "]"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"LossyS1", "[", 
    RowBox[{
    "n_", ",", "\[Theta]_", ",", "a_", ",", "b_", ",", "aprime_", ",", 
     "bprime_", ",", "tA_", ",", "tL_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"LossyExpec1", "[", 
      RowBox[{
      "n", ",", "a", ",", "b", ",", "\[Theta]", ",", "tA", ",", "tL", ",", 
       "R"}], "]"}], "+", 
     RowBox[{"LossyExpec1", "[", 
      RowBox[{
      "n", ",", "a", ",", "bprime", ",", "\[Theta]", ",", "tA", ",", "tL", 
       ",", "R"}], "]"}], "+", 
     RowBox[{"LossyExpec1", "[", 
      RowBox[{
      "n", ",", "aprime", ",", "b", ",", "\[Theta]", ",", "tA", ",", "tL", 
       ",", "R"}], "]"}], "-", 
     RowBox[{"LossyExpec1", "[", 
      RowBox[{
      "n", ",", "aprime", ",", "bprime", ",", "\[Theta]", ",", "tA", ",", 
       "tL", ",", "R"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.780002438316496*^9, 3.7800025832212725`*^9}, {
   3.7800026599944725`*^9, 3.780002694305279*^9}, 3.7800389681660357`*^9, 
   3.780070923014795*^9, {3.7803112291351037`*^9, 3.7803112569592395`*^9}, 
   3.780313764707143*^9, {3.8008951545697303`*^9, 3.800895473479104*^9}, {
   3.8008955804325128`*^9, 3.800895583944132*^9}, {3.800896245286291*^9, 
   3.800896246980793*^9}, {3.800896297728982*^9, 3.8008963029958906`*^9}, {
   3.800896672378651*^9, 3.8008967088371215`*^9}, {3.8008997585177555`*^9, 
   3.800899762761394*^9}, {3.8015900242812986`*^9, 3.8015900249156513`*^9}, 
   3.8015901688166504`*^9, 3.8015902828999853`*^9, {3.8015903634235477`*^9, 
   3.8015903936087875`*^9}, {3.801591598694378*^9, 3.801591619107763*^9}, {
   3.801592126472866*^9, 3.8015923136930046`*^9}, 3.8016546585992618`*^9, 
   3.8017338400863295`*^9, {3.8017342805375853`*^9, 3.8017342967592*^9}, 
   3.8017344860248623`*^9, 3.8017345301637154`*^9, 3.8017398422965884`*^9, {
   3.81169604148184*^9, 3.8116960940782948`*^9}, {3.81169616350957*^9, 
   3.811696172854413*^9}, {3.8127130611026545`*^9, 3.8127130646346602`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0afefa6f-f7da-4cf7-adc2-c60bf94be723"]
}, Open  ]],

Cell[CellGroupData[{

Cell["max(S) v. Photons Lost Plots", "Section",
 CellChangeTimes->{{3.801740085831446*^9, 
  3.8017401188161964`*^9}},ExpressionUUID->"1c23b3ae-859a-463d-9d01-\
d47a924287ab"],

Cell[CellGroupData[{

Cell["0 to 1 photons lost on average", "Subsection",
 CellChangeTimes->{{3.8018484069489536`*^9, 
  3.8018484209484477`*^9}},ExpressionUUID->"4b64700f-069f-4e92-9fb9-\
cec6ff6d7ada"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"maxOdd", "[", "n_", "]"}], ":=", 
   RowBox[{"FindMaximum", "[", 
    RowBox[{
     RowBox[{"S1", "[", 
      RowBox[{"n", ",", 
       SqrtBox["n"], ",", 
       SqrtBox["n"], ",", 
       RowBox[{"\[Pi]", "/", "4"}], ",", "u", ",", "v", ",", "x", ",", "y"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{
          FractionBox[
           RowBox[{"n", "+", "1"}], "2"], "+", "1"}]], "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{
          FractionBox[
           RowBox[{"n", "+", "1"}], "2"], "+", "1"}]], 
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"maxEven", "[", "n_", "]"}], ":=", 
   RowBox[{"FindMaximum", "[", 
    RowBox[{
     RowBox[{"S1", "[", 
      RowBox[{"n", ",", 
       SqrtBox["n"], ",", 
       SqrtBox["n"], ",", 
       RowBox[{"\[Pi]", "/", "4"}], ",", "u", ",", "v", ",", "x", ",", "y"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "\[Pi]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SvlostEven", "[", 
    RowBox[{"tA_", ",", "tL_", ",", "n_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"LossyS1", "[", 
     RowBox[{"n", ",", 
      RowBox[{"\[Pi]", "/", "4"}], ",", "u", ",", "v", ",", "x", ",", "y", 
      ",", "tA", ",", "tL", ",", 
      SqrtBox["n"]}], "]"}], "/.", 
    RowBox[{
     RowBox[{"maxEven", "[", "n", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SvlostOdd", "[", 
    RowBox[{"tA_", ",", "tL_", ",", "n_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"LossyS1", "[", 
     RowBox[{"n", ",", 
      RowBox[{"\[Pi]", "/", "4"}], ",", "u", ",", "v", ",", "x", ",", "y", 
      ",", "tA", ",", "tL", ",", 
      SqrtBox["n"]}], "]"}], "/.", 
    RowBox[{
     RowBox[{"maxOdd", "[", "n", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8032160295591087`*^9, 3.8032160334666586`*^9}, {
  3.803218263217564*^9, 3.8032182775242987`*^9}, {3.8033075834145656`*^9, 
  3.803307585655571*^9}, {3.8033076882438354`*^9, 3.8033077382849956`*^9}, {
  3.8033083817675643`*^9, 3.803308411218204*^9}, {3.811696252242526*^9, 
  3.8116962687612553`*^9}, {3.8116963972278833`*^9, 3.811696404235977*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"e2787f50-d527-4fbe-b289-a79a07130dea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SvlostEven", "[", 
       RowBox[{
        SqrtBox["0.10"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "24"}], "]"}], ",", 
      RowBox[{"SvlostEven", "[", 
       RowBox[{
        SqrtBox["0.50"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "24"}], "]"}], ",", 
      RowBox[{"SvlostEven", "[", 
       RowBox[{
        SqrtBox["0.90"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "24"}], "]"}], ",", 
      RowBox[{"SvlostEven", "[", 
       RowBox[{
        SqrtBox["1"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "24"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Rloss", ",", "0", ",", "0.1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
    RowBox[{"GridLines", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"None", ",", 
       RowBox[{"{", "2", "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
      "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<  \!\(\*Cell[TextData[Cell[BoxData[FormBox[
SubscriptBox[\"R\", \"loss\"], \
TraditionalForm]],ExpressionUUID->\"f14cbdb5-2de0-4a48-9828-c53369658491\"]],\
ExpressionUUID->\"e53bccce-5700-4a79-af2a-2e0337e7d77f\"]\)\>\"", ",", 
       "\"\<S\>\""}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"Scaled", "[", "0.5", "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<90%\>\"", ",", "\"\<50% \>\"", ",", "\"\<10% \>\"", ",", " ", 
         "\"\<0% attenuator\>\""}], "}"}], ",", "Right"}], "]"}]}], ",", 
    RowBox[{"GridLinesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Red", ",", " ", "Thick"}], "]"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Inital photon number =24\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.812706794872035*^9, 3.81270680575498*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"8322d3ff-e4eb-4146-bd3a-56ff17b2c7c4"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum", "lstol", 
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient increase in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"", 2, 16, 1, 26686357044618849519, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.81271309572476*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"8ec35bcb-f191-4ac4-ab4a-e20a5c7fd59b"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum", "lstol", 
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient increase in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"", 2, 16, 2, 26686357044618849519, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.812713096107773*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"44fedee3-2de8-4942-a221-11b6edafbf2a"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum", "lstol", 
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient increase in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"", 2, 16, 3, 26686357044618849519, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8127130964857244`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"6304b8ba-d09f-47a9-be38-17d91fb1e070"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindMaximum\\\", \\\"::\
\\\", \\\"lstol\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"", 2, 16, 4, 26686357044618849519, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8127130964986887`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"0bbbbf61-193d-4134-8285-01a494f69729"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV0Hk4lAkcB3DvOzNvTyV5mM3MoG02u2k7WLup7djfz1HPuoaV2CY6HfGI
tOiSo5WjJUao5rIhpMmayfVaR8zaNjkqS5KiLEUxKcdKZWf/+D7f5/M837++
/P2h7n6kjo6Oizb/d+4IHd6ayP+urGj2uDCHwiDyk5sqtg6M7Z/ZPSqncIpz
ojSNrQ9Ov0/ZxWq9OV9hHs1eBu1ZrxcVyCjsG27yjWBbQqvpwOVxCYXKlPtk
GBuhvvPv20kXKeQ96b4XwnYDgTyCVymisI3ypg+x94J8aK7RMJ5C9lOXnakN
h6HJ2JU67U9hmJVkgDV4DAx4r9OGHClcGv7LaHtoLPjtSrzSZUHhu7B9cwp1
POj3tQ1FGVBYslKPI2lNgkT/WAveNAu9mB3buGtTwTFqQhrykIWSJKMl7Np0
oI9mz3erYeH0S0tds7oMCOmfN2d+mYVtez0XRY1kApHVWFT9MwtFVs9FvePZ
0OlgtcL+IAsPy9RhLM1FmPPu2LLLhYXNXIV3pJEEuibaqldbslD/7VyzhicD
j6TEL6bYLLz3eI+90iEHGtek7Do5zcQHpWdSTCt/hRrpeUVaDxM380VVQxWX
oaLR9C9JPRN9xJ+NbG/JBZnGo8ovl4mTDYE+W9vzoEp8InBFIhOd3lh39TzP
h3yFMLMokIlrNVejPGavwNkQ/gTtzMQE8X1f9/cFIKjdJGr8iolSQZz7hEER
cPsWk6lsJporB+N4Rlehu7YwQjDDQNt+zROzJcXg0GlSnPOEgVxOrE3Hl9fA
uli9vLyBgQEfmwZZaxRQ19x962YBA38aFaX12l8Hyz5bZUYyA3WvMgIueJWA
rsBpdjKYgTzDVbFdXr/B9rEXQoE7A9/aBrf3WpcC/1iPOnQdAzM7ZDHpVaXA
OXS35gyPgVGOudsq1ishuMZOd7UOA9VNgfolDUpoceFslA+QuJWjOxtgqwKp
6s4lxm0SPw8Ne/G2VQUWC2ZXrleQiDLllI3bDVgeWr/JR0RirvIPY/LuDUhW
hT41PErigWaxXaawDCzFES0SIYl7qp1SXjwqgzqxTyobSawuqX+gd7Ac7nzz
mrtvOYneydTGwvFy6Io8rYF5JH67ybyWOFIBszaNZYtGCQwf17Vb+6ECLgYf
KVDdJXAkumXYJKYSrFQO2VsrCCx8s7vw1MdKYJ6bfHVQSqA6qCygNKkKlo4q
u/1jCeRV//P9lfk0XKtk57n5E/jhFJM3uJCGYelH214/AvttzF6a6dGwu6ln
IEDrgtsHUvMNaCD5QeYxvgR+/fDZvTxjGiaah2qu7yfQ+d9+Ye4aGvzN/A0X
7iHwlPXj4JwfaJBmjUX+6UXg3nfvt/Rtp6HOG9e5a21fZ7L4U0/tPiRh4rEn
gQu2eSvlQhoWqjQRkzsIzN7xaFJ2gAaLmA3xZh4EloQ/jJZG0FDkrmw77Uag
aMOMa+9RGpbtcJXqaR3+nsM3OUFDeP6zILErgRvjf1RLommwDBpeoBIQeOv8
g3mSRBpeeRz3fOpMYLHXdHdPMg0+cepVh7Q+Z2xUzEuhIe4kg5xxItAjz9NZ
nE7DBq6fUl/r9QGRpj0ZNLzpTTgrddT+typ7jJtFQ0WJ3Ndc6w9j5fU7L9CQ
IldAmYP2P1Vn+qVLNGTUlBqj1v8BESwvsg==
          "]]}, Annotation[#, "Charting`Private`Tag$7550#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVj2s01AkARxnMngpLTTGjx9pjO8qyto3akt/fM7v08n5MJXGkk8cIWzaT
tgdt1Jg0ydBDE5FklOFfR2XtRHOUNDNekckrZkKTJAzWfrjnfrlfrnlYrHcE
RUtLa9s8/7tASSa8SDN3tE3OiA++RiUOUpY+raBpwcCYrdqYTyW+mCaXX6AZ
wa4jOtyETyUcBKWWbNp3CKyN8ZfxqET3kDg8kWaL63d1HbafpxLCjNcUFo3A
QLB6qXMKlWC8bWuOoe2ELFa9dW0IlXhJZZLRtFDofltVNbuMStDebQvKrI1D
Y3yfyO+kHsFax+/V6z+ChV55Z8WTusTKhHPDTbGp8Ag8aux/WJeYYu2bK607
hdRVnjLzHh2ibI2hKf9FOvwHw+/4hegQAbpSd7pNJiacBBFWEgrBTzdZRqvh
wKFQtUDkQCEmVLb6Fo+5KHw8W/+K1CZehvobHFNmY6tEaGNhrU1krXuf1anm
IYbUXkC/o0XE5dex9EZzEK1xSx/4UYuQ0EuZSSZ8lDBYmTqeczAam5OMMvJB
HGzwCN01i+auva7C365h1/QjL0f3GbSWn85YUXUdkrD66CIXDRzMs6oHRDdA
bbLV7vGbxu7c75U+jQXoU6nGmwOmMF4btdut6SYqh++n7YuZhOcn+5aO9wJw
vva2ZCV+hc1o8THf6Vug73n5nHt6AmdyX4d7awrR1iNYzyv+grztJ7w/L76N
eru4mqgn47AU9p9gmBQjyWeoZ3DwM5wVo28tlpXAzX6pRQbjM+imqU7StXfQ
kNl6bhXGEDkr7tezLgWFd4PPTfqEw8NZFzpd74KLxOi2G2roF+tEXg4og8Mc
h1It/wjGEqvUloB7kAYSg+fNPmLM+VBTp3059Lu306+WjiBbmn+cU12OBoUo
conbMI79XuAu2iDEiHfOGckHFerEUUZltUK0sK13M1OVcDPVn450roDNkcMu
qvVD+CGWNTj2ogIGdkqVuuU9iHzhF6ed97FoU9BFRc4ACoT/mlFe3Qdnc8Up
26h+7JfkumQHP8CzLZ75bZZ92PvQM2PwzQOITlK6vKm9eFj2pNXwQCWMub4+
Atk7MM9SNxWpK6FRCcMqhQr8utmyRjtehIa+YVa3bzcS1PouNjMi1Hxw5hy1
6oKS3Ti0/HgV/ipRuK/Y8AZFn/YUpcxWwS0+ZNu9kHbUHXwQWZ5ejX92Rsg4
B1rBeNjncWsBiadhz8o8C+WYSdFl9C8ioRVkUMu9KofCyUJlYUhiiSN1soMn
R+Hz/ZmCxfN9q7g9Jk2OX9p7mm+akZhrOskUHJDD66siuMCahKOBTYC7lRwp
9l2Hru0i0WHpURAhlCF0SrOl24cEs/fR1uZiGVwfL/92lT+J3r/zjBwLZFjo
zhReDSah2RGib3ZRBp7fm/H8/SSmuhuLexJkKEtoZ+clkggxjjp0e6MMWRsn
d3T+QSLuuiGx+mcZEjSm5suTSSQXTdndWiPDplOBdXw2iXOrmemFDBnqL7Z+
w08j4XrJUSzSSFESMNHWcXb+T2BcvGVcivNmJiWMDBLmU7wy8bAUvjf9vXI5
87/rYla2v5ViQ2TSig4uiRxlbnp4qxQMK94I/RKJP7N/oqmbpJgZqXwSdJmE
bTa9lt0ghaJCzrlyhcQOL/cLBrVS/AfDSF/Z
          "]]}, Annotation[#, "Charting`Private`Tag$7550#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVkns01Osax4dhUknU7FxCSKWb03ZKR6nvhEQUSUg6UdPRxbVU0ia5lPut
3BMxUWiYQeaniMbMYFUUCUkjKVsuoaLGZf/OH+9612d9v+v5Pu/zvNrHve1O
SlMolHDy/P/OHST8XtzQ3sm20jjrnE1jnJH+o5ZLp6A4Vco/LJPG+KkSUBpP
V8T1Nb/C2Kk0hjGrWC+IrgXbBmqOdAKN8eFvAfMCfRM2t7HFhcE0BifmtbQv
nYGUzCPVEjcaQ62n45UX3RYbvFedytGlMV7SXAhPuisGVRn/kyqUZdB79x2O
rfMBt2B843SODMPXILNPtt8fhmu+u+4pojI0/aKHm72DMUAPmKx9Is347es2
V8wPw8DyA6lu1VIM9loFlcwXEQiL82S2vqYwHGVazVX1Y9EVzzEiuHPIjFBe
Rq9OgJiVWxPfOoPJr5vkdWuSYDa/Wn9GcxovXR0W/TV4C34RYdpVB34j0eBL
YvdYClotfr1fUzIFnyy+r+xoGgy81sRkaU2iSbXY5aJyJpxjR+N7A39AcWKu
aVQtC8MHi+WOyXzHq/fHzDiW2RCH/UnrvTyOt6XhMRqVOaAtO06pkh2DsXYi
7/Oju6gLPcrI8BnF0QydwYPPc+E4fWSzxeMh/Kg7fXR3cx6SzkvENraDsBo3
bO/6wgLvWrvbtpYv0B998Je95B60LnkFpAT043rGa6bddD7W2e3UszrVh9v7
r9l9X3Ifx01z40rNe6HH6b+mpvwAdyyp5p0NPTARj/boLitE/vOXFBPLd1BV
Cd7Vuq4IctMhQxHlb+E+K+iX3VgM13lxge7xbTg/nBjfbfYQXj0rFlq7vIL8
A6p7qiMbKnYROamdz6G2dH1wu2MJ1COV1kxViTBh4tHcbVgKAypzi1LcM9xq
zbqawCvF6jcjAQXaT/DX3lzzR1s5MOlamdcyXga+4LQiu44D25HHOvqXC6Bg
Q58q5XPg0buz49zOAjh11HwoE3DgLzWn00QtwNDg0hKikQN5mRCP0rh80BVr
9glecRBcmxV45N49MJ2XRHf3cmCcaiq3tj0PMqNVsgulufDQOGMcuzsH+/1P
Di+S4cK/p3RIc1EO0qQU3yjSuNAq7Lof/iAbG+gnWcsWcEF5QQ8MabgDe6PF
pjpLuCjdsN9hk1wWWKEngo10uPDZnHvfMS4du1XkJe4mXOgxLrOLKpKQ87Bu
XYoZF2n38pO3MpIwbXLJud6cC8aelT7DTYko8/xIaFlxIbeV3tsuToA2n+ff
eZDMr1j/DBpxmPE8+XPvSS6+1YhS5n26Difq8tWX3bmwjV7c6DAbjvK0lkMF
p7kQ8zaPT6mE4yx/ewXVi4tNmTrDW2xC0amyxO/JRS5yrEv42levooJfM7Yx
gsx/e+nAlWO+UDzsp+0SxUVt7R9yb4y94TGy9kBUDKlXmEVKHp/FStXk0s8J
pO7dNbqihokg9l4x/SbJUTZHNXa5ocuUomiazEXwROswP+oIEr3Oemenk/OK
evB71twKQ1Tt7BeZJNeM5vNfboNFevtLSRbJDPHDtIahnSz9mNm1OSRfvPkv
jURjzPF36TvlkpzMetynYg3nw5NHr7NIVlx2TGncHo9GimPL88k8k7w9q98c
gaeqyrBiEdmv3p/KnY1MNLBfqOMhqXsZKyRvPQVds1BrzxKy34yW+/Kss3jn
NVLUWEbOt2R7d6qxLyzr68+EPCHrt10cWLXAH6u8fQcmXpD7bGhXDuOHoMe7
UGummZzfeJc9LzoUKT59TrTXpD8z7WH+wTDQzh1qVGnnIsFPqY/zMRwDfkaF
O3rI/5FeVBY6E4HiACmPGyPkfj63pK1YHQ+D64mjaovLkLZVeUh4NxmMLM7P
XbZl8O/tJK4U5yCXU79cuqUMmyUtjZqninCiKcP0lnM5fs6kCAIlXByrsooZ
eFeOhW4+nGqPSlSxn75VOFWBDkOzG6+fPIZLJG1bwVgFdC3LNZsDn8Jou161
1LlHWK1Z3mFoVQe/MXlT/ZlH2F3rmxTOf4bBoOd/q1+thFNc5MKbE3wUjP+3
IHC2Ervy9/ZIJuoRYeF6Lp/Cw7Non30zk/U4dcdtR7M0D8dblPokknro7WW2
as3jYUf8+7BvVAEK756e4y/mwf64Ia9yqQBsWz/HBdo8fGeGRtUYCFDBjpyX
aspDYJHDjjIvAfhnyt1LI3iodrCOPtEjAGWD0fbyKB68mMbDV3oF2DlcrcCL
4eGTzqHZxE8C8LxFFU8TeBhv895UOUjW9+uiNqfxYDlk09//U4C0IErO8H0e
CBSrvlEQwivJumNdIw+R10IHZo2FUKv6ZHFvPoEw1tfqu0lCzATKqPUvJJBS
qTpzIVkI8S7dr7oKBBQOekTuSRMiv/FELGsJAQZTFPMxS4h/d358lbecwHId
i0NT94WwnhI7524kIDtVyMqrESLQ8L1H9gEC0R8Cv81+EcL19/SODwcJ9DtT
TwcNCmFWo754hQMB/S8VFpIhIRaYu3DuOBOYs3/HGB4TIuXQux9ZJwjsflm6
jisRku/rDLp9gUDTMY+0WgUREv/zy6b7Eulv2/JpmZIIftMq2uoBBAaVqKwz
S0XYFubEzwwi4HW8K2SBigiim2/nZd4g0LaypXW9tgiFjpMdXZEEbp+Xb/dc
KULccuVCtRgCxh7Fdg9XiWCf52CdkUBATNldo7tOhK3uFzW6kki/bhvbZYMI
autTRlSTCTAp39WT9EWYGal4ejiVgF6093zBJhHE3DcJ6ekE2m8rXfhhIMI/
78ANbQ==
          "]]}, Annotation[#, "Charting`Private`Tag$7550#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV1nk0Vd0bB3ApQsKLyJQMSQNJ8ZPKF6kkZCiVhFAkhTI1GKKEVJSQIUQZ
ki5x7zmRIdx7U4iEZCq8yVBplMhvv3+cddZnrf08Z+/n2Xuvo+TibXOYl4eH
h3cOecj7zgjt13hJyUA4zOiofQa/oSfvouoSSR7M7Vc+IJ3Kb/hz8RnGNUkx
lHFULNoS+Q035RSqh0guhTaL1ra8ym/Y97HezV9SC5kn7wkbB/MbFse28vpK
GuJ07T2DlQf4DWV7O1tOSFrBds/xor9S/IZN/A70cUln2PBtnORc5TOUfGex
/0qNDzhnLMxvecwz9NVOHeAbCsI2L+Zhs31zDZf4XR5v9g5D7/rJ8ggrXsMp
30OzhbUXIBEt3TisO8ewaIXI4tTGKAwW0wdUdXgM9857tU1G8wpuf9gbvdz0
L1KjpKUkn8RByWdPlbjBNH6NagmrVl5H0I33NUy3KTQ52y08N5KAvHVNasan
JhGv/SG+eyIRjLLpg4ElP+GTXuvL9zkZW4UMdpcI/kCDTKFDgHQqhLQE220t
v0Hs22zDZ9l0mCplO3jUTKClx8mkeEcGZuvlHR4v+4IOxsVYBVYmhGy1Ghbs
GMcmpXjqX2YWSi/kagSnjeBgivKI7Ys7oK6wJn52fcCPmqMHtzZn48GFhp2j
nkPY+VW3vetDDvw8sx8Njb6H5uf8c7v/3EXCBs+gxPR+RKa0utlM34OQtmrq
a80epFmet/kungfV2cqph2JvoF48dF5WOh9tN6R81INew7j/c6+qVAG6sodZ
bataIbM4zOjVyvvIkXNZK1PUCPe/9UN8GoVIdGv/4/CRg1Pj8de6TR5g9mVi
KFPpKYTz57on7S3CvyljjVde05CVWBXWvvch/qqO/6M6xMA3Y6/mbl0GXuiK
3y0RzoSuoMbtAT0Ghk0yb+qmZiCoedxrRJ8BU+GqcB2FDPw94C00acCAVfy3
pRVKtyHgf3KrxHYG9ObdiBxdnQb53KDyHXsZYOydrX6+MxkmCy7mMgNJvO98
g3334xDZsjXgyWkGeMaE2I3acXiWxL+17izJ51Dd3Od3DZaqUe9bQkn80PTD
UwlXsG/zZYXxSwz0C/zk43REw8s7/oZKMgM+qcGJC73DUaRj47IyhYG4aAnV
CxHnMfFHfO3aNAYyw7V6bJLDEBCV0GSQyUBY7LDixMVghGUlCdrnke8PZNqw
9QLw1H1fp3MBA9V5ydHa7n7g05TJdS9kwLDuuKhl4knEPE4x8WeQ+KSV85eN
H0fCq/TQOIr4gWudzowjfIZoqSuPidWsdKa+7MXOX68fRFeQ/Ba+Nxw+WEFN
8KtJZCVxYHYdVb0FvHIi3eHVxNyeVc/61NC7euWp0Kf/1UM2RDdJC48Ntgmd
qyO+Ztf6Zcc2JFq5ZAWxiZ98eHRJyQa+LiF6/lzyvaq102fl9sPcL6XZt4G4
DX2egs5Qj2QeOfGCzH/mTnlDhCv68z8luL8k8bSgU46fJywnHCf2d5L6JDqK
uqr4YeXcs1F2XQw435dqE+j2B9+iJEXbblIPUTtRwYRAVOg1W5j3/1ePnsMy
vGexKgwFBsMMfFGUDjYYDYOA6FJXlUmSL1X5nA7jEgaXbppSnCL9yNx10PVS
FKq098XLT5N+WaafhGM0AuziqhbxFMMqsCmQd8FlDKXzyAsIFMPn1WhGmfNV
PF39rm1MuhiZO3t5vEOu45zZnW3M/xXD1Fx/zHo6GbX1R8WKaoqReM/M0pGR
j62Lhf+4G5dAKmHYQ92pBMu8fYe/NZaA903Kgz9MFgzTi38aWT2CXkl3bvvS
CtwprpPjffkId6Xst1t8rYJrQ8qWBPtSJORvWkOza+D0eGfs8NtSHBX83ae0
oRZaMaeXyfSWYtVYUP6YQS147XMrd/SXQts0/9Qjk1rk/OadKBgsxeNDlIiO
VS1G9B7vOT5eihNyr0IF3GsRwFJX/Pq3FLNrMnZN3KhFbClfyR+lMuho+Nxv
HanF46KqDhGPMnQYfReWvFIH1QbTDTqeZehaNBneEl+Ha0MtKQe8yiCgU+p2
ObEObvKDB/N8yuB5I877e0YdRGIEBo1Ol+HisE91akkdXA5bf/GLKYOvstRG
w446LJAfEHhbWIYSqYlPHxTq4RDNr587UQae3f6lY5n1UBWTyMn7VgY30Xf1
MTn1GE1UFCn4UYbvce+/Lcurx5kcvfeFv8uw1eR3nu3DeiRXecaUzGEifPTh
1dgn9Xj1o6nryT9MnBUrn+P/ph5mLkln29YysaPJzlxNlA3xj9lDr9cx0cW1
iTkqzsYbb8auDh0m2i2MZ/MXseER/EylawMT1+0M45Xl2YhM/vO8z4iJhJY4
r6/qbDxtcpIftWZCc/Qjc6ExGxs2qj+Zc5IJVZvu7XonSf4meGv6MbHeva7P
xZ+NEee9SgcCmFjpMLQrJoiNtMjIi6VnmDDo+1jRHMIGT+ughXsEE41H0v5d
f5kNrkdW74sEJrqLFQ4ezWbDLlGWJ5nFhFOG2NfzLWysWaFdUkczYXSrKnpH
GxsCFTvcJsqZEBeTkxXpYOPxuyCuWTUTq93eql/tZmOJRkfcDJfYIUHW8wMb
Q7U3lFy7mJA8Nql5fZoNvwnhLZozTHgMVEgUqHJQ8Dl3RmeWCeElP9s+qnHQ
P25MbZ7DwjwHKZHlKzgwHwnSsOBj4UInRm9pcKAyMCjttZAFuibV/ZAuB61t
FWP5CixonteTC9rOwRrKK3GZAQvyn+7NPHPnwI0531rDkIWKM7e3PT7KQUrp
nQU6xiyYrnu3NO8YB/zFnWEm21hgBnnFnvPmoDff5JirJQv5OfF7BAI5iE2V
N8xyZEEt6ahT4UUORkJefJQPZWE9n3f9qiwOaO5TL9nzLJQJmYVy7nAQJU5/
lo4g+XqSp5xzOFC7d/eH+CUW3ncG6V3J5cClMWSO4DUWPDRjhxoecPBGbq3M
j9ssuFh9ufeW5oBL3TRtrGSB5+ayl3tfcpDEG/u8oZqFMb8VSx60cHDEPNyS
+5SFW76ZJjyvOJjXf2J3LZuF1q9VCpmvOTCcb+pMN7EQ8DtXkt3FAbVnKvBu
LwsWcq2P7g9ykPvVMTf4LwvqYqty3/8k8zV1PnmPh4LJo4MxCyY58Lh9aHMz
L4Ul7LG/a39zoG7m9mrpfAoVGg8zAv+QfmUdna0VpaB3J6dzaJaDIiu/vUJK
FK7f53yyFODi6j1/5XUqFJpsVttYC3LhPR0wfmAZhU/npfZYC3GhlXc64sEK
CtaLeTabCXNRMhvy0Eqbgmpw1QNFMS7KiqLnJ22hMKGi3LFfmovEeZdbq7ZS
WHxKMk13MRcB9rHpw9spRAnHivwjw4Uu/7V1+uYUAg5fnK2U5YI6mODUs5sC
Ff95xawCFxXCGSyVIxRM2+Nc/lHlIs0lM9zcg0KiZbv7M+JgKsvC35MCn1ug
eugyLgzccgbYJyg8tdzUN6DGRXV5vqhnIIWFHh3611dwUetZ6s6IoqAfPH00
QpMLntUbNpbGUBitvFS2cA2JH38iQsVSqPuxXyKRmPLmlFXFUZhuvCmQpcVF
kV/X3OZkCn1izLEMbS5GdZw6WlMonKqu65Fdx4X6r4GC9jSyvu1p/94gzj49
bt2bSaHE3804bD0XySE8meN5ZHxGlI6xLhftuHhqooBC2nqRyQfEEnOEtv8o
pCCZ2d4h/T/SjwiJT9MMUs+skYkh4ogotU3CNAXhWe3sYxvI+nbcFxUrpyDV
OuDCJf4rpDUg8YTC5M0dW1X0uQi6siFGroYC7o74vSI+cd28c+UzCi/GzlxX
2MRFoW3Lfc3nFGw0X5w5RvxR0i5Uu5GCx81Nl1nEbklOavotZHyixnKzzVzs
Tzvpt+MNWX/Dasf9BqS/B39tt3hLofzs7pRk4rYl5+SseyiwM2fmthNbZl18
uu8dhc5FES47wYXJvWQxj48UrDzknJYachHurjB4bJTE24rJWhNXqd9heY9T
SJZ9Nz+MWP/+fcfACeJFNSGdxIFeWtpnv1FY5bFMkNeIi1KNMr7QHxR+too+
W0G8hlFZGPmbgnOr4tgpYi/fLWExfyjYR92ySiQu0ObaXp2hcOSW0TiT+MM3
8+XXZymYcWqeviZWLWuZujmHRtOj2pavxC4Bdk235tK48O6LrIgxFxn/e5uV
zkdD+9HX28uJuyed/LPm03h57KQjiGUfD5reFaQxZ42M/R7imeB5skMLaHzi
3d18jLjfSHVUVYRGpcVmiTDiWj6TCjcxGhXPq9SuE9975nolR5zkm88WukMc
fSXCcVCSxvAB/eqHxF7W2WtUpWkwvvCblhNbLarlcZOhMfhkUXYd8bo371uy
5Wh8i7ZqfU4slc6bPaBA4/hIZvtL4ilnZT+VpTS8t3xhvCLuUTXe6qpMQ4W7
3KWNuHr4kFS2Ksl/Rmu0lTi78PyH92o0/l31zbyZONIni1JeQSPz7L6oZ8RH
19dEu6yiEdVperuG2Hyy3/6OBg3lsMJrLOI1FTyr36+hMRVy7OB9YvGwpTNK
2jR0GccF0ol/bDFsOrSexsrKlPhY4s75zhlZujT6lbp+nyYufx7q806PhoWK
hPFh4tvXMoyUNtLQe7P6mCXxedsq8UObaYStEAnQIXaT7hvIBI0UbrqrLPH2
t39L+41oSOk/XT9D+rkyY0nkUhMapi8PjfQQf1FzVM80pdFZWcB/i/jVSPDv
PjMaHmxF7//2D7MovUHRgoaCdW7VTuJg3R6vDGtS77UR8j/JfnSemt7cZ0vD
rChrJZfYpFJeVNGOxqmpI6rJxELbHIpv25P5awf1riUeFzwX3utA6lUem/mH
nIeXjam2S5xo7N/1xrqWOHHP2x/prjQ6yvIvmhOflvnD7jlMQy39u6AIsUOP
bLKCBw13iu98Izlfyoft9dO9aJxM5t+5zeC/++lNSJo/Dfvb5u6K5LzG6/3e
1R1I9p9CQspLcp79phcryZ+hMfm5lBNKrH9hX21qCA2DAAGJzo1ccG50zE+9
ROpTfjPSh9wXBXt/dXZF06h/vT3rH+KrctIFsrE0YuW7KhjkvtmdbWeeEkej
59eSqWE9Lv7nHqDQdZ3Gkp9xCuHEsqsSP8ncpHHo+6GtMsQzn8qq9ifR5D/Z
92QRuc/6S17H3bpFIyAv/a4R8f8Bn1/OJQ==
          "]]}, Annotation[#, "Charting`Private`Tag$7550#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
       "\"  \\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\nSubscriptBox[\\\"R\
\\\", \\\"loss\\\"], TraditionalForm]]]]]\\)\"", TraditionalForm], 
       FormBox["\"S\"", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
     Thickness[Large], DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, GridLinesStyle -> Directive[
       RGBColor[1, 0, 0], 
       Thickness[Large]], ImageSize -> Scaled[0.5], 
     LabelStyle -> {FontSize -> 30, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Inital photon number =24\"", TraditionalForm], 
     PlotRange -> {{0, 0.1}, {0.00001372508034694353, 2.827809288971446}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"90%\"", "\"50% \"", "\"10% \"", "\"0% attenuator\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 30, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.8127069754729004`*^9, 3.812713300075719*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"61419e68-9364-4fdf-9441-4e1ef72046d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SvlostEven", "[", 
      RowBox[{
       SqrtBox["0.10"], ",", 
       SqrtBox[
        RowBox[{"1", "-", "Rloss"}]], ",", "4"}], "]"}], ",", 
     RowBox[{"SvlostEven", "[", 
      RowBox[{
       SqrtBox["0.50"], ",", 
       SqrtBox[
        RowBox[{"1", "-", "Rloss"}]], ",", "4"}], "]"}], ",", 
     RowBox[{"SvlostEven", "[", 
      RowBox[{
       SqrtBox["0.90"], ",", 
       SqrtBox[
        RowBox[{"1", "-", "Rloss"}]], ",", "4"}], "]"}], ",", 
     RowBox[{"SvlostEven", "[", 
      RowBox[{
       SqrtBox["1"], ",", 
       SqrtBox[
        RowBox[{"1", "-", "Rloss"}]], ",", "4"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Rloss", ",", "0", ",", "0.1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", "2", "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
     "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<  \!\(\*Cell[TextData[Cell[BoxData[FormBox[
SubscriptBox[\"R\", \"loss\"], \
TraditionalForm]],ExpressionUUID->\"983e2842-d0b1-40c7-9ef3-00aee59c32d2\"]],\
ExpressionUUID->\"0c54e42e-d65d-46ab-92f8-477e972f9829\"]\)\>\"", ",", 
      "\"\<S\>\""}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "0.5", "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<90%\>\"", ",", "\"\<50% \>\"", ",", "\"\<10% \>\"", ",", " ", 
        "\"\<0% attenuator\>\""}], "}"}], ",", "Right"}], "]"}]}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Red", ",", " ", "Thick"}], "]"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Inital photon number =4\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.812705321519596*^9, 3.8127053371086392`*^9}, {
  3.812705477388849*^9, 3.81270548698489*^9}, {3.8127067740210843`*^9, 
  3.812706788879058*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"00a40206-0614-4a8b-bf75-19c058e19409"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV03s01HkUAHDNt5RYYWcZE5UOk9aSo3NGD3WvpK2oJsoQxVa7KlnRpDby
KK9KMVZa73bIK6sZ5fGTJJOzkpJnkdBjatLGyitltN/94557PufcP+7jXJO9
AS4/s9TU1LbQ+D9LBhjRw1iTtSzzupc/dBI8xPqutpStBnphzroLqcc5J6UJ
bB34MrsFdKntcovNw9iLQF7RkDHWQbDvXf3+Y2xriDwX5FZDLYtvZQWyEUb1
pQ3bqLm9T1t+ZQsgOLOtIKid4CN1L8af7QPKwTphZStB9ostHhfuHoFeNQ/V
p0cEA23SX81SnAC9pLz2Ew8ILhCd/9AcEAF9xp4KjQaCnwN/+losj4Kqti5d
wT2CJUu1OekP48BHYBfbUUtQOLNtg6HVBeAv2zlb5zbB9DgDffbtRPBKZFV7
MgQn3ltrmdYkQZbB4OM3ZbQfH7dvQgeSoeqW8hmvlKDY5q24ZzgFVrQZu+aV
EDySKQ+cNfQHKONf6NteI9hoWOwVbJAOS+a9qg7NJ6gz8rVxiJsJcQWbFTNy
CbY8914v25QNr88X9q2+QvCJNDreuOIKnDTWXBybQfdnIq58U/4nNFuZq3RT
Ce5OWzzg2iSBJSPilO2XCI7dPbjbsTkH/JWW7Y/FBJ0+8ju73+aC1ZmVtTMv
ErQaKgzd8eUqnM6fmt50jmBMWut+l6k8iDveNPEohmDG1kiXUb0C0BMpzs85
Q9BcpojkGhQCI3FQRIYTXNc/1GuqXwTKtw/ytUIJGnIi7Nu+vwZSlf2I0wmC
vtP1ilmWxXDIoozzQETw6AdxQs/6v2DlOKty+ghBrULie1lYAsJA72oHf3rf
by0iOoXXIaQ46XrDQYIj6w439/ClEHksaC7rF4LJbZnhiZVS2K/euydkL8HQ
zZIN5bYyiGmVW6p7E5TXH9QpuSsDNPrHxdGToCNH64vvulLo7vKOvickaBYQ
qBx5WAofre9/nXAliJmycXvBDRD6jYv9BAQlsnvzWY9vQFaRRsG/zgT3NaY5
JO+6CTVys7Glmwh6VznFK5/dhLpRgX+OI8GqkjtPtA+Ugd2cbO0We4JeZ9VX
5Q+XAe+dmbXOWoIrV5vfnhFUDgItk8SEVQRFw1oOVqpyOD0ZPUfOJzgQ1vTO
KLwCTtu63ecvJ5j/cU/+qekKIJ1bF1Qvo/McuukrjasE9yxZyJgF3U/V641X
NRjQqe1cHmBOUHVqJlehycA0zyPYm7rf3vS9qTYDFrqdlduo8+7vu5Crx8DL
gDtrrKmXd71syZnPANdT8OPwEoLOn/p3SSwZ4Gv6eRylPsV/fjh7OwN1b6J+
O84j6PN5ak2fKwM2LPdbvtTra4zmLXRjoP2qmUpIPXeDlyxrFwMbY6QRK6hT
dj4by9xH66VRsZNm9J9EXWEZxxiobuQlh1CLV0xu6znOgDRE0uFHLZrimBid
ZMCpgmPgRb0qyl2eHsYAp3k01Y7679+fzE6PZUAY7ZetMiVYJJx42n2Wga6E
W/0fqC/ONyjixjMAPPXFvdQ7ctyc0xIZcJs4l1tDbesbbNydxMAOm3pFCTXX
ImXQ8BLtf3KSl02tGiy743GZgaktSw8kUPeXdiSmpjIwZuVaGE79Hx1bKBQ=

          "]]}, Annotation[#, "Charting`Private`Tag$595031#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV0Hs0lAkYBvDvQjeTHE0ZI7eOSkKWVlur3tetUy4VikhXdUi1TDQciyih
ExklbSbrVqQ0OzMVPp3EDqeak8rYyLVUEkKT0rpM7bd/POc5v/+e85jvj/A9
SBEE4c3m/y4eZKKb0szXp5o091q30hhOLaiTcwk4qvJQ9r+gcZwXJ83i6sFg
kYO8mLXT1QrLRK4ZuD31TeKxfjXQeOA41w4Wjz9aoPUPjbIMFSXgIhzeUrSk
s5lGfs/L5t+4W4FMCGtPb6Lx6Yxg5ih3L1hvOpnzpoFGbq93YGZ9JOjTAxpD
OY0Ce/Fb7b5YOHb4vTq1kEaT6LPDzyKS4OdN3FbXLBonBft+VChSYELpbpoc
T6NkuS5P3JQOOzd6Xh8PpzFAq2WDoW0m2HrnJw0F0ChON1jIvS8CfdVWiZ07
jd+G7DgWteeBv7RQKnVg9+z1nxs/mAPlDzTDEjMas+37s7vUufAqxTtwQJfG
yHyFQHv0D9i3OblJqKFQaVgRLDQQg9Wcny4kD1KoN/ZDOcrPB6uqqHrlSwqb
u/e4yTYVAHeKShY1UtgmPZ1hXFUIQp1ZinI5hU7m2dXvK4vAOy8qjS6icFfe
4kG/J8Vgb2Kysj2Twq/1h3a5PyuBwms2UZ9+p9Dzs2NrR/9V6CoYmXsqjELb
0fL4bVPX4LiP3rvw7RSm5qkO+E6XwrlYwYpcVwqvbE72/aJ/HfTcZgY52VFo
KetL5huUg/Lk2U9LTSh0eT3aY7HwBtR55UrDOBQa8pKcW6xugoXmss6SCRJD
vzf2adtUgGjnI79l/SRGDWdndbndAsfC1m8lLSRyyunQSwESOGfTsye2jkT+
/BVJrQF/wXfzWl6OhMQxlyPPuhylsN9kJd9KTGJOS/4JUbUUVAUqy1lnSIz3
KN5QuVoGn2J6oyGGREXjIT1JvQxiaTVXHUKiO48zFeoih7QJ6+4hHxKXRAg+
jDXJwVY3mNq3nkTMl407b70N0zs+Dplak1gsazCint8GkfHz5Wv4JIYo81xz
gu7AlbMl2k0zSNxT45nxofMOZHN2nr75hcAayYM23bC74FKubNPqJTD4zIy1
Zeq7EGr2dhXTROCaXy3vk8cq4b0maaz6HoHRao6rraYS4no+TjlcJ3Aw8cnA
ohNV0Kl4+mTyIoFln3eXJXyvAkHFgNA4hUBF+J1QaXo1cKxnTd6LJJBf827j
tdkMWOvHNZTuJlCToMXv02FgR4Vwpj/r184WQxa6DFzgJXlosy59HJJ5VZ+B
e4XM85BdBDq0v2kuMWKARz/uNgsm0Ovf10HFNgysLTs4mRdIYIJj95ECHwZK
dabWZW0jcO/k9LpXfgy4Ndw6uZ61W+2ieab+DPzNj3g47EfgnA3Bsj+DGKjs
MPbxYp27vfNrfggDdattDs72JVAS3Z545TjrEVPRqS0EZv8ysaUrhoE4J8UL
e9bR0zzzRXEM2M8VGr3ZTODalB0KcSIDqsg5Zcj64YW2meI0BpY2j9ZqvAi8
EfDtZccZBpY/1NO+xfqckcENfgYDqXJnz2DW20r8vfJEDEQVt7TVeBK4OlRo
3HGegfOKVSbhrPkrckcMLzJgO7/0gCFrzcjdB4GXGEgvWHbzkQf7n/yF6PJl
BkaEjDqG9X92ByVZ
          "]]}, Annotation[#, "Charting`Private`Tag$595031#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVx3k41HkAx/E5oidhW02OUW1KHmXToUfS8fk6u5ClTAoplbSVpoZKSG05
NmeHypisIcI4Rq6fNvJo2C3H0kbOpLUyJSsd+v0Gu/vH+3k9b6P9gW4HOSwW
y/m//leqpESNUUYbtef09X3fxiVHOHMeFfNYCDn87mLRcy75rB9SlMCbhbPH
Fy1a/d+vz5SZhvMW4Nagjs+6P7nk5ZDiQBBvBXa8ZlVtaeUSeWwrR8gjeJPq
Z3KoiUv4vS9ajvNc4bbullhSxyVN6l7UMZ4vHDzcl04v5xLeK2fPuJoTKH7l
u2DRDS4RrhK/Vhs4A2v1MsW+IC6ZL7oy3BwYgfd1aeUmHlxCC/dNyWovwePX
QFez1VxSsERbX9wYjfyN6Y+8eFwimPbM0cA8Do+2Ri1sGOUQcbSeLu9hIuqs
wmoVzRzy5e0KTeOqq+BvnzjzqZBDmnw9tEKV1xGizpzZH8chSasGk7pHk7Fq
rCJA4xiHnJDUCtVGbiGw0Efg6MwhTwxkXsF6YvgLXNKrl3LIrLGpJyN8CWhb
b9NzGhzS0rPXXr4lDfF5/VqiQTZpL7ocO6/8FxRfdPhWTcEm642SKv4uS0ee
09MHvZls4p2yUOneIEW/71HdLxfY5FNNgLdDcwbGleKwPfvYZNsHy7bOwUwU
ZMffntrAJuYjOaE7mLsoiZ+tbWfIJpEprQfcVFko6RH4t9Mskupywe2jzj3I
XC6P5beziKl84AJfLwee3afp9jIWse0b6TXWzcXHuq6fs5JZxEA/wubZ0jxk
RD1wqTzFIv6TigG1ZTIkbNzUZOzOIqeGkxK67fPRvHZC2bacRTRzuP43BQWo
P/h0eKUWi/Bnm0W0CQphWWVh0dAxhTHbo83dlkXg7rFQPr02hevPJOcTK4oQ
rRYjiXCbQuhWqWPZGjmsUiNDYnWmUKsImFVQI0ehcm+GVeMkHPQ1GX/bYqSL
+gbEsZNYHCh8M9ZYDNeBkwVZjpMgEvlnG9f76I1R9AaoTUIqf2zI+eM+HsvS
1a4oJuD3JMXu+u4SnGh12eUTMYG9ldti33SV4H76sfohTKCyoLpd+3ApfD1T
1FbQKnjFqFtnj5ai2v0Kv6dUhbXrTB+yT5ZBHjsjnASrIBrVtDOfKENa6p2F
P65UQRneMDT3fDnG+z2dt40yyP7gkx02WQ4bnShFYjGD2iMl/kXRFfgg5OzP
Pc6AX/nX5rszKPx0I18ctJzBRNg0/sBMCmbWAmqPOYM+G+O3xtoUtrdod9os
Y5D1u19cpg4Fq7s5xtpmDCw6+lsyDCmYRqb0ZpkwcBrv2y1dRsF7ftPAi3kM
wix7jqb9QCHUSmoPTQa+tGrDS3cKJQeHHi+eycC+au4333lQCB5w2qypwUDD
0Ut+ZzcF86wjuzqmM0je2fVJ4kdhi0zrzikugwJRR3hqEAVV3s7qezSNJKuv
27tPU6iPuSlM+EpDpNI3mhtCIaFLZRI8TsP60q5acTgFDamF2O4zjfpr7dPF
URQql/jk9I7SyBV8edEZQyFG9zeR4h8a8YZ6ufxYCoemedrJRmjsyPBwSkmk
MHZvdOjsMI01/sHzOq9SENrSNb7vaPDNkt8b3KCQLDWTbHpLY+J9abXnTQop
1pHnzJU0+oqfJ96+TaH/nIb3nCEa/wIyylg2
          "]]}, Annotation[#, "Charting`Private`Tag$595031#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwVkHs0lHkAhme+odsqqlmXaRSlk7ay0jlsLr0/wnZfoZRlU5RyulDCdhic
lSjDTEnLsFmXXJo0My75tNXmks0t9+Se1lYUYrt8g7H2j/e85/3nOed9DI+c
cT5KsVis3bP5vzOG6MD6S4Zb5M2Z/evbOcSP+vpPBZcFo71z5BltHPJJ94Is
gasFYcjqcN3ZbZ0lNRZwDSBKknDVWjmk722Vz3muKUy7zxl1NXGIPK6ZCuAS
5A5YdsTUcwivt6PpNNcJ2w67Xhuo5JCGOR70Ka4XFGu+DUgo5BDuy90HhY/9
8VIqqX8p5JAAM8kr9cEQBL3Q6xH5ccjywCvvn52JQPzTSw+bv+cQZcDhGWlF
FHorJyTUSg4pWLtIV1Ifg8u3qw1SVRRxU2tx1DMRIqP6utbKDopIYnS0uQ9E
sM8WhREFRT4Pm2oYPbwKuyAry9Z4ijR47V8YOpSI8i/ufq7HKSI2ey3u/pCE
E7oRGk72FPFPqwhQH/0VWYuXh4wZUKRGT+oRpCNBSt+73QIlm2hNzNSM8tLw
rufTDVE7mzT1HLKXb7+JW41LKfFdNnkuuxinfy8dxlX686xj2cTaUFz6T8nv
MBvT2HbuKJt4pqwccqnLgKxB5ijZwiYfH5/wdHiWiUL1Y2kuPDbZOW7e3vk6
C7avhu+rxlnEZDQv1HUyG1V1mrWedSwSndLs4zx1C+nJts3OuSySuifS+d8l
uXCZ51O1JZJFjOWDkTydPPxcLFJUeLCIXf9or5F2PvirFkiozSyipxth2/LN
bViEx2+yWcIivqqqQfUNUjhkBccad8/g3HtxQrf9HXQ+rS9sE85AI4/je8Ot
AL4HTJ5QtjPgLV0X0e52F2nWmlGnGBUm7E4+6zaXQYt4iV/dViGxJS1cVCqD
iUHYcLK3CqE7MhxLLOQwj3QNbeOrUFF1QqvgsRxeq+qFaxun4aCrMelrp4Aq
XzX/Ucw0Vp8JeDNRr0DdQldFsNU0SJr8k61TIVKvzU88OzGFDHnlMqqxEFEt
/HKldAreNSlbE92LoD1SerrYawqHynbGvekqQgmGbWV6UygrePR80fFilClO
T7+tm4RH7BzLnA/FcPlrZ+sfkZPYbGX8gH22BP3eh+/XWk0i8IPGVpPpEuQc
Wai9bkyJIUHdW374PZQn2Ygq85TIGf8pJ0x1D2N9p/ZM+ChR4VfkK4spxXKb
NYIonhK8sr+3Zc+n4X1dfd72NgbTYWq8wa9odBWpHeW2Mui3NRo2WkQjN8//
SV8zg1tPvYVZS2is3yVOCmpksOnFQFPmMhrpbPWTWbUMdn3pd8/YQKPhiNk7
VjmDMPOekzf30kgt+8XhQQEDL+WUTZ8LjSd8042xdxjYP+RrrthPo4T9o+E+
KYMFjh7y39xpsKJNNN/nMUja1/UxzZuGornLQD+bQUHgC0HqeRqxq2r4AgkD
8XfMD93BNFb4pzvtSGEQOKVryL9AY5ylitFOZmAZdaBCIpjl6++dezeJQfW1
53Mll2jEXzxm2S9mkO/2uaMzloaFefRVqYhB/DKdfF4cjejojaMhCQxcM/fv
ShHRKDDbULJYyMDCN0i/8yqN4iyBQe8VBrx1SSN612lUDngm5F+e9TdS/Ojg
DRplwbVUcOysP0WbKDl59v9I9YWtMQz+A/1AV7w=
          "]]}, Annotation[#, "Charting`Private`Tag$595031#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 1.5957674785740101`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
       "\"  \\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\nSubscriptBox[\\\"R\
\\\", \\\"loss\\\"], TraditionalForm]]]]]\\)\"", TraditionalForm], 
       FormBox["\"S\"", TraditionalForm]}, 
     AxesOrigin -> {0, 1.5957674785740101`}, AxesStyle -> Thickness[Large], 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, GridLinesStyle -> Directive[
       RGBColor[1, 0, 0], 
       Thickness[Large]], ImageSize -> Scaled[0.5], 
     LabelStyle -> {FontSize -> 30, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Inital photon number =4\"", TraditionalForm], 
     PlotRange -> {{0, 0.1}, {1.5957674785740101`, 2.47957780032175}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"90%\"", "\"50% \"", "\"10% \"", "\"0% attenuator\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 30, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.8127133488566337`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"0c2cc1cb-1dd5-41bc-af06-a7f0495216a1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SvlostOdd", "[", 
       RowBox[{
        SqrtBox["0.10"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "1"}], "]"}], ",", 
      RowBox[{"SvlostOdd", "[", 
       RowBox[{
        SqrtBox["0.50"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "1"}], "]"}], ",", 
      RowBox[{"SvlostOdd", "[", 
       RowBox[{
        SqrtBox["0.90"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "1"}], "]"}], ",", 
      RowBox[{"SvlostOdd", "[", 
       RowBox[{
        SqrtBox["1"], ",", 
        SqrtBox[
         RowBox[{"1", "-", "Rloss"}]], ",", "1"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"Rloss", ",", "0", ",", "0.1"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
    RowBox[{"GridLines", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"None", ",", 
       RowBox[{"{", "2", "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
      "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<  \!\(\*Cell[TextData[Cell[BoxData[FormBox[
SubscriptBox[\"R\", \"loss\"], \
TraditionalForm]],ExpressionUUID->\"f92d5084-a91a-4d89-9563-6dc5b559bc3f\"]],\
ExpressionUUID->\"44da5ac3-6431-4316-b253-82ce647c7940\"]\)\>\"", ",", 
       "\"\<S\>\""}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"Scaled", "[", "0.5", "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<90%\>\"", ",", "\"\<50% \>\"", ",", "\"\<10% \>\"", ",", " ", 
         "\"\<0% attenuator\>\""}], "}"}], ",", "Right"}], "]"}]}], ",", 
    RowBox[{"GridLinesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Red", ",", " ", "Thick"}], "]"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<Inital photon number =1\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.8033156746620007`*^9, {3.803578582686491*^9, 3.8035785833991795`*^9}, {
   3.8035906039889774`*^9, 3.80359060424725*^9}, {3.8035908561691666`*^9, 
   3.803590871243407*^9}, {3.8116969220884905`*^9, 3.8116969405189004`*^9}, {
   3.81169699510752*^9, 3.8116971038484187`*^9}, {3.8116978712669706`*^9, 
   3.811698000957651*^9}, {3.811698054269404*^9, 3.811698058190313*^9}, {
   3.8116980925447097`*^9, 3.811698095495002*^9}, 3.811698129183883*^9, 
   3.8116981971878624`*^9, {3.811698280828623*^9, 3.8116982960787754`*^9}, {
   3.8116983485573044`*^9, 3.811698349116062*^9}, {3.811698380326005*^9, 
   3.8116984606218996`*^9}, {3.8116985085510683`*^9, 3.811698541325583*^9}, 
   3.811698596286539*^9, {3.8116986883211837`*^9, 3.811698723582094*^9}, {
   3.8117844896539145`*^9, 3.8117845000281467`*^9}, {3.8127061620603647`*^9, 
   3.8127061760910025`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"815e5c22-58e4-4f75-b51e-64cacb53248c"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV0X881HccB/BPt9iWI4/ccu5YaWbSI3loXT+398fPmpBkpKlEkVSXQpsH
ksT1wCJGOVftXCfG5S6/vlZKXGL5cZGfR2qpaLrp9w+x9/54P16P55+v19sy
WOizi0UI8cT7P6VjTFRrquX3ozscvskcJHQP64vrKg4Bdoz8YQb6NTe2/CTH
GKyMeNI09BpZqU0CZz6sbJk2T0XfG1XvjObYA+ugek4CWpl+hxXJobAzceVU
BJo31KvZz/EGA3Fj11p0m34gs48TBOzB0MRpLaGc+54BGfUHIF+kLw9GRzqI
/9Yb+RnSzUNtOgYI/TIqbbxdmAjJy6qSKPp95I7p0oZkuGKaXSTrJ1Sx0Igr
bhXBjH2zFpmg/Wd2upnZZcDGkOOHo/sIFYtM53KuZkL6siBxfy+hb57as63q
ToGtY+08d3RbkJ9h3FgODKntI8p6CM1yeJylnciFcK0Fl48+IGmI1NOdhqTk
gLNp3YS2mJUGxpiKwUHSM6q7S6jxi+kWHU8C9nHS09vQmsHtLsofzsG2FbYG
9V2E9pQfT7eoPg9edpF+1ug1llk1j6p+ByP3Ef3cTkK35i8Y23RbCrrUpb+8
u0Poq/rwra7thRDDkm0MQ69/LujufyyDtpHdY7c0hNrpiuN8P1wA/nBZ4GJ0
Sv6dnT6TchD++UpQ0EFogddRn5dzLkLD/EvtU+2E2ihHjvJMi2GtPEgTgXYa
1g1ZzS0BjTpOMdBGqBk30bHT9g9wzfx2HaDDptQjeotLQVFW5VHWSuih8ayT
WpcyeLzBhz0bzS7+JCzPXwFaUYv80G38r8mixG7/S8D3HS178BehL5z2tmsF
5eBm77zfFZ3TKTmSWVMOAomgQNVCaJy71K1quRLypP/IF6Ab1OHGinolBC1h
h6c0E+rKZX8Ic1LBTw7Z+S9vEfq1MPLJi1YVTH2ll+SHphLla0fvy2Bboem7
0USoVNnIZ3Vchkkv89kO6JCWfOecLRUwaJH4Nucmodtr16c/GagAdj3bl4Wu
VVzrMdpdCVEDS4ND1IQGntBfVTRRCfO9PTybGgldudrm6oyDVbDw6q7SZeio
Cbaz3ccqyBPClbwGQscSbo+aH6mGNywDx5nooufbiuKnquHYzWLZoRvYZ09F
WLmoBqJ3r67ursd9ah+uu/A5A6fviqgL+mP8TN6IAQMRMbEqR/Swo9VTKyMG
mo9GWAFa3hySIZvDgHXv+s9WoZf2PdAU8hmIOabXsQTt8XZ4i3QxA4+6Arfz
0fGCwb3nNjKgChXHP79OaND7ye/ubWJgKCBWp0O71JnPnufHgKx6845x9Cy3
QOXZLQzoXzZxfYLO/XHglSSEAZviJPYQWhHVl1AQzUBotou4GZ214t0G7WEG
RPY8wyZ01CTX0jyWAc8VuoRG9KrkzQ3iBAbUqXnB19BN2T2filMZiLW+v7AS
XeL/prf/BPbjqsQq9K980xJeOgN10UmG5WjfQj+P/EwGioSWEyXo5WExFv2n
GDjD/jf4Ipq3KPeZ2W8MCDh1XRfQH59VXgvIYyAuJc2tED2supt55gwDwpDN
NefR/wGOmzeg
          "]]}, Annotation[#, "Charting`Private`Tag$931644#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV03s01HkUAPBrNj2nyWoKozbTkfRgOz3oufdrkiOPQjGxpJJVVmWKtDaa
iozGZJQUE7ZBnjsZz35281hrbZ7pQTFF29qkEyuRNLTf/eOeez7/3HMf5/IP
HHPzZwGAM43/s7KfCWmO4X/DGZ25VP4MSCBrXnURF3DVOYfOKOpRw/DCeK4e
SociZD9Qb84sMI/kmmBOePXwAeru13UHQ7mr8Namkqp11Oq4BywRl+DYTQ/3
Lg0Q3vMnbUe5Lsh3kISZUbdM9WaOcPdhlmfutV87gXBfOHvKaoJR6nfBNb8D
iGi14qVu7ymM5dtvb34E5KsQ6dvWY2KsOJ/Sp20DMi7a/7mgNgr/qKnPHGgB
olrGMVQ0S3BRUl7L3CYgwikP7YwsZTji9e7f8T+BKCQG87l35ZjGl90erAPy
4c0qtmnlZdRp38I2rKX97POYfbo/Ee1X9q1lVQNJWP0qQTOUhKzC41yTu0CC
U2tFuoPXMZrzqsaxAkiDUYH3SQMFpk2T6G0oB6I3/LlhkJeK/slo61UCpO2Z
r616ezqumKkd2awG0lEYHbew/Ce0Lu4KtFDR/fET7vxTdhOnm8qHXfOB+KQs
7t/VpMTs+vBW6xwgIzWHfba1ZmBJqGWHaxYQx3dW7Z2vMlGrHz/HQgnEcjD3
9O5PWchmhZrMTwdyIeXBQTftLZQKLaRrbgC5seOs23v9HAyOlmq/TAZiru49
yzPIxfPL3btNk4AIegafm87PQ3HKk3vbrgAxMhTbPFyejx6NkstL5UACJut6
dS0KML89cWyLDMiJtwnxGtufMSg93njeRSDs3C8CrglV6N5itXn8Ar3v3BXi
duFtnD6SYcaNAjIsCGrVWBWiSVpC1oAYSOLD1DPyO4X4uHGG7mQEkNMOSrsy
azW6NjPxxj8Cqa07rKeqUeOVNZ9jPoYB2WbI/hQgKMJflCul7FAgS46J+oab
izAheKyrWwSEpKpHbVyKMYJtsKPvKBCl+ndj1v1inFHz2+Tk90D8GlK2JnqV
4FBiT/vjQ0B8Kxzj+rpKcNkenfEX/kAqVFUdnEOlODpv4xLVASDesVM3Zg+V
4kRvTrTEF8iGTeZ3dY6X4ftGq2+vewMJGWJvtZwoQ5+99fqHPIH0Rza9XnCm
HOcMctyPeADJfrc3O2KyHKuLKz+Id9F5AksCCiV3UNnQItztQvdT8bd91gwG
BWFlgT7OQCYipvB6ZzGo7xS30oW6x8b0jSmHQVmj+4CA+tY9P1mmPoNnG2tF
5tRrnv7VlmHMoH/7rFPDTkCcxnq8lBYM2rs4nYuljrB6FpTuyuCJq3JZqSOQ
fePaLd27GGzYpHHOobatXDBnkQeDzYnGHAX1TDtvdZoXgy99Qy+JqZPcu0ZS
/Wh/+69ecqRWhTyNvBHKYLd9TNwLB/oP6z/u1IQxuHw9x+kRdYjWkL8gnEGz
55JZ9dQbo/bUKiIZ/Hqn58UC6vorHdMUMQxKmr6LCaPOE3540hnLoPCU1C6Q
+pKxQR4vjsFOTYauD/XuDA+nFDmDQ/dvnxdQWwecXNh5mcFp+zME66h5K5IG
jK4yeD/voo459cRAaZXnNVpf5V/No+4peixPTqbzB609M5v6PxHrKOM=
          "]]}, Annotation[#, "Charting`Private`Tag$931644#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV0Ws41GkYBvC3QW2tlZgchmxqbJZNVq1K6nkJFZJknVZr5DDLZcssOlik
TSLEWKlMkxoUQkY5vFrkdO0mk0y7mRiZkkMOSeiE/vvvw3Pd1+/bfd2P4YFD
bkEMhNBu+j6naIRESk4bbvv+TP83Gb0IhzKW361gIsiUDHb8TvutTnR5OlMd
hqRNR7m0rfNLjOOYK4GsUWnbRrvvZWtgFNMcDHRuhY7LERanShk8JgaBcmW+
I23WU1nnQaYrEL7XrHIPwg8W+pJfmRwoyfdZf0yGMPPZbu+0xnB41pA4OClF
mGch6FcZOAopUWPSVgnCBpEp4x2H4uEvrU/u4n8Q/sjzp0qaEyCCEz1j2oxw
2bdqOgJJEqTb9R1k1CPsqfzIQdcsDbzV72dzaxAWJGlrMesywDJ4x+YXFQi/
GzVXZddnwtbFde51pXQfjsdXMSNZMLPswwV2IcJ8iyG+fDIbWBFJhcMihMOF
zTyViQvQsie0q0WIcJtuie9hbQE0ml+5aXYBYfUpqm2CJYSMZMnLmUyEO3v9
7MS7ckFr1c1AxzSEu8pPpa6ovgI+g06DVafp/Qz5NYNVV+GA3x3OiT8Q3p+z
amRfuwj+va+eK4tBeKYxZL99Rx4gYc/qs0cQdnpj+bh7KB+uPhhb9JCHsNlE
UYz7bAEYJSzHJmEIJ+ZIA93mroFFyIBrfzDCl1xOuE1rFIKG9bpdxv4IG4sH
TrC0iyDQJTio/SeEbRUTT9laxWD4wCUs2QNhXZ14m0cmNyD6nGS40xVh7qfW
AZW1JXCMEaIR7YRwxDg/XW5XCrqbVriX2iOsWqTEPe9ZBikPUdgHoP+raRr/
2PMmqNnq1RZYITxlG9YhtyyHrns7xPINCGc9Eh7PqCmHu707jSLXIRzjKHKo
2igG/aCmObYJws2tIepljWJovTOmyWEjbK+jOsu1rYC19nuN5wwQNjrEG56S
VID09aDRKl2EsVD81sb1FpwSKAcVaSIsErfoMR7eAutJh12OaggHtOVsz/K5
DdLh5RWRXyDsV+uUOtxzG177+8uQEsK1ZQ1dar9UgsG5zf7ffaTAN3mh1fXJ
SrDQklmdeUXB5i3GdQt+q4Ln5pcTS/opiJxU3W42XwX8FL0IRRcFI3HtL/WP
V4PCxHzvk3YKrr/5+Xrsp2rgyYM9FzZR0Bx6m1ueVANxjFJ7uyoKWLUvdhYs
JqAYNVXdeYOC+Vhl1sCXBGa3J7zToq2wYY+y1QgMjeU8Hyim4Nq9gLR8DQIR
1ko1J2mvf/K8M0+PwEXDu34NRRQ4v1f4iNYSWBw7LrIspCDWsjcsdy+BZdjk
PbuAAs7Hua19+wjwTd16pvIpsKvXX/q1BwGHpk31TbSXOPiKL/sQuDZnc5JD
O/vHnhlhAAH7absll/IoKIt8EncpikA4d6mqpogC/qYPe+RHCGDv1aPPrtJ7
zOkY6kcTiFr99l45basEr2ZBHAEvZ1miC+2//+xaJDhNQBnS55OvUFDs+U7W
nUyAss3p9qJ9Vk+7mJVKYPqHwOo1tN3zPJxzMgioT28Ib82lYCP38IruTAJ9
LVucs2izTLNf6Z4j8Dp9gXEA7flXlQ3e5wloeCUqWdBWVPyXcfEigZUr254i
2v8DKcJIuw==
          "]]}, Annotation[#, "Charting`Private`Tag$931644#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJwV0Xs01GkYwPEXubVSayfGkJaD1YrupYue1yVqQ4pMHJpxnS7uSVaRlnZo
XWawkjGlSWSaZCTj1X0nlVYkW2pSbFHRkTQqiX772z+e85zPf8/5PpZhcVsi
NRFC3vT8vyVDJOke33Lt6vNPbAXPEN6lOft6PQOBj9Qr71fan5ipdQWMWaCx
pEAdRntNpcwunfEj2Kt/u7aMdu9gS8RexkLoZttsfdqDsDz3gWYCA4NiMmCf
LW3W88edsQxfkGinHL2sQrhdJ5jEMLiwrlTL8003wox/vQPzbsQDx7PGSdmJ
cMJi0UvtgRQ4EqoFWm0IWyT9MdwRlwFv+yyWhtxCeCIhlJIps+AO85b/yusI
184zZIruZUPr4GXf/c0Is6d1eZg65kH0K733axsQFmWbGDOuCEBXI41jXovw
57cLDayvFoJN3ot47hn6Hm7AjANDxXA7XJxpI0FYuPi1sGe0BEKnFx/fXI5w
vFiZoD1SCraioIDSEoTvmsqCk01E4CcR7uUIEJ6lpu6OsMTwT6A7O/8Iwp3P
OO7yDSfgQ8dsK+cshLvrDufOUVSAYkdWrE463c9S2PSq8SSEFe5f4ZSCcEiZ
1ZBfmwSCFFf8BhMQ/nhjZ8i6jlNQpeB6aUUjvPHD8keq15VQ/jd/bnkkwo4j
NQf8v56Gfpbro00chH8vexCxZbIKVHOGzWMCES73ObRlzOgMvO5fdl7PD2E7
+cAhlkkN7EmfcjD0Rti1b+S5tbEUpHz+hgWeCJsyM1y6fj4LnOyAee0YYd63
lgFtBxmsyYgSd69CeM+wsKDH/RxoeFZGbV+KsEGNFu8ouxY+lk00Ikf6vz/Y
Zzxin4f8qGZXQzuE1a7RHT3L6yBxvLqi1BLh4i7xQUFTHVgNLxLkmyF84BeJ
R+MKORgbel+omI2wsmXnrNobcnCLb5m/YCbC65gGX3mu9dA/drJrnj7CNnEJ
b9T36sHcaO3uCk2EsVj+ycX3AmjyknR0v1Agkd8007x/AS43JLroDFMQfrfM
rTioAeaztu+Z7KWA07wx983TBhCCW2dbFwXNtde6DXdchOShgsiiWxQE5+is
qh69CGsMHPsLCQUrV9td0UhshEMvDZpizlGQNGrg5jjVCHoW7/ucKygYSm8b
ND+oANvq/PHBIgqqP2yvTvumAO54qcN9PgXKXQ28uuwmkBnlvJSmUsBq7l9/
Wp+APuO9KCyWgqm0aayB7wgEq3wv2dPuc7F+a21IwPthhGoshoKq1vC8SiMC
ISlVJnzaS5686DxlRqD1uSD/bDQFXuN9QRIHAq+ytWPHdlGQtvxZ9InNBIwX
5agP8yjgTkw69/oR+OkrW38Tbfer5jPnBhA4m6SyYNKe7hEsPx5EYNvhifXS
KApKtj79KA4n0Jxdfaw9koLapCfp5XsJDCc2zTeJoEDo9GVTzz4CG9FN575w
usck09I8lUByaqZPDe1VWduUonQCee4Wcatp3y7q1hXxCcwQKWWcMAqk7M+P
VTkEHCdiL9nRzjczkbJyCbRHtLeOhlLgfyrAq0xA4K/dNQOZtFfwkueoCgnc
mWmj9qLNsi95Z/ongfJ2f2RMe+rdxWuBRwl8L3Oa0cul+9U/FBw7RgDJ7pue
of0foTFB/g==
          "]]}, Annotation[#, "Charting`Private`Tag$931644#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 1.9610978134539891`}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
       "\"  \\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\nSubscriptBox[\\\"R\
\\\", \\\"loss\\\"], TraditionalForm]]]]]\\)\"", TraditionalForm], 
       FormBox["\"S\"", TraditionalForm]}, 
     AxesOrigin -> {0, 1.9610978134539891`}, AxesStyle -> Thickness[Large], 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, {2}}, GridLinesStyle -> Directive[
       RGBColor[1, 0, 0], 
       Thickness[Large]], ImageSize -> Scaled[0.5], 
     LabelStyle -> {FontSize -> 30, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"Inital photon number =1\"", TraditionalForm], 
     PlotRange -> {{0, 0.1}, {1.9610978134539891`, 2.108185106492091}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"90%\"", "\"50% \"", "\"10% \"", "\"0% attenuator\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.52] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 30, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "30"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8033157351084614`*^9, 3.8035786361033583`*^9, 3.803590658522641*^9, 
   3.803590923441802*^9, 3.811697757606489*^9, 3.811698022302493*^9, 
   3.8116980814595423`*^9, 3.8116981147595634`*^9, 3.811698148827083*^9, 
   3.811698219402918*^9, 3.811698318005497*^9, 3.8116983706445074`*^9, 
   3.811698415873454*^9, 3.8116984562345376`*^9, {3.8116984902351093`*^9, 
   3.811698515895474*^9}, 3.811698580886821*^9, 3.8116986363595605`*^9, 
   3.8116987250568175`*^9, 3.8116987640119762`*^9, 3.8127062125150948`*^9, 
   3.8127133895371923`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"8e129e91-9517-4203-87fd-a0c2b266c306"]
}, Open  ]],

Cell["", "Text",ExpressionUUID->"dce980ac-799a-4c6d-95df-c7df9f287559"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2], 
          Dashing[{Large, Large, Large, Large}]], 
         LineBox[CompressedData["
1:eJwVi2s0lHkAh19SobMMVs6wSKhQKk0qaX+vqClSuRTW9bRIYhc5S1qX6dBF
F7adZDdKkpIiudQyNjSlrNxvacy7K6ssuWz9jcHMbPvhOc95Pjwmh753D1Gm
KMr1M//bOeR9e93Ijq/z4/eZZw5QtIqjfhTDNkPScJGp8efecD07p5zNgZdg
t2GJiKJdXvU+zGU7YRHPT7n5DUV7BUtqL7E94c0f/HlxP0UPrD3teIEdDCtV
7e7EHorO0913Kp0di5dZi7pDWymap1q+8iw7FXOmSR8t6yna2+dG6eQUH898
HYxY+RS9RMHz4xpdh9U93eHqVIo2dxt///RcAR6LHsVUHabouJYtyP5UhM0b
Q40Jl6L1KrTESkqlSAw8fUTbkqKrBh2bW+0foifKWhShRtEN4bkGPmMV0GN9
JOhQgKzYpnk/8hG0mz5V/3RZAWVpMcvAvBoJEcPFBzwUsFUEVXmUCJBptT7F
UFeB5lROy3PLJ1jBM0ho7JXDOHNUWjReB5fAjzIxX45RCSPuXteAO/kb2MsO
ylHwT02TxsWnWHjC+VmTlhwahrcnhoaEsGE3/hbWIsP5I5WheWbP0aTsuMo9
Q4ZpungoLLkRCrciy0JnGWJthBVLn77AfNW/PC91GZgS4bl2kyawdApUY4Xz
mAvvumqR8AeSfKTxhcnzsHJYLA+taYarg46aG+bBzTc5XKbXgqFJZVakdA5x
hoHL//JrxYxdXYDm4zmsHjuwpNe1DQ1Dy2Rv4+agozmpKpxtw4rEd+U2NnNQ
eXK11DSnHfFW/iyDqVkc5dS8VnPpgM7kqb2pd2dRvPtQ3u/THVho2dG3PmQW
ZFSfNZzViVjh7fIzZrOo9OAu4Dt1Ac9iLkaKpUjelXa9YrgLSQ61LJVcKUwG
nPtupnXDW9p9Y8JPCrtNqXy2TQ+S9mQox+tJ4WfUKlXq7MH+9FW7anpmQJou
DEbxehHhkLLhduYMslUCYt3N+mA75c3x2DcDHXFlvrKwDy1y9cZgzRksTOR5
bol+DfPxd/brmySgigJKB7X7YWTCOVt/VoKYX0svaDf0Iyl+o4+BkwS1VmdU
tb57A881/rpjimloOcesPqkhQkiLmhGvbhqiNW2dxwUiNFSdcyAnpvHgGsyG
AgawdJOXvrX9NPxLbbUM5QOIaL/VIJYRpKTd4InuinHlkvVwajXB/feGVzX2
MNiu1Rg2eoLgTG5akHgvg+j0npiuBIJg9w/mJW4MnPMYXu1xgq8EggeuXgxi
1g2WZMQRpGf4Pj9/iEFyfb0T5xhBmO0vU+rHGbTRZUFJ4QTLU7/ctbiQwerq
lMClPgTyzT9+0XuHgXVZgjrlTfD6w9uOwmIGKSfTq0cOEmR6lfvvLGPgyZmw
qPUkUFi6H0sTMHi1/+8dwfsJRO0Z1xZ0Mng5yT1WziV4fErybWc3A76valTu
TgL+1kCLm30MVl4eiz69g8DllnXFdjGDyQ+mab6OBNXxr17yRhjUp4SOLABB
1pqNGW5jDL657685vo0gejDH02SCQWR2sl2fPcGqPRFM3ScGDcbcvHt2BCpK
XQWZEgY5P4z3Z20h+LNya3jQLAMLJaE+bzOBIPzm2nWyz3/Oi8CjmwiuGC8h
CgWDg+ayogO2BP8Bk/Nk7g==
          "]]}, Annotation[#, "Charting`Private`Tag$759330#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[2], 
          Dashing[{Large, Medium, Tiny, Medium}]], 
         LineBox[CompressedData["
1:eJwVj2s0lHkAh+eipZwI4YxCMlQuJSkk/f6h2Erlsqft7LgkldRKCmu7TqGW
UBI29xLJloRqNZV1mSLkfgnzSmrJiE55x7jMbPvhOc/X5zHwO+q+n8VgMFy/
87+37h9qrhjevLHSbH6/WQebKDjqBFMcLq49M+eea2eTNVmp6SUcK+g51fi3
trHJtobOhxkcJyjU8HoiWtlkt7/kWSLHE/KkLZnCJjbpW3XRMY7jj1rbhpM+
r9kkW3NndAznBO5ZDqTFV7AJX6lk2R+cSIyF9OQM3GWTn/fkFI1/SUJYojbv
yUk2UZbzec56WcgZ7+6I2MkmRm6fh6pic5GcMvrviCGbhDfaIvVbAYSSj/+c
/sYi2qVqIiazCDGuUavVXrHIowHH+jcbHmLXsMO86hQWqQzMWLRHXIrAsiyv
NQEsMmFsr3rv18fYYR15+LEdi7CkhQsWGZVjauWDxd7KLLJO7vvI474ATqPv
UwxFTFIfadUoNHkBj8p4wd/FTKJ/ZURa8LkC73wUXMP5TDIioUTtFpWYg/78
vZ5MkvvpaZ1KfBXEBwsMwg2ZREU3f2xwsBrdHKks4CuDXD5UdiCbK4SJft2y
a0IGoUnhYMDZl4g+V8cdv84gJyyrS7WqXsFmeOZ8bACDUPerY5sN6nBVU6PU
x5pBpgPb0lb8/hp+3SVmSxQZxHSTouzA03rotDhUbC+Vw/mmwcFi7UZwHXVc
KXc5wnV9lr7jvUF/cZjpnEkZzMQ/KXe6NuEv+5eHNbJk0FAdV6qeasJElueS
5xtlUHiRVmSY3owdN0ynWB9mcdjqaffcbS3YMm5vSF+YReGPftnP6Rbwf8jX
G+LOYmJEZ8HH5FaMaxVXhNXPoMzDmZ3k1IZLlrVBjUdmcNYlKqv0YxtWhX51
rtaYgUHf1q5bUe0otJBrCATTWG8dmcSx7MDkghW1qd7T4Om9kTJbO2CZpipU
VZzGRF3cQDC/E8Ksaf3zd6aQquB9wp3bBZZVyvjlXVPQEJXdZFV3YTVLfD13
Soo5p/metse6wdAKjenIkIJR4F00oP4W1jz7QynOUoTcKIpTr3wLWaTltdhP
k3hmeklJLagH8QdsN+QkTEJta4jZeZVeqGa8vWtjN4le86bWCEEvqL28GKN+
CR5kgjvo3YeW0J7EuFgJvIrWqenK+iBaWfJ1rq0E56Jy+L13RcjzfW8so2jc
G9JNU9lOwUY9aR4vjsaljChf0Q4KQV7GWuJYGv7uo0b33Sg8qio3ORVDY7FA
8MB1NwVnzdGg9Is0YhJ+EV72o5BpEb+vj08jYN2fX+ZFUAhmh8p8w2gsjVzo
ophHIbXMn3HUh4bM5tT8zjsUuHY15gxvGt2j71vyCimok03+V3k0ruwu8dpS
TKFDHC8u2UNDbuJ+PEpAwex1cqDUg0Zvc0Imu/V7H1tJN9qFxpNoyb7WdgrR
MWd6tZ1pJNn5rLjVRSFbU/d2wWYa226vLHUQURj0bHdrcKBR/ltDLX+YwpkN
LhxNexrJ5msT3MQUlhcsXJpvR+PYQLqnwRiFrl2qVrbraSzffoSq+EYhJDDx
uJc1DQVmW+4VCYUnAYtzxtbS6C+zC/SdopBR3tnJt6IhCLy1ymL2+49xjfbC
NTRS9JUn5HIKbcEffPNW0/gPFcFd1w==
          "]]}, Annotation[#, "Charting`Private`Tag$759330#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[2]], 
         LineBox[CompressedData["
1:eJwVzHs41XcAx/Fzc9IskklHoSOSkkpShj7fpjCUuexpNUlSa1qrpJEyO665
a3mkDgeRTcZRDpqEoZtyC7kd5+f29JQUbS4/J87Z9sf7ef335vud9jjGYjAY
e//rf52PvW6ve7NnZ60VHXwwm0s49rpnKJ4R0isPrQ8WccnW7IzMMp4l5ON/
Sa9mcYlLc/fdLN5ueNrH7WoWcsl+/9kHv/K84GlnokYyuGRgU6x9Es8fOeZ2
2cZXuCRH2y0mnheEVD9J62QElwhUy0zieFGoHKwOiT3OJd8cyBVPfkhD9Y6E
yYl1XKKmFHg76mfD4qHhhnMTKsTY/f3rhoR8CGOr3A0qVUhwizUypgohG9QN
0wxVIToSTRmTKcYd7sKY0S4VUjFs/7zV9i5We1k9i2GrkPqArJUHxiUI9NVb
rP+YQ6bX2mkUn6qEpoVC2JfMIay5oqUrjavQ+Uqz5293DrFS+lZ4llTjDFdR
aMHjkOdRli2P1teiTlJ44o8hNjFIfTtX+L4O8SZOL1NuscnbWUrWtbkeARo6
64Sn2CR/7H6TenIDXG+4n1+5hU3U9X6bGB1txBH10PyhaRZJ/L78eI7RI4gu
Kbqba1hkhhSNngh/jHva4W6IZJEgi0bJ8oYnmMuMm+lyYRGqpDGhnd8E1f5r
bQoNFvkY0Ck0DX2GOvFJvfNdTLJh1yLF8fvPwSqIjFbLZhLHm/zv7ui0wG/Q
z9zBn0mC9Q4bDnm3on6mJUi0kUnMxr9W697bhtIYvh1oBtHSmFRtlLfBqqos
P72GQTi1QvGazHY0iRreseMY5KTl/d7FLi9QkcqqsnJjkKIv/XJqZl5gZ3/7
9gfLGWT6re7SV+kdmP80bUlOoxLlno7stN2d2ObW3R7iqUS4U3S25FUnVl1P
TvMdU4A/4NyTF92FfbeToqSRCny+PSqNZ/ESjhMT/Vu1FfDWb51jdryESBCs
iChZwHRT0vAZQTfehMrtWrCADI5PkIdRD3Qvdpqr9M5DS1Z+k9XYA5qaS2oN
modKmMDL+mwvfCJKXetU58Eo9BEPL+vDCDfypCD/IwJviJOW1fehlkp3SNjx
EQ82XFbV/LEfnEQndbtWOTSdA80i1KWIHeKM5JySQ7qxreNCtRR/xmmtDuXI
USqC0ajPAJqSpVPTN+dwSGylqacYwJXQJb1y+zn8Ep0rkN6W4YlLrXPuAI3i
13pCdVcKwtSRtKc/07icFe0r20chbWtS0powGv4e74xL3Cn85KlzNewijVXV
1aV791MYW9TauCWERnzKt48S/ShUmfXV3zhL44TV9Q+fXKCw4miL6Wl/GoZR
nzktKqBgHZdbwHemodhxaUn37xS8u91sw5xo9L4beVFQREF05L2sx4FG6v6y
Qw53KOTpKpxT7Wko13uci66mEFtxvkZpS0PaniJid1CwnduiNbSJxr2Y2aMd
XRQS1+iH2JnTSLM5bJrXQ8FoD2vsuhkNl1vmki9kFG4flEx5mNKoCml+Knjz
38+m+dZDQxrpG7eluI9TcEuJCTTk0zg7nOnFn6DgJLZxDTegsc71B6puioL6
TuFa61U0OMzO/NRZCsU5DibpujQGy20CfOUUGPcmLP9ZQaM6IG/T5gUK0wvp
bl/p0LhmoDatVFKIH7cNLtam8S/JBluM
          "]]}, Annotation[#, "Charting`Private`Tag$759330#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 1.3257652893247118`}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> 
     NCache[{None, {2, 2 2^Rational[1, 2]}}, {
       None, {2, 2.8284271247461903`}}], DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
       "\"  \\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\nOverscriptBox[\\\"\
n\\\", \\\"_\\\"], TraditionalForm]]]]]\\)\"", TraditionalForm], 
       FormBox["\"S\"", TraditionalForm]}, 
     AxesOrigin -> {0, 1.3257652893247118`}, AxesStyle -> Thickness[Large], 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> 
     NCache[{None, {2, 2 2^Rational[1, 2]}}, {
       None, {2, 2.8284271247461903`}}], GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> Scaled[0.5], 
     LabelStyle -> {FontSize -> 50, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 0.5}, {1.3257652893247118`, 2.827809273970018}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"N=1\"", "\"N=4\"", "\"N=24\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2], 
                    Dashing[{Large, Large, Large, Large}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[2], 
                    Dashing[{Large, Large, Large, Large}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.14] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2], 
                    Dashing[{Large, Medium, Tiny, Medium}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[2], 
                    Dashing[{Large, Medium, Tiny, Medium}]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.14] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[2]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.14] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 50, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "Large", ",", "Large", ",", "Large", ",", "Large"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "Large", ",", "Medium", ",", "Tiny", ",", "Medium"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "50"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.8033157351084614`*^9, 3.8035786361033583`*^9, 
  3.803590658522641*^9, 3.803590923441802*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"50279710-9e4d-4579-9ec2-28fa7a1bc919"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SvlostOdd", "[", 
      RowBox[{"lost", ",", "1"}], "]"}], ",", 
     RowBox[{"SvlostEven", "[", 
      RowBox[{"lost", ",", "4"}], "]"}], ",", 
     RowBox[{"SvlostEven", "[", 
      RowBox[{"lost", ",", "24"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"lost", ",", "0", ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", 
        RowBox[{"2", 
         SqrtBox["2"]}]}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"AxesStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "60"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Black"}], 
     "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\!\(\*Cell[TextData[Cell[BoxData[FormBox[
OverscriptBox[\"n\", \"_\"], \
TraditionalForm]],ExpressionUUID->\"16f55523-dfc1-4aef-a27d-ca92fd580eac\"]],\
ExpressionUUID->\"f3f196bf-59e4-4048-8c80-2c432729bb5c\"]\)\>\"", ",", 
      "\"\<S\>\""}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "0.5", "]"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.0025", "]"}], ",", " ", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{"Large", ",", "Large", ",", "Large", ",", "Large"}], "}"}], 
         "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.0025", "]"}], ",", 
        RowBox[{"Dashing", "[", 
         RowBox[{"{", 
          RowBox[{"Large", ",", "Medium", ",", "Tiny", ",", "Medium"}], "}"}],
          "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.0025", "]"}], ",", " ", "Solid"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<N=1\>\"", ",", " ", "\"\<N=4\>\"", ",", "\"\<N=24\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.80184852543483*^9, 3.801848531659172*^9}, {
   3.801848569079075*^9, 3.8018485849974675`*^9}, 3.801848628045273*^9, 
   3.8018486660541363`*^9, {3.801848713929016*^9, 3.801848753131072*^9}, {
   3.8018489247290688`*^9, 3.8018490443589225`*^9}, {3.8018491855422564`*^9, 
   3.8018493616345253`*^9}, {3.801849399246828*^9, 3.801849500233574*^9}, {
   3.801849538491191*^9, 3.8018496518598013`*^9}, {3.801849755311951*^9, 
   3.8018497956121416`*^9}, {3.8018566785886765`*^9, 
   3.8018566800450125`*^9}, {3.801856895460101*^9, 3.8018569043321376`*^9}, 
   3.803110678140086*^9, 3.803111364805334*^9, {3.8031118566162443`*^9, 
   3.803111887166381*^9}, {3.8033084636843133`*^9, 3.803308466882759*^9}, {
   3.8033089059202657`*^9, 3.8033089093999596`*^9}, {3.8033137905597363`*^9, 
   3.803313794000531*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"2183e2b6-bc12-49e8-8533-e36d09d1965f"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum", "lstol", 
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient increase in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"", 2, 91, 24, 26624747640351604249, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.803315911771821*^9},
 CellLabel->
  "During evaluation of \
In[91]:=",ExpressionUUID->"ebaa9239-4362-4e65-b71d-957418b794c6"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[0.0025], 
          Dashing[{Large, Large, Large, Large}]], 
         LineBox[CompressedData["
1:eJwV1nk4FQ0XAPC5M5eLUFEqCQmJSm+LFuWcrJFKeiWSkGwhEpUiEQoJRUVZ
kqiIsrQx915X3NJCVCJbUZI3lC3rN99f8/yemT/Oc9ZZ6HTY8iBJEIQUiyD+
/xzZ6n3D4rCPnlNm/vy4ZgIjnBdrvFXfDhamP1/+aCTw9a8Ojwvq9nB/zqEa
/QYC+woNYjzVvWFR8q223+8IDJX7o2CnHgzq+n/VtwoJrK4y69ylHgu5gtJ3
nx8SeDg94MUO9VRYiZtbz0USyI+JebZN/T6UtEw3VdMmUET0COeHBxdo3bH0
y7WTYHraMbx4dxW0DNTde2w5AY9OHGzOqn0D4kZDStPrx+CT7SHtI8fqoPff
QC/df0ZhpskFFz5+BI8v6Qnpd0dgRv3Bh2v3NkHJdfsgJ84wLFL2vBPu1AqF
o0qia/0GYV2zV/XmhHbYIacx24EaAP5oiHl9yldQcdN4XBPyG9y4QiEd2gnn
JCxOo1o/XDuQLT/b4Ttcv37IKLO0F5btaR+aPPgDbj7/YGA79z9o+bPjDZr+
hKSalgZ2eTf8bp23Qs7qP+ioUQrbat8FcfcCXa2te+HsjW0ipVrfQH262Lbj
KX0wf++HOzqbO6DEJ+RebFo/fC26m2Bq+QXq1S5xdib8htKimZNlt9tANaxO
Y9+1P4Diq529RpphvUXr6rSUAbio5HHbaKwRmn3C9S7EDMJg9KfYscMN8HC9
jdTz+CFIWf5st3fve5DbXfUpJ3wYli2Z+8q6vg7gCxFffnQEnth/b44YqYVr
cm5S6sf/AiXn+3X70hoITXWPXOMxCoolXtxBh9dw483VylifMeiZUZprevEl
BHlf6ltwZBy8Lrg1jGkK4aejxlwbpwmQOf5Qtw0qwdazSeuQywSEUaentNdV
gjAgFoI8JkBysZATvqISsqIHXDKOTMA3DblWvYWVsL+YV/wjdALSllw60U9W
Qp2Yza7AzAmQ0lb5ZlH1HJ7ln49N6ZiA8UO233p2PYfoiW52i8sk/O2v3LXx
VAVs8b0svOsxCY82GJtuCqgAduemmGPek8CX1T+h71MBwa/iZGcGTIIxyzbM
xrkCfFJ0VAzDJwHTSuWfmlfA7vWhcDdzEtwNrJYaKlaAiv+8wIC2SehLrE04
UiGApz0mvdK2U6B/b1fuLwUB6MRejxLum4Lh3M3dknMF8FC7Xy3UcQrYz699
Xy4rgDtHku0G3abg2eLs+cHiArg60vOi6dgUZDfMMTEdKocAdsKtnMQpsPZu
So6vKYdVCp9t9Gun4LOj99P2yHL4oLbuywZVAo3C48M2ssqho9bTANUJfO9g
FNo9zoffQRm3jDQI7NgoFXd9hA/TP0i4Wiwl0EXk3TvJPj5siWj+eXA1895N
snpBKx+efgsdjDMksCyodw1B8yEt+7XYd2cC7azMTpcG8+H+LtKjx4XA3/Nv
nPgRyIfSKZ3qfjcCrZNxl/wxPjRYp18Y9yRwKCI+NfIwH2TE/GRk/Am0sJnu
GefAh7NucxU2hRM4UPjzqo0BH9yWHNC+lEUgLikZ5U7jg6LEpS7/bAK37/zh
mCbGh7ru8ow9dwhc4Oc1dUaED3q5KrMU8wj8Y1TSYDHFA1ntLyM5RQQKHY5+
nfWHB/Rqx3JaQGD8zaRda5p4MAv3W3W3E+iquPX42zwevFS+KP36K4Elre0u
svd4cJrFrcrvJPBBTKKLbQ4PussVN/j/ILB0+9PL/Td5wDVqUST6CTSWqYs2
vMoDj637umYTLFS6UtxxMowH/N17T25WZKFDz14TDTseVCbMFporMw5qO3XN
hgev3rydtUeFhZv9VFWkrXnQYGx431udhWdCtUtYljzo01nWnrKcheuuGH6e
uYUHinOmjIf0WNgk1d1Wv5oHgR9vytzbz8J3V/tbmmbwIER23/4SRxZW7VDY
+liaBxE75uTyD7Bw4POjv1ckeRBfFW3U4MrCOSV35zqK8SDn0dHjIj4s7JLx
0ZEnePDhinHL/hAWBpu0+W1r48KqPd13ZmWwcFB6rateFhfahGnbJ26y0E5j
7b6JDC7ErLf603mLhT76YcX8VC58k+dtfJTDwsDshWdtr3IhuTnxrU0BCxvN
T+99Fc0F8sDmwVQuC1tS/dj5flzIrxu6FslnYfkBZTmBDxfsDHP1fAQslHB+
7/LZiwslanPOba5i4ePHSaWKblxw7+qR73jDQpP5xuPtdlyo8bqKS1pYqOZo
1uFgwoWglm2dM9tY+Daabqsy5ILmDipqtJ2Fkhbuf1fpc+HsCu+66k4WpnWV
BczfxIW1fwxcvP9jofueMefFq7iQerw3unCchUfTiOX/KHPBM8z446b5JDp4
3zo5MUHDSFTtd4UFJPq0aBZLjdMQnmA3MqZIorRueJLKKA2pGUfmPVUhUeRX
5RbbIRpquKl7dTRJjJWXXs3qpWHV+FDr8vUkDiRHHdJqp4FHhfZJ6ZKYQa1c
E95Kg/k0KdZ/G0kUe6ES+bWZBmf5RSr3kMSaAMnSvEYaktbtcF68hcTdBuar
jtfTMHo0u0vJmkRikV7mVyENEadW/p3cQ+LnijBOeBUNsmfLxFtsSXxT8ade
s5KGpZfqNK/bkyjafC0zTECD/YMpz7kuJMYTnEZ3mobux1FBw64kDq3I2rm8
jIZjvNmxH9xJPFooumj4GQ1xb7XyL3uR6LbMrTrxCQ38/6z7Z/iT+EBGckK0
mIbtg19YfQEkJo9rSP0qpKFx3Evm7XESU/8pc/30kIbf086uunCKRMuQvIHS
AhpUNQv8xc+S2HrCb92jXBrOuYiNsi6RWBGozg3IouHgiwWp4okk3u0ZKb54
iwb9pav0Z14hsSrTLTEvk4ax/n1RyikkxqlFsUcyaPAOKpSHTBI1lrU4VKXS
sLVNSBtnkWhwIM2Gw1jDoMVpezaJCdnti81v0PBFTPzevnsk6hx00e1IocHq
sr3uqUISqbbxsW3XaFg57NcaVszkP2m7fdFVGqRtz4dFPyJxSbFmmBJjoVJR
dfIzErdOzpzGvkJDVuiLwzfLSIyIdnEPSqIhtLNF9i6XxGajhpCxRBo23hO3
eyIgUS8ot1aE8TxpJYL/nMnnjH2iCZdpGPJZfUtYRWLBeGW3CuN8nf09H6tJ
bAtzf2J5iYaYa0fjWl+TaNc1kNqfQIPb+PnV39+SmL6+VTORsUp50amhOhJ9
804t7Y6nYUr1pfLkexLfb4u8kcL4c2RrhUgDiac+pN3byfhJ94CbVCOJdcF+
/0oyTtomITX7M4khswoSq+No8CtQeqDQwvTXOOV1kbGF7Bor1TYSVVcoNlgz
Xhpg9lfrC5M//fv1qozFP+2/saqDxEBbZ4ehizR80/XfrPuNRM+1/cdfMS5P
jerU72Lqv1xUIZtxGiv9vFk30x+aViYRjE85Fy+z7CFxRn7ciDtjm6qXtTa/
SFxbf2iZJWMdzTZ/xz4Su0yTv+oxlr0wOM/9N4mau2vmrmDc1ytB+wyQmPO+
/KUa49eWyk7Hh0h8prt4WInx3eI1oiEjJDolFKYoMo6Yu/Vu5CiJMoGKJQsZ
HzjpsP3iOInimkqGSxhji//vpEkSJw97GaxhrLA5OimVoNCpgP/AiPHfzPQN
t0kKZ3yrj7Fl/EG0pCWPTeGbmw7v/BgXuleHFotSWCCtFBLPOO5Vm3qZGIXX
u15eKmTspT30skKCwvkRStMaGZslTDv8SpLCnncNX9lMPhcPKsvWS1Moblk4
fzVj9h6dR00zKExX8CxwZVy2wHGqexaFOt2HvzcxxmLfsbdyFA7pnZady9Sz
wjx0uGguhYlVBew9jF+dzOwNVqDwQ/kS7a/x/69n0c8DihSajb5wXs70T/3d
iu9blCmU7d20J4jx50+drTKqFIaEWfuqM/3n4DvUNKzGxHfC5lII4w4xTsPn
xRRaN30/1MK4Z61GzW0tCtHfdX0W07/jiR68Daso5ClukN3PzEPIspOlSmso
/Hawo+QDY/bz6MfstRRatWSQlsz8SA7kFrzZQKEEqkTvYuZLwbI33UmfQpPX
HctCk2lI/zF13cSQQvPw2lY5Zl5Vz8y4ttSYwl38o1r5jJcW/BM/ZEqhQ9fj
c93XadCVPnomaieF3o0mS2LSaKCzzgYd3kWhfNBgwKZ0Zp9sSjzxrxWFZafn
WfxmbOZZ4qtow8Q3Le+Gy00abF+OOD50oLBozP/oCWYfBUYE6TceptDWLDPc
mNlXkwti9bi+FAaOtpRo5zHzXpy64ZYfE982F2uF+zREdXBXeh+jcCnPrnUq
n4ZkfXIReZpC32mqjb3MfnwyGUFpxlLYp39oyLeUhtj+hZfWxlEorV146g6z
f506SlWMEijcqfWxu4PZzxIvf292SKJwIH3Q35VPg12ifUhSKoVxncESKcx+
n9TSmSDzKZyQ2GP8tJaGd4q1MTMeUHjb0cNIu46G7JmeCoqFFDYO54jnMPfD
YjhDd/0jCldYzfp06yMNGeVSgYe5FBYuyrGuZu6PoU3nUNNbCrcYfB980U3D
XPOQiB+1FOodtTMJ7GHqrTdfbriOwo6Abt3lv2hIVN25RqaBQinPdpGMfmb+
e0v9trRRmBRl8eXBCA3nIy73FfVRaGHS8j2Yw4U3hQbdF2ayMV70T/KjxVwI
3VTUGS/LxuCs3h1vlnBBp0q1PXE2G4s8go27tJj73CjScGMeG/MwvU9tBRe8
WMLneQvZuM5/DSVcxwXJHeYZr/9hY69kiH+WGRfMuv/dI2XJxoHiV2aPmf+L
58oulTEJbFzrUuL9/jkXlFtr53lfZmNqjtnTU0IuBN7Y5LUjifl+26ifejUX
VsjPniWTzMb7v1q1ztRw4bpsheOVDDZGzTcN39XEhaOiKhMZBWw8HjX7ukc/
F1R7mlc9esPG0O1ly3Kn8+DsI6uMdgkRTJ4lWdmPPLBT+Wy/94II2ltJuxU8
4cFYifZ8LY4omjeuWL5hPR9OUT9eJQaLIkG3Pn3I54Oc6npHNYKDlb5WAzMd
yuGY9+4BiRMcFBPreeI0Vg4KOs5C9ZMcZH+vq1SbLAfehO91/SDGmSv0fhAC
kLhwwTDwDAfXCz+5+4oKIPVexeUf5zkohP7MiJkCqOxauUaYzMFoBROFisUC
mHVgekB4KQc3TBv8E/GvAJ5oLjDLoDko716qvttaAPa/NRXLeBx06WY9ULMV
QM4Z48qBCg6SU09ePN8vAN30IDnn1xwcCH47Jn5IAE7NP0v0Wzho/rzvS8YZ
AXCy/kbZt3FwaZ6MacBZAeR6cvYHfuFg1dqUCbNIAQyNqXAefmPi3565YzBG
AFHyttYLezn40PdP5LarAtD+4qq1qZ+DBVdzd6qmCKD+jv/Unj8c9Fhpc3Ds
hgAU18dnxw1zsPqvtdvdTAEIiLSTuX85uMA1bnfobQG4CXN3CMc4GFB5Lsb2
jgAk454u6pjgYOynIvFVuQJ4YC0cnpriYOTNc6+n5Qvgf4qC2po=
          "]]}, Annotation[#, "Charting`Private`Tag$2600848#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[0.0025], 
          Dashing[{Large, Medium, Tiny, Medium}]], 
         LineBox[CompressedData["
1:eJwV13k8VG8XAPCZO1MjlbIW2ZKQQiX7cp4kbdIiSyoiiRISJbTYd9lTytJm
zZJ9n5mUkSJLqGT7IVvZmRnLvPf9az7fz5l55rn3nnOec7fbOJ+9ihEIBG0i
gfD/T+YJpxennV10y5mmLXs6SCjQVlauWcYInFqlVCRbSejrv8HrETKWsDp2
TIS/iYSmCg+FO8o4wb357BuLH0nIV2hW9KLMA/A3qIWKYhJqrD8+ZCwTCQKr
6NyueBJyTr3TcEomGU76RZx/b0xCtPDwypMyuaBLLzyW2IyhNWtdKaPXayHP
ZosgvCOiYw+tA4pN64H6o9frTRIBld67+vtNSxOMbtFO/SPOgR8WN5Rc77aB
60hUz7ffy8B7JMKOhjohIosRGtTIhs3tV9+rXfgF0k2tV2OeMmGHpGNmgE0v
7J+pW9PvswDqv282Hozph7opHruW5DmgsR8Ztif9B6o8Mtv3pc+AfS2DUeM7
BG5IN/De0BQ8vZIuInj5D5zYSfuS6fMPFMz7F1avjkL1QZvmHolx6Jk91YSO
jYNWo1acws4RmOkV3itk8heW9/xbNBIdgqhsz2tmZpOwQ/jUdbVzAyCzieuk
R9IU+BfzbGC19EKJy6PsyJRpGKng7jSa/QntO2MpZ2JmwPDQ4coYagdI+7XJ
XXo6Cz9pAmfOxrSCxuneAylJc/Anrt/4d/pX+O0SoBsRPg/BPyhcGcfr4b3G
+Y0foxdA+peFozM3DYRM639kBCyCsffxlraYUoABQjTdjQmpcUH7PybnwOaH
M+LfPJgQM3R6N+1sDgxsG8z57c2EgQSPjv61OeBvUs9g+jMhUcxse7RzNnxm
RBCU4pnATrN68lYvC0zzRFySipnAuOpy+81kOjh6HzjltsAEw4+Fx0psX4Gu
sMxvHzYTXJYuNKiJvYJNJVtuPF5lgs1v8eHu7y/h/SQ7MGstC3q497VHH3kJ
iza0mj4hFuiKb3v8Zk8a+B4zUjypxoJEObX6H+wX8FTIfqOMBwvIwjLy3q7x
UCZ6+sQ/Lxb0acqOaMzHQZeUekjJQxZcrlFqUPaIg61KXGuOBLGAsZRa+etB
LCQcyVi+lsCC01XL7ezIaIjzGBnPLGLByGXob3ULg6IH33a5lrHA3DnO9aNP
KLT5l13TrGJB1wNBf8XHIcAXHfzf5w94XF2o5Ep2EERnyv0ab2UB88IlLbNR
P4j8af9ZYZoFaODoaOyCB+T2neZamGOBpJmmu6LEXfg6rG5Qw2QBNUPW/f1R
d9gwy0U3IrAh1fz7X/fkW7CHNcURIrPhsjv3mEO8MxhyunR6KWyg8kqKlE/e
gLD1meXOm9iABncJN2TaQhZv9KIaPx4vWiaHrLOGz1vuqRC2sIFwMyBxb4cF
jIlZ32aI4N8f72BPPDcGbuljBVHieNwtKSm86SjIy++bNJfC3Slb/q/9ABzb
K6ywXQb3VtWb2rESYK9KvDG6iw2Pzp0Z5T2qB8HaoxkFCnjc3LhG/8RpyNBr
Gb63D1//1+TaESczqD9aLq2ngsdjnhbMRlrCWpOQ1FZt/HrGq7t32NhBwM1d
ibMn8PV+PPy5ilzBN9khSOU6G4INwjjc2x6B3gW7CSMnNkQx5HYMcfsAaeuV
M/au+P1hRZlpsn3AP/ritiRPNvRpaPmZdvpBoP+pPEIYvl6bwo/zYUEQcl2l
szGbDeqMI1tyfkZClCpR1uYvG1xCoKI6LAFeNCV+inRZgtww+Q4H8ku47xQ7
Jea6DG5HFA3Tf7+DcWu5redtVkB7WDciK6cQLBx/7b5htwKJm1tM3tQWAuNO
JNy/vgLdGjIjMa2F8CZszi7NdQXaBTZ6GTALwaqYWjzquwL6YZbfNh0qgjau
88aer1bgUq7OhGJHEVTmhUQmDa7AuNDgjaqZYghbGSP32K1CQKGQAmdNGRy9
FcfIur4KBQ7l1VSBMiAP6YTfdVqF62lKRXd3lMGDL1H8vHdWwbKa2PcRlYFL
kqqUfsAqTEcKRv/nWQamGr6Q9WoVzDJ8DWT/loGUu7Dnnb5VED1zxfRPQzlU
TByZ5LHggKBfnzfpaiWoRj4PZVziwEhxuuaSSyW8V5re6WvNgZ9PHGJHvSsh
0/XZxXl7DmTdkpTKiquEROZEw6+7HHgXLcxd+aES7pBjXmfEcyA4fDBfXLIK
lEW7z+u1cGBgUTYLa62C3Oq980vtHCi/vT+/rbsK5K0Cooq7OPAHhb9P+lMF
Ui8V6+X6OEAU1inbvFIFfHI+BzZNcmAo5s+2x7LVwBSOpTitJSCP2NShXs9q
6NipPqApTUACzal3hkVqYLDF8RCSIaB0pSCKy84amLmf9vqwHAFlBR1wnFSq
gU0d3NdO7yEg0R0UarN+DRwN/D1+9QABZadZLQk51UDFsO98lD4Bbbnns/FD
TQ2kpH/l+mNLQMplHYPZ5rWQa4xdn7AjoGWOvPqidS1UcVQbp+0JyKpFtVP9
Ri10maVGLDsS0CTXcUrK/Vrg47rNx+dOQJaVPE8W02rB336rqE4AAR0975/f
PVIL9ruuKMW+ISCxvB49hhoVxLljR9zTCWj/3XedUVpUaBujp5lnEtBX7/12
JkAF3RwpAfF3BKT/SP9OqwEV+JUGmBlFBPTdvzbsuQkVag5Y02s+EBByWGm/
5UoFAWRlMtZPQBoNQtt2Z1Lhs+Rjnq//ERC7bGu1ew4VHhJr6/OG8Pun4hdU
lUeFMbq4pvsoASWEmCXpllCh9nCPOGGagDZnmf0R+ECF6ycujQgSiEi/rvDs
+m4q0EwveB0UJyLxycR7u9bT4FOMIMNQEo/Hnn2ozkODL03NAuZSRMRuXVU9
xEuDLgP9XCcZIvrP8vKHE1toMKWq0J+kSERNPuG+u3bQQHwLx2BBl4jO8QXt
FtakgWfnS75sKyLSHTZ/8d2WBo/4L1mVWBORR1KkqeU1GgSe2pJDu0JEdVWx
7AEHGkTXhx3uukZEtvObuPucaJBR6uaxxoWIpJe/3830oEHHE4Meq0f478ee
CHqF0UDZfCxTII2IZhZYD3bm0qCPkWK08pKIyDWSQRvyaRCuYTI79JqIvGL2
7J0qoMGwCFW7NIOIzrT5XX9XTINnv+Obz+cTkamaQDqnigbYlYPzybVEdFNt
0p3cSIO8toWnQTQiGsmj7i/5QoOL+jm6Lh+IKLwk8a1tEw1Kdm4JPliPx3l+
lZW20MBhZEJksImIanI25ap20eDbzUS0q4eI3jb6bXw6SIP7PSeHePuIyK+D
0Cs0TAP5U6RQdj8RMX0s70f/oYH/Xqe2xiEiWnCRk7k/RgO12UN2Tn+JaHCm
96TiFA2SPSbDCpeJSD1IS5rFpoGjn0GnzjYMFQh8Oa3JQwdmaMsfUTEMFbW1
/zDaRIeAmIvMJXEMDX0t8bi8mQ7Jaa7CFVIYGhchrnjy0eFbbfIFVXkMJRG9
9CKE6KC8vNCrqIGhKBTUIStOByrJd2qjFobwmeIMjwQdDNdvJP7VxpCn9KbF
ady2IjukshGGyoqFPuRvp0OC+ilb2aMYWic75L9hJx3YbukjEmYYOp5rQtPZ
TYdA7/2sVXMM9ZOXHBZx8/tXr+uxwJBWU9Op3D102BPbJv/cEv8/+s9OfkU6
WBZwHLfaYYiv1Hapei8dxspC7y9ew1DCqlWe9T463KUKRnY4YMhk5kAWtp8O
Uc278+JuYqjQQ/uetjIdaH/Npje7Y2ja9VryYxU6GM0PEKfuYOiBXWeWmCod
fi7f5Gv2wJC/ZSUlE/fMen/lCG8M8fqnl5aq0UFaPt99nT+GZGc9eYs16JC/
TytwJABD+fsW6QqadNDR+JRQH4Sh8GGXple4TY92lwaEYajdTpQZpEWHYDsu
NjEWQ/9++Zbu1aHD1Qax5HXxGPpqUJf9HLfeHmU93icYSpWPjFijS4el6Uuh
kkkY+ttbK9GEu+vcbUW5Fxiao+xqUwA6FJUGtyqlYMjQVMwzFLfT/UIReIWh
V+vfZmgiOpzoY9QYvMFQw0915Ujccod6bIzSMZSXalzag3uAa132pWx8f13C
7+8cpEPtDfFTV99hyKOOursG9/Mm5VnHPAy9eDr8GtOjg0mcpZZ3IYb+jKUl
+eLev3i7168YQ8bTSqI1uHksQvzCSjFEWlB4uYB7vCpZNrYcQ+eNtyjtOUQH
hkRR47NKDE2suVZnifuNb4Pzy2oMKeY8uRKJ23eohz+rFkOfA3fwVOLWzl53
sfwDhmbWHAhbr08HYR4JAu0jhsim2ZeVcC+4HHjNqMeQ274rR07jbm07dvRb
A4a2kNqRE+48VauJzkYMjXW6G4XgDn/qFtX7FUONltRbabjtl0MO/MHfU56N
yOeU4D5sldL1rwVDJ+z3cBi4pehF3gttGGp21XLsws2R/iy5+h3PP2iaG8Td
HdRbt6YLQ/xvLZ79w10+Nme/8Sdef1KmlvO4E05ybxTsxtCPFhU9Fu7b+RIF
oj34fl2djrBxn+ZXMZHuw9Ctq27OTNx77hxn7R7A0Jt3lZWzuNf9sHqhPIg/
n8lShQncw1ruB7WG8fp17f7Uj5ueHDqkN4LvX+J5cDvuFGJqyPExDL195OBW
h9vbtljh7ASGWuglYQW4z9d/bjn/D0NZRfPNSbhV5fvcrafwfPz0RM8PN3/E
vLDDDIZEN/AMXcM9Ncld4zKHoQ71hrJjuL+elbTxWMBQwCuNWjncWcUqax8x
8f3qN7PIuAO3nsgKYmPoeQnLoQd/fle8Lhs9XsZQhYocbzFu1OM+k7CKoYup
DVPBuEUPhiUkE0go644htwXujrUlPe/IJKQdnTs1i+dPoUOjb/FaEqrl2FOr
cEd96ZOp5iIhB8XK5v/n3/GY9c5fNpCQmdCP92txV4tZc8YESEjR79P7v3h+
o+JbS81CJHSTn7fvDe46Q9/Foq0kFJobX3AB9xevV5MPREkoZOfQYSpeP90/
hnr5pEno34US45t4vV2+tfBrcScJbfCeoPPhHuSidHXLktC5jIDeYrxeJ9Tk
vr3dTUJ+Fi4757XpsBx/naqpTELvVolkc7zeHyl4VUmokFCHocLqGN4PyB/D
yshqJMRsbc31wr1hLie/SZOE6C186gl4PxE9O5lqo0dChzeQuPPxfqPF4+YT
eoaExLclp9/F+1fNG//7zvh7diJvQtQw3t/0dOLvnTMhoSdiRD1j3McdS26J
nychk8nXmAzeDy0+M63fXyYhowOHRArw/ukZeF/vpzMJ9Tn/e2a5iw6rYpG6
tbdIaO6BfFSWHF5/xcmar2+TEPVQmNWcLB1CB2v3O90loddJYtE+MnR4poft
wB6SkEa+nKXvDjzfVwNJ8pEkFOvFFScuRofI6e2xalEktBwhUqAqSgebwSqp
wzEklPeXfMlwGx24P88cvJxAQsHufXYuwnS4GG/5KCGZhKYu8zgkCeL72a26
guWRkM2lAfMHG+mgf35o4Vczfr379a18lmiw1fBR4GgLCV2Q2M46iZ93E7rb
hBbbSOg6tv7kVhYN4qXPqPB1kZB8yVm5twv4+T5ZdftoHwnJtZW2vJ2mQUhg
3FTRFAm1RDcI6eDna1PhobEIXjK6l/4y4tM3GvjqFA1F85ORQf74D+NmGqjW
S/fHC5JRW4qTWO9X/Lz9uabrhTAZ9fgwIyc/0+AmkfHx3XYyOtY2qMOso8GG
U4ZpX/eR0SjodGWW0eD42DnzjWfJKHz+nklCMg0+Stp9Co8ho4ufQogd+Pwj
2dsi7BRHRlJ66d7rr+Dz0Qudm6cSyMizxPc2WNNgr4igAN8zMuqL3Nr18hIN
nvPXWT9JI6O6qAMJZqY0cFsrtZKWT0bp6Yv5947QQHrit3JpExmZJxtnvpXD
54dSk7R+7jWo0O4E7/dhKlyU6ra8ELEGMc4pXGXg8+ZSidK23ZS1yLZNuKBb
pxa8SaNf4h+sRWWv1/+80FUNQtIa1jsJFBRjcCtxWbMK7jqZznHfoyBCyf6X
pW8rQFTVliHjRUF+nvYXQlIqgLpy67nefQqSbRrfbJFYAdwREfqePhSkubB8
hxlSAcnZdXGjIRTUkr7ZYtfNCvg0sl+F8YyCIrF13y4qV4DAlU13AqooyDS4
iSlQWw7l8mLH02ooKIMeJttQWg6WM/Li1VQKmsu19vXOL4cMH4NPc3UUFLEi
Te9LKwet1PtCtl8pqCzDNybFvxxsfo+X6PVQULD8obLFY+VAecMKteyjIKMu
fZMUvXLIcaRYeQ5QUGPwMRUDrXJYWJKivB+mIO1pzofoPeUQKmJhtn2SguKm
PA5JbioHpYFru3WmKahTf1KCTimH9kx3jvksBU1Npxy/QigHcY3o9KhFClL7
BVGvpsvgAyHFK4dFQQl68+/0xsrAnpFzirFEQe3mtyT6B8pgQ1TFjsEVChJ7
Ljj84FcZFJgxFjkcCpIZ0SOJtpfB/wCyUUor
          "]]}, Annotation[#, "Charting`Private`Tag$2600848#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[0.0025]], 
         LineBox[CompressedData["
1:eJwV1nk8VF8bAPCZO8NIoWwJCSFRqSyF9BwqRUobIhGpbCGhBSWhrKnQz5Ki
RFFJ1hJmMPeGrCXJHkJE0hjrvPf9636+n/vcc84885znHAVHzyNnMAqFok+l
UP7/5O73eHjI02vnLJbiZPOIH4U5rVNtUDkIMWnT9/iT+NGn3/2u0Sp2IF6V
zsyL40cTb3dFuat4wK2KXYpLI/hRsORfWVuVa3BVW4Va6sOPanHTgaMqMTC/
aUuxnCk/8nzs99FcJRW6tQXERqf4EDMq6v0BlVcggtQ+V5vyIT5+b8awazng
Cmp5Eh00ZHLdIbTAEof/jh3bqBeBoaIrZzozmuphVmCl7+JuKvpm46bhfakF
Ipuj6zZ+48GKvdFnmegrHHvreI9wXoDln8/kbTvxHaac93wta5+FtfLuz0Md
u8H7TtxY6gUubO88X2t4rxc4N8Ktqk04wJwNMvuc/ANYaYmqscJT4FxOEGXB
A2Bsvi7opdgkJJ7OlJY49RMCyrpDePoTsPF4L2fxzDCU+hRJJ74Zha6/5vXI
5BfoTLhuyHEYhsnuVZslLcbgoMcOUw59EGKzr56zshoHD8138V6TfaAiInDg
cvIEnFqx4vr2fT1Q6BWUHfPoDwjwug0XtL/DZ+X7jMP3JkHIfFC9KakVlG62
qJ5M/AsDb/09b/M3g+6hbq1HyVPgW+5WU9BRC51eoTujo/7B9aZplsxwFeTp
WgtV3+VAgFv/T51NpSBpiX/LCp2Gq7rLjtPf5YLxjqfoTPg0cH7swq/eyYVL
ijcyFaKnIaxgnyHtTC60/dbzTYqbhsHjd4xNl+dC8q1Xy6OeTEOxQonVqYZX
IF8Sv9eTOQ3OQ95yuZo5oCbrVKC9MA3zR9n6c5KZYIMZyk5SuHDodbiELfsZ
RA6tvvmKzgUpIm5Fj+8zGM3/emjdMi4QErQjh79kwOsD+0elZMh4dpFcW/xT
0Lq+de38di60zbvqea1OB+ij3GX5kPGW/svUopNg+fVJucbLXHgso/U482ci
9Mn053QGcOHUmeEMX6NECLHACW4IOZ+4cgk28wBqiGiKRjwXLjNqv3e5xIPl
a2mv5AIuFOsMT0fbxIKq2bLFrBIubN5aSBfzuQMzQwuRhR+4gEKlo7I0YyBF
sTezqZoLuXUTFq/yI6E3PrOb0coFL42YGPmyMHAP0DL34ZDxWrTc2Y4rsHOV
SueNWXJ9GqMB9zwugUjhSrc7i1ygmLabOlJ9IW98NuwF/wwEMfJys9S84GbU
qHix4AygQMXjBsFucGx9V3q18AxUfK/oSnhzFqYdmWU9kmR84vcj8ho2QPDy
zH5Lk/7Fdj6ZcgiSUp62z8nNAIV/xxBLdwe46SY4L1lLevPG+9u+rIUdrbc4
kutIpzpmf1nYC8IXr4QoqZNmj6naXrOAbhE30a0a5HgW2srzXDsINjm46cA2
8j0149rguDMcG4RSG33y/bGnypRn50H55hZTZyDXt+zlx28bLgBRKn725t4Z
kF8TKf2vwxeEN39/WGI1A6d0vdtaNl2HRElnIZXLM9A4N7jmfd1tKJY9tP+3
/wxM3BKfN+gMhzbF7eGF12cgVyvZwGAsAqQ0BPj23iLnv9rp+WZpNCTszZo/
lzADxULpfHppsRB3eejX83xy/lFHTlltHMS0O9ds/EPGr0o7aTiRAsGpLre0
XWfByzfR7pDBM3hY/x87xmsOJnP2muQW50Ggx/2J1d7zwF/6aUfCuhL45aAq
Ze24AK/pHLsaszKwcf+u7nZ2AbatXaA7OJQB4RcDga4LUOG9zHjYtwwyIqfO
pnkvwJbUoez61DKwL6goGA5egGjLhdtj42XQImB99OqTBWi3lUq6fqcc3r8O
j0nuXwB6874qQccKiFwYoXedXYQjSYFqfMFM2HchjnjhugiLJSfP0SOYQB8w
iLrksQh2HcVdC3eZcK0uVmyF3yKYae0I6U5jgleyjuLu0EVIm/ndeZLJBEvd
YHjxZBEUB/nO7eMxQdF31VW/nkUQ7BRO6fVjwbvRvePCNjyIG1HSiLCoBJ2Y
lAjiJA8IJkuWz7YS8jT+KAc78OBTXdfYVcdKeO6dZPvPmQdlL/YaWnlWwn/c
0Y/fL/EgfrHme/PtSvCj33uaFc+DuVP7Lb++qwRN2Q5royYeuCy+FlSQqYJX
Hzb/m/vMA58ds0/m5KtAzT40tqCNB5U3aJZNKlWgmL4JV+3hQcC9X4IeW6tA
VPWGlsg4D/LTNQbdTaqAu+o+w4Ofggz2v2q+4VcFrcrb+/SUKOjxkvVcsU9V
0N/kvgupUJDdvKIo3lwFk4FpT/eoUtDTF91PfNqqQKRV8NyhDRSk2TeoU/6j
CvaFdf46o0VBYSZUC9HZKng3GPwvdjcFXej4tTNPuRoeZX4S+OlEQX11zLU/
L1fDq6OY6+hZCqoMt94yFlgNpTyd2j/OFBRVq8sdC66GNqvH0fPuFPTSZqyk
O6oaRAUuior6UtBPz/I9IY+rIcRZStYglIIcd3YZtbCrwXn9aY37GeT6vH51
JYiwQU7w/pBvJgVFtuUJvhRjQ8sIK+34cwpyLzrRWraSDTtzFMXlXlLQlCrz
6Jc1bBDT6ONm5VMQvbRVrF6DDWVaDqyySgqS7FNePnGQDeLI3mKkl4Kaq98o
UiPYUCN/R/jTDwrafNPpdEw0G65Ty/HXAxRkrzLmt/IuG0ZYcnq+wxSksbZO
dvV/bCjf0yVH+UNBwdeq73Ay2OC6/+SQBIWKnp3ovvCjgg1MyxP+hnJUFLap
ekXuXzaw70kQZvJUtOSK38wchw119Q3ixxWpaNDJTXPXLBvajHe/8lChIq/i
6YxKCg4TOht7kzdRUWawS2mUEA5yK3nGnJ1U1Onee9pQBYerX9NFs+2pSFxm
covRMRyCxE7aFzpQUf2i5Lp58h4QZr4yh3maij4vDch5Y43DXTxyT9s5Krr+
IttTxB6HrCKfy3xeVKQ4LCSU4IJD6wPjLvsgKkpp5hxoCsRB8/jIc/E0Kgp6
KKck9ASHHuLRwYV0KiqkenWtzMAhStfi78BTKjrZjo3LZeIwKF2xoyiLivRy
56UUs3FI6oxvsM6lIgHt1HfzeThgpw3/pZZTUdREUBidhcPrFk7iLSaZHxN5
my+VONjuztnpVUlFsvGyKenVOBQqr7xtiFMRc43qha0fcXAZGpXur6ci6SC7
8HWNODSe/w+t76Kipxt7y507cQjsOjCwooeK0s9v20DtxkHNnBYx20tFWUZF
cgk9OIRs9mipHaAiHZpsSsEPHLb93XXWY4yKAn6zFGqHcUi9PB75dp6K/NJr
0g7/w8H9pvFXAxkMPXj/36vWJQRwI5p+yq7GkKPm7s55QQJC79ly5+QwtMzo
Su+aZQSkpnmveqeIoZi2X562wgQ0lqee0FHDkGTx55rXogRoznO6N+li6HRy
07MKaQIqaMETQvoYwn7LNubLEGC2VIg6tgNDSnrX+zNkCXCSXquYjTBUvNjb
ck2OgITt5k7r9mGIWxM0uVSRgFmfzKE1Vhj6t1/bOk6VgLCArTOLxzFEuVvX
YrWeALGQD0u6bDCUZVJ2UEqNgA33W9RS7DBk+GXaNFadALs3PHepsxgibNNv
2G4iYKQ4InD6HIaczX6vFdAg4FKFREyrC4ZmM6WbcknHNqi/jjuPoTq5I4dn
NhPAHLP6s9wXQ/1a7ULnNAk4+K+POuFHOv+j+hzp9vnzog2XMSS/XMg+SouA
yaUhmtEBGDoUUyn4TJsAJbVc3yUhGDIZMksu3EZA7hb9sKFQDM3f0rutuZ0A
A112An4LQ9sHOuJekrbc11EUGokhVdxVNFGXgNtnBWap9zG0wQtnHdAn4MzH
1alL4jF02YVmUUraaIOm0YoHZHzF1rvrdhAw9+dkhHwyhuwap4WmSLcdu7hJ
9SGG9F81H7YwICC/6HazxiMMdWxRN35L2iPwrTQ8wVA647vxmZ0E7O8hyowz
MMQx9rEsIa26q8vxYCaGnvGLrBYEAvoElmSfzMZQiC/xJY10uZuc+ZmXGGK1
K9cOkU6p1/zr/hpD3huwaxsQARZxdvoBbzEkEJ+r+IL01umL3TcLMPROrWxl
P2lhm/CbkUUY0njBbJQ2JOBXaeq6+yUYutVkZX6QNLEmvzbpPYaqpmXjr5HO
CP7omf6BrB+hl0+ySQcPdIm9KMcQO+lJwBfS9vumit4wMTTFSlaYJ70je4lt
SSVZL4ab49YYEbBKeA2FWU3m22XuC5DmeGk9JXCyftc/GLIl3dxisq/xI/n7
+R9+8iP9Wsd+9GsthpwUn4VFk45K9Int/kT+/5r7JdJIO8+Ha/1swNBMlJL/
G9J77B+1/W7CkKlUTUkZaUVWfgCnBUPu1i3NBGmeUo384hcMCZ//ijeQ7rjV
XcXXhqG/AueTWkiXjEw5C7WT9eqvZvaZdMIBQSGJDgyZv8zoaiJ9MXfNG9ku
DFnK+RytI31ITNtCqYfM/5BaTiXpDX6mM+p9ZH2X240UkV7yzf6hZj+GtH8/
EXlOelDf11B/EENLbWJWPyDNSo0YMBrC0GTQG4lg0o+oj8NNRzA0cOXxjAvp
AKeCjUdGyXxOjdUcJG2N1zRZ/8aQjv6GyM2kddR6fB0mMNS4aUxfhLRY9L9V
LpMYGjdldY2Q+Z8YFyzzmsJQ+5MdvpWkPx2Rd7zMwVDJ4CglkfSLAm3+IC6G
Rq1P33Qjfdr/1ME78xia+NnrzSCNunwnExbJ+owS+NFI1ousYWRCKoWGIny3
HnpAupW/sOslnYa83hPrZEi/dakNLuCnIa7rofg2sh5j63pUPgjQ0GOaKP99
0qb3lnrWLaMh0fW+04tkfX9Y7cAbEaehs+b0Pf/fD6jgwlyDJA0d9/kmbk+6
yix4Ol+KhibTNCwESNf5Pxm/JktDExZ2G46S+6vj20C3qBINpVa/sqrRI+DU
Bc73aWUaaudcqncg3S/AaOtYR0MyzOJyDrmfR7epNj5TpyHb1ATJVaTn410r
9DRpSKzduRjI/hC00b90jTYNWRxLUK7UIYBeHVlM30ZDOX5yK3eTXjaVk1uv
R0NJF9SidpL9RfbI+GNHIxqinr7XI0H2I31hnxsRh2moNDJ7tznZ78oyQgI9
j9LQknPBEdkbyX5hEH/lmAUNqd4FZz7Spu6FF+SsaWi5xJ6JN2S/tKnhOuSd
oiHfbItjv8l+ezUs0Kjdk4ae6x27+o/sx4urY3aWX6Chk7hxgzrp4IJUvacX
aUjY42SDvQIBEf3lWz0u0dC59vdfKtYQkGSErcWu05DOULTsObLflyyG0dRi
aIhTJ5SyR4KAmD8K97fF0hBjA0N5lzgBjv2linvu0RB2xZuxU4wAwZpJw1MJ
NHTk1oMu9RUE2MbbBSWkkuOVN/J+kufRorrOAvaahsyt9tv8oBGw23qA872B
hpz3d7yfGMdByiwobLiJhjavyjBP+Y3D6E4ZyekWGhp//81tzxgO8UqHtUXb
aMi/02RX7Ah5vo+XXtzXQ0PLekMTBAZwCA+Lm8ifoKFIKTGR0G841L/dNRK9
go5O3+FsK6rAIdggf+CuGB2duCKlK1eOgw6u1BsvQUdCpav5bn4gz9t2vraH
q+go3EWcZvwOh/NUovqlAh2xa93ev3mLwzJzs7RPW+hIq83MSOEZDqYjx44L
HaGjmrcKJS7hOFTLn2VH3aOj1vUrYn6a4CDf3bTKI46O9vT1vh/fS96PHhqc
N0+gowchQbs5e3DYLC0hLppER8sfrHZdNMQhRazK4UEaHf25cUNxThcHH37F
hbRcOgp6ZKmUuR4HpdFOzaJ6Ohp8HokaGeT9ocgirVeQDxXny9xNKWeDrWKH
3YloPkQ3ZQ0ZLmfDXKGGjDqDH9H9kw/fPV4NAbThuvhr/ChFutpWOr4KJJV0
HZQpDDShFeCp97YSLnlYTgleYaAjn1zlPVpZIKvjRKj4MxDm3XIouJkFFQsX
UowCGUhDiTcVX88Cwejo3VdvkN+7TyW/Z7MgNbsqbjicgQRt7/tTiljAHtqq
TSQx0GVxa70LD1ggflrEL7SUgZoHGpynrFhQorbaNK2MgcbdWjK5R1lgN6km
96GCgZxkYn3mzVmQdcOYPVXFQO8aTrzD9rFA/3GgpNMnBurO3y4kuJ0Fjp2/
Co26yPGLmNfoUixgZMxE2PUwkJmb2jRVnAU57gz7q30MNNpStoQnwgLOnCIj
b5CBChX8KVwGCyKkbawUxhlkfT42GZhmgkbfOXWDPwwknExkdf9lwufnvrzj
fxnoZbtm1rdxJsjp3s2MnWag7VXfIup+MqGS8sg/Z4aBkjUSPKt/MMGZyDEn
5hhIKzhx+kM3E5bFvlvbv8BAj8ufrC38zoQ3VsQ0j8dAK+/7TL38yoT/AYUj
Mus=
          "]]}, Annotation[#, "Charting`Private`Tag$2600848#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0.00012044960322130094`}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> 
     NCache[{None, {2, 2 2^Rational[1, 2]}}, {
       None, {2, 2.8284271247461903`}}], DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
       "\"\\!\\(\\*Cell[TextData[Cell[BoxData[FormBox[\\nOverscriptBox[\\\"n\\\
\", \\\"_\\\"], TraditionalForm]]]]]\\)\"", TraditionalForm], 
       FormBox["\"S\"", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 
     Thickness[Large], DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> 
     NCache[{None, {2, 2 2^Rational[1, 2]}}, {
       None, {2, 2.8284271247461903`}}], GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> Scaled[0.5], 
     LabelStyle -> {FontSize -> 60, FontFamily -> "Times", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 3}, {0.00012044960322130094`, 2.8278091297255488`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"N=1\"", "\"N=4\"", "\"N=24\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225], 
                    Dashing[{Large, Large, Large, Large}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225], 
                    Dashing[{Large, Large, Large, Large}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.45] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225], 
                    Dashing[{Large, Medium, Tiny, Medium}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225], 
                    Dashing[{Large, Medium, Tiny, Medium}]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {40, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.45] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-1.45] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 60, FontFamily -> "Times", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "Large", ",", "Large", ",", "Large", ",", "Large"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "Large", ",", "Medium", ",", "Tiny", ",", "Medium"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontSize", "\[Rule]", "60"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.803316144603465*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"e2853ebd-e21d-477c-95da-3cf857b70bc3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1140.6, 574.8},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0a9bb83e-3421-4111-afa4-7fd381ee238b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1463, 45, 69, "Chapter",ExpressionUUID->"4f2e3ca6-c506-4644-acf8-89f0096d0293"],
Cell[2046, 69, 7943, 229, 354, "Input",ExpressionUUID->"16d3ff04-b1d7-46c2-aee9-320ee04be3d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10026, 303, 259, 4, 69, "Chapter",ExpressionUUID->"563becd5-d82e-44cd-b504-ac4ab89e9c31"],
Cell[CellGroupData[{
Cell[10310, 311, 310, 5, 67, "Section",ExpressionUUID->"d07c7bb1-0ecb-43bf-98ee-4e50a59177e0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[10623, 318, 4469, 118, 309, "Input",ExpressionUUID->"5f2253f2-92c1-4104-a97f-85b1f65bf2ad",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15141, 442, 438, 7, 69, "Chapter",ExpressionUUID->"ccc4e7e1-606c-4c21-a605-025fd2b3d5db"],
Cell[15582, 451, 269, 6, 35, "Text",ExpressionUUID->"79aab984-0d60-438e-928b-c540e66b15b5"],
Cell[15854, 459, 847, 26, 37, "Text",ExpressionUUID->"4f1bb4c9-ef43-4364-abdf-3a909890e931"],
Cell[16704, 487, 8051, 203, 383, "Input",ExpressionUUID->"1d9ce4d2-ea2f-4b69-af32-acf302ef3701"],
Cell[CellGroupData[{
Cell[24780, 694, 487, 10, 67, "Section",ExpressionUUID->"25ac9f6e-84fd-4e4d-b32b-21fd62418769"],
Cell[25270, 706, 3688, 81, 273, "Input",ExpressionUUID->"0afefa6f-f7da-4cf7-adc2-c60bf94be723"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28995, 792, 175, 3, 67, "Section",ExpressionUUID->"1c23b3ae-859a-463d-9d01-d47a924287ab"],
Cell[CellGroupData[{
Cell[29195, 799, 182, 3, 54, "Subsection",ExpressionUUID->"4b64700f-069f-4e92-9fb9-cec6ff6d7ada"],
Cell[29380, 804, 3049, 88, 128, "Input",ExpressionUUID->"e2787f50-d527-4fbe-b289-a79a07130dea"],
Cell[CellGroupData[{
Cell[32454, 896, 2438, 63, 156, "Input",ExpressionUUID->"8322d3ff-e4eb-4146-bd3a-56ff17b2c7c4"],
Cell[34895, 961, 596, 12, 42, "Message",ExpressionUUID->"8ec35bcb-f191-4ac4-ab4a-e20a5c7fd59b"],
Cell[35494, 975, 597, 12, 42, "Message",ExpressionUUID->"44fedee3-2de8-4942-a221-11b6edafbf2a"],
Cell[36094, 989, 599, 12, 42, "Message",ExpressionUUID->"6304b8ba-d09f-47a9-be38-17d91fb1e070"],
Cell[36696, 1003, 458, 10, 23, "Message",ExpressionUUID->"0bbbbf61-193d-4134-8285-01a494f69729"],
Cell[37157, 1015, 34832, 676, 366, "Output",ExpressionUUID->"61419e68-9364-4fdf-9441-4e1ef72046d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72026, 1696, 2443, 64, 136, "Input",ExpressionUUID->"00a40206-0614-4a8b-bf75-19c058e19409"],
Cell[74472, 1762, 30128, 599, 366, "Output",ExpressionUUID->"0c2cc1cb-1dd5-41bc-af06-a7f0495216a1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104637, 2366, 3245, 75, 127, "Input",ExpressionUUID->"815e5c22-58e4-4f75-b51e-64cacb53248c"],
Cell[107885, 2443, 30409, 600, 357, "Output",ExpressionUUID->"8e129e91-9517-4203-87fd-a0c2b266c306"]
}, Open  ]],
Cell[138309, 3046, 71, 0, 35, "Text",ExpressionUUID->"dce980ac-799a-4c6d-95df-c7df9f287559"],
Cell[138383, 3048, 24908, 497, 368, "Output",ExpressionUUID->"50279710-9e4d-4579-9ec2-28fa7a1bc919"],
Cell[CellGroupData[{
Cell[163316, 3549, 3147, 74, 108, "Input",ExpressionUUID->"2183e2b6-bc12-49e8-8533-e36d09d1965f"],
Cell[166466, 3625, 598, 12, 42, "Message",ExpressionUUID->"ebaa9239-4362-4e65-b71d-957418b794c6"],
Cell[167067, 3639, 38875, 729, 394, "Output",ExpressionUUID->"e2853ebd-e21d-477c-95da-3cf857b70bc3"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)