MassDifferencesLEGACY.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    714443,      15556]
NotebookOptionsPosition[    698794,      15051]
NotebookOutlinePosition[    699130,      15066]
CellTagsIndexPosition[    699087,      15063]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mass Differences", "Title",
 CellChangeTimes->{{3.646561250785887*^9, 3.6465612549931793`*^9}}],

Cell["\<\
We\[CloseCurlyQuote]ll use the following mesons\\baryons for the analysis. I\
\[CloseCurlyQuote]ve tabulated mass, possible charges, slope, intercept. They \
are all of angular momentum 0.\
\>", "Text",
 CellChangeTimes->{{3.64656126506663*^9, 3.646561287759823*^9}, {
  3.646561328551486*^9, 3.646561391622211*^9}}],

Cell[CellGroupData[{

Cell["determination of charge and masses", "Chapter",
 CellChangeTimes->{{3.646779808572959*^9, 3.646779836769912*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "mass", " ", "of", " ", "the", " ", "Ksp", " ", "is", " ", 
    "the", " ", "hadroproduced", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "=", 
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{"(*", "mesons", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Kaonp", "\[Rule]", " ", "493.6"}], " ", ",", " ", 
       RowBox[{"Kaon0", "\[Rule]", " ", "497.6"}], " ", ",", " ", 
       RowBox[{"Ksp", "\[Rule]", "891.66"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1896.61"}], "  ", ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "139.57"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", "134.97"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "775.26"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "775.26"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "5279.58"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "5279.26"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"(*", "baryons", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"proton", " ", "\[Rule]", " ", "938.272"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "939.5653"}], ",", " ", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "2286.46"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "2452.9"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "2453.74"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "1531.8"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "1535"}], " ", ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "1315"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "1322"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m1", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "ms"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mb"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "md"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{"(*", "mesons", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Dp", "\[Rule]", "1.073"}], ",", 
       RowBox[{"Dn", "\[Rule]", "1.073"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0.83"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0.83"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.896"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.896"}], ",", 
       RowBox[{"Kaon", "\[Rule]", "  ", "0.8875"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0.204"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0.204"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "0.927"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "0.927"}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{"(*", "baryons", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"proton", "\[Rule]", " ", "0.944"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "0.944"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "0.95"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"\[CapitalSigma]cn", "\[Rule]"}], ",", 
         RowBox[{"\[CapitalSigma]cp", "\[Rule]"}], ","}], "*)"}], 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", "0.95"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", ".95"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", ".95"}]}], " ", "|>"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{"(*", "mesons", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Dp", "\[Rule]", 
        RowBox[{"-", "0.07"}]}], ",", 
       RowBox[{"Dn", "\[Rule]", 
        RowBox[{"-", "0.07"}]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        RowBox[{"-", "0.23"}]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", "0.23"}]}], ",", 
       RowBox[{"Kaon", "\[Rule]", "  ", "0.57"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "0.32"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "0.32"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.52"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.52"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", "baryons", "*)"}], "\[IndentingNewLine]", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        RowBox[{"-", "0.68"}]}], " ", ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"\[CapitalSigma]cn", "\[Rule]"}], ",", 
         RowBox[{"\[CapitalSigma]cp", "\[Rule]"}], ","}], "*)"}], 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        RowBox[{"-", "0.04"}]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Spin", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        FractionBox["1", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        FractionBox["3", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["1", "2"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "0.57"}], ",", 
       RowBox[{"Ksp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox[
         RowBox[{"-", "4"}], "9"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["2", "9"]}]}], " ", "|>"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.646972413845058*^9, 
   3.646972438768071*^9}, {3.6469726137014637`*^9, 3.646972635360067*^9}, {
   3.646974691693334*^9, 3.646974692395063*^9}, {3.646977646638966*^9, 
   3.646977650501295*^9}, {3.646977865467519*^9, 3.646977872315271*^9}, {
   3.646978064305415*^9, 3.646978087816717*^9}, {3.646978178538118*^9, 
   3.646978178683484*^9}, {3.6469782397453833`*^9, 3.646978247275025*^9}, {
   3.646978297158225*^9, 3.646978316523612*^9}, {3.646978428055999*^9, 
   3.646978651689726*^9}, {3.6469790676662407`*^9, 3.646979073125375*^9}, {
   3.646979175897588*^9, 3.646979181028718*^9}, {3.646979291249351*^9, 
   3.646979292300922*^9}, {3.647154967542708*^9, 3.647154971984239*^9}, 
   3.647155015397298*^9, {3.647156494246873*^9, 3.6471567792602*^9}, 
   3.647157055754108*^9, {3.647157455411777*^9, 3.6471574727405453`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}, {
  3.646974758436963*^9, 3.6469747647817097`*^9}}],

Cell["\<\
The energy not due to end points is actually (now letting the charge be \
arbitrary)\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771928577896*^9, 
  3.646771937756853*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{"\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]], 
      RowBox[{"\[Alpha]", "[", "key", "]"}]}]], 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{"a", "[", "key", "]"}]}]], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{"a", "[", "key", "]"}], "+", 
        RowBox[{"csq", 
         FractionBox[
          RowBox[{"8", " ", 
           RowBox[{"Q", "[", "key", "]"}]}], "\[Pi]"]}]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{" ", 
       RowBox[{"2", "\[Pi]", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]], 
     RowBox[{"L", "[", 
      RowBox[{"key", ",", "csq"}], "]"}]}], "+", 
    RowBox[{"csq", 
     FractionBox[
      RowBox[{"Q", "[", "key", "]"}], 
      RowBox[{"L", "[", 
       RowBox[{"key", ",", "csq"}], "]"}]]}]}]}], 
  RowBox[{"(*", 
   RowBox[{"+", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"Spin", "[", "key", "]"}], "-", 
       RowBox[{"a", "[", "key", "]"}]}], 
      RowBox[{
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]], " ", 
       RowBox[{"\[Alpha]", "[", "key", "]"}]}]]]}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TotM", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{"key", ",", "csq"}], "]"}], "+", 
    RowBox[{"m1", "[", "key", "]"}], "+", 
    RowBox[{"m2", "[", "key", "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, 
   3.647107571305258*^9, 3.647108968780759*^9, {3.6471535949217176`*^9, 
   3.647153617883686*^9}}],

Cell["\<\
Now plot the energy differences due to charge and string tension, minus the \
difference in the actual experimental mass. This should give the mass \
difference in the end points needed to explain the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771892161929*^9, 
  3.646771922570491*^9}, {3.646771955659872*^9, 3.6467720195600758`*^9}, {
  3.6467746398636637`*^9, 3.6467747120583687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "\[IndentingNewLine]", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["1", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ks", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
      RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Ksn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Ksp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]c", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dmes", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "Dn", "]"}], "-", 
       RowBox[{"Mass", "[", "Dp", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"Dp", ",", "csq"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["0.5", "137"], ",", 
        FractionBox["10", "137"]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[CapitalSigma]c", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}], "-", 
        RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cp", ",", "csq"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", 
         FractionBox["0.5", "137"], ",", 
         FractionBox["10", "137"]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Bn", "]"}], "-", 
      RowBox[{"Mass", "[", "Bp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Bn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Bp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "Ks", ",", "\[CapitalXi]c", ",", "Dmes", 
   RowBox[{"(*", 
    RowBox[{",", "\[CapitalSigma]c"}], "*)"}], ",", "\[CapitalSigma]", ",", 
   "\[Rho]", ",", "B"}], "]"}]}], "Input",
 CellChangeTimes->{{3.646771950731372*^9, 3.646771952079427*^9}, {
   3.646773446750395*^9, 3.646773527162901*^9}, {3.6467739499050417`*^9, 
   3.6467740871374083`*^9}, {3.64677412262253*^9, 3.646774187884631*^9}, {
   3.646774249796054*^9, 3.64677431049582*^9}, {3.6467744799045258`*^9, 
   3.6467745123336573`*^9}, {3.646774736765486*^9, 3.6467747673780117`*^9}, {
   3.64677480806011*^9, 3.646774905078524*^9}, {3.6468054195661592`*^9, 
   3.6468054612143517`*^9}, {3.646806278805697*^9, 3.646806299819624*^9}, 
   3.6468063302471447`*^9, {3.646904373022484*^9, 3.646904418235331*^9}, {
   3.646904481152533*^9, 3.646904485287752*^9}, {3.646906424813212*^9, 
   3.646906474872012*^9}, {3.6469067567808332`*^9, 3.6469067664148483`*^9}, {
   3.646907516192577*^9, 3.64690752320674*^9}, 3.6469075735789843`*^9, {
   3.646908658506624*^9, 3.646908658933872*^9}, {3.646912738500119*^9, 
   3.646912824595537*^9}, {3.646912870978058*^9, 3.646912884420073*^9}, {
   3.646915424828039*^9, 3.646915448856234*^9}, 3.646972686340456*^9, 
   3.646973161576544*^9, {3.646978329135674*^9, 3.646978334135767*^9}, 
   3.647155526888801*^9, {3.647157107279174*^9, 3.6471571649611263`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVz3s0lHkYB/B3qHUKuXSbdclgmpFJEt63RT2PLqJoUUc32mFroxJpddok
0ylKJl1G1CySCc24zpDI7d0uWtXZaptUhFlCaIdULi1r3/3jd37nc57f8zzf
n3VYVOBuHYIg/Jjz/31zlhm+6o4Hon0JqIf0Mehze9noV8aVH6d7TurjtBaZ
Ndv4OBDY21Q8wwCFeQ6629wYH93rc9rGANkeno0tqYzd/+S5bTbAMxHhvu1U
AhADgh3XbhugS9iOouE1IiBWLlXsOW6Is+vkVePpJ4AIqe8c1DfCvsiS5O5D
p0DUu5rf5mKC/bduSIBzGkR6RkUWD03ROHQGy6EhGYhBU6OwgDnop9fMG0sX
AyHrPjs+MRcr16QlOq08D8TYoXtDKfNRujJkI9foIhBVtjWuHt/ifnFByi9H
LgHx71qThHdmqM7b253YJAEig6twiLbAh7Wh5izqMohYlgVcywXof+15pLM4
HUSKI9Uni61wf/nYwdKWDCD82vaMSDk4+8GmQOnaq4AbIsRPoqzRP5f/vccV
KYjKjXdvI22QHe9o56eXCSK3yYpEQ1s8lKxVFURlgehvyfpKjS3uCuVtr27I
BmRl+OTkcTHavElrMS8HCJs4K37cQhzfV1O/nM4BXGf+W/gqHnrXPJxIOXId
6NBWs7VmfBTKSmefcsgFQvGog6fl4+qPL6q2NDNe2GjdWG6HH1aYPgk7JwOa
ezdhMnkRCofEkT7LbwB6sGs+BdhjlntXr7qD8ZsNNsNzBZiTuOlZxuU8EA1U
WSb1CzDSlVhHQj7QW9pTW8sWI/GuUWAwmg9E13DC/dMOGCyI6EsqLADRrsTu
iu1L8OTrda5tm24CHVW3K8LKEaNP4eDemXKgzbLVJZ8d0S49llJXyEHY9Kj1
bchSlGPS1s4dChC2TQn3NCzFob6yXr5JIWBRN+e7RU6oMz5/us8dxqShRpvi
hC3fXL1w/WAREFN/qftHnDD+aJDipUUx0NK6nx9vX4Z9SYOZJfeLQRh7TKWs
XYbml3In64+WgCaX6n/Lc0a27qUPCm4piDI1xtpkZ2yJ+dXnj7elQPAWLFn9
xRnLV9Dw2LsMOMOfzmftdMGOz8+sLbMYD7jZd9AueKBQe+fsWBlochrjfhS4
YmeavXmPnxKEHxeXPE11xZr16l7JdSUQXnqHVw254ujU2X0hE0qgq9IaRraR
yH7/Q+WcABVw3pzjp9WS+JOffCI1UAU5sn8O+taTWKEaXjVjswo07bq102gS
/eMTn04GMfXCro2x90g8Y1r4vieY6a/WRAU9InHUY8SsOpzxgefZ7NckNl8U
J4SIVIDVkrLMTyRyR18+eHVCBcKIAO3mLyTGBFsZBJ5UAV0gFxiOkjiLr7ri
lcT0v1iUF/+VRK/aV0pHsQpEU+GSnSwKb/XYvGNdUQER1xXMMaJQx3e//bGr
TJ6E9WmvjSn0V96KHpEy7619H18wpfBDnPdkfxazD62Ws+ZRyDU5ME8tY/Lo
TjfstKAw5vDt4I15zP9menpKF1BItxKy3/OZ+bfnxwZyKAzOlzjWyRkTl1vv
2lKo0G+LpQqZvNnus+IWUjgWzatVFjH1nmPozKfQqzlKZ3EJM795a8yAHYVp
7tXe+aVMnuinMpk9hf8BKHwt2A==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj300lAkUxl9ORr6W0ozRWCYMxVYYTMzLvdVUtFKLY9jYJur0sZtGKkbK
GxU1GkWNjz7IjGGiMMpY+pjTqd3qWFbtbrs5ZSoWEY4tq5T23T/uued3nnuf
+9wFSbujtpoSBLGOrv871z9D86R/FxBvu661yZjobHTISJ2bApRr9pvPFBM5
BfpwK6B5iOm+Kp+JrL7JkdDSFCBiPpzoUjLR+sw+vmbtbiBCKqCvmYkfZUGS
NrEUKPZ3IptRJg78Ffgm/0YqUOF/tCcmsfBWma+5x7G9QGlfJk+tdcDfKaHf
rtOZQNW1ZPmtdESW/pKKyaGAWuTA63Xk4HZWNC+8NwcIvZi7dMAJd2sVrrm9
R4Eqrq9P63FGJTw4k1GfD1gskTmKubjHQpGz97ocCLNm7/HoBfhWSA2IGhVg
uNiW5hDhih2trZLB9lOA/qahFN8NM3btlzeFFAGxusA1YYk7XlM1S/+sLgZq
zK32AJuHIkXe6SHGWTAofEzGP/HwahF3/NNRJVB3X1c8nvTAWnaQhXS4BIiG
7p6Z556Y1cqS9KeUASGrESifLkS1tXxCNFwOBq+y+MPdizDh5SEwjTwPaNrp
3qr3wtFuwcM7nRcAvR75iZu80W6l1PZFQAVQtuPTK8u/QsZAYPjhxEowuGcN
nVUuxiuMwwvznC6BYU5uYohiCToNWPa3d14CKqq3MHDfUpTFpONEYRUYnDcd
vy/wwYs5bjKxSAWUWNtYUe+DI5bnunzfqcA4WFXr5uKLntx3d22uqwG1ZSmx
53zRa1JRwt5eDZTcbnaArR9y4q0seF4aIEq7hwwFfhjAii7VDGqAm+Y6/705
Hx3OPJ0lLq8Bybww+95MPv59UWRnsbEWJDlJ+6X/8vHgztGpoS+0wN14varx
e38MPZX8GW5rgaiQOlc888eRFe3qkkOXgVvoESCID8CklihPZ986MNq/mszu
CMCfWjrCNBN1gPaLn0jDA3Ei/diaxJp6oEzvSexvBeKaYqstx+OugCTXxHKr
jwCPC9Nc9OyrgJsY5on1AixWz2+176D5GE8+m7sM5eXqsVRFA1RyHF7HXViG
4ndZVVUejYDWU6/F7CDsOPhzuyq7ESoz3eOs5UGoj8hV84yNQJ2iupPNg5Hx
8fl0aHATEN+sb0g9EIw747gvi4qawFj+g4vPm2BcNf2oZNtEExji/+kp3C7E
I4d4Nx5/rQOj0L+rpkeIfUdjGcnrdEC1Wmq1z4S46mTeholIHVTuWZdT1ytE
xvmhPrsoHXCrHfgNr4SY/+MVm8g4ep9/+2TLsBBPvg3YdH8LzRkJnvemhajc
udr05kEdYFXP8AsOiZOp6RER2TSzQ5pffUmiWFar7KFofxOrzH4XEtn5lt4f
cmn/ZSNmQ24knqvujBacoOc332WNe5NYaYytblLqgHD7xWlGSCIxmDeGpfQ9
zeTTzyEkbh5rDfq1TAeGtoJSEyTRdWZ+5+h5mpUzc8xEJKo5vZPeKvq/mPef
rCJInOVmt7xdTfsdydPbRJK41Wu5fK2G9tuQI7XdQKJHkMplh5bWH9w0zo0h
MQ9/2zF1md5PnymZF0vi4Bqza3n1dN6HdZGsOBLD1gfOsK7See/cm8X+lkRt
7LYwTQOtJ0W0OSaQ+B/WNCAL
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3001HkUxn+1LaEmw2nMaWxNLFpqMzLE9+ReNZI2atmY2l4oksrLVFt0
yA9NM1KTKG+pMGOkGEzyNr3Y1G5rpdZup7Bpsgmb2DPJFtL+9o977vmce57n
Ps/CHbGBEdMpivJn5v/Nd41XP+mLBtrT2uJBIBvn663iJRYxQAezLFdtZiPv
ZL2fGTCcrWE3hrGR83JsyCsvBqjsD8alcWycdfaHZeq1sUBtaHqaqGDjZIJH
aFNIHNCpQ6aLW9nY3+n2Rn5DArTUWyv3tsBb+QJj++MHgf6RxyLOlviYJi7R
Z44AlVWsLxPORU59sXIujwZasf+ckmuFuzlBdn7PU4He9dF3moGLseUKm7Tn
UkavW7Tx7TzMgV/OxlfIgT6QP44d1rjfRJF68HoG0+fEM17nfBwldL+oWgHo
t9/FaS8f2xoaQgd0mYDD243zxQsxPvpQRs2KLGjuWz9zfJMN1iqvxT0tzQbq
4b7RJWttUaSQnRk0Ogf05pZdOcIvUZPF/+ejNAdoy8m2N652eJnrYRL3Oheo
bie5ta09JjZwQvti8oFOv37bzc4BVbMyDKLXBYDTROJjNotwS+9RmB5QCNiZ
3FzJ+gqHf3NvvdN+Aaiwm+G3WI5ovipuzgvhJcC7QtvKj45o1O/ml7K1CPAJ
qUqmFmOlUcoimXUxULUJmbKpxWjdb9qna2c4RjMheb0EE747jIbTJYCavZ/I
0Nd4MdU2IUSkBPSy7fi7eykOmZ5/KHinBPrfhXeidjqjA//d3dnXVUC9ONbz
a68zOo4pcrm7S0G/+0JaySYB8jaZmdg5qgEbJyCiS4BCTlCeekANFOvxtrti
F7Q62zUjpKAMaHnT0oJ2F3x1UWRu8v1l0J9nm20OWIZJe4bfD7LKgZ+Wdu3M
vWXolbnzE9xmOKVkNNLTFYdW6lS5R68Af0gmsm90xR11gQ7zBVcBX7Uc3LZU
iD/Vta1RG64CX1xskVQlRMPh475byyoAN64u5zi4oW+2WXi6uBKoGS231xe6
YTo5sKCeqwEqd4d/NM8ds1XzGizbNKCfYvUaZ7ljRoFqRKKogiKzyQ1Si+UY
8i6xpMS+GtDpZn1x5nJsS/pZp0yuhqKaPLLCyAPr16Wp7PTVwJ86ealR6oFG
kz0TXp41QK/sENRNeuAeMb83K6sGilr39QRJPNFnoiM30lADfG56yqMRTzx2
1O7G799oofl9WdDDCIIvpcFGO/21QG95y++JJOhzSrbBEKCF0MeFb4aiCBoV
Dr40D2R4jqnUNIagvLFydoBYC/we/wqfQwRPjQq33w9n9BWJf+qOE8zZs3r6
zSQt6H2kLWVlBMckh9etS2buq3MT68oJhiRczummGb5gLLx3lSBXbuo0nqYF
KuQzVW8VwfOl7UHuJ5h8zpFHvmggWKQPLq3JYf6Jemdm3ydIDchGME8LeKmr
vriVYNhIg8ejfEYvEeyqbiNoMzWvfbiQ0aeMNz94RFDFez7mpGTynx6PmdlJ
cIatubdOxXDXK65VN8EIR++Mter/8wvu2D0jaO+hXBBVzvgP91qsekFQhn9E
vb/C+IX5NX37F8EB389rZRVMv3BWWGgfwTXr3aY4GibfB4FxbD/B8uDINeoq
LRTxayuSBgn+B0oyKmg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs41Ikexh3HsSbTvSTjljKKTShC+H7TWA3lHpYzzMVluhiXFNZ1CeM2
iBBHsRi5/X4lyW7il5V2exy3Tie0G20JKRyRVWidP97nfT7/vJ/neXfxg138
ZWVkZIRr+X9rHoqUPhsLgk2D08ZXpKaU+uiOyNAtIjANtE4aLTGlGJl32Yog
Am4rlamXa0opvf74zqpIBGJVhf9Q0aYUPf/CQaldMCj0s40mnEyp5Sgz7k8e
IdD3qW+X7ufD1PiQyXtxayjk/KIq+s7xMNV21fArZko4hBiP3WMvGlNPE44Y
BeV+BzeHBgy1aQcppbvlFdsZCSCMOq3QamtACZVctdkjiWBgtzwap65HBddI
tJJGkgFtP3aN6GlTBfBrfmS9GDTtGb0DTA0qjCZJDL+TAdwlkx5iags1fyRh
nHVTAjI2FqHjxp/bu1tauBP3ckDmofiV/dk5iAy6mHHL8jJQVVs/MJU3Y1PF
7ZDBqjzgWv9DGDeiiixJau6k/BXgul/pe8Hag8RlzdmV5AJIkCh/GarVxRvK
ZrSQqUIY3Of8v3QvA4xpUeKOia6CsKjAYrb2IFbSM+ZYU8VwM9XykcyiCf7z
jziQdfgXUPwk/aFt5jjdf/hxR08ptLyHPVWJlrjpWMjGl8bXQfPle29LHqL8
uAn7e04ZUOe8vKz1rLFB/vu9qarlIM77VWFh/hiqjq8bu9dTDsfH0z0aq20w
yi0C57J/ALrvw0IzsS1eS9wd5cGqgKbU1hFrFza+W1fSa7hQAZ0BgYFvVe1R
R3Ohc/2dSrA49ejvDionUfejpFBZWAXCIfPl8b85IuNbRZq2rhRE4Z2e13Oc
0FjJtUg6IQWVxE2tXRXOuCN/WM6juBpk7LObP9S74JtrrE007xvAbaRH6T5z
xdgz039ObqgBq6sMo21LbmiVI/gC7TXgpbV6aHqXO76zvldZGFcLcjsh5G24
B/KbXXTUDetA9rH52MVOT+xq7j4unauDgqkf3NvtvHAuIsWWU10PAwONZP8z
b7TNU/RL82wA7sntJampHJwwXFJJ926AQ9ZpuxyzOZje96Y/3acB/EbqjBiF
HOxe3wGZfg2grvGb8gMpB53EkYzskAZIGM36yOrioGfs2EC+uAFUmYnnjOV9
UBjYfrSspQHqN6sdlUv3wbQj5zXuKhPg5vEmi13pi/pDT3MvMQhgynyjulDv
iwMXTeVc1AnQTBv/d/UdX1RpXJl4t5sAOo82qfXIF2v3ihu1DhCwQc3XOOyt
L3ZvL7WR2BDQoZK/kbWTixtmu876hxGQ7vljbJkfFxuz9r0wukDApRvxwvjT
XHTXy3SSiSTg1n5ZiUDExWsBzsYlsQRwSr95ciSSiwd+f77aJyaAH9Lor5/J
RafHs7kW19f83H0W+ne4mFep0rK1m4Dx7F+CT9J5eKb7TwO1XgKW05LbY7bw
0Hr+vzXMAQLq1DLdm5V5OHcsr8RskAC/Q3XmbG0eurxSjPd9TcD9OVHovBUP
N2ut2NQtE7BTRzWwNJyHE+znbU1fCLC69MAvJ5qHVOiPh9tkSRgVFXhcTuRh
yIML+/oVSLgd9rKjM4eHfdxp+uI2EugRDO/ZBh5mXx95Yr2fhL6mG0q/T/Ew
4NH9EycMSBj8fPnmygceWs2UPDx1kIQd/jrLJss8nLbyvCs0I6HCfz5xkc5H
hxd9xRIbEtSLMjR6D/CRKU9uLTpOwqXzpR1PTPm4uj8rs9yehNWjtJ5PR/lI
xLLjmpxJCONMjjW78XG9WgdvmEPCzz6KjhoxfHzNKht+xSXBPTqmU5TCx9Zz
ca7vBSSI4ntn5nL4eK7V3EbmDAkqzMX4aikfWa+V22hBa3uMgqWRW3xUpS+a
bA0hYUM0L4Jzn4/d3rf3Mi+SMLzkumD5lI+VSbnlB6JIIDVOmxIv+RhTF6xi
FkNCwKdQ37hpPn79WY9+IpGENonANIAmQLnd65JPJa9xEy2zYIcAf7ObWPER
k/D1nhTGt0wBZhRXzoRKSNhcKtCZtBFg98ySRVDu2p/lCx6l7gKk2zimC/NJ
4Ga7zzoIBXiyuPKZoJAEhv4f6UbRApTMLO3xLSbBJiN7LjdbgD0sxzCvUhKc
lsVhw1UC3Fhc2X6qjISUW67VP7UJ0Glmie5cQYJV0rzh2ecCzGE5ep2QkmBn
T32VvyrAvquV1bY1JDANI342M/TD8yxHh4e1JLwVxbhlnfXDvwAILgTo
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs01HkYh2dlpwxpaA1LB8llU+1SLk2zvC/mmyHJyW60Wy2h5LjMtBW2
aFIadmpW2JFLNZoxLrmMX8mUaFa22lYqW7oeplKIqFmkUu3sH+95z3M+5/Oe
57zzN6esjTOg0Wir9fP/tvdIU959lgT4OmWiON0CbbWWaQLzZKA9EB8bzbZA
m0PNQcagZ9uVnIB8C2T1T474Hk0G4VtpxEiNBZoU7lymDE4B2h/UXN9HFjid
zo46H8EHWqtVSZ8vCwfue73MuSAAmseNx9aGlthW7D7T+eAO0ATHJW+XWOEd
IWdp0pFfAJttFw732yCruVxuYSMEjfE5IcvADuNZ4U5BfVmgSdxUnjlzPqZU
Sxz292UDTWATqqp3QCn8VZhWmwMamHsgjO2I240kWTuaxKAN2btB1u+E4xzh
AFclAXtJwsFrIhfsVKujBlvyQMYO4qeZLsS0pF3iRp98kJW9393R5Ipn5Kf5
9yoKQNYj+foELkauRHRkiP47aKauGyRcWoL1+favPmRLQfYij9e+5RussmIb
8YeLgN/gKO7d5YZ71KyoZ8nFoL2o7ioNdkeFiVjHHS4BpilXssZ6KW54kgkG
oWVAK88Q9j5ciqO3vK+1dx0DmdFlu4q6ZcgM4M957HkChKtyTUIEHkgf8Ara
t1EGYa+TGI7EE+vo+74SzSuHsL9DS9984YXzBhjPWrrKIcrsrXlTjxemf5eK
ut9OQhTD83xplTcez1qQHsGVQ5jDYW9B4nIcYZTecJ+QA7O7wCVkMRtd7Cc6
ZjcpwO1pRwdvmo2uk5Iiq/gKoG295unTtgJt1hsbObkqQeN/32V1Hgc9WeFH
lYNKiOrxc4ne9C1aFj4wjCipBI3oyMROWx98fpzLNPqxClSV3UPHR30wI2F0
asi0GtDVfNV1lS/65sV8govV4FbTMzkrBXDEv0VRlFkDWmfl0ypbxM1n17rY
up8CdR/ldTsT8fLZTp5SdwrcvvTgzBhA1KUeDNxYWQuqruk4Ds8PAwuMY3Mj
60BLUsP3VPphLudnu2aresgbDypsNfXHAoW1em5nPeSc5xqbpPijuEQxJpA0
wE0XM7PIu/4YMbHn5ElnFajW3/Kp9QnAzowrLfK9el6urjc7FoDNIfsVTloV
qLc0xQgMuUif7n3vu6IRrBK6t/fHcjEh0v5Jfn4j8GKD7sRc4iJ53120VafP
/Vb+8GAhwQOZThf+WUWBWy8xjM8l2J+9jh6zmoL46EMSczFBclgUpgulQJ14
zrL1EEF62VA/cy0FPHLF2TyPYM65utmhkRTIHE97X5ASPDzu+dPVWAqmrt52
ZCoIShNWGrRmUKAxyF3c3EZwUpAaErKXAubdMwXRGoIR6VXSh0IK+FlX3xq3
E7TKYSx6t1/vk1vZHvUnwdKKrnDvXynA3SSQ0UlQpl1X0Sil4B6LMW/jfYK0
QdEYHqUgLVAtmPmQYPSYmn2zWM+ToZcbHxF0+GjdNVpGQd47z0S6lqDCpm9y
kZwCWttwTcNzgoYLmH4tCgrCZvW9WT9IMM7VTxyspEDo2BJg+IKgM1tut61a
f+/DknuRLwmK8Pa2qRq9340O+xljBAcDPz8jqtX/p4wbX/eKIG+N10dWvZ75
dfUROoLV67bylA36/vef/v1snOB/K1ItOg==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVkHtU0gcUgH9asSxNlmUss6imppKPVMxI7kXhl5q50pZuqyM97GEPsWzK
zCKdryimYPgqQ0GKIgXKxGmLtY7LjoeZq9NqLalZWjH1MLOm1sb+uOee75zv
j+/exdsyEtMcCYJYZ5//Nz00R/3g+X4gpKepHkYHXGiZl5M5+wAQZzl3xL0O
6HGyNXYm2Fl5onTS6oDu/WNWdpWdO0ZpTxY7onPF4RB1XAYQD4Jy68WOOCmM
4H+fLACioGidb+oUHHjI/KukIxMIH7l/JGUa/lAd/JF3URYQ9R2PD2+cjvdF
rBX7y78BYrZuX/kxV3RvrVfO9RCBaPxOUhvNDXe7J3nF9uUDcajQwWmrO2Zo
JEsK+gqBGDSGd458gnLoqsjRlgARMunwR7QnHnSS5Ge1iMHEzJrLzKDjKEs0
wNVJgPiyJSYodAl2G438wfYyILqYG3ofLcWc/V+L9ZFSMOWIleGNXnhVeUXw
W6MMRLd/TIza4INcSXH5S8ppQP8HuvHRZdgkpY+8L5QDqtJy8zr88AItwknw
uhJMO1NyFWkMPGJ05z8/UA0i6cRt2YoAVDmLbdzXNWBqcHFe+TYQNz87Co4J
Z0BEK8hvNwfh0N3wOzfNZwEVrPedV4KRGi1wfRp2Diw7hYfqSlcgZYAZe3yL
AvjPwqamZYbgZcrxZcUL6oHgnlBN+TwUFwzMeN5urgeFr3DDXt8wFG7MRtt3
DUC/dcOn05WJdflLhclcJYiupMsGXzDROqP2l+A3SuC7aOmWtnD0ob+55dKi
AlMZY9BctxL9xiSVtN2NQN+Yx87PikCPL2Y6efmpgV+kXBa0eRWGuSdVqQft
vMV7WguwcF7Fo6nJNeeB7xa6asJtNb6o41KdvroA9OVzUnF8NealD717OUsD
/OkuHN7dSGSXbf8XbmjAcuTVE08VG61R7arKoxeBqGN1/VMCuO1aos/C4EvQ
EzBldmwgYue17hi17RII3tfraUpEW3bRmi3ntYCPqpt5rhxcI5u5ozTlMoz8
5MXYLORgKevQolZaE1AvqtJyrByUqeYb3bqbYH0fHUaSo1BcoxrOlDRDUHm/
MaM7CpPfHGlo8NaBaE+V/iE7Grvzfm5XHtPB+mbPg2c10dgaX6DysuiAWPuK
t9eTi5TJJxPsVXqwPLWOlpdyMT2F/kwq1YOJb4mt/5uLvIneyl02PRCLsz+9
vpOH3x716vh1rQFG7iveBvbysL9wE2X7Ojufy7zneo+HvFPF620JBhAxJvXD
93lIOfOyn5poAIWGndH8kIclbZddElIM0DMutAU85eGp0bDU2zvsvm+PR8AI
D+XppOP1PLsfxxhnzCJxLDM7Pv6YASyLooecqSQmCy/IfxcZQFAz50/rxyTS
Smb4jxcYgF87YNbOJbG20ZwUfsIAuoqEZoYniQrLpka93O5XessYDBKJweJh
rDJAmdtrqXMAiVuHjRE91QYwqdNl1kASl3yYbx46YwDq8lq5NoRElUffmL/S
APSCm40MFolTl1I57Sp7Ty7/knMkiWl+HHGc2gDErTa9lU2id4Ry0R6N/Z7U
OpM2isRivLfn3UX7f0y+XSe5JA6umXa1WGvvlQh695EkxnzG/ODeZO8xH3wc
H0OiZtOuGHWzAYJKgwYYcST+B8j+Jlg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQ00cUB/AdiqGA1AAlRlGI0HAERPJTsAi6DwyiVKkVx2CBlnoUROSo
aAABOcSEoqlCGg5RUUIAFQQVSBu1jmUqbWmoYosHFnRAgiA4EFK8sK9/7Ox8
Zr/z5s13dtG2pE07TQghG/D8f/OWpal7BvdQErOyufvAJHXon5uWYpOI7umF
45PU/kjbOkuK7r9s1qiepJwB4+iqMnTV0kjZ7Uk6W7FvqTo0CfMbXwa4Guib
dL+YH8XJ+P7GWn3HQIfu+z6XXU2hZKNzi8TdSK+XC81cDqfivJab3J5p+leO
P7PneAYl3k776mpmKKftTLWdfQ4lx8TBd983gThOOH9dXx4l+qQoYbMpJNXL
nfL7CijRnAxnSsxASX9VpF2QUcILHxxdbQHfmMvzUluKKOkQu4V6WYHBP2dI
1CSnJOqhSd4sNnRqNDF67TFKplMlAZHWkLZnf1HzymJKPBtlt/6wgSvVl5Pv
1ZTg/H+zmlw/BJFcenyY9T0lmdrMjgw7aCzmvXhboMT8UEzTMw7Ucf3Mk0dK
cf/aXmMgFzI1nJjBxHJK2j+und06D1SziyZEIxWU1CmCPnO2h6gn2dQkrJKS
ZcLFU5IFMHZ7+W83dScp6S05Hzu8ENirk+c89jmN+/f+7RfkCKwh33W50VWU
kL3vRiN50MDKdZMuOEPJJcPpzbaLYMGQxaBWh55+b2/C9UWQvlkCE9+dpWSs
/ukziROcynNOF4uqKXnRrZ3Hd4ZRixNdwil0WNyBfp0zuPKm2q1aVJQol+RY
ST8CgVFeyo2rwfksGGH4YL/V0pwvUFNiYnjp9ZwPPpzwMrUeXTUrz0LlAnMV
D0zFFbWU3GjnlYa5wtNTIrZ5ZB0lirCoQjM3yIofmx7+oJ6SNQGPPK+4wapj
29/Rn9BR2sK4aHcYDdKqSrPPYd8L08ztBLCtdZOrg/A89mEwjbohgF9aO9eq
J9BO0zLbDA+YkBwOia69QElE6INMV08IKbHcURjRQMmzhozs255Q6L/XsY3b
iP/Num2gcDGUqOZrbDvRvfPmv/XxgqIK1XiK/CIliUt16S+8QDyVefasSxMl
M+4t8tol0Jl1S1t9EH3Tbo6Huze0rc9X8fvRjsprNwq8gfXmn9erVjRTYrGr
fUmvN8RH8J4UF6O7RbYj3kIIfn2nNHYCbdfhde+IEA5l8692f3IJ+7TsOvVE
CAMFW1jbN6ALVnQtHMD8UenGiTC05vOuykEhsCqHB9ib0KKkrgq9EGQ/NFiF
RaCn9DrlmBCOGny+7NiBvu7wu/yVEJTxa0yuZaHZCk22DQPGFMn69QfRnuOt
b20ZEKfXKR/moM/5t2TaMcCVWXi8ykd31jVncBk4UaMLX/4t+mJ3/X4HBqr6
t9Q0K9Ezu0sTBQwQvXQcytDBjxTPPRj4alzj92c5epwWJyxmwGlmvm6sEp1w
/0i8NwMq+z6jRzXaMjr3a18GTJ3ZgVoVOm5r9uByBnYKAotC1WhByIEdfgy4
+FU77qpH9xhTtwUwIIW7u6bPoX/WpDxeyYA+ZNYV6QW0TUJiDGVg7ae+M5xG
dDt7dx8wUL8ldq36Ivq+OvaLIAb+A5XTEQ4=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{633., Automatic},
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {3.4925923286607485`, 23.166559446472547`}}, {{
    0.0072992700729927005`, 0.072992700729927}, {3.4925923286607485`, 
    23.166559446472547`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, {
   3.646972678784955*^9, 3.6469726870726957`*^9}, 3.646973163543934*^9, 
   3.646978350153631*^9, 3.646981396624117*^9, 3.647107791359207*^9, 
   3.647109068456748*^9, 3.647153629189049*^9, {3.647155518851261*^9, 
   3.647155527684608*^9}, {3.6471571266876783`*^9, 3.647157147332953*^9}, 
   3.64715717897289*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalXi]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]m", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]n", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "2"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Yellow"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[CapitalXi]", "]"}]}], "Input",
 CellChangeTimes->{{3.6471571819381247`*^9, 3.647157199363978*^9}, {
  3.6471575166809053`*^9, 3.647157520492272*^9}, {3.6471576331021967`*^9, 
  3.647157759670615*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
    Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0Xs0lGkcB/CHMEzmZTY5qo1h0Ah7UJIunpdcNtaGEmMSOmrrnGK6HtFV
uRPrUrSpppYWIVonyvQ+iy0skVwq0WDyGsllyF2zT3/8zvd8zvef7zk/wwPh
PgeVAQCe+L5nrle4NgASeOnJNq6VJZskhf3v6pZhN0x331vPJqWpvvcTGBII
AkMzV/LY5PqWrZtWaOF+eYDKghGbrPRU32eqj/uoUsm/emyyzV304Jdt2ALl
JIEKm1R3eeOQE4Gt5Jof261NnrK3O2YzgX1uw0x3gjYp+aSfWjLdB0GOJ5VY
pkWm1T4s6RzuhyB/buC/QwR511+jauP7AQj22h+6ZMQincti4j/0SCGodSgv
rllOWm79y9eq9RME46FpHpFMsih+mG7uHIRgE9clWFeDjE9ZCBW9pSEYfZRK
VzLIgtryj5yGIQisk5/2nVAjg8QJBsPNMgi8Wzy82Kokf0gtMOifYQiuFsts
Xi4jyxt9YpiPPkOQNXo68YoyeVf4/ISifAQCDXW1PcZKZJtba+DdP79AcPhZ
/boqBczpVyKSCkchCLAQxckXIbVRuaCoaAyC29V1LZvn4cp97Zxqz3EIhLJ1
GiUzMPPik10vW7CvX6XWjkzBimfHzvN2TkAwWC834cuh6N3jlJImbC/zBqb+
GNy2OySjxVMOwZ6U4tz7Mhj5qe+G6wvsW+dNDeOkMJovv9D/8yQEek1H0md7
oMVgR2h7DfaQwK759hsY+4pDhmyZgoBkmMdO1MDC7IWlH6qxQbqhjiibEkYV
PF1t+xUCTgDvteglpUTSfLdKbCtn5s2pTsoxOHmUsJ+GIKL5Nw+5hOLmqERb
lGE/zPvgqDlItT7WnA3bMAOBvxu/NPMzZUDTRxnF2BwRER80TumfWd+1xXgW
Ap/Csy9oOUUPLnIz8rBdb7m5PPhK+QjvhTvqz+F/Bq2tspul4ru7cnVE2P4u
fscV81RwkKRx+5p5CBIfWf6YvUTRDl5flDKwi+48kLEBsgde8mGdBQjMLCVH
Tiohy/dG02bXsKf3rggRK6PPWTEfUtiLEGyemvxmpIL4xbsqk9OxrX9t4Ear
oiM9I+l9zCUIjtrbihvU0I6xVV6CFOyYoQ6FhTpCq1ZrmjO+QeD+tKMiQgON
3LkszrqALTwpGBcz0QDjrLcJUEAQbpjaqa+JzsXvkDLPYvfRjZaHWajqj98r
TaOwfdecHjnGQtMlH5OdzmM763GKTrJQeEeUbeRl7OSwCN5FFjpg9HesLAEb
pNhwr7PQzmpjs/qb2Lz0Jr06FtIdVw2LqcaW1d5Q4RBo97I9TqLn2HyeoNaE
QGm693TFCDtkr0G0OYGY2x2oqTpsO61CxSYCLSWc0Q5txjaeqp/3JJCUS5c7
9WJXJllMRBHI0M42br8EWzVxsfQygfa7XxFE9mPPeTeHxRGoS2igUj6I3eZw
fCSdQI1iP1/DMezTyTV0AYEYr/PMtk9gM95m55cSyFk6ueQ/ie3+JfxgBYGe
M9Py02awO09xBhCBFtb2Rj6c+76HnhO9INBma4td9QvYBtz24CYCnXKO5EqX
sF/xSg3aCFTmVz+jUGD/NJvY20Wg/wEvw0xW
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.6000000000000001, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{490., Automatic},
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.5, 2}, {-3.8554049355495863`, 4.2941289430435745`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.647157200816389*^9, 3.647157481335013*^9, {3.6471575178073683`*^9, 
   3.64715752105562*^9}, {3.647157697844512*^9, 3.647157717197876*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
  RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]m", ",", 
    FractionBox["1", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]n", ",", 
    FractionBox["1", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.646909619265101*^9, 3.646909688722557*^9}, {
  3.6471573922908792`*^9, 3.647157405547679*^9}}],

Cell[BoxData["1.5829989781054792`"], "Output",
 CellChangeTimes->{{3.64690961414717*^9, 3.646909689088436*^9}, 
   3.64715740632718*^9, 3.647157486703463*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["1", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646895740385*^9, 3.6468957490279293`*^9}}],

Cell[BoxData["0.0072992700729927005`"], "Output",
 CellChangeTimes->{3.646895749553051*^9}]
}, Open  ]],

Cell[TextData[{
 "There is an intersection\nFor the N baryon the mass difference is md-mu\n\
For the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalXi]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the D the mass difference is md-mu\nFor \
the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalSigma]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox["\[CapitalSigma]", TraditionalForm]]],
 " the mass difference is md-mu\nWe can thus get very good agreement on the \
mass difference (The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " should get a seperate treatment. Also this could be due to peculiarities \
in the mass of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 "...) of d and u quarks. "
}], "Text",
 CellChangeTimes->{{3.646775053040186*^9, 3.646775142096891*^9}, {
   3.646775199764783*^9, 3.646775236703779*^9}, {3.6467754764935083`*^9, 
   3.6467754795461273`*^9}, {3.646775596913702*^9, 3.646775624475506*^9}, {
   3.646776222673148*^9, 3.6467763075116053`*^9}, {3.646777508648984*^9, 
   3.646777539824637*^9}, {3.6467791465652037`*^9, 3.646779146718832*^9}, 
   3.646779925941574*^9, {3.646805482892427*^9, 3.646805496417951*^9}, {
   3.646806391075924*^9, 3.646806395111081*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Mass", "[", "neutron", "]"}], "-", 
     RowBox[{"Mass", "[", "proton", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"Mass", "[", "Dn", "]"}], "-", 
     RowBox[{"Mass", "[", "Dp", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"csq", ",", 
     FractionBox["1", "137"]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Mass", "[", "neutron", "]"}], "-", 
    RowBox[{"Mass", "[", "proton", "]"}], "-", 
    RowBox[{"M", "[", 
     RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
    RowBox[{"M", "[", 
     RowBox[{"proton", ",", "csq"}], "]"}]}], ")"}], " ", "/.", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"Mass", "[", "Dn", "]"}], "-", 
      RowBox[{"Mass", "[", "Dp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"csq", ",", 
      FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.646776527507779*^9, 3.6467765812168913`*^9}, {
  3.6467766316594954`*^9, 3.646776680954193*^9}, {3.646776798198564*^9, 
  3.6467768476840363`*^9}, {3.646779183914538*^9, 3.646779219408032*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"csq", "\[Rule]", "0.04914073298149917`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090128*^9}],

Cell[BoxData["7.363124561956624`"], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090995*^9}]
}, Open  ]],

Cell["This Gives a charge squared of about", "Text",
 CellChangeTimes->{{3.6467771406034*^9, 3.646777154531913*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["6.5", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646776911505561*^9, 3.646776929981927*^9}, {
  3.646777002303513*^9, 3.646777120047933*^9}, {3.6467771596631937`*^9, 
  3.646777229957468*^9}, {3.646895845591597*^9, 3.6468959274932613`*^9}}],

Cell[BoxData["0.04744525547445255`"], "Output",
 CellChangeTimes->{
  3.646777230356695*^9, {3.6468958463623877`*^9, 3.64689587729163*^9}, {
   3.6468959079091187`*^9, 3.6468959277733803`*^9}}]
}, Open  ]],

Cell["\<\
We can now fix the charge squared to this value and calculate the masses of \
the up and down quarks from the equations for the proton and neutron\
\>", "Text",
 CellChangeTimes->{{3.6467773185942783`*^9, 3.646777368241434*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CSQ", "=", 
   RowBox[{"csq", "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "neutron", "]"}], "-", 
        RowBox[{"Mass", "[", "proton", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
       RowBox[{
        RowBox[{"Mass", "[", "Dn", "]"}], "-", 
        RowBox[{"Mass", "[", "Dp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mdmuSol", "=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"neutron", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "neutron", "]"}]}], ",", 
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"proton", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "proton", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"md", ",", "mu"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6467775770882177`*^9, 3.646777640259595*^9}, {
   3.6467777177337923`*^9, 3.6467777635087214`*^9}, {3.646777879591655*^9, 
   3.6467778860019197`*^9}, 3.646779306165267*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", "17.761528445582996`"}], ",", 
    RowBox[{"mu", "\[Rule]", "10.379176540859646`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6467777782700357`*^9, 3.646777888879471*^9, 
  3.646779310531558*^9, 3.646779524478355*^9}]
}, Open  ]],

Cell["\<\
A consistency check is the mass of the pion, which turns out as\
\>", "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
   3.646778033720356*^9, 3.64677806653109*^9}, 3.646778229205288*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TotM", "[", 
  RowBox[{"\[Pi]p", ",", "CSQ"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Mass", "[", "\[Pi]p", "]"}]}], "Input",
 CellChangeTimes->{{3.646778081503436*^9, 3.646778090319837*^9}, {
  3.646778122203072*^9, 3.6467781331729603`*^9}}],

Cell[BoxData[
 RowBox[{"391.09360357712904`", "\[VeryThinSpace]", "+", "md", "+", 
  "mu"}]], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527554325*^9}],

Cell[BoxData["139.57`"], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527556019*^9}]
}, Open  ]],

Cell[TextData[{
 "which is inconsistent. This tells us our model is not fit to determine the \
\[Pi] mass as is.\nKnowing these masses now enables us to determine the mass \
of the charm quark through the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalXi]", "c"], ",", 
    SubscriptBox["\[CapitalSigma]", "c"], " "}], TraditionalForm]]],
 "baryons and D Meson, and also consistency checks at the same time (the \
system of equations is over determined)"
}], "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
  3.646778033720356*^9, 3.64677806653109*^9}, {3.6467781760373373`*^9, 
  3.646778202103224*^9}, {3.646778240201126*^9, 3.646778240391296*^9}, {
  3.646778308620927*^9, 3.646778339601349*^9}, {3.646778533744286*^9, 
  3.6467785338908997`*^9}, {3.646778737028174*^9, 3.646778769651718*^9}, {
  3.646805575940419*^9, 3.646805585392634*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778346807811*^9, 3.6467784408184633`*^9}, 
   3.646779379658902*^9, 3.646779491242586*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.6344132901909`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304356327`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.748983436131`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304381104`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1625.8134845870227`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.6467795330221977`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1611.048780777576`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.646779533024062*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.6675194115548`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539536715*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.633761850927`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539538064*^9}]
}, Open  ]],

Cell["\<\
We can now use the \[CapitalSigma] baryons as a probe into the strange quark.\
\
\>", "Text",
 CellChangeTimes->{{3.646779586878907*^9, 3.646779694008649*^9}, {
  3.646780429957749*^9, 3.6467804753703403`*^9}, {3.646805632702094*^9, 
  3.6468056615386553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]n", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]p", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}, {3.64680695981404*^9, 3.6468069692650146`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "343.52751941155503`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969799654*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "341.0337618509266`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969801393*^9}]
}, Open  ]],

Cell[BoxData[{
 StyleBox["TODO",
  FontWeight->"Bold"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"units", " ", "of", " ", "charge"}], "-", "Jackson"}], ",", 
   RowBox[{"try", " ", "universal", " ", "fit", " ", "values"}], ",", 
   RowBox[{"more", "?"}]}],
  FontWeight->"Bold"]}], "Text",
 CellChangeTimes->{{3.646901592114575*^9, 3.646901612598467*^9}, {
  3.646901717460721*^9, 3.646901733991518*^9}, {3.6469025578557243`*^9, 
  3.6469025603696613`*^9}, {3.646902991834437*^9, 3.646902998262576*^9}, {
  3.646909724054406*^9, 3.646909725151971*^9}, {3.646913421070413*^9, 
  3.646913421209238*^9}, {3.6469156357926292`*^9, 3.64691564949657*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["universal fit feasibility", "Chapter",
 CellChangeTimes->{{3.646779808572959*^9, 3.646779836769912*^9}, {
  3.6469313325908966`*^9, 3.6469313549702573`*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "mass", " ", "of", " ", "the", " ", "Ksp", " ", "is", " ", 
    "the", " ", "hadroproduced", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaonp", "\[Rule]", " ", "493.6"}], " ", ",", " ", 
       RowBox[{"Kaon0", "\[Rule]", " ", "497.6"}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "938.272"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "939.5653"}], ",", 
       RowBox[{"Ksp", "\[Rule]", "891.66"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", " ", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "2286.46"}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1896.61"}], "  ", ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "139.57"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", "134.97"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "2452.9"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "2453.74"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "1531.8"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "1535"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "775.26"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "775.26"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "5279.58"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "5279.26"}], " ", ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "1315"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "1322"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m1", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "ms"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mb"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Spin", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        FractionBox["1", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        FractionBox["3", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["1", "2"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "0.57"}], ",", 
       RowBox[{"Ksp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bp", "\[Rule]", 
        FractionBox["2", "9"]}], " ", ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox[
         RowBox[{"-", "1"}], "9"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["2", "9"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "0.884"}], ",", " ", 
       RowBox[{"proton", "\[Rule]", " ", "0.949"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "0.949"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "0.95"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"Dp", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Dn", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0.884"}], " ", ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", "0.95"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0.884"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0.884"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", ".95"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", ".95"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", " ", "0.5"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "0.5"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        RowBox[{"-", "0.36"}]}], " ", ",", 
       RowBox[{"Dp", "\[Rule]", 
        RowBox[{"-", "0.19"}]}], ",", 
       RowBox[{"Dn", "\[Rule]", 
        RowBox[{"-", "0.19"}]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        RowBox[{"-", "0.12"}]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", "0.12"}]}], 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"\[CapitalSigma]cn", "\[Rule]"}], ",", 
         RowBox[{"\[CapitalSigma]cp", "\[Rule]"}]}], "*)"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.52"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.52"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        RowBox[{"-", "0.04"}]}]}], "|>"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}, {3.64718323066405*^9, 3.647183314054035*^9}, {
   3.647248155835827*^9, 3.647248197979225*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}, {
  3.6469313848637843`*^9, 3.646931386542401*^9}}],

Cell["\<\
The energy not due to end points is actually (now letting the charge be \
arbitrary)\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771928577896*^9, 
  3.646771937756853*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{"\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]], 
      RowBox[{"\[Alpha]", "[", "key", "]"}]}]], 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{"a", "[", "key", "]"}]}]], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{"a", "[", "key", "]"}], "+", 
        RowBox[{"csq", 
         FractionBox[
          RowBox[{"8", " ", 
           RowBox[{"Q", "[", "key", "]"}]}], "\[Pi]"]}]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{" ", 
       RowBox[{"2", "\[Pi]", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]], 
     RowBox[{"L", "[", 
      RowBox[{"key", ",", "csq"}], "]"}]}], "+", 
    RowBox[{"csq", 
     FractionBox[
      RowBox[{"Q", "[", "key", "]"}], 
      RowBox[{"L", "[", 
       RowBox[{"key", ",", "csq"}], "]"}]]}]}]}], 
  RowBox[{"(*", 
   RowBox[{"+", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"Spin", "[", "key", "]"}], "-", 
       RowBox[{"a", "[", "key", "]"}]}], 
      RowBox[{
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]], " ", 
       RowBox[{"\[Alpha]", "[", "key", "]"}]}]]]}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TotM", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{"key", ",", "csq"}], "]"}], "+", 
    RowBox[{"m1", "[", "key", "]"}], "+", 
    RowBox[{"m2", "[", "key", "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, 
   3.647107852952241*^9, {3.647108911976357*^9, 3.647108922180167*^9}, {
   3.6471536746757298`*^9, 3.647153677939547*^9}}],

Cell["\<\
Now plot the energy differences due to charge and string tension, minus the \
difference in the actual experimental mass. This should give the mass \
difference in the end points needed to explain the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771892161929*^9, 
  3.646771922570491*^9}, {3.646771955659872*^9, 3.6467720195600758`*^9}, {
  3.6467746398636637`*^9, 3.6467747120583687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["1", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ks", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
      RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Ksn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Ksp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]c", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dmes", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "Dn", "]"}], "-", 
       RowBox[{"Mass", "[", "Dp", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"Dp", ",", "csq"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["0.5", "137"], ",", 
        FractionBox["10", "137"]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[CapitalSigma]c", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}], "-", 
        RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cp", ",", "csq"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", 
         FractionBox["0.5", "137"], ",", 
         FractionBox["10", "137"]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]2m", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]2n", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2m", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2n", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Bn", "]"}], "-", 
      RowBox[{"Mass", "[", "Bp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Bn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Bp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "Ks", ",", "\[CapitalXi]c", ",", "Dmes", ",", 
   RowBox[{"(*", 
    RowBox[{"\[CapitalSigma]c", ","}], "*)"}], "\[CapitalSigma]", ",", 
   "\[Rho]", ",", "\[CapitalXi]2", ",", "B"}], "]"}]}], "Input",
 CellChangeTimes->{{3.646771950731372*^9, 3.646771952079427*^9}, {
   3.646773446750395*^9, 3.646773527162901*^9}, {3.6467739499050417`*^9, 
   3.6467740871374083`*^9}, {3.64677412262253*^9, 3.646774187884631*^9}, {
   3.646774249796054*^9, 3.64677431049582*^9}, {3.6467744799045258`*^9, 
   3.6467745123336573`*^9}, {3.646774736765486*^9, 3.6467747673780117`*^9}, {
   3.64677480806011*^9, 3.646774905078524*^9}, {3.6468054195661592`*^9, 
   3.6468054612143517`*^9}, {3.646806278805697*^9, 3.646806299819624*^9}, 
   3.6468063302471447`*^9, {3.646904373022484*^9, 3.646904418235331*^9}, {
   3.646904481152533*^9, 3.646904485287752*^9}, {3.646906424813212*^9, 
   3.646906474872012*^9}, {3.6469067567808332`*^9, 3.6469067664148483`*^9}, {
   3.646907516192577*^9, 3.64690752320674*^9}, 3.6469075735789843`*^9, {
   3.646908658506624*^9, 3.646908658933872*^9}, {3.646912738500119*^9, 
   3.646912824595537*^9}, {3.646912870978058*^9, 3.646912884420073*^9}, {
   3.646915424828039*^9, 3.646915448856234*^9}, {3.646973251487301*^9, 
   3.6469732584090242`*^9}, {3.646974597814584*^9, 3.6469746041105127`*^9}, 
   3.647181429922538*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3s0lAkYxj/TRTGrXJvoQmZNhSRmvrbkfdstRpuITrUbdtguwmjo6LbU
14aoSTWkyJTbyBjNDZUGTed0s9my5ZYSWxJSyqZhj9ndb/94z3ue81zO+TlF
7QnZwSAIIpC+/3+5hT22v0kBwvuSfKTXHDd/fqk2/E3raXuZWz6Z4+TOEifW
zMNAxCXH6YzmKJC5T/phBa2t3dmpdkxk+ay+15lF6/CpibZ8Jmbsjl7/kjwC
xID0OKlgonfUtsqRNRQQZpn5BxO+Qut6+Y3x3KNArD0jGDVa4IBQmflmbypQ
PzOH6twscbCmNBscjwMlMX88VG+FMyOnm7jfygTiIf8vjr8NBpq2uYzlioHy
s1Nf+mSL19bkpHn6ngYqMuBwxpFZmO8bvoE94ywQ0UFZ8iWzMU585eTBAxIg
IpsFLa322CKLeZPWmA3Uo4l7+wVz8H5dpIMJeQ6oaMmsQOY8DL78h9BLnAtU
lKRJenE+xlWNJag6zwOV3DFy+KwjWt8NDclfmwe4Thd+d4cTBhdzgnwu5AM1
LFrQ5LoAWSkeCwNNC0BvvMPexXDGvZkftFf2SIHIiJg7vdUZt0e6/Fh76xLo
lf7O8XlsFDk0fphjVwjo4/lge/zXOB6ra1iuLwTqwW/P53NdkK+7P3HyQBEQ
HKuEGCYHBSUq61T3YsCmcKf6bg5+9+npjS1ttHbuGG4rXYhDq6yaok6VAJqW
ylIOLULBR7EwYHkp6PP/6RhavRilK1+/bekuBfzo0bdziisWpoU2nz8nA/Qq
2hT7zBWFXMKfB2WAd3zbV1x2Q6L3nivTUAZUxDflkiR3DHPdPZCuuAIUwSn4
7L8Ej3X4c7tCy0Gv2uHHZnqgKBWHY8zkgLuSNM96PHBhbhLZUi0HgY3KVhW6
FOWYvvXVtgpwNFPWGaqX4scB9VuOpQJ64vmmv87zRMb4rCkBNxVA3Vw0b5Ty
xM6peWeKEiqBWBnaUv7OE1MOba5onXMVBDobhl/QMhxIHy5Q3rkKjrFXnQfV
y9BBUmxsOKQEzNbKf7f3QtYkyVAFWwX68W2DF1O8sDPxYsCjFyqgVteKy/u9
sGqVHh7y1VA4rbtRt9Ebuz83O82VqgHfBZrpqrwxXvHh5okxNTgmjwkNc7n4
KmexQ1+gBnq6Xic7HuWibl3L2+wiDeinnNm38RUXDf+eiA2f0EBhwPWIhu95
yOr/6ZrNRi30GJ8tma3k4c5A+URWiBaoxNGgZhUPq7Uj307fpAVCqhAd1/Aw
OCXtsXEznbftV49W8zDDStHfF6YF1BS5PdHx0ODzxb42WguFESzLk408bDsr
PhJOaUFgYp810ctDtqH1bvtROv/+VHFVHw8Tw+YzQ45pwbGy4FpMPw8tONoL
ful0X3aiq+MdD/3q2jUeYjpfWu5SM8LDmr4FvSYX6HzBe5mQIJGxPm5xch7t
s2dUsxkkBmtqRF/yaT/r4e3nk0gc+oVvHJTSPGa2LwJMSWRbxtu1lNB+w6C5
iwWJifuuh22Q0XzC13ZdM0jUPydKHpTRfJP3O+VYkhhWlu1RL6f7I/Fchi2J
FeZdSaRCC/p1T31r7UgcE7nUaSrpvdNP/EUsEv3a9jDclDTv7bhgjj2JOStr
+WUqeu/Poq0vHUj8DzdXLN8=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkXlQUwcQh5/W0gLSUqkvlKBEKKB4kQQIAWEXCnKIqKCAIpp6i4EERSGW
4IsWQcHIoVwiBhICCEbyPECOmvFEpeDVQauVaEGwWtCMQTyqjX/s7HwzO7vf
7G/aGlHU+vEEQSw01efO8khX9w4kAdW6lD2yhcSpekZ6yqRkoFbNCT+aSiIz
rznMEkz8pnr1AimJZP/oC//SZCB8EqhaOYkTD23nqsNFQC1hlK3WkvhBwhe0
xoqBWNbo2jNK4uB9r39z2lOA+k5zrkHGwN/K2F+57E0FSk6fWlFii39Qvpyk
gp2mfRz7gFd2SDZXKSczKaCKOsDSaQpuIqOdw/p2A8HbcL08zAFF9XLHPX1Z
gIb4+IgeFhbDtUPpjTlAMAceXByYhlvN5btTz+QCMbd1U5KNE772pQaDmuSg
Yz/9Ot33R+xqaREMteUD1p41yhY5Y3rSjlytXyEg54y6eacLnlaeEt+rKQJd
xGy7lwWuGCTPLnhmdhjw1lhevnI6agpZL//LKgbdD/mnYrpmYJ0t31z8vASI
wL9tXB67YUYLKRhILgPCO2UWaTULVRNzDUHPy0F3o7dJyJ2NK59kwvjICtCh
3fvbwXNw+Bbv+oXuo4B5qYPRorlo/ZP428eex0CQ8dfbbYHuaDboFSZLUAAR
hg8777njCTPZ9Gz7KtB97yWMErLRftBioK27CiiF49UhIxslS9PQcLAaqItr
P5rlcrByt5MkNkgJrLsWdVySiy8sjvSwjUog1OGRpZVcdGUZL1mdUYGeWfFc
xvFAt1F5ie2mGiB6kydJ2z2QudzS3NlNDYpVAT3vlniiJxldqh5Sg75e1Hmy
3xMZh/6cEFteCzojUyhJ8sKnlUHW5vF1oL/4quPCOB5KE4fHnn1TDwpGwlLH
PB7656/9BOfrgRJL4tttvPFFYJuqJPM4KK7+HnhH7Y1rzka5TmU3mPLoE37h
zscrZ7tC1YYGIJbgDM0lPhrS9oYk1DaC4qZHx7ZFPhhSZLluX9wJYIXPZWzv
9cF9vtscmm01gBUaGE70xSKVXYtNl+Zzftys176YW64aSZGfBL0VX1uwbx7G
GjOqq12aQD9d6Hef6Ydd0qttyl1NgA/HCgNUftgcsUflrG8CykbYYO/tj2Yf
Hr3399ECbuVNtrvgj4lxrCeFhVqgZIzKZWGAwe9vl2w0aEEhK5437iHgr5nO
7XcW0GC9M3LCZg5if1aM2dqFNIirrm8p5yIGH8hebIikQXfw7u0bHohmFc/6
raNoEHQWHJvDQ8w5d8IqMo4G4pGWa9LHA689V3euMzFn//xdwYjFifPHd0hp
uMmvIw/HIY6mpEVE7DLd69SLrixHjJXUFT+gaGiKre18swLRNsdi5rs9JpY9
Sl+RgHikpjuat5+Glx7GOw5rEBX6mBptMQ0szeXU41sQiaHsESylId+t78oD
IeLPIy38m2U0LL6819YqGdHxo133cIXJJ4FqFYkRVcy+0ZlKGjB0yluP7YgT
nKwD2lQm/qc2ZMMOxPVuAbnhapPfOd3hkjREF77SYXM9DVR/hfs7CWI23t08
dpwGRZBAOvMXxKGQL09nN9Lgfl97bWUGYugir4+kxvQ/ZcFkuRSxPmZjqPqk
ab7mk+B8JuL/ANInuQ==
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3001HkUxn+1LaEmw2nMaWxNLFpqMzLE9+ReNZI2atmY2l4oksrLVFt0
yA9NM1KTKG+pMGOkGEzyNr3Y1G5rpdZup7Bpsgmb2DPJFtL+9o977vmce57n
Ps/CHbGBEdMpivJn5v/Nd41XP+mLBtrT2uJBIBvn663iJRYxQAezLFdtZiPv
ZL2fGTCcrWE3hrGR83JsyCsvBqjsD8alcWycdfaHZeq1sUBtaHqaqGDjZIJH
aFNIHNCpQ6aLW9nY3+n2Rn5DArTUWyv3tsBb+QJj++MHgf6RxyLOlviYJi7R
Z44AlVWsLxPORU59sXIujwZasf+ckmuFuzlBdn7PU4He9dF3moGLseUKm7Tn
UkavW7Tx7TzMgV/OxlfIgT6QP44d1rjfRJF68HoG0+fEM17nfBwldL+oWgHo
t9/FaS8f2xoaQgd0mYDD243zxQsxPvpQRs2KLGjuWz9zfJMN1iqvxT0tzQbq
4b7RJWttUaSQnRk0Ogf05pZdOcIvUZPF/+ejNAdoy8m2N652eJnrYRL3Oheo
bie5ta09JjZwQvti8oFOv37bzc4BVbMyDKLXBYDTROJjNotwS+9RmB5QCNiZ
3FzJ+gqHf3NvvdN+Aaiwm+G3WI5ovipuzgvhJcC7QtvKj45o1O/ml7K1CPAJ
qUqmFmOlUcoimXUxULUJmbKpxWjdb9qna2c4RjMheb0EE747jIbTJYCavZ/I
0Nd4MdU2IUSkBPSy7fi7eykOmZ5/KHinBPrfhXeidjqjA//d3dnXVUC9ONbz
a68zOo4pcrm7S0G/+0JaySYB8jaZmdg5qgEbJyCiS4BCTlCeekANFOvxtrti
F7Q62zUjpKAMaHnT0oJ2F3x1UWRu8v1l0J9nm20OWIZJe4bfD7LKgZ+Wdu3M
vWXolbnzE9xmOKVkNNLTFYdW6lS5R68Af0gmsm90xR11gQ7zBVcBX7Uc3LZU
iD/Vta1RG64CX1xskVQlRMPh475byyoAN64u5zi4oW+2WXi6uBKoGS231xe6
YTo5sKCeqwEqd4d/NM8ds1XzGizbNKCfYvUaZ7ljRoFqRKKogiKzyQ1Si+UY
8i6xpMS+GtDpZn1x5nJsS/pZp0yuhqKaPLLCyAPr16Wp7PTVwJ86ealR6oFG
kz0TXp41QK/sENRNeuAeMb83K6sGilr39QRJPNFnoiM30lADfG56yqMRTzx2
1O7G799oofl9WdDDCIIvpcFGO/21QG95y++JJOhzSrbBEKCF0MeFb4aiCBoV
Dr40D2R4jqnUNIagvLFydoBYC/we/wqfQwRPjQq33w9n9BWJf+qOE8zZs3r6
zSQt6H2kLWVlBMckh9etS2buq3MT68oJhiRczummGb5gLLx3lSBXbuo0nqYF
KuQzVW8VwfOl7UHuJ5h8zpFHvmggWKQPLq3JYf6Jemdm3ydIDchGME8LeKmr
vriVYNhIg8ejfEYvEeyqbiNoMzWvfbiQ0aeMNz94RFDFez7mpGTynx6PmdlJ
cIatubdOxXDXK65VN8EIR++Mter/8wvu2D0jaO+hXBBVzvgP91qsekFQhn9E
vb/C+IX5NX37F8EB389rZRVMv3BWWGgfwTXr3aY4GibfB4FxbD/B8uDINeoq
LRTxayuSBgn+B0oyKmg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVjn081Accx0/dbh6q3ZTLYlx5iJ5GdcqJ75dODof7UWilHFJazikVebrc
dJqHPNSRJHLOQx5/JUyrX7ZGe5mertVqy60RRdzuFelxsz/er8/r/dfnvTgi
LnDXLBqN5jfD/8tem6h6MBQL2twb77bou1AWmoWJ8cZioDxkzaDnQpnltHsb
gRg0FX8H2b/lUqzBqTG3EjEwNXLx+1EuNefkwTUqnzhwMIHRyltc6n2Sc/j3
IRKoiI/Ve6HgUsO/O73MuhIPEvl4idiGS1097fip7bEEkC6I4nh7OFP3pS6r
YwuOQIuyfot28zqK1V5ZZWImBS17B4cr51B7WEE23gMZ0NL4aG7+9TVUXF3e
EtlAJgidbL/2VTtSCrh5MrEhCzRfHSl/wHCg9hvkZSS0ZYOmmL6BabWCeuUi
Hea15EH4oZ6INXw7qq+jI3ykKx+oq4GGYY3WVGLsoexW10II7xREW3SzqUtV
FyUPq4uAtqKMvnLVIoqXJy94zjgFtLrK2IhpY6qpkK39kKkAqZ36ShsyqFpT
ZwPJaDHQnvzo1SEYv5bSwQofEp8GGj2RH9WtBeWcbB1vtBSk1geNS1j6uP1p
GszyLwOqmp5zN3I+jt9Z90t3/9mZv0pLkcgMmRsln/3FOQca130f7MWLkTHs
5H00rAJooDa+nWaDjYyjdnLzSkBFT/SNdHs0HzYc6uqfcVG+80u3lZi0+TDq
TpwHiXdg2fw6ByzPsEoK4VWBhm+VdqFgNY4ZnrnlOFkFknkvfFftX4tL2ZM/
zW1TgsPYudmOqU64bCqv2HRPNbTMOdX9Ino9mm01MrBZpgLqD/cieTIXOayg
EtWIChxO6L4IzNqAC08+ooeU1oBwx71/jh9ww2flPKbBtlpgB/AdWJ6IqXvH
p5/PqwOJhVFNDrijW37kv3CtDtZfe2j/muOBYx5dyuK0euD/6Rwd5rERIy4H
LrVwvAC9U6nkdVce/ny5j6/SXYD8jHnl2wM8UXf4mFdYTQMwe7JangZsQq8i
o6jjoY1Q+4xpHS7wwuMuByzbTZtgulKvPXInH4uUizrm9zWBfpy+dKnIG7NL
lRPxec1gSld/vJjkgyGTKefP27aA8GxNWHSeL/al9nRVpc+4/4r19QUCbBfI
lDaaFmBbmtw0bvBDxvsn79y4rXA72Yj7+pI/7g1lPy0sbIU91rLg3zoD0PPd
3eLdulZQ5wxt//IbIX6bZnPlni8J6ok7pQlaIQ5mBjMi/UgwT76bcFMnRM9c
uVDnTwK9u32bxaQQGWXPB5mBJKRoOcLeN0LM6myc6x9KQtljW7X5bAJzX3F2
9kaRIHxj5N1rQqBi76ZZP6SSsGHgkNbOhcCp+MMCQToJ+v9ejEl3JTAkqVbx
WEqCoFlPex8INM0yXP5WRgL6qK1kPALPVPcHrfuOBLu1qXZP/Ais0ARXtypI
kGoW1CjCCaSNyCewhISHmXq6lxEEiiY6nG+fJiFqeoGP5y4Cl3xc1D9eRsLg
47bFr2IIVJoNTC2vIiG0lxEXeIBAuhXTvUtJQokeYVV/kMBdy9yzfVQz/S6/
DuolEmjrXGUZU0cCzV90ojWFQDmqY6brSdg3lZxokE7giNcnl+QNJDi49YtF
RwnkBzh9ZDWRUJG7dX+njMC64N18VTMJPD9L2efHCPwPt2gvNw==
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs01HkYh2dlpwxpaA1LB8llU+1SLk2zvC/mmyHJyW60Wy2h5LjMtBW2
aFIadmpW2JFLNZoxLrmMX8mUaFa22lYqW7oeplKIqFmkUu3sH+95z3M+5/Oe
57zzN6esjTOg0Wir9fP/tvdIU959lgT4OmWiON0CbbWWaQLzZKA9EB8bzbZA
m0PNQcagZ9uVnIB8C2T1T474Hk0G4VtpxEiNBZoU7lymDE4B2h/UXN9HFjid
zo46H8EHWqtVSZ8vCwfue73MuSAAmseNx9aGlthW7D7T+eAO0ATHJW+XWOEd
IWdp0pFfAJttFw732yCruVxuYSMEjfE5IcvADuNZ4U5BfVmgSdxUnjlzPqZU
Sxz292UDTWATqqp3QCn8VZhWmwMamHsgjO2I240kWTuaxKAN2btB1u+E4xzh
AFclAXtJwsFrIhfsVKujBlvyQMYO4qeZLsS0pF3iRp98kJW9393R5Ipn5Kf5
9yoKQNYj+foELkauRHRkiP47aKauGyRcWoL1+favPmRLQfYij9e+5RussmIb
8YeLgN/gKO7d5YZ71KyoZ8nFoL2o7ioNdkeFiVjHHS4BpilXssZ6KW54kgkG
oWVAK88Q9j5ciqO3vK+1dx0DmdFlu4q6ZcgM4M957HkChKtyTUIEHkgf8Ara
t1EGYa+TGI7EE+vo+74SzSuHsL9DS9984YXzBhjPWrrKIcrsrXlTjxemf5eK
ut9OQhTD83xplTcez1qQHsGVQ5jDYW9B4nIcYZTecJ+QA7O7wCVkMRtd7Cc6
ZjcpwO1pRwdvmo2uk5Iiq/gKoG295unTtgJt1hsbObkqQeN/32V1Hgc9WeFH
lYNKiOrxc4ne9C1aFj4wjCipBI3oyMROWx98fpzLNPqxClSV3UPHR30wI2F0
asi0GtDVfNV1lS/65sV8govV4FbTMzkrBXDEv0VRlFkDWmfl0ypbxM1n17rY
up8CdR/ldTsT8fLZTp5SdwrcvvTgzBhA1KUeDNxYWQuqruk4Ds8PAwuMY3Mj
60BLUsP3VPphLudnu2aresgbDypsNfXHAoW1em5nPeSc5xqbpPijuEQxJpA0
wE0XM7PIu/4YMbHn5ElnFajW3/Kp9QnAzowrLfK9el6urjc7FoDNIfsVTloV
qLc0xQgMuUif7n3vu6IRrBK6t/fHcjEh0v5Jfn4j8GKD7sRc4iJ53120VafP
/Vb+8GAhwQOZThf+WUWBWy8xjM8l2J+9jh6zmoL46EMSczFBclgUpgulQJ14
zrL1EEF62VA/cy0FPHLF2TyPYM65utmhkRTIHE97X5ASPDzu+dPVWAqmrt52
ZCoIShNWGrRmUKAxyF3c3EZwUpAaErKXAubdMwXRGoIR6VXSh0IK+FlX3xq3
E7TKYSx6t1/vk1vZHvUnwdKKrnDvXynA3SSQ0UlQpl1X0Sil4B6LMW/jfYK0
QdEYHqUgLVAtmPmQYPSYmn2zWM+ToZcbHxF0+GjdNVpGQd47z0S6lqDCpm9y
kZwCWttwTcNzgoYLmH4tCgrCZvW9WT9IMM7VTxyspEDo2BJg+IKgM1tut61a
f+/DknuRLwmK8Pa2qRq9340O+xljBAcDPz8jqtX/p4wbX/eKIG+N10dWvZ75
dfUROoLV67bylA36/vef/v1snOB/K1ItOg==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVUGlQkwcQ/UwRihFNtQYGUFJoRDk6ghCMILuB5BMU0QYKeEdFUVQOL4JK
jCAEjCCHEEVrgwmRcPMpkBYlqB0tmIK1VUtrJVAsUKgHFepRoV9/7Oy82ffe
vt1PtiaKtzMIglhF1/+d4yPVPXq6F4jx+oCOh1NwntlWmjwrAQibW8adL6eg
w6nmUCbQuPtIiNV0BrL7x0cCz9JY0xcvFDBw+pmDi3UrEoH47dTfrVUM/DeV
L/kmOgkI28KPG+Uf4EA376/sa8lApH+uKnebiq3nvKzmZx0A4nefOpXsQ3wg
9/feW3AYiAez7Oc2zUR2c5lmjoMc5MYezl3+bNzJjuCG9qQDIRW8aVewMVGf
55zRkwlE/wImNdceS6D9jLQ6G+QeVpUnD83FfdZ56QcalYDFdY1VSg6+8pcP
COvzgGgsi2yKcEaTwSAZbMmHNhkV4PPeBaV7DykblhWCnGHacKWDi1c1V5J+
Li8CYt+mUE2qKwrzFAVDlsUgF7ce8eYsxNpCzov3mSWAr13ndPzphhV2fOuk
YRW0BahXfF/igUcNbMnThHN0nuz7T3Z8htrpylHhcCmYbwQcCrVdhBv6ZMAI
vwASt5ZTD4cX4bMf/Dpudn4J6tijlQn3vZAVnDSz1/craGt/lWjQe6PlAC/0
+EY1ENFfbGIVLcYay+MLFI5lIM/pXciX+qDjwLSnLZ1loO7i6lnhvpgamYKj
py8Bh+cd99aXhxfTXVKjhRr6n7zNBTP8cGTa+S6vMQ2YK8WC8T4/dOWMfWvT
qAX1lQWHk9uXoNt4nspuZzlIDnB7S9R8dFjLtOa66UBeAxMPcpaiLzvirG5Q
B23rN3T3J/ij7ZlfLKJLL4N5f4euVBiAf1wUsqzXVwAqenITPJZhWvyz10Mz
9EDEMdsHLAIxMH/bJBj1oN7tleXZHYgjQS1alawSCInnjWIj4NYmses8ryrI
9xybWL0S8XaTKUQ3WgXmrnXug0bE0ZSs5RsvV8OLvuC0ex4CXF7EjM2JqYG2
S/PrL6oEmOO/36nZrhaSHG9COjMIi7T2htmmWmgTyxdfTQlCZan2eXJeHdS3
5se/HwnC6LGjl2gpEL3UCU9JMJrS7rRojtWDxLfUtfJuMDaHZWi55npgbf4o
E1GIlv8+eRe4tAGIXLs05xohxsdw+goLaew4eWTIVoSid/dVcaMNIGHPqDYp
RXhCxr3240oKWOTt/Df/iLA/M8py2yoKUFJQ/fgNzc9VrBkNp0Ats203vhOh
5YWhfpaYghf9kRZZkyLM/rrGJjyGgqR5xRmzrEjMfeW7+btYCtqOe5W7s0ks
iScZ19Nov5fMg5t8SBxPTgkLO0YBJ1ZUIeCRGJ1aUfKrnPY3Ln386RIS7bKn
ub/NoCA/bC057E/i+fLOCL+TdL6sHS7SYBLV5qjyhhLav+kOUSgmkRhUPMez
FJitb8HBSBK3PDfw752j582Hj8VEkeg8Yd/57AK9H52mOK0jUevQM+6uoWCR
aZlN9RYSLVxYghYt7X/dUXx6G4nb3QTKFTpaLzCo9m0ncT5f47RLT+dx4XL5
u0hU4E+7XldScC9vfI/jbhIHl0+9qqim+ZUnGif3kBiymjfBrqXvk3VN9CWQ
qI+KC9HVUbCG9SjkdhKJ/wGUGyWi
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQk1cQAPAn2GhEEbUmXJoYSMiHtQUqUMqU/UREsEIRlcujyFGPEQkU
JbEcAasgSFRALsGLEEW5q4Jgm53aadHBYFtRLFrEYgiHQiNSvPv8483Ob3bf
vjc7uygqPjjWhBASQM/7KFwq19x9HAdkulHS5GLKLnzIlyfM3QVEn1MvZkxZ
m0PN/mZAPbTBo1RgyvL6J0a8SqgjNEHKmabszMLdn2pWxQNpuJ8XqDdhXys8
IltDZUDGb3oPl5qwA/fcnmRfTQBifqVIPMWE/anUeZrkQBKQiSh9RSdhu5Se
LnFH9wJht3+cmPgaeM2nK+fbKIEEiRTlFf/BNt5asX9vJpAx+z1OfUaIr1aJ
9vXuByLv2RyeMgxFcL1QXpMNJBsNEn0fJHJVmUmXcoFgov0aMx2MeyoHfBpU
QJT+0sWpl7QdLS2RhrYjQMg6p9aYbq08bk9u4xf5QCKTni3K1GsvVv4g664q
AGI4vIo/Z0zro8o6Osg5BuS2U39r+7i2Ll849mZ/EZCapV09+hfac5YeXNlw
MZB1xweZ2rfalBZe5ONdpXRe3N6JkSmonplr9BkuA2JbYS5JnoobH6WBSWA5
kDS7bFkXB5/+7n7jZ10FEPuhT/79hosWy2Wz+1xPAjkUk3O4www5A27+GZtO
AfF+4hcZa461nAxplu1pIBa3bInCAm0HZjxu01Ff6PHfUj0HFeuSWePhM/T/
74LCn83FE5l2ilCfSiDiuxjt8CGOzDje6fycmq9zDls/Hx2Ez3+ZdUkNpL/O
ta+ch44TqmLLbVV03jFDaTo+2oSbccWOGiAnrwXXW1mhK29ticZAvdlh9vXN
1sgv/GtqaNlZIMWxt17k2aD+hI8Fd8M5IGuOjLfescXUHU8nB82rgQi7Agq5
C9HrSPQ70FLzz24IdxPgiHebujjtPJBSgW+IlxCjLgc7LHS+ACRFYZV3R4i/
Xu7w0xipXeRzcr5bhMbkAys3na2h+6q4XzhfhCsLzGIOhtXS98Mnj9WI8KDn
t4JmyzpQTltqtTHIDgvU1i3zOqgFsMR50A5zy9SjCap6UN5/EH5DZY+hz1PO
nJE0gNL4LiPcWYwdqb+1VaZTp0Rcm2wXY/PqfWrxQ+qXw5MRcRLkvP77ldfn
jaCc1fngJscBd4QJH+XnNwJZsHPIvcIBV7z6o3irkTpsdmc0K8Xv08RX//yy
CZTqmvTT3VLs3x/CiQ6gFuu8/HukuCIvK8gY2ATEt+DN2AMpcsoH+y2CqaOn
72X/kWL2ldpZgWHUohO7ep9IMW/c9ev2GHp/ntx3gSmDRTt8TX5MpeYNNpQs
YXAiIXn16nRaH5wewzoxGKo4V9SjpPa8wje4MGiZPWPxy33UPMtU988YPF6l
W+ueQ83JXH7Hm8FTD0OqGouoHadp54UxSAxZo2wJ7b+7e2dbBINbRls8bpVS
JwdYR29iUPTWWve0nNaXiZKaohhU2/ROLK6kTlDYrYljcKqdxbI2NXXiNt1k
PIOxjstyV2moP3olP5XIoMSjUrC9mrrD7OZoMoNZ7O3tk+dp/6aDe4r3MmhY
+cHFrBqaX39BAKkM+n3l9pZX9z4va9enM1gdstVPU099/Z5Mlcng/2+oMSw=

      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HtUDGgUAPBPMqaHmmrNVEMzX0602WVD2VD3xmC0hVNUVik9SGfpsaVm
T5SSiSilrcijmmnIKk1Sw5Tt4HjtbHYXK+xq2NJEDya11iP7+eOee37n3nPu
g0YlBMaaEEICWHzK4nnpqvs9W4Fkefn6mRvASS9IT7LdBkQct0jvZADh/pYV
FsCcqPfcPtcA/O7Rfp9y5qz6z6vDDGBZkjpX5ZcARN/OeVtvgPcyr8iLIYlA
GtqO1wb1Qe8Dz4G81iQgqx2WcY89h0uH3SdO35PC+mOTr8wegHtZC+dsLfqB
1X0bSNQr4LdUKSYLs9j8qOvX3g9DHD/IZUVXNhDpuK7kfaOQUFvgnNOVC4Tr
Opy56j8ohZsl6WfygETOzvboeQfJZgXZKefzgdzofO7XOAavF2b1ShoKgFzF
YecLBHUaTaRBexDIooGI1HEmmL51e77auxiI5IppWux4bFKcS+ysOQTE/pnx
V7UpSgrkRX2cH4GkJEeU/zsB64vFLz/klgJpF6+xWTcRT9l7mSW+KGP3lPjo
q7mYoeFH9mw7DORNhjica45Ky3yj5MURIJahfgGbLTDs6U4wWXkUSGWiY0m9
JQ7+Pv/W5Y5jQL6SzsqzsULekkTrJx4ngHwXvPhOmDVyej1X7AqvZPfn7u7Z
yMM6zi5X+ZQq5j2zhLY2OKXXvEfbwWwlVmc026BsTRoaC6uBfP1qTlOcLR7P
niYLkSjYPrKLAms77DevuO0+wlzeG+XRaIczxCNXJ51XAmm61Oga/Rm6jRaU
2cfVAPlr7QYpdzIK11mYubipgDh/scVbOxk9+EHlKgOzW5usP56PgpKHpiFH
TgLptPO5YSXAZ8clPLP1p4A4TuTK2gW4I37wTZ9VLZA5VY3Bm+zR52D0R/iZ
+a6mdZDrgP2LtcqynafZP/ip6y84YFRz4Awn95+AqOqiR8Id8VqzTqoyMtte
1kTzhGhM27M8/OQZIIF2SR+bhbj8kEXM3tA6IMUfTq/9dgruXfi9qMW+HkiJ
bjjTYioeUjpq7HTMcXUj9xumYv4R5VBSwVkgrSmXxsc4YchIRnX19AYgb7UD
fXYi1O24rlVkMvd3fznWIsIW/xyli5656uqAcZ4YOe8fv/NZoAaiif/ng1yM
8aHip8XFzA4Cr00PxLj03R9lm43MCS8dNO4Ud+90ab3zTSMQ/wAJ3U2xOzeY
Ex3APGT0LsqluPSAfLVxJXPevvnj5BQ5R/u6eYHMFYVuT/ZSzLtQN2llKPOC
V9ZVhRQPvPaIuBHDHGPbKa6gWBq/zKRtB3ORLlzcSHE0Kc3fP5O5s2HtwXMU
Q2SnSh9lMQvkAeQ8Rfs885lvc5iTzbz1LRQrajqC5u9jPhkrrGyjWKkPrlGX
Mosy7oluUiQG+RCWM7dn6gpvUdw4pPH67TBzcOqVj79QdB5z7Bg8yhztqe7q
oKgUdo3OVDCP5+0/cZei6TSer1bJHKjItv6TYqybb76firnMVZZ5n+J0L4Vo
Sy2zidmmiIcU5Xh3y5vTzK4xYbcfUTQsn9AkP8O8VB0If1OUrvIc49d/mv9S
evYxxdrgzVLVWeYNFER6iv8DH0kJFQ==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {3.4867909671215784`, 23.10886148407178}}, {{
    0.0072992700729927005`, 0.072992700729927}, {3.4867909671215784`, 
    23.10886148407178}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, 3.647107859210648*^9, 
   3.6471091268905373`*^9, 3.647153700996437*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "\[Rho]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.647163095628129*^9, 3.647163146557482*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0ns01GkYB/CXn1tMYcyMu1eyU+tSkSy19T5ZSUmsoqVyKbdyyvW01bHm
p4tMi7RttXaphLZTh02xhErouJSplJ2z0UUXcg3TaIxp7Lt/vOc5n/N9nvd5
/3jn70wMitFECPnT83/VcYm2ROg1QdGeq45iBgT1Er6vDnVHguaUHQPCtZ5G
+Rzq8tjWOCED60LnaduaU/dXB/o5M5CdWTtGXKkX1kVyVzKg38VpEkVT64Xt
vxjCgGFqdfxsG7WD4seGXAbMqnX+Vp/qI6i16plshgE70bKCzrVvCXpS5jk0
pAXnx/GC+t53BNXc1tLt0IZ5g9Fu5Qn9BFnYTt0t1YH9C93yEq0+EDSNX6pP
6ULg3Oa8wOuDBCV8g2IS9cDOs1eqETtM0Mmw+MCIOTAw7H+lxmSUoLIF1dIN
+mDtI8I5pWMEFV3jHRcagDC1KPE3x3GCNnm+quNx4LOgx+7QFHWXrqOpjANe
6hbz8NsTBLVlehh1zgWx3ic3hzOTBEXc7cm5NQ/E/YdLjoXLCMov6HI9awjH
BkLc2z0+EWQwLS33MgKlo5RjaCgnaMf7LKNaI1jkXeP+7h85Yc8L/bK/MoYg
Ue/R4r+mCLKa4K8pNIbleVHCsYOf6Xs+OBkacIHX6DhiF6wgrLhk0voIF/Yu
vyQPdZomrG3kghkFF0QZB4Js5dTJKoOxWBPIHTr9VCJRElb2k/v8lyawxcHw
Cuf3GcJekgTs8efBmXL3xo1RKoLCkNfhOh50bS5RpXl+IayKx3m+lA9tnYk5
ToyasC0/O/te4EPdnkx4+EJNUMX9R3KBAIR+xGNf1SxBv6Q7pOQIoExUcS9g
NQL2Qvo6baUAlg9HHOy9igBpOB+UJplCMdx7vtRIA9jA8pLGV6bQUaPYkZWq
AehDrezARjNIbgySBbyiOVr5MbHJDOQ3trv2facJCP/gl7HUHD67i4/0X9cE
1jxJ1fGnOXSXxmTcFDCAmCbvJaYWkORm9kfmIerK6N6dRy1AHDza3txP/bgw
4pnSAkSRKZc6/bSAfaT3ZsduS5CpzHP9bmkBakqYtu+zBPv6cwUd9trA7h0h
9SFW4LLrfoCxmDpo6OPuFitoKOSbPZRrA8re2x680hrsG/knNm3TAVRV6hV2
1RrWa49Yd93RAfZ53NbFpjYw0vOuud1BF9htXGeSawMJhbkm4pO6gPpK5uye
sYE2DfuPG+i/RZtVI1u+2IAwrq6Dc5p6yvUxzNrAa5eBzPyz1JIVZ80YDCGt
MH6uiLq1yrZNHwNMyh5evkYt/37JQgsMPN+wrJZW6i6XZe89MCSXj0dltdP9
GYHcJyswSLjHV/k+oHmE/0TDtxjEL25+eiCh+a2+il8Bgzpl7q6n3TSXpi3y
9sUwWNRI3ryl+RNvfslWDD7MVsvS99QNPpN5oRhK40enYgaoe4SPDm3DEL7M
omJwiLo2MzsoAsOztlSriQl633DxtEYcBpfF+oobMur0M92j8RjyTl98mian
9oqr/HcPhvXhnScUCjqfXBZfuQ/D5eZdsXVKaqmxd1ESBq2vlWvSVbQ/bTsW
p2CIysu3Xq2m9jmmTEvDcEcmnJ6dpf3+Od2R+zH8ByckCKE=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HlQ00cUB/BNkEMaAdFEzoIBQ1htSwAZ0eo+RTygguLBUCUVOXSkliJW
xRHzoxXbOBDNIKUgOAUiKF5UEVEEf5aIhCOVwxtUlIIIYiBEjtLQ7R87O595
3/fezs7dkRAWy0UIraPn/9tMEuOI0CuC5oh7NY84IKjS8teYURekSRo7OSAK
9Lc5yaPeuvpwUzcHVkdYmbraU4eP2v41zIFfUisHiTd1zvTAdisuWLby/pTF
UCeOVb1YxQXrpOu7puqpUywM+gou2F03qzAquwg6s/iUS7YJCGU+Oc2BbwgK
0KV4p5jCGZ2LW1VHN0EbliNBgDlY9cX4XorvIehKeKodmg77PXwVCU5vCaq6
8+zpa0tYP6NWsb6sj6DjeZG7z/JA6N/xmBPXT9Co9JOqDCvo7V937sas94Tx
cCzO8rMB51Uyl3TVIGFefJHvK5gJoqT8hN/m6wgyLZGVW9jCqOC58NBHHWHi
dz5x6LeFFUa1vbR6iDCVE/42mlkgtxjxxVnDBJEfInpvzgZ5z49FaVI9/Z/p
PqpcPqT1bvHTLBohaMn5AwEKAUzMf8yztjYQRnbNZm/KHBCvvOHX/YhaaVmQ
ts0OwmQdRwuufCTIRXzgcIg9LFREiQaTRwn6TNMV7uUAs9n5A8LNY4TZPLhi
zjxH2LOw0BCxYJwwbfcqY/lOIDtyMMzVME7QkyWT2QYnyHiX2abVThDUl8S/
8tYZNmHrc7zcfwhSfpt9vvFTyLrkx34VNUlQS3SMd6kLtG4smtzn/y9hVdLE
B+tcob45IX2BiZEwa3/kJte4wq3dqdDUaSTwobju1KK5IAomi74rnyLgcerx
gbK5cFZ2+W7oMgSsuqg92FUIC/u/Se4oRYDU1fszc4RQAHefedlwAAVtamm0
dIOGG2ORx5I4AH/Ez2xMdoNENkwf+pIDrKIibtmwGxiubvPuCuACalVbF+5w
h1E/+U89ZVxgzwbiQx3u8FAVe+SawASYxU+jV4TMg+997U6nHqIudNjeUj0P
5Jvfa2p7TAA1e8NDPxHItu8tbA6eBnAk/0l9iQj0k/YZwTenAaoYuioReoB7
VXZOg7spMM7VB6NyPUASfS90ptwUWG5mOmMphtt5fLsmA3WKVQT/qBjcWf7x
kK1mwOaVLs0xiGGt6YBza40ZMKGDBW9iPGHgeXetBpsD05Tjo+r0hPi8jFny
E+YAzIZ9G0Mw1HPcPwQpqVuSC4LWYxDtvNXAy6T5M3Xa5WEYXkl6U0/+Sl3W
7Om1BcOW+6DLzjcH9o6yiyfFAMP6puILtF83FF63B8PsNV8fU9+n+S7+dv8M
DImXdFHHNOaASrVKrxMYtLY/L13TSPPGC7UeSgzyzmsjjVrqoHYPQRYG494Z
0W0P6Xzm+dBwHoa+fJa8fkPrWnX6xYsYVpmEO6r+pk6rY4suY1Dtev8xtpf6
wcBIbhkGqY/D5b53dL9rSaS8HEN7fZLT0BCdV9nqFXcbg+Rzy7Grevoe/nhs
ZA0GRebvbfsMtN9i5elNLIa10ubjY2O0Xr7aLECNobg2Ou7WBO3fg75cXIdh
mufE8sOTNM92JkrqMUQpTjovM9L8xZcl4gYMNXrR+NQUrXuZvXBpwvAfeW0Z
UA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 2.2},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.5, 3}, {2.3903889449252347`, 7.865603768051528}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6471631479522047`*^9, 3.647163159777108*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Ks", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
        RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Ksn", ",", 
          FractionBox["csq", "137"]}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Ksp", ",", 
          FractionBox["csq", "137"]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", "0.1", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[CapitalXi]", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
       RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"\[CapitalXi]m", ",", 
         FractionBox["csq", "137"]}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"\[CapitalXi]n", ",", 
         FractionBox["csq", "137"]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", "0.1", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Show", "[", 
     RowBox[{"Ks", ",", "\[CapitalXi]"}], "]"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.647184117312872*^9, 3.647184199174192*^9}, {
  3.64724846693575*^9, 3.647248492901993*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVzXdQ02cYwPEXwg4jAzC/QA/BdeKIVpHK8H0pSGotZVgZQgVHcNUSsOqh
jB8IKqKg54EgIg6sCkQQPGRpXokQFQqEVWgpDgJUQCEsG0bs6x/vPfe57/Pc
a7s7wk+kDQDwIu/L9JTxhDnZlRDMjrA2DPMRvrc6jDdHzDX40WSQj5zSPKIz
dlZBeu9wqvIdH60OEhemL6qGoNjI6PJffGQ5KjdLktRAUFFoNvaSjwb5x7t+
eSaFdMwxVHCPjzwqh9bnTdZCOnHJNzbhfKRkbakXW7+E9Pa8eOZbCnHY8xmZ
Tm2Q/rc2KxXz0O2RnL+fHu2G9PNmZ8eyBSi+arDi2qXXkNZIpI6FluhBT2cO
g+qD4MHcQP95C5Shm6vMXTMA6TbO5ZoEczTnuTAu7tx7SKvGtrmHcVGK1om+
yvYRCK64K2w8OCi9f4PfjoFRSL/uk9o6s5FRZNfZhbkqCIbS6zutWMhQR3i4
3n4CgvozgaE2puhq243H2SWTEHyXt62cbYwOCYLsLwZMQzDwLiD6T0OktpHZ
bnz3CYLui8vjZPpIfi3VTTdNDYHy99aJRF20zB/KNWtnIdAtDmZ5MZBHfr6i
oHIOgm3L7ux31UI34/brnNitgcCuKzxCWwOrPvxTPfvxMwRjDR1xnWqYMtnl
5dMEEHCyDUv2nYLxFyvEG29qIbC4NLf97Rhsmx7rmBVpI2DghDix76HwdmCz
tzODeLtlQtIbSPEpZqy2DgI+X20N2dICHQTNalxHDEKO6BWFSSPPPYrJzNZF
gLVK1TqqkDJLxt02h+qRfeP/4j3fSuuswnKSHfQREIuHBjyHpC+WyO726Bsg
cFbhui9NJV0+Ezdt3EhcdH0fVzIlLTA/2N10wxCBAgPBtcUz0hS1RHNgnxEC
xq9Efd4aaWnMYKeVPROB45uSZr/WwrObfdxD54mX+mr/epCBb3Wzx0/WGiMw
OS6uO6mLD5RpO9hnmSCQ+O0wXamP0wJ+qHoYaoqAQrhjscIQz2enjnsvMkMg
hyta08vE5+1mnsZ/Im7Nen11gSl+UvUm/PlOFgLnzROiLVjYQz+kgv2KhejN
rjF+Dmw8Zue35+A6NqJV66d7vTm44fZvxcUZxL4/rxAFcHG5/EGdK+AgmtkY
ZXHUHLf4WMRW7CHewFHheAtsen/6wqY6DgLuyf12yZY4JH90v4mAiwCDsi+6
sQB361j0v7jERbTA8Mi6+zzc1iV6lnCZdPfjyS0SHv6jqDzXKYP4jCbzcCkP
P/sp0L8oi+zfCXx8t5qH7+fnyNPzSD/m/MGqiYejPewK/CWkK2tW6UzwMJUk
iFC+IF2vWqvdhcLcQHpr7iti2u+T2I3CJisVy/wbiUWMERNPCmu1R72RN5P7
Aw9bhd4Ufr+o3Lewk/j6pozqXRSulLmsj1ISr7QZvXWawmVXLrBWDJB7lVcn
TKWw5FDvSN8g6S6ZNT3pFL7Jpe9sHybedeS0ZTaFU/bILDeOEy8MMztXSOFT
juYTqgnitcGjS0soHMsUNRdMEXdENMkeUTiyTO+stfqL+1Pmn1D40JmAvR0z
xA7C8Ku1FBYF30Npc+R/Qa2bo5zCoQK1tVBDOva3bm+gcBDje/Xnz8QfdabF
LRT+HyWqK3Y=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.1, 5}, {-6.453555912066463, 6.729698433365002}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.64718414129617*^9, 3.647184200132053*^9}, 
   3.647248210037154*^9, 3.6472484234730587`*^9, {3.647248467701092*^9, 
   3.6472484943733807`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "neutron", "]"}], "-", 
  RowBox[{"Mass", "[", "proton", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"neutron", ",", 
    FractionBox["3", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"proton", ",", 
    FractionBox["3", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.647181494146475*^9, 3.6471814955995407`*^9}, {
  3.6472485722707367`*^9, 3.6472485790766907`*^9}}],

Cell[BoxData["7.865603879618789`"], "Output",
 CellChangeTimes->{3.647181505091053*^9, 3.6472485798844976`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
  RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[Rho]n", ",", 
    FractionBox["1", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[Rho]p", ",", 
    FractionBox["1", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.647182454808052*^9, 3.647182484319798*^9}, {
  3.64724850855927*^9, 3.647248534342881*^9}}],

Cell[BoxData["4.4609938411828125`"], "Output",
 CellChangeTimes->{{3.647182457707852*^9, 3.647182485672861*^9}, {
  3.6472485125336103`*^9, 3.647248534809374*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
  RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]m", ",", 
    FractionBox["2.8", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]n", ",", 
    FractionBox["2.8", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.646909619265101*^9, 3.646909688722557*^9}, {
  3.647183943582814*^9, 3.647183950781167*^9}, {3.647248588530106*^9, 
  3.647248606582505*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.5492173620160656`"}]], "Output",
 CellChangeTimes->{{3.64690961414717*^9, 3.646909689088436*^9}, {
   3.64718395204524*^9, 3.6471839672676983`*^9}, 3.647248440372912*^9, {
   3.64724859079604*^9, 3.64724860691191*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
  RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"Ksn", ",", 
    FractionBox["1", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"Ksp", ",", 
    FractionBox["1", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6471839992599983`*^9, 3.6471840093580217`*^9}}],

Cell[BoxData["7.059318371582435`"], "Output",
 CellChangeTimes->{3.647184010814485*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["1", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646895740385*^9, 3.6468957490279293`*^9}}],

Cell[BoxData["0.0072992700729927005`"], "Output",
 CellChangeTimes->{3.646895749553051*^9}]
}, Open  ]],

Cell[TextData[{
 "There is an intersection\nFor the N baryon the mass difference is md-mu\n\
For the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalXi]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the D the mass difference is md-mu\nFor \
the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalSigma]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox["\[CapitalSigma]", TraditionalForm]]],
 " the mass difference is md-mu\nWe can thus get very good agreement on the \
mass difference (The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " should get a seperate treatment. Also this could be due to peculiarities \
in the mass of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 "...) of d and u quarks. "
}], "Text",
 CellChangeTimes->{{3.646775053040186*^9, 3.646775142096891*^9}, {
   3.646775199764783*^9, 3.646775236703779*^9}, {3.6467754764935083`*^9, 
   3.6467754795461273`*^9}, {3.646775596913702*^9, 3.646775624475506*^9}, {
   3.646776222673148*^9, 3.6467763075116053`*^9}, {3.646777508648984*^9, 
   3.646777539824637*^9}, {3.6467791465652037`*^9, 3.646779146718832*^9}, 
   3.646779925941574*^9, {3.646805482892427*^9, 3.646805496417951*^9}, {
   3.646806391075924*^9, 3.646806395111081*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Mass", "[", "neutron", "]"}], "-", 
     RowBox[{"Mass", "[", "proton", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"Mass", "[", "Dn", "]"}], "-", 
     RowBox[{"Mass", "[", "Dp", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"csq", ",", 
     FractionBox["1", "137"]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Mass", "[", "neutron", "]"}], "-", 
    RowBox[{"Mass", "[", "proton", "]"}], "-", 
    RowBox[{"M", "[", 
     RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
    RowBox[{"M", "[", 
     RowBox[{"proton", ",", "csq"}], "]"}]}], ")"}], " ", "/.", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"Mass", "[", "Dn", "]"}], "-", 
      RowBox[{"Mass", "[", "Dp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"csq", ",", 
      FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.646776527507779*^9, 3.6467765812168913`*^9}, {
  3.6467766316594954`*^9, 3.646776680954193*^9}, {3.646776798198564*^9, 
  3.6467768476840363`*^9}, {3.646779183914538*^9, 3.646779219408032*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"csq", "\[Rule]", "0.04914073298149917`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090128*^9}],

Cell[BoxData["7.363124561956624`"], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090995*^9}]
}, Open  ]],

Cell["This Gives a charge squared of about", "Text",
 CellChangeTimes->{{3.6467771406034*^9, 3.646777154531913*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["6.5", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646776911505561*^9, 3.646776929981927*^9}, {
  3.646777002303513*^9, 3.646777120047933*^9}, {3.6467771596631937`*^9, 
  3.646777229957468*^9}, {3.646895845591597*^9, 3.6468959274932613`*^9}}],

Cell[BoxData["0.04744525547445255`"], "Output",
 CellChangeTimes->{
  3.646777230356695*^9, {3.6468958463623877`*^9, 3.64689587729163*^9}, {
   3.6468959079091187`*^9, 3.6468959277733803`*^9}}]
}, Open  ]],

Cell["\<\
We can now fix the charge squared to this value and calculate the masses of \
the up and down quarks from the equations for the proton and neutron\
\>", "Text",
 CellChangeTimes->{{3.6467773185942783`*^9, 3.646777368241434*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CSQ", "=", 
   RowBox[{"csq", "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "neutron", "]"}], "-", 
        RowBox[{"Mass", "[", "proton", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
       RowBox[{
        RowBox[{"Mass", "[", "Dn", "]"}], "-", 
        RowBox[{"Mass", "[", "Dp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mdmuSol", "=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"neutron", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "neutron", "]"}]}], ",", 
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"proton", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "proton", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"md", ",", "mu"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6467775770882177`*^9, 3.646777640259595*^9}, {
   3.6467777177337923`*^9, 3.6467777635087214`*^9}, {3.646777879591655*^9, 
   3.6467778860019197`*^9}, 3.646779306165267*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", "17.761528445582996`"}], ",", 
    RowBox[{"mu", "\[Rule]", "10.379176540859646`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6467777782700357`*^9, 3.646777888879471*^9, 
  3.646779310531558*^9, 3.646779524478355*^9}]
}, Open  ]],

Cell["\<\
A consistency check is the mass of the pion, which turns out as\
\>", "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
   3.646778033720356*^9, 3.64677806653109*^9}, 3.646778229205288*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TotM", "[", 
  RowBox[{"\[Pi]p", ",", "CSQ"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Mass", "[", "\[Pi]p", "]"}]}], "Input",
 CellChangeTimes->{{3.646778081503436*^9, 3.646778090319837*^9}, {
  3.646778122203072*^9, 3.6467781331729603`*^9}}],

Cell[BoxData[
 RowBox[{"391.09360357712904`", "\[VeryThinSpace]", "+", "md", "+", 
  "mu"}]], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527554325*^9}],

Cell[BoxData["139.57`"], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527556019*^9}]
}, Open  ]],

Cell[TextData[{
 "which is inconsistent. This tells us our model is not fit to determine the \
\[Pi] mass as is.\nKnowing these masses now enables us to determine the mass \
of the charm quark through the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalXi]", "c"], ",", 
    SubscriptBox["\[CapitalSigma]", "c"], " "}], TraditionalForm]]],
 "baryons and D Meson, and also consistency checks at the same time (the \
system of equations is over determined)"
}], "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
  3.646778033720356*^9, 3.64677806653109*^9}, {3.6467781760373373`*^9, 
  3.646778202103224*^9}, {3.646778240201126*^9, 3.646778240391296*^9}, {
  3.646778308620927*^9, 3.646778339601349*^9}, {3.646778533744286*^9, 
  3.6467785338908997`*^9}, {3.646778737028174*^9, 3.646778769651718*^9}, {
  3.646805575940419*^9, 3.646805585392634*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778346807811*^9, 3.6467784408184633`*^9}, 
   3.646779379658902*^9, 3.646779491242586*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.6344132901909`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304356327`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.748983436131`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304381104`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1625.8134845870227`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.6467795330221977`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1611.048780777576`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.646779533024062*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.6675194115548`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539536715*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.633761850927`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539538064*^9}]
}, Open  ]],

Cell["\<\
We can now use the \[CapitalSigma] baryons as a probe into the strange quark.\
\
\>", "Text",
 CellChangeTimes->{{3.646779586878907*^9, 3.646779694008649*^9}, {
  3.646780429957749*^9, 3.6467804753703403`*^9}, {3.646805632702094*^9, 
  3.6468056615386553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]n", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]p", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}, {3.64680695981404*^9, 3.6468069692650146`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "343.52751941155503`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969799654*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "341.0337618509266`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969801393*^9}]
}, Open  ]],

Cell[BoxData[{
 StyleBox["TODO",
  FontWeight->"Bold"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"units", " ", "of", " ", "charge"}], "-", "Jackson"}], ",", 
   RowBox[{"try", " ", "universal", " ", "fit", " ", "values"}], ",", 
   RowBox[{"more", "?"}]}],
  FontWeight->"Bold"]}], "Text",
 CellChangeTimes->{{3.646901592114575*^9, 3.646901612598467*^9}, {
  3.646901717460721*^9, 3.646901733991518*^9}, {3.6469025578557243`*^9, 
  3.6469025603696613`*^9}, {3.646902991834437*^9, 3.646902998262576*^9}, {
  3.646909724054406*^9, 3.646909725151971*^9}, {3.646913421070413*^9, 
  3.646913421209238*^9}, {3.6469156357926292`*^9, 3.64691564949657*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["finding the range of parameters", "Chapter",
 CellChangeTimes->{{3.646779808572959*^9, 3.646779836769912*^9}, {
  3.6469313325908966`*^9, 3.6469313549702573`*^9}, {3.646985280268321*^9, 
  3.646985295931428*^9}}],

Cell["\<\
We handle only the particles of endpoint mass difference md-mu and plot the \
areas where the curves can be (using the allowed range of \[Alpha] and a)\
\>", "Text",
 CellChangeTimes->{{3.6469853057165194`*^9, 3.64698536084136*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "mass", " ", "of", " ", "the", " ", "Ksp", " ", "is", " ", 
    "the", " ", "hadroproduced", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaonp", "\[Rule]", " ", "493.6"}], " ", ",", " ", 
       RowBox[{"Kaon0", "\[Rule]", " ", "497.6"}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "938.272"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "939.5653"}], ",", 
       RowBox[{"Ksp", "\[Rule]", "891.66"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", " ", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1896.61"}], "  ", ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "139.57"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", "134.97"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
       RowBox[{"Bn", "\[Rule]", " ", "5279.58"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "5279.26"}]}], " ", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m1", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "ms"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"Dp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
       RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mb"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mu"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Spin", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        FractionBox["1", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        FractionBox["3", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "0.57"}], ",", 
       RowBox[{"Ksp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bp", "\[Rule]", 
        FractionBox["2", "9"]}]}], " ", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.848", ",", "0.927"}], "}"}]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.848", ",", "0.927"}], "}"}]}], ",", " ", 
       RowBox[{"proton", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{"0.949", ",", "1.018"}], "}"}]}], ",", 
       RowBox[{"neutron", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.949", ",", "1.018"}], "}"}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.95", ",", "0.547"}], "}"}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.95", ",", "0.547"}], "}"}]}], ",", 
       RowBox[{"Dp", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.884", ",", "1.073"}], "}"}]}], ",", 
       RowBox[{"Dn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.884", ",", "1.073"}], "}"}]}], " ", ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.95", ",", "1.502"}], "}"}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.95", ",", "1.502"}], "}"}]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0.884"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0.884"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{"0.32", ",", "0.62"}], "}"}]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.32", ",", "0.62"}], "}"}]}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.32"}], ",", "0.45"}], "}"}]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.32"}], ",", "0.45"}], "}"}]}], ",", 
       RowBox[{"Dp", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.19"}], ",", 
          RowBox[{"-", "0.07"}]}], "}"}]}], ",", 
       RowBox[{"Dn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.19"}], ",", 
          RowBox[{"-", "0.07"}]}], "}"}]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.27", ",", "1.37"}], "}"}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.27", ",", "1.37"}], "}"}]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.13"}], ",", 
          RowBox[{"-", "2.83"}]}], "}"}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.13"}], ",", 
          RowBox[{"-", "2.83"}]}], "}"}]}]}], "|>"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}, {3.6469853881944323`*^9, 3.646985447324835*^9}, {
   3.646985517188525*^9, 3.646985573494133*^9}, {3.6469856044679537`*^9, 
   3.646985632384632*^9}, {3.646985663409697*^9, 3.646985683493155*^9}, {
   3.646985809329808*^9, 3.6469858427078743`*^9}, {3.646986208215061*^9, 
   3.6469862086300488`*^9}, {3.646986750267421*^9, 3.646986932691689*^9}, {
   3.6469875055013437`*^9, 3.64698759042443*^9}, {3.6469876733560743`*^9, 
   3.6469877271919813`*^9}, {3.646987758225089*^9, 3.646987766560643*^9}, {
   3.646987819509247*^9, 3.6469878645875893`*^9}, {3.646987945229265*^9, 
   3.6469879889054947`*^9}, {3.6469881587171783`*^9, 3.6469881749819183`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}, {
  3.6469313848637843`*^9, 3.646931386542401*^9}}],

Cell["\<\
The energy not due to end points is actually (now letting the charge be \
arbitrary)\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771928577896*^9, 
  3.646771937756853*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", 
    RowBox[{"key_", ",", "csq_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"\[Pi]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]], 
      RowBox[{
       RowBox[{"\[Alpha]", "[", "key", "]"}], "[", 
       RowBox[{"[", "n", "]"}], "]"}]}]], 
    RowBox[{"(", 
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{
         RowBox[{"a", "[", "key", "]"}], "[", 
         RowBox[{"[", "n", "]"}], "]"}]}]], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"Spin", "[", "key", "]"}], "-", 
        RowBox[{
         RowBox[{"a", "[", "key", "]"}], "[", 
         RowBox[{"[", "n", "]"}], "]"}], "+", 
        RowBox[{"csq", 
         FractionBox[
          RowBox[{"8", " ", 
           RowBox[{"Q", "[", "key", "]"}]}], "\[Pi]"]}]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{"key_", ",", "csq_", ",", "n_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{" ", 
       RowBox[{"2", "\[Pi]", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{
         RowBox[{"\[Alpha]", "[", "key", "]"}], "[", 
         RowBox[{"[", "n", "]"}], "]"}]}]}]], 
     RowBox[{"L", "[", 
      RowBox[{"key", ",", "csq", ",", "n"}], "]"}]}], "+", 
    RowBox[{"csq", 
     FractionBox[
      RowBox[{"Q", "[", "key", "]"}], 
      RowBox[{"L", "[", 
       RowBox[{"key", ",", "csq", ",", "n"}], "]"}]]}]}]}], 
  RowBox[{"(*", 
   RowBox[{"+", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"Spin", "[", "key", "]"}], "-", 
       RowBox[{"a", "[", "key", "]"}]}], 
      RowBox[{
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]], " ", 
       RowBox[{"\[Alpha]", "[", "key", "]"}]}]]]}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TotM", "[", 
    RowBox[{"key_", ",", "csq_", ",", "n_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{"key", ",", "csq", ",", "n"}], "]"}], "+", 
    RowBox[{"m1", "[", "key", "]"}], "+", 
    RowBox[{"m2", "[", "key", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Implicit\[CapitalDelta]m", "[", 
   RowBox[{"key1_", ",", "key2_", ",", "csq_", ",", "n_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Mass", "[", "key1", "]"}], "-", 
   RowBox[{"Mass", "[", "key2", "]"}], "-", 
   RowBox[{"M", "[", 
    RowBox[{"key1", ",", "csq", ",", "n"}], "]"}], "+", 
   RowBox[{"M", "[", 
    RowBox[{"key2", ",", "csq", ",", "n"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, {
   3.6469884072057734`*^9, 3.6469884757987547`*^9}, {3.646988525177351*^9, 
   3.646988573881001*^9}, {3.646988757485949*^9, 3.6469888053216763`*^9}, {
   3.646988868158293*^9, 3.6469888840321703`*^9}, {3.6471090032972603`*^9, 
   3.647109019914825*^9}, {3.647143332507653*^9, 3.647143387661148*^9}, {
   3.6471537278671207`*^9, 3.647153731118559*^9}}],

Cell["\<\
Now plot the energy differences due to charge and string tension, minus the \
difference in the actual experimental mass. This should give the mass \
difference in the end points needed to explain the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771892161929*^9, 
  3.646771922570491*^9}, {3.646771955659872*^9, 3.6467720195600758`*^9}, {
  3.6467746398636637`*^9, 3.6467747120583687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"neutron", ",", "proton", ",", "csq", ",", "1"}], "]"}], ",", 
       
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"neutron", ",", "proton", ",", "csq", ",", "2"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["1", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ks", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Ksn", ",", "Ksp", ",", "csq", ",", "1"}], "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Ksn", ",", "Ksp", ",", "csq", ",", "2"}], "]"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]c", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalXi]cn", ",", "\[CapitalXi]cp", ",", "csq", ",", "1"}], 
        "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalXi]cn", ",", "\[CapitalXi]cp", ",", "csq", ",", "2"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dmes", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Dn", ",", "Dp", ",", "csq", ",", "1"}], "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Dn", ",", "Dp", ",", "csq", ",", "2"}], "]"}]}], "}"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "csq", ",", "1"}], 
        "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "csq", ",", "2"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalXi]2m", ",", "\[CapitalXi]2n", ",", "csq", ",", "1"}], 
        "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{
        "\[CapitalXi]2m", ",", "\[CapitalXi]2n", ",", "csq", ",", "2"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "csq", ",", "1"}], "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "csq", ",", "2"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Bn", ",", "Bp", ",", "csq", ",", "0"}], "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Bn", ",", "Bp", ",", "csq", ",", "0"}], "]"}]}], "}"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["5", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Yellow"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", "\[Rule]", " ", 
        RowBox[{"{", "2", "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
  "Nbaryon", ",", "Ks", ",", "\[CapitalXi]c", ",", "Dmes", ",", 
   "\[CapitalSigma]", ",", "\[Rho]", ",", "\[CapitalXi]2", ",", "B"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.646771950731372*^9, 3.646771952079427*^9}, {
   3.646773446750395*^9, 3.646773527162901*^9}, {3.6467739499050417`*^9, 
   3.6467740871374083`*^9}, {3.64677412262253*^9, 3.646774187884631*^9}, {
   3.646774249796054*^9, 3.64677431049582*^9}, {3.6467744799045258`*^9, 
   3.6467745123336573`*^9}, {3.646774736765486*^9, 3.6467747673780117`*^9}, {
   3.64677480806011*^9, 3.646774905078524*^9}, {3.6468054195661592`*^9, 
   3.6468054612143517`*^9}, {3.646806278805697*^9, 3.646806299819624*^9}, 
   3.6468063302471447`*^9, {3.646904373022484*^9, 3.646904418235331*^9}, {
   3.646904481152533*^9, 3.646904485287752*^9}, {3.646906424813212*^9, 
   3.646906474872012*^9}, {3.6469067567808332`*^9, 3.6469067664148483`*^9}, {
   3.646907516192577*^9, 3.64690752320674*^9}, 3.6469075735789843`*^9, {
   3.646908658506624*^9, 3.646908658933872*^9}, {3.646912738500119*^9, 
   3.646912824595537*^9}, {3.646912870978058*^9, 3.646912884420073*^9}, {
   3.646915424828039*^9, 3.646915448856234*^9}, {3.646973251487301*^9, 
   3.6469732584090242`*^9}, {3.646974597814584*^9, 3.6469746041105127`*^9}, {
   3.646987573052288*^9, 3.646987581021048*^9}, {3.6469888928134813`*^9, 
   3.646988954050295*^9}, {3.6469890662482853`*^9, 3.64698909367944*^9}, {
   3.6469920828679333`*^9, 3.6469921633032913`*^9}, {3.646992262502677*^9, 
   3.646992270447558*^9}, {3.646992483057928*^9, 3.646992543616087*^9}, {
   3.646992573956308*^9, 3.6469927431045218`*^9}, 3.646992773370515*^9, 
   3.6469928208530703`*^9, {3.646992880264279*^9, 3.646992897183331*^9}, {
   3.646992930118637*^9, 3.646992931419959*^9}, 3.647141709496018*^9, 
   3.647143420535675*^9, {3.647143729366764*^9, 3.647143742404072*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxF1Hs4VVkfB/DtkpRLJykK43LEbgZRbgnrh7N19Cqni0YvJiVSTFEmhrAn
5TKuJ06djpNr0hwZDJoStZWhiUxN6arJ666SS+V1nXn3/PGu+WM/+/k+v7V+
v/Ws/eyP4b4j24PkCYKQsM/f75HZN6pP++MQESpOm+hTgcaOIGGgPo2Io2Eq
oZQaRPQdqDMM+g4RPz+MSLijDq27O697iE4ierO/QFeTAxazDn4xtxIR/Wjb
s4+3OXBy709a4/KnEb1D4iahl0K0qajmoWUSIs51GuZYaYDfT6khU1HJiB7s
V/AZ1wDBweM3TK+nIHqo6ZS4YhkMJHS8Z/pSEfFqKt3cXxMO+dpvLFyThmhX
3qkMneWQdVYtZNgnHdHcqSzX+8vhl/kX6zaezED0vGhnZOwKGFpTv+JRcyZ7
Ps3ZI/ZaUFGn+PLxeBai+QNNTUNasDbR0k9dmo1o2jejq0wbhE0vzts6ChH9
n8fMscCVcKeyvjXnIZsTHEz2aayCMJorn3vsDKLbN8drP1gFA8Rts18X5yCi
uzfH5DsdeBo4HFj0I5uTp27Ogi486FJ9E+eVi4h7J5kt87ogWRAckNWfi2iR
qXDqih685PB73VJEiKgNDjoY+hmMtO3ZZW5wFhFf+uWu19OHhReOaevUsblV
vjq2TR/EAs5g+a5ziN4QFsjjGcBMTU9pxMg5xBAeBtFSA3g07RTxIluMmC94
79TmDKDWW5S2yeo8IkAjuWe3IQTvNTo73HIeMTG2L/dXG0Kml32FxUEJ+72H
r/I5RpA8klh7mchDjHSR8EWIEaQUtS02FeUhSDJrLr9lBIS99Gu+rRQxevKz
r/S44BFfzOS3SxHRmFBz8xsuLCqzMhAfuYCYJdsViE4uSBImj7QszEdMat/K
MXNjWH/4Z/VpaT6iOz7e1D9tDG5Irr7DuQARNolRlb3GYMzQ3s87CxAzpx7z
fuNqaBQ2x99xLEREFsPNyFsNYR3uMboZhQg27LIOnV4Nir29I0uesVn+rea0
wASehvwyuHNNESKGT6wYqDSBnJam3dbfFCGmIdwsUdkUdqx1/CC6xdafLFkX
sMcUti6a1fDgFCNG3exJXqMprLvxWHbWtxgRCZmclOUkHFrg73GpshjRVy99
Xx5FQq3nSy0vjQREVCsNrBWpwtZu7Zj80+z+2PVGEncSBMaBGstOxCPih8iE
pU6qwNw/fkYSztazUiyWWpDQNVG/t1jC9psUvjXaQ8JnnLIlnyzZ9dssteSX
qsK3zaX52sHsfHHnxXZDEkTDw18bZLPrdczS/9hOAncuzdu4lO23LwgOhJKg
pOShHqzC7n/d4T0zowJPUOPFpwFsPVfRT6ZDwsR+ucjX3xcjWHPSp8GTBDqq
xLe3gO3/aYsWFURCCx3pFSRj+29+FpwaQcIMIcnIn2L/f35HxOSoCpyav2tq
9xW73zzf9rw2CYVGav91TmHzoUqncg8SLGwq/3C9wOaUZjnrfSREOtO/N5ex
84M/7Ig+TIL2nZD2BRXsvCWa30oi2Xq8632HUba/4kx85BsV8O3aOjzg9/d9
l5dwtEiIksu59j6JPc95pSojPgkLNG0KJ/LYvJ85Xh5AgqeeUm7kJbZ/isu9
0TASRoveZ9SVs1mgMrb0GAkufT2Ld/3Irk+akOMeJ+H/nnECBotOiLjYM2Zo
gxkzaIw9q/IOlH3wNsGePUgal4aUm2LPAuK22dRPk9izwgbjsv7Az7Fn4R+d
Ph2t+wJ7Jrg/1NNqZI49636UXzKVYoE9e+CvNiB7shZ7FgJ2KsqFltizsVh+
diLfCnsmOEz/O27ECnt27Vy53KbCddizcJXZ7kH39dizqmV9NYLZ9dizy0NW
Z+yuWGPPLCd6JArbbLBnYLXqh0wFW+wZcBO0lGS22LO7INxu85XdP54dfe3x
Vt0ee5btdEUsqbHHntl7nZFMB23AnlV56sl8VB2wZ5ZzVv3/qnTAnj3bVLFn
cM9G7NmYcrswU9ERe1a1eKr76VVH7BnnRsCpuiAn7JlY/bKtTNkZe0YfSrZ3
uO6MPePvDf180B9hz0Im0m2s/0LYs+YnBeYqXwL2TJz5sj3rMmDPlOvkw7oI
F+yZ2MBwG9rhgj3jz02Gfypx+cczfsnj8FkX7Nk7fUPzhVtcsWeR3InUgFJX
7FntK16Y2pwr9uzd3N1fn3u6Yc980upuB190w57l9vcLl0+6Yc9S5ocv6Lrz
sGdm1SP6PVIe9ox56BBzf4SHPePvPvDnMj6FPaNHm/QrnI2xZ5w+SjixisKe
WZ5IP6P9hos9C2l9HBugSGHPGq45NiRaUdgzRroyue0WF3t2sbNMW2uahz1z
rPnkttGEwp7p1ghm2hwp7Fl3aYvXRRkXe0bWdgmOfuBhzzRd3o+fNaCwZ1U3
UntM7SjsmdRbrBDuSmHPsnfKkjmFXOxZl9KBwYIxHvYsOu/wnWY9CnumfcD6
obc1hT3LVWgm8hGFPXuX0CHvSlHYM2YwTtwi4WLP2u9tqrYd5WHPoo/8JvPV
pbBnuUNmre/WUdizQv6f89bOFPbMx6hM4bkbhT0TpKrLlbtT8D9jhVgV
    
    "], {{{}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxN1Hs0VekbB/CNMqlGF5cjosMRx31jT5qS96kkZpAoqTQdrV8RuRylptv0
zrhUklVI7o5DZqRxTUKy/dZPNymVKF2cSC414mQiE/32/DHvmT/22utZ693v
833ed6+P4Y5w753KFEVlcM/f79/UdaGjNxTh6a05SRVaoFFfdPVTqhhRN5b9
SaVrw0BoycnevfsQNo794VYSDwarCpIR/wCitJpmTBzWgbkBakpWDQcRFp7r
OiNaAB5ftZuMpx5BlLG47yc/XbjinBJr63QMYZVhjadIDzKctnkaz/kZYXFc
74llC2FPwq+nDv74C8LpzhuzaX1ouxDcG3s7GuHK6R2LtA3g5rUAPSWHWEQt
3675UX0ReOU+CLVPiEPUZPb25WOLYE/luLi08zhi9wVJ9obyQaPJxztjzUlE
HRnF8n4+eElN1zmmxSM8bNlh5m8IOkdthB5fJSBW59VmtaeGsPfkUMWv4acR
XrriVaaPEfwnwGRLTUMiYiUtD/qajCBC7/bQQu0ziF1nN9m5UgCfQuquL2W5
WmCgfqJKAK51Nz+f+vEsolpupT6zMwZRfqlGjFUSYh81H+/+3RhWjzy6uqk9
CcG9yPUF/MXwbsX8uztOJyN8qjRvVvZiEA0nhLotTUGsZ6mL9TwTyF7e09fW
lYJwlJv79GgTkMT6tJ4/dw5R0bpDeMoEQr+h1i5BqYjdNHr/qtgUqNc3LGaP
pSL4Enw6ZcgU/C12D8QVn0fY3mGX8W4hRD9Z+80LnzTEvpkZLn4mhIgYeB88
M527X9HOgE1mIEyNcmi7zNU8Z9U5zWZQBHF+3VszEL6SUC12NIfhgbI+03mZ
CD8eDdtfbQ7Kn3jT3WozETVXWPOtuQV0qqafyRNnISrb5/ucQgs4esj34uOF
2QjWSgYbdS1hIO59Vsn/shGLNCcyEixBL0k6ef1QDqLKTwVrzrACHZWkdxeN
cxH7h2qrx2Er6IzMdLv3PBdRibVPTMatoHIFi5pdJQhmbv66KtIaukZbDfWz
udrlF8G0XmsIKx6qjR+XIGrYWT4isoHuFHO9Nx55CFZu0Mtrs4G679r6kvPy
kEjpLa0ioGHsS3zIts95SHbpwPUYEQ06/duvaK6XIn55VkhfOg0py2tcC0ul
CKYpR40+pYHZsfWS3DkCUaLEpjuLtaH9bMKxbViKRNPFy4ZqaDixO8j9pUM4
ojy1R6zfacGY40fdmiBuv54zvYNFNFS9MXqtlMat94bgkdtcP8eVNzoTwxCV
8HuH6L4WnJhf3P/GX4rYY99aDeTR4HKto9wmQYpkSRPt7xtpMJ4Xpt2Wz+Up
XjUqf0CD6IKVyuZl3PdRVg2fWC3wOhp7f9JXiqi7yR792TSom1akucRx691f
qr2vp+HdYdfJwWwuT+9uWt5Cg39hsk190d/z3qn68JiGaZ35hjpzuf2CJ2xu
1GjB5Qr5KrUNUoT3dD/vy6Qh0n/RbO9oLt9tsXSojgav8qqIjxlcvyW5LSPN
NLDPqPxbhVy/Jq+NHx7RMB5hcq38EldHlGmNdtDgO/qybGwilPOgINDyihbs
8ij6nOjNnYeud0FfBjff2OOmjp+5ed9Hhw3V0qDsvsf8SDpXf6ecNXKH67+/
2t/zApfX6bnxh4c0XJz1IsqhmMun3dr7oZ07r/ZwZcsSKZI0hKwZfULDP55R
W2JD6g14Cs/S6nZsX6Oj8KzaOrUqZgHxDL8oDLlfoks8o/5SOjf1UE/hWcPZ
/76Yo6/wzC1oMMbBgHhGtUzkPDmwiHgG7SaO/M184hnrGrW19i2feIb9vXJ/
izcknuG93UumDIyIZ1igJhCVGSk8+3THSNNToPAs4EWq7SsB8Qzc34TkYmOF
Z+6fqQX6i4ln1IolzFTJYoVnqvXlth4mCs96j/Q/kJkQz1ilsZrr2FThWdEh
h6v6QuIZNbkzhV8mJJ6Bk+PBR55mxDN8t9b3Y7eZwjNh23zhPnPiGQSKN0jn
WfzLs0RJYoGFwrOen5obV1sSz6Ck2llFZkk8w8sceq6KrRSe1ef5Vc6xJp5h
9TpVQb418YwN+WyWb29DPKMst1ruarVRePanvoOXLU08E33JGT+NaeKZTKm6
+zj3P/7jmSx+xv6ZGrb/8uxG6aUAW+KZzLBLY3axLfEMK3d6xU/YEs8kbiPD
Z1ztiGf42cHGjWftiGcimW7YUpkd8YziCR88NbMnnvHN1uVPi7Qnnolwur87
a088w4Hlt3zUGOIZX/NAY9sWhniGVxTmz63gEc9Y3+5eTTuGeIa/bk4NDOIR
z2RV0ccu6zMKz94+/WufC0M8w1NjBUmrecQzfM/MOkaDIZ5Jlg5OODsyxDOs
Utlf4MUQz/CQ3TyhLY94JokZmQxRZ4hnVOCA3NKBIZ6JbG+PJnzPEM9Eyec7
rm1kiGfYKZ2Vm/KIZ6K98p6uWYzCsyLVPyQMQzwDkI9TbgzxDA83yWgfhngm
kpu2uPoxxDOckqPtJ+ARz8DqUHv6TIZ4JqrMGthizxDP2FWJE7VrGeIZm//6
9eB6hnjGf3v8ofImRuHZxQM3Ezcz8H9g7GLx
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxF1Hs4lHkbB/A7nW07DGIYZYwH5TCzu9UStt/dhugloqRMGzq8KoMOyjFD
axJydZg0iXKo5BCddFBp1GYT0kF6U9FaEmvTdkBdqvd5/3h/zx/P9Vz39Xx/
3/v5/fMxD430W6MFADns87/3SZ4JPu6WE0XICDT58VH/Wsmlj9kbCahLyfBM
PeyVV+zq3ryFQO4dV5GNPvZVHdtPRNuIQl0WCzoGqBsycZT99VgCixSTgwYM
0Ht8q9VwdgJRxATHne6cjBdcVanfz0kisPSUjuaWIebMWbGQ0UkmigfrGm5f
McLwzOKM2JgUAnu8Av91SoAtx9d3p9bvIGCzRpSeZYy/Xw0RjnJIJTChcqIm
xQR9j96Xz8hUEkX9lNnn1gox/Nzwxsq2nQSeHvIRu5ui/i1/vxy3XURBavco
Haegb6G1j4s6nSj6LvJLTaaiIFE6zXt8JoF/h4pqdcxw867XZ4sjdxPsENdO
BxGuDrFafvl6FsHAh/v9o0QYJax/bWq4h2CSg2SwV4QfN1ypcdTsIYrmr3/H
Bpmjx5XfRzJi9hIUphRHt5pjcFGl/q/2+4hmTd4WqY8Y5/3z8NLS1n0EfwkN
a7guxv6f9BpDd+8n6B+6tH22BQa/yZR7OqqIhrf+zcMyC8xz/rOnpUNFQN5Q
lCZkMD/V/97BAweIxtgy6JyKQfksmP8jySaaB8FVtWMtEbrqbCcNZRNFwSoP
N4UlymzX9SrLDhKNQPvUzmFL3PGf+bOe+6sJTl56tiLMCqN+xYH12oeIxmnZ
B89OK5yWHe3Qcv4QAXvV8jv+1liCysDOoByC1YdV2jet8U3v6R5r/mGi6JYL
apynodZHo7Ge1YeJJvWvc0vLp2HbuEN7CjbmEsVHzb1VVtMxMS6g9JFpHsH0
vcoA9XTsVQ7kVvzGzj7Xtk6cYIPCfYWfa+KOsPv63tsn26Bg9L7+UuYo0Xw3
bpTTWxts23TY8+6zowTabR9eCLfFcz9pSINHPkErS/W7LlvseH/PfEoeO+9o
6RIsscOIstfV6cP5BJzioeKuHXaqbIQvvQuI5nOIhR3a45UFLT37CwqIomim
44ZKexz6mr5hxUgB2//e1niaBAWvVl4wWFRINGa7BWfUElQ5X/Y4UVlIFFbq
cpmhFGeGBpW/dY0icKyk9M+bfGzdm5m0QsHm597dvvOxBNPWhXm1O0QShUmE
OjCDj0MugyaXwwoJumk2mV6SYNVLcdcoNdsXWePydpDd5zK3ri0rgsAF2XO9
SD6m6ZW9eilj800bmteelKD71cdnpJlsPm9Xj0uPBBl+hGFLETsfk28vHifF
4OP2o5c5RRCFIuDdQDAffRNTmz8HsOcb5YMZ+RLkWZ9VuyvZfHPurNAOCfbH
e3zuyyskUDnuReMXCcpO7JdeK2Fn+TujFJ4Ux7QVmQt02b43M+Lbl/Hx/Nm3
P09czN6vyTjtSK4EN8nMJvntYPtu3G/b8lSCvmeqogZz2Ln6S1bHJwlqnkLR
7RNsvryxQaUtxeEoq6tnytn+vj9CI/WkGPC+/fTQJ9aX+uU1SwL4uNa7ZCTL
j/2+O+5ecQ57v6FHtx4ns//PH7Lb/kSCWl7hNgmH2Dl/7MtXw+z+rRdlC4+z
/d+7Wh6ZIMXSb55HO5Sx58/vvRajK0X31kgtuwo2r9s1fq2BFP/vGbxQOt0M
5nGeNc7zdFmtw3nW3+x9c44u9QwWfKuYfEOX82zctoCHP/OpZ7DAMjv2Lp/z
bOFMwyZfPeoZjPDuT2jX4zwLzZh6Okyf86x0dPeYPn3Os5Pp5XO3GlDPoLB3
ot1HA86z8sIZKbGTqWeQYGmlGWNIPQNVZneZ0pDzrC6RJOkbUc/gN//FNXlG
1DOIWhVRNlVAPYN2ZW9SqYB6BnNylVr2xtQzeLYyILzamHoG/aZDc91MqGeQ
4PP2Vp0J9QxqMl5+5y+knkHdt34LWoWcZ/3TbzcHmFLP4Iv5V+dOU+oZtC3p
Clg9hXoGrrNlgf9MoZ7Be4+mW/FTqWcge8B0jkylnsGCU4+60sw4z3547Now
VkQ9gxgTxzY3EfUMwvRcZBki6hmIBp/NahRRz6BOtS1Fz5x6BonJ16wWm1PP
YMxe62SVOecZ3zdyYZs59QwsmhI3C8WcZ3p/+30TKqaeQW7CvGXFYuoZZD03
/Noj5jzzn6MyklhQz2BAo5UWaUE9A8HikopKC86zNV+ez/9gQT0DZ4HZ7B8Z
6hmIY9dc3M5wnulqjyR18qhncH3e4pjlDPUMXt0vKSjgUc+g1a4m0IOhnoHZ
ij8OhjOcZ5q70T8k86hnMPfGgAdhqGdg9kaYtoqhnsGd9GPF0Qz1DML0n3yK
4lHPwL5qfK0TQz2DthBHWMlwnnU43zTbyHCevfBMlcYx1DPwGq/dEcajnsHZ
GP1ER4Z6BvWr3a/KGOoZxP7y4GkEQz0DnxHVX9sYzrP4zdGbExjqGeQvEd9f
zeM8++BlHOTAUM+gNtA7J4ihnoFX55PLcoZ6BpNu59ZvZTjPbFclLopnqGfQ
GCc/kMjgfwHpDCjc
    "], {{{}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84,
          85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
         101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 
         143, 138, 134, 131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136,
          152, 146, 141, 153, 147, 154, 127, 50, 77, 70, 76, 64, 69, 75, 59, 
         63, 68, 74, 55, 58, 62, 67, 73, 52, 54, 57, 61, 66, 72, 49, 48, 47, 
         46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 
         29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 
         12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 51, 53, 56, 60, 65, 71, 
         1}}]]}, {}, {}}, {{}, {}, {}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxF1Hs4lGkfB/DHqLDIiBBag5xPj3KYxuG+s/LQYi3WKuyO3rwpGSq1JTER
IXmdmxzHiOhESkeZW28bvbWiREnSQc6atcWweN95/5i7P+7rvr7X9Ty/33V/
//job4/xj6ARBFEsOf+/a1dqw96haABrFZSC5J2Q2t26m3NFewHb6z4n3JaF
RqMvZwztjwPoH3Juazw3orGms/mA8RvoPOyhrshhInq4goyV8DBgaGXmK/Ic
kY9cj7G4KAF0zg8b1NU7oOvuBam2rkmAmDbIzOqxR8WuYb7rVI4Bhn2RPzFu
h/ZknTt5+FAy4DdY6SXI2qHu6t1DqQ9TAL/pHthisQG1NYfryDimAsbTm948
uB75VXRFb8hKA3RlOOEaYYv2XBXvre87AYimScX5UyRS+z3Av3hzBuA+2uXm
5WmD/AQmPzjzMgE0XyWOzLdCWkdtTH3ksgDR1sjxvmWB9mdMNZ6LOQVgQ1z1
lmEztCPceNstYTbgP7Y0t7YzRbE6D6d0NXIA+nnBpjHEGM1F3WlhohzAFomG
TAXrkOedtoWTh3IBWjGVbvhvA8Suqlc7bpUHBhWSnF0nGOi7P5/d/LknD8Bt
NTufRH6LJlxWPd5+Kh+gUN7im0vaiC3KivZiFgBo12RpbquJypzeD3e/KQDI
wq1k4r4a4qcGdJ4uLARczSNRBsp0FG1PUA6gCHBrpt8Xmigg4sMDC6VZSVbh
GASUyaBQi12jaRdOA2L183ruzs/ClBeU/esAHiBqFS5tc+4Txh6Hn3Z/cwYQ
pluL9v01CEyLDjh2X5Nkr6KIn07MgDqYFvwupBgQj+TT/cxoUDTaMGyiWgKI
VrOr7ecUIG1Oc7nX7RLA7ddx1wikw74VZ3Iq95YCYkBj7V8MdXg0Puj8c90y
QHxI96y5rAlH0z6VXr5fBrh/8FbesNCBOnmCxZb4ckCMKjQ8+PIt1JLNmzi/
rgJAN/eNDlAf9u0r8erorwCDYK+5haUhvOqCwCNPPkBGCL5VMYJvPnfqry3j
g8HwiHz0zBhyLkzdzhTzAds6YYHTYgrfFZjrfPSpBLDkQIt9hjm8s6V7OL+y
ErA9eG9LvreEs//NjApbqARcWhtryc4aao38el39RwGANV1JQUs2sMDplmdN
vQAw1FiL3UsktNsecnHaPRYQGyrq3pWyUE9uVlIYVwAGY1Zcm04kYfquSO8B
xxggoqbUy5+y0KzzjPatSMm8+eRKRUDCpo8GH2R4AkBP6Tgy2EJCLedND/qy
OcBv5n1i/CQLpa+6MPIxVADYvgPF2nok9GjuvWKTJflfeQGNlJNwnSpHo7tK
ADofKgy9HCAhu9pKdiuLA7iEcvjIPAv5HU19shgkAA1bZ24YqJBwpUkjzyNN
AETsjuOT2SScOOK5OFYmAPwtRfP9HSQMrcm3uVsn+T6d5dQ7RcJlfVX6WnQO
IHbGulTIOKFrjdNuCoECwP2lcMpYjoT7QvWU/FMkuX1ppSiNhH5XmmJniiX9
yLdcGnhAQvSKqGqvkcyLrEt+8ZGE4ljj5isXJftChCt7ZkgY9HmgYXY+GtBd
DtbML3NC//SpW8j2l8y7NKJmJit53+zz33uPSfrpNfnlz2QS0rz3mCeckeQf
d+W+uSfZf/BGqG+1pI+sI+TLdyQ8r/j6gOMFyb7g8sqeaUlfPTE0y8uSfnrL
kp/Pk1DqWc7fXN/CGib2TP6eA5UT7og9q61++F6bcMCeiXvj+mhNdtizSIen
zhExG7BnbA/VBVnl9dizyIzkJbNWEnsGh4X+pxqssWeksLU1aNQCe9YwUuV7
8gcz7BlcHV40Hm+MPePK66W/fWaIPWNkzPKbHfWxZ+zrE5oioe5Xz4QhSSF7
NL961s7RWM9XxZ4R5+37G7vksGfcbYxY743zQqlnhF+i0U6LNqHUM+5itOXp
uWkg9Yz4MrN7847lUOoZd+njVGQuHUo9Y1d08rmrNKDUM2Iki9aiqgulnuV8
MmTZvGRAqWdc2ssbz8sNodSznNUlgU1njaHUs8HV9AoUbwalnrHrj11czLWE
Us/89o2P+1bYQKln7Gyxm66rLZR6Vtv2Kqrvj/VQ6lnw5NgX9812UOoZLz+e
iL9hjz2LPdow0fS9I/bsUFjXe9825lfPrqm9/VcEC3sWa5c2pzjuhD0jl+sE
xEe5YM8OdTo3x6kA7JnS2TVhZj4Qe9ZffbBfuG4T9uxiqm2R3vwm7Nkyx2Dd
1ntu2LO4m//haZV/hz27b5NyuWKPO/bsbM7L3EfMzdgz+cGu/i1aHtgzdLvA
qG3MA3sW/OVJyzcvKOwZQ9k113YZE3vm/qpauCacwp4FX59dHfUTE3vW2bBi
oN+Iwp6JxcqsxFIKeybvHahNS2Riz5ROZRv6yFPYM3rlVVpbIoU9E7XO7Ae3
KewZXHCz9s5jYs9MideT6XMe2DOeYprhpxgKe5Zu+6gw7AKFPRsZC+sxfEhh
z9J/fdofW8rEnomXjJtNpj2wZ+onPA2OR1LYM3rmndOTVRT2TOnv1MArrRT2
bCFTwkgnhT1j0jevTalkYs9EjxPCfpvywJ7tCDV53bGDwp6J1Pu77fkU9uzz
kJaf+C6FPVN37w14/ZjCni3IKrT7dVPwf/A8iDo=
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 1, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJwVkGlQUwcUhZ+4V2pZGgpGKyACCshi8DF1uVelEjZBcKGaaHApiwaCVCtW
NBiIGiLEgGwSDI814BjZXHAhdlikIqYDglLR1LAYBwEdSrAjbV9/3Llz5s7c
c85ntz8+7JAJQRDB9Py/Kxcuwt5BPgib7F/kJzHQ8r7q9qecBBDyXA9EjFmh
gX/9wmDiT0A0T41yUq3xXUNpFtj+DES72OfAPzZoFjl/hltTEuAi6myfgInB
c3scp3JOgVCRsjbTZAne9M1O89xwBoiz7/q3Jn2LBRu4Wx2+SgGdhSaBmmuL
R6QV6UknzoJtY/GL7k5b7C6LHUxrFwHRcGL3pfN22HYvkjmDTAPdX7M0A9vs
MfTq7/zVUjEQNoai5i+X4ZG6qQR13zlQJupLdC3L0LIlPKzg+wuAMs+ozIsO
GEo5hazLk4AuyGD51G85Wie7OwfPlQLPfLZVkbkjJl4Yra2IvwgENelS2euI
ByMdd99pygAMDFH5yZxQwGwfXWwlA2EMN+xohDN+Onz3gY9GBsQuhZpluQLZ
d9s+p5+4BMqYxJen+1cgr0RtmeomB524yn5O6Urc/KHr9q4eOSg7fdNXcF1w
ZL1Fx/6LWYDaapV2uSvyxqV8f59sUPI2ulv96YqKtfrh7tfZIBTNiVDkuaEy
LVybe/ky6CB3Y+m+Vcj3JvzWQA5oHtZ1Btu4IzHQ6mJqzAHer5teJr5xR45L
jEFcnQtChoXv+3APFD338+4Pz4NQucRsQu2BglQci/0iHzy0/na3LD3ROecY
2V2fD8r6jIedAk9UoTjizZ4CMMu01M/r8MRxw41hJ/MrMC5q3Tu9ygtNPn0z
27+R1pl5x9npXtg3J19WnFAIgsbhHUFjXph8cmfVs8UK4AVmDVUErUaDeKzw
erMCNNQCvWPlamTKqekHJ4voPA7NnAUstJ4pH6lyuArCZUzOSBQL+45e8e98
eRWU8olAzw4W1q3XwGO2EsbPKV3yV3nj6wmt3RKFEoTw6glH4o1x1aONkikl
COKH9F3vvfFN9krmUHAx8N7XPKoIWIN3A7qHs4qLQWvsaFCWrUHjv5LD3M/F
oAmu2hw4j0Trt/tufr2NAsEBXfb2gyRmr73DLlfTeptkcN5jEln791z76CsA
Qv1bczLLCnsuSc9whRSE7uBMqHNJPB8THfSKjAehUj9l2stA47rJRXeiKdBS
p+Qmp0lsGLIfmJFHgVBa2cipof3WbWzty4gDHBPXhVcy8LxF9dshDgVEuXOF
SwKJW+711rhLKZCFfIwVl5LoYB5n1V1CgZlbqt7rAYm8MreZP3wXB8Lnk88n
ZQwMTU57Or2TAuU+vb0mlsSFTrV5W8QUYKGIxSwiceQX9vQ7BQW8vR+62m6R
yCnPcr+vokBXGGlQNJM4q6/EztosDjT8Bi47jYH1tR83zd9O56VsuJIoEo9y
lpqGiWjNqLg8WEBiaE2DYLKAAluNiC2vJ1HzB1HyqJy+i1VR0Q9JnBI43qu5
RoFH6rXorjYSd068umH8mw/E5pzFCWcY+GOw6nNGGM13IiBp7BDdz/ispTeF
5pUc0hKQT6JJ0JGVp/Jpvn36FGMt7X/8FmdrGf1fNFD2pInEqgX9x8hq2r9h
u8qnlebVE2/iep0CjWmMU1w7if8BPWs7DA==
    "], {{}, {}, 
     {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
       13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
        31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 
       48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 59, 75,
        69, 64, 76, 70, 77, 50}]}}], {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{387., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None, 
    "AxesInFront" -> True},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[5, 137]}, {0., 42.563110161269435`}}, {{0.0072992700729927005`,
     0.0364963503649635}, {0., 42.563110161269435`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, {3.646992528913074*^9, 
   3.646992545849931*^9}, {3.64699274796657*^9, 3.646992776255843*^9}, 
   3.646992822360291*^9, {3.646992898389032*^9, 3.64699293263308*^9}, {
   3.647143412953412*^9, 3.647143422149975*^9}, 3.6471437447538*^9, 
   3.647153747151428*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Implicit\[CapitalDelta]m", "[", 
  RowBox[{"neutron", ",", "proton", ",", "0.5", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.647143208614271*^9, 3.647143208895504*^9}}],

Cell[BoxData["175.65918825623794`"], "Output",
 CellChangeTimes->{
  3.647143141409479*^9, {3.647143187099691*^9, 3.6471432098538857`*^9}, 
   3.6471434050661373`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Result summary", "Chapter",
 CellChangeTimes->{{3.6469815552714252`*^9, 3.646981567872456*^9}}],

Cell[TextData[StyleBox["universal",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.646981588117889*^9, 3.646981590505838*^9}, 
   3.6469817674247093`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3s0lAkYxj/TRTGrXJvoQmZNhSRmvrbkfdstRpuITrUbdtguwmjo6LbU
14aoSTWkyJTbyBjNDZUGTed0s9my5ZYSWxJSyqZhj9ndb/94z3ue81zO+TlF
7QnZwSAIIpC+/3+5hT22v0kBwvuSfKTXHDd/fqk2/E3raXuZWz6Z4+TOEifW
zMNAxCXH6YzmKJC5T/phBa2t3dmpdkxk+ay+15lF6/CpibZ8Jmbsjl7/kjwC
xID0OKlgonfUtsqRNRQQZpn5BxO+Qut6+Y3x3KNArD0jGDVa4IBQmflmbypQ
PzOH6twscbCmNBscjwMlMX88VG+FMyOnm7jfygTiIf8vjr8NBpq2uYzlioHy
s1Nf+mSL19bkpHn6ngYqMuBwxpFZmO8bvoE94ywQ0UFZ8iWzMU585eTBAxIg
IpsFLa322CKLeZPWmA3Uo4l7+wVz8H5dpIMJeQ6oaMmsQOY8DL78h9BLnAtU
lKRJenE+xlWNJag6zwOV3DFy+KwjWt8NDclfmwe4Thd+d4cTBhdzgnwu5AM1
LFrQ5LoAWSkeCwNNC0BvvMPexXDGvZkftFf2SIHIiJg7vdUZt0e6/Fh76xLo
lf7O8XlsFDk0fphjVwjo4/lge/zXOB6ra1iuLwTqwW/P53NdkK+7P3HyQBEQ
HKuEGCYHBSUq61T3YsCmcKf6bg5+9+npjS1ttHbuGG4rXYhDq6yaok6VAJqW
ylIOLULBR7EwYHkp6PP/6RhavRilK1+/bekuBfzo0bdziisWpoU2nz8nA/Qq
2hT7zBWFXMKfB2WAd3zbV1x2Q6L3nivTUAZUxDflkiR3DHPdPZCuuAIUwSn4
7L8Ej3X4c7tCy0Gv2uHHZnqgKBWHY8zkgLuSNM96PHBhbhLZUi0HgY3KVhW6
FOWYvvXVtgpwNFPWGaqX4scB9VuOpQJ64vmmv87zRMb4rCkBNxVA3Vw0b5Ty
xM6peWeKEiqBWBnaUv7OE1MOba5onXMVBDobhl/QMhxIHy5Q3rkKjrFXnQfV
y9BBUmxsOKQEzNbKf7f3QtYkyVAFWwX68W2DF1O8sDPxYsCjFyqgVteKy/u9
sGqVHh7y1VA4rbtRt9Ebuz83O82VqgHfBZrpqrwxXvHh5okxNTgmjwkNc7n4
KmexQ1+gBnq6Xic7HuWibl3L2+wiDeinnNm38RUXDf+eiA2f0EBhwPWIhu95
yOr/6ZrNRi30GJ8tma3k4c5A+URWiBaoxNGgZhUPq7Uj307fpAVCqhAd1/Aw
OCXtsXEznbftV49W8zDDStHfF6YF1BS5PdHx0ODzxb42WguFESzLk408bDsr
PhJOaUFgYp810ctDtqH1bvtROv/+VHFVHw8Tw+YzQ45pwbGy4FpMPw8tONoL
ful0X3aiq+MdD/3q2jUeYjpfWu5SM8LDmr4FvSYX6HzBe5mQIJGxPm5xch7t
s2dUsxkkBmtqRF/yaT/r4e3nk0gc+oVvHJTSPGa2LwJMSWRbxtu1lNB+w6C5
iwWJifuuh22Q0XzC13ZdM0jUPydKHpTRfJP3O+VYkhhWlu1RL6f7I/Fchi2J
FeZdSaRCC/p1T31r7UgcE7nUaSrpvdNP/EUsEv3a9jDclDTv7bhgjj2JOStr
+WUqeu/Poq0vHUj8DzdXLN8=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkXlQUwcQh5/W0gLSUqkvlKBEKKB4kQQIAWEXCnKIqKCAIpp6i4EERSGW
4IsWQcHIoVwiBhICCEbyPECOmvFEpeDVQauVaEGwWtCMQTyqjX/s7HwzO7vf
7G/aGlHU+vEEQSw01efO8khX9w4kAdW6lD2yhcSpekZ6yqRkoFbNCT+aSiIz
rznMEkz8pnr1AimJZP/oC//SZCB8EqhaOYkTD23nqsNFQC1hlK3WkvhBwhe0
xoqBWNbo2jNK4uB9r39z2lOA+k5zrkHGwN/K2F+57E0FSk6fWlFii39Qvpyk
gp2mfRz7gFd2SDZXKSczKaCKOsDSaQpuIqOdw/p2A8HbcL08zAFF9XLHPX1Z
gIb4+IgeFhbDtUPpjTlAMAceXByYhlvN5btTz+QCMbd1U5KNE772pQaDmuSg
Yz/9Ot33R+xqaREMteUD1p41yhY5Y3rSjlytXyEg54y6eacLnlaeEt+rKQJd
xGy7lwWuGCTPLnhmdhjw1lhevnI6agpZL//LKgbdD/mnYrpmYJ0t31z8vASI
wL9tXB67YUYLKRhILgPCO2UWaTULVRNzDUHPy0F3o7dJyJ2NK59kwvjICtCh
3fvbwXNw+Bbv+oXuo4B5qYPRorlo/ZP428eex0CQ8dfbbYHuaDboFSZLUAAR
hg8777njCTPZ9Gz7KtB97yWMErLRftBioK27CiiF49UhIxslS9PQcLAaqItr
P5rlcrByt5MkNkgJrLsWdVySiy8sjvSwjUog1OGRpZVcdGUZL1mdUYGeWfFc
xvFAt1F5ie2mGiB6kydJ2z2QudzS3NlNDYpVAT3vlniiJxldqh5Sg75e1Hmy
3xMZh/6cEFteCzojUyhJ8sKnlUHW5vF1oL/4quPCOB5KE4fHnn1TDwpGwlLH
PB7656/9BOfrgRJL4tttvPFFYJuqJPM4KK7+HnhH7Y1rzka5TmU3mPLoE37h
zscrZ7tC1YYGIJbgDM0lPhrS9oYk1DaC4qZHx7ZFPhhSZLluX9wJYIXPZWzv
9cF9vtscmm01gBUaGE70xSKVXYtNl+Zzftys176YW64aSZGfBL0VX1uwbx7G
GjOqq12aQD9d6Hef6Ydd0qttyl1NgA/HCgNUftgcsUflrG8CykbYYO/tj2Yf
Hr3399ECbuVNtrvgj4lxrCeFhVqgZIzKZWGAwe9vl2w0aEEhK5437iHgr5nO
7XcW0GC9M3LCZg5if1aM2dqFNIirrm8p5yIGH8hebIikQXfw7u0bHohmFc/6
raNoEHQWHJvDQ8w5d8IqMo4G4pGWa9LHA689V3euMzFn//xdwYjFifPHd0hp
uMmvIw/HIY6mpEVE7DLd69SLrixHjJXUFT+gaGiKre18swLRNsdi5rs9JpY9
Sl+RgHikpjuat5+Glx7GOw5rEBX6mBptMQ0szeXU41sQiaHsESylId+t78oD
IeLPIy38m2U0LL6819YqGdHxo133cIXJJ4FqFYkRVcy+0ZlKGjB0yluP7YgT
nKwD2lQm/qc2ZMMOxPVuAbnhapPfOd3hkjREF77SYXM9DVR/hfs7CWI23t08
dpwGRZBAOvMXxKGQL09nN9Lgfl97bWUGYugir4+kxvQ/ZcFkuRSxPmZjqPqk
ab7mk+B8JuL/ANInuQ==
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3001HkUxn+1LaEmw2nMaWxNLFpqMzLE9+ReNZI2atmY2l4oksrLVFt0
yA9NM1KTKG+pMGOkGEzyNr3Y1G5rpdZup7Bpsgmb2DPJFtL+9o977vmce57n
Ps/CHbGBEdMpivJn5v/Nd41XP+mLBtrT2uJBIBvn663iJRYxQAezLFdtZiPv
ZL2fGTCcrWE3hrGR83JsyCsvBqjsD8alcWycdfaHZeq1sUBtaHqaqGDjZIJH
aFNIHNCpQ6aLW9nY3+n2Rn5DArTUWyv3tsBb+QJj++MHgf6RxyLOlviYJi7R
Z44AlVWsLxPORU59sXIujwZasf+ckmuFuzlBdn7PU4He9dF3moGLseUKm7Tn
UkavW7Tx7TzMgV/OxlfIgT6QP44d1rjfRJF68HoG0+fEM17nfBwldL+oWgHo
t9/FaS8f2xoaQgd0mYDD243zxQsxPvpQRs2KLGjuWz9zfJMN1iqvxT0tzQbq
4b7RJWttUaSQnRk0Ogf05pZdOcIvUZPF/+ejNAdoy8m2N652eJnrYRL3Oheo
bie5ta09JjZwQvti8oFOv37bzc4BVbMyDKLXBYDTROJjNotwS+9RmB5QCNiZ
3FzJ+gqHf3NvvdN+Aaiwm+G3WI5ovipuzgvhJcC7QtvKj45o1O/ml7K1CPAJ
qUqmFmOlUcoimXUxULUJmbKpxWjdb9qna2c4RjMheb0EE747jIbTJYCavZ/I
0Nd4MdU2IUSkBPSy7fi7eykOmZ5/KHinBPrfhXeidjqjA//d3dnXVUC9ONbz
a68zOo4pcrm7S0G/+0JaySYB8jaZmdg5qgEbJyCiS4BCTlCeekANFOvxtrti
F7Q62zUjpKAMaHnT0oJ2F3x1UWRu8v1l0J9nm20OWIZJe4bfD7LKgZ+Wdu3M
vWXolbnzE9xmOKVkNNLTFYdW6lS5R68Af0gmsm90xR11gQ7zBVcBX7Uc3LZU
iD/Vta1RG64CX1xskVQlRMPh475byyoAN64u5zi4oW+2WXi6uBKoGS231xe6
YTo5sKCeqwEqd4d/NM8ds1XzGizbNKCfYvUaZ7ljRoFqRKKogiKzyQ1Si+UY
8i6xpMS+GtDpZn1x5nJsS/pZp0yuhqKaPLLCyAPr16Wp7PTVwJ86ealR6oFG
kz0TXp41QK/sENRNeuAeMb83K6sGilr39QRJPNFnoiM30lADfG56yqMRTzx2
1O7G799oofl9WdDDCIIvpcFGO/21QG95y++JJOhzSrbBEKCF0MeFb4aiCBoV
Dr40D2R4jqnUNIagvLFydoBYC/we/wqfQwRPjQq33w9n9BWJf+qOE8zZs3r6
zSQt6H2kLWVlBMckh9etS2buq3MT68oJhiRczummGb5gLLx3lSBXbuo0nqYF
KuQzVW8VwfOl7UHuJ5h8zpFHvmggWKQPLq3JYf6Jemdm3ydIDchGME8LeKmr
vriVYNhIg8ejfEYvEeyqbiNoMzWvfbiQ0aeMNz94RFDFez7mpGTynx6PmdlJ
cIatubdOxXDXK65VN8EIR++Mter/8wvu2D0jaO+hXBBVzvgP91qsekFQhn9E
vb/C+IX5NX37F8EB389rZRVMv3BWWGgfwTXr3aY4GibfB4FxbD/B8uDINeoq
LRTxayuSBgn+B0oyKmg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVjn081Accx0/dbh6q3ZTLYlx5iJ5GdcqJ75dODof7UWilHFJazikVebrc
dJqHPNSRJHLOQx5/JUyrX7ZGe5mertVqy60RRdzuFelxsz/er8/r/dfnvTgi
LnDXLBqN5jfD/8tem6h6MBQL2twb77bou1AWmoWJ8cZioDxkzaDnQpnltHsb
gRg0FX8H2b/lUqzBqTG3EjEwNXLx+1EuNefkwTUqnzhwMIHRyltc6n2Sc/j3
IRKoiI/Ve6HgUsO/O73MuhIPEvl4idiGS1097fip7bEEkC6I4nh7OFP3pS6r
YwuOQIuyfot28zqK1V5ZZWImBS17B4cr51B7WEE23gMZ0NL4aG7+9TVUXF3e
EtlAJgidbL/2VTtSCrh5MrEhCzRfHSl/wHCg9hvkZSS0ZYOmmL6BabWCeuUi
Hea15EH4oZ6INXw7qq+jI3ykKx+oq4GGYY3WVGLsoexW10II7xREW3SzqUtV
FyUPq4uAtqKMvnLVIoqXJy94zjgFtLrK2IhpY6qpkK39kKkAqZ36ShsyqFpT
ZwPJaDHQnvzo1SEYv5bSwQofEp8GGj2RH9WtBeWcbB1vtBSk1geNS1j6uP1p
GszyLwOqmp5zN3I+jt9Z90t3/9mZv0pLkcgMmRsln/3FOQca130f7MWLkTHs
5H00rAJooDa+nWaDjYyjdnLzSkBFT/SNdHs0HzYc6uqfcVG+80u3lZi0+TDq
TpwHiXdg2fw6ByzPsEoK4VWBhm+VdqFgNY4ZnrnlOFkFknkvfFftX4tL2ZM/
zW1TgsPYudmOqU64bCqv2HRPNbTMOdX9Ino9mm01MrBZpgLqD/cieTIXOayg
EtWIChxO6L4IzNqAC08+ooeU1oBwx71/jh9ww2flPKbBtlpgB/AdWJ6IqXvH
p5/PqwOJhVFNDrijW37kv3CtDtZfe2j/muOBYx5dyuK0euD/6Rwd5rERIy4H
LrVwvAC9U6nkdVce/ny5j6/SXYD8jHnl2wM8UXf4mFdYTQMwe7JangZsQq8i
o6jjoY1Q+4xpHS7wwuMuByzbTZtgulKvPXInH4uUizrm9zWBfpy+dKnIG7NL
lRPxec1gSld/vJjkgyGTKefP27aA8GxNWHSeL/al9nRVpc+4/4r19QUCbBfI
lDaaFmBbmtw0bvBDxvsn79y4rXA72Yj7+pI/7g1lPy0sbIU91rLg3zoD0PPd
3eLdulZQ5wxt//IbIX6bZnPlni8J6ok7pQlaIQ5mBjMi/UgwT76bcFMnRM9c
uVDnTwK9u32bxaQQGWXPB5mBJKRoOcLeN0LM6myc6x9KQtljW7X5bAJzX3F2
9kaRIHxj5N1rQqBi76ZZP6SSsGHgkNbOhcCp+MMCQToJ+v9ejEl3JTAkqVbx
WEqCoFlPex8INM0yXP5WRgL6qK1kPALPVPcHrfuOBLu1qXZP/Ais0ARXtypI
kGoW1CjCCaSNyCewhISHmXq6lxEEiiY6nG+fJiFqeoGP5y4Cl3xc1D9eRsLg
47bFr2IIVJoNTC2vIiG0lxEXeIBAuhXTvUtJQokeYVV/kMBdy9yzfVQz/S6/
DuolEmjrXGUZU0cCzV90ojWFQDmqY6brSdg3lZxokE7giNcnl+QNJDi49YtF
RwnkBzh9ZDWRUJG7dX+njMC64N18VTMJPD9L2efHCPwPt2gvNw==
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs01HkYh2dlpwxpaA1LB8llU+1SLk2zvC/mmyHJyW60Wy2h5LjMtBW2
aFIadmpW2JFLNZoxLrmMX8mUaFa22lYqW7oeplKIqFmkUu3sH+95z3M+5/Oe
57zzN6esjTOg0Wir9fP/tvdIU959lgT4OmWiON0CbbWWaQLzZKA9EB8bzbZA
m0PNQcagZ9uVnIB8C2T1T474Hk0G4VtpxEiNBZoU7lymDE4B2h/UXN9HFjid
zo46H8EHWqtVSZ8vCwfue73MuSAAmseNx9aGlthW7D7T+eAO0ATHJW+XWOEd
IWdp0pFfAJttFw732yCruVxuYSMEjfE5IcvADuNZ4U5BfVmgSdxUnjlzPqZU
Sxz292UDTWATqqp3QCn8VZhWmwMamHsgjO2I240kWTuaxKAN2btB1u+E4xzh
AFclAXtJwsFrIhfsVKujBlvyQMYO4qeZLsS0pF3iRp98kJW9393R5Ipn5Kf5
9yoKQNYj+foELkauRHRkiP47aKauGyRcWoL1+favPmRLQfYij9e+5RussmIb
8YeLgN/gKO7d5YZ71KyoZ8nFoL2o7ioNdkeFiVjHHS4BpilXssZ6KW54kgkG
oWVAK88Q9j5ciqO3vK+1dx0DmdFlu4q6ZcgM4M957HkChKtyTUIEHkgf8Ara
t1EGYa+TGI7EE+vo+74SzSuHsL9DS9984YXzBhjPWrrKIcrsrXlTjxemf5eK
ut9OQhTD83xplTcez1qQHsGVQ5jDYW9B4nIcYZTecJ+QA7O7wCVkMRtd7Cc6
ZjcpwO1pRwdvmo2uk5Iiq/gKoG295unTtgJt1hsbObkqQeN/32V1Hgc9WeFH
lYNKiOrxc4ne9C1aFj4wjCipBI3oyMROWx98fpzLNPqxClSV3UPHR30wI2F0
asi0GtDVfNV1lS/65sV8govV4FbTMzkrBXDEv0VRlFkDWmfl0ypbxM1n17rY
up8CdR/ldTsT8fLZTp5SdwrcvvTgzBhA1KUeDNxYWQuqruk4Ds8PAwuMY3Mj
60BLUsP3VPphLudnu2aresgbDypsNfXHAoW1em5nPeSc5xqbpPijuEQxJpA0
wE0XM7PIu/4YMbHn5ElnFajW3/Kp9QnAzowrLfK9el6urjc7FoDNIfsVTloV
qLc0xQgMuUif7n3vu6IRrBK6t/fHcjEh0v5Jfn4j8GKD7sRc4iJ53120VafP
/Vb+8GAhwQOZThf+WUWBWy8xjM8l2J+9jh6zmoL46EMSczFBclgUpgulQJ14
zrL1EEF62VA/cy0FPHLF2TyPYM65utmhkRTIHE97X5ASPDzu+dPVWAqmrt52
ZCoIShNWGrRmUKAxyF3c3EZwUpAaErKXAubdMwXRGoIR6VXSh0IK+FlX3xq3
E7TKYSx6t1/vk1vZHvUnwdKKrnDvXynA3SSQ0UlQpl1X0Sil4B6LMW/jfYK0
QdEYHqUgLVAtmPmQYPSYmn2zWM+ToZcbHxF0+GjdNVpGQd47z0S6lqDCpm9y
kZwCWttwTcNzgoYLmH4tCgrCZvW9WT9IMM7VTxyspEDo2BJg+IKgM1tut61a
f+/DknuRLwmK8Pa2qRq9340O+xljBAcDPz8jqtX/p4wbX/eKIG+N10dWvZ75
dfUROoLV67bylA36/vef/v1snOB/K1ItOg==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVUGlQkwcQ/UwRihFNtQYGUFJoRDk6ghCMILuB5BMU0QYKeEdFUVQOL4JK
jCAEjCCHEEVrgwmRcPMpkBYlqB0tmIK1VUtrJVAsUKgHFepRoV9/7Oy82ffe
vt1PtiaKtzMIglhF1/+d4yPVPXq6F4jx+oCOh1NwntlWmjwrAQibW8adL6eg
w6nmUCbQuPtIiNV0BrL7x0cCz9JY0xcvFDBw+pmDi3UrEoH47dTfrVUM/DeV
L/kmOgkI28KPG+Uf4EA376/sa8lApH+uKnebiq3nvKzmZx0A4nefOpXsQ3wg
9/feW3AYiAez7Oc2zUR2c5lmjoMc5MYezl3+bNzJjuCG9qQDIRW8aVewMVGf
55zRkwlE/wImNdceS6D9jLQ6G+QeVpUnD83FfdZ56QcalYDFdY1VSg6+8pcP
COvzgGgsi2yKcEaTwSAZbMmHNhkV4PPeBaV7DykblhWCnGHacKWDi1c1V5J+
Li8CYt+mUE2qKwrzFAVDlsUgF7ce8eYsxNpCzov3mSWAr13ndPzphhV2fOuk
YRW0BahXfF/igUcNbMnThHN0nuz7T3Z8htrpylHhcCmYbwQcCrVdhBv6ZMAI
vwASt5ZTD4cX4bMf/Dpudn4J6tijlQn3vZAVnDSz1/craGt/lWjQe6PlAC/0
+EY1ENFfbGIVLcYay+MLFI5lIM/pXciX+qDjwLSnLZ1loO7i6lnhvpgamYKj
py8Bh+cd99aXhxfTXVKjhRr6n7zNBTP8cGTa+S6vMQ2YK8WC8T4/dOWMfWvT
qAX1lQWHk9uXoNt4nspuZzlIDnB7S9R8dFjLtOa66UBeAxMPcpaiLzvirG5Q
B23rN3T3J/ij7ZlfLKJLL4N5f4euVBiAf1wUsqzXVwAqenITPJZhWvyz10Mz
9EDEMdsHLAIxMH/bJBj1oN7tleXZHYgjQS1alawSCInnjWIj4NYmses8ryrI
9xybWL0S8XaTKUQ3WgXmrnXug0bE0ZSs5RsvV8OLvuC0ex4CXF7EjM2JqYG2
S/PrL6oEmOO/36nZrhaSHG9COjMIi7T2htmmWmgTyxdfTQlCZan2eXJeHdS3
5se/HwnC6LGjl2gpEL3UCU9JMJrS7rRojtWDxLfUtfJuMDaHZWi55npgbf4o
E1GIlv8+eRe4tAGIXLs05xohxsdw+goLaew4eWTIVoSid/dVcaMNIGHPqDYp
RXhCxr3240oKWOTt/Df/iLA/M8py2yoKUFJQ/fgNzc9VrBkNp0Ats203vhOh
5YWhfpaYghf9kRZZkyLM/rrGJjyGgqR5xRmzrEjMfeW7+btYCtqOe5W7s0ks
iScZ19Nov5fMg5t8SBxPTgkLO0YBJ1ZUIeCRGJ1aUfKrnPY3Ln386RIS7bKn
ub/NoCA/bC057E/i+fLOCL+TdL6sHS7SYBLV5qjyhhLav+kOUSgmkRhUPMez
FJitb8HBSBK3PDfw752j582Hj8VEkeg8Yd/57AK9H52mOK0jUevQM+6uoWCR
aZlN9RYSLVxYghYt7X/dUXx6G4nb3QTKFTpaLzCo9m0ncT5f47RLT+dx4XL5
u0hU4E+7XldScC9vfI/jbhIHl0+9qqim+ZUnGif3kBiymjfBrqXvk3VN9CWQ
qI+KC9HVUbCG9SjkdhKJ/wGUGyWi
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQk1cQAPAn2GhEEbUmXJoYSMiHtQUqUMqU/UREsEIRlcujyFGPEQkU
JbEcAasgSFRALsGLEEW5q4Jgm53aadHBYFtRLFrEYgiHQiNSvPv8483Ob3bf
vjc7uygqPjjWhBASQM/7KFwq19x9HAdkulHS5GLKLnzIlyfM3QVEn1MvZkxZ
m0PN/mZAPbTBo1RgyvL6J0a8SqgjNEHKmabszMLdn2pWxQNpuJ8XqDdhXys8
IltDZUDGb3oPl5qwA/fcnmRfTQBifqVIPMWE/anUeZrkQBKQiSh9RSdhu5Se
LnFH9wJht3+cmPgaeM2nK+fbKIEEiRTlFf/BNt5asX9vJpAx+z1OfUaIr1aJ
9vXuByLv2RyeMgxFcL1QXpMNJBsNEn0fJHJVmUmXcoFgov0aMx2MeyoHfBpU
QJT+0sWpl7QdLS2RhrYjQMg6p9aYbq08bk9u4xf5QCKTni3K1GsvVv4g664q
AGI4vIo/Z0zro8o6Osg5BuS2U39r+7i2Ll849mZ/EZCapV09+hfac5YeXNlw
MZB1xweZ2rfalBZe5ONdpXRe3N6JkSmonplr9BkuA2JbYS5JnoobH6WBSWA5
kDS7bFkXB5/+7n7jZ10FEPuhT/79hosWy2Wz+1xPAjkUk3O4www5A27+GZtO
AfF+4hcZa461nAxplu1pIBa3bInCAm0HZjxu01Ff6PHfUj0HFeuSWePhM/T/
74LCn83FE5l2ilCfSiDiuxjt8CGOzDje6fycmq9zDls/Hx2Ez3+ZdUkNpL/O
ta+ch44TqmLLbVV03jFDaTo+2oSbccWOGiAnrwXXW1mhK29ticZAvdlh9vXN
1sgv/GtqaNlZIMWxt17k2aD+hI8Fd8M5IGuOjLfescXUHU8nB82rgQi7Agq5
C9HrSPQ70FLzz24IdxPgiHebujjtPJBSgW+IlxCjLgc7LHS+ACRFYZV3R4i/
Xu7w0xipXeRzcr5bhMbkAys3na2h+6q4XzhfhCsLzGIOhtXS98Mnj9WI8KDn
t4JmyzpQTltqtTHIDgvU1i3zOqgFsMR50A5zy9SjCap6UN5/EH5DZY+hz1PO
nJE0gNL4LiPcWYwdqb+1VaZTp0Rcm2wXY/PqfWrxQ+qXw5MRcRLkvP77ldfn
jaCc1fngJscBd4QJH+XnNwJZsHPIvcIBV7z6o3irkTpsdmc0K8Xv08RX//yy
CZTqmvTT3VLs3x/CiQ6gFuu8/HukuCIvK8gY2ATEt+DN2AMpcsoH+y2CqaOn
72X/kWL2ldpZgWHUohO7ep9IMW/c9ev2GHp/ntx3gSmDRTt8TX5MpeYNNpQs
YXAiIXn16nRaH5wewzoxGKo4V9SjpPa8wje4MGiZPWPxy33UPMtU988YPF6l
W+ueQ83JXH7Hm8FTD0OqGouoHadp54UxSAxZo2wJ7b+7e2dbBINbRls8bpVS
JwdYR29iUPTWWve0nNaXiZKaohhU2/ROLK6kTlDYrYljcKqdxbI2NXXiNt1k
PIOxjstyV2moP3olP5XIoMSjUrC9mrrD7OZoMoNZ7O3tk+dp/6aDe4r3MmhY
+cHFrBqaX39BAKkM+n3l9pZX9z4va9enM1gdstVPU099/Z5Mlcng/2+oMSw=

      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HtUDGgUAPBPMqaHmmrNVEMzX0602WVD2VD3xmC0hVNUVik9SGfpsaVm
T5SSiSilrcijmmnIKk1Sw5Tt4HjtbHYXK+xq2NJEDya11iP7+eOee37n3nPu
g0YlBMaaEEICWHzK4nnpqvs9W4Fkefn6mRvASS9IT7LdBkQct0jvZADh/pYV
FsCcqPfcPtcA/O7Rfp9y5qz6z6vDDGBZkjpX5ZcARN/OeVtvgPcyr8iLIYlA
GtqO1wb1Qe8Dz4G81iQgqx2WcY89h0uH3SdO35PC+mOTr8wegHtZC+dsLfqB
1X0bSNQr4LdUKSYLs9j8qOvX3g9DHD/IZUVXNhDpuK7kfaOQUFvgnNOVC4Tr
Opy56j8ohZsl6WfygETOzvboeQfJZgXZKefzgdzofO7XOAavF2b1ShoKgFzF
YecLBHUaTaRBexDIooGI1HEmmL51e77auxiI5IppWux4bFKcS+ysOQTE/pnx
V7UpSgrkRX2cH4GkJEeU/zsB64vFLz/klgJpF6+xWTcRT9l7mSW+KGP3lPjo
q7mYoeFH9mw7DORNhjica45Ky3yj5MURIJahfgGbLTDs6U4wWXkUSGWiY0m9
JQ7+Pv/W5Y5jQL6SzsqzsULekkTrJx4ngHwXvPhOmDVyej1X7AqvZPfn7u7Z
yMM6zi5X+ZQq5j2zhLY2OKXXvEfbwWwlVmc026BsTRoaC6uBfP1qTlOcLR7P
niYLkSjYPrKLAms77DevuO0+wlzeG+XRaIczxCNXJ51XAmm61Oga/Rm6jRaU
2cfVAPlr7QYpdzIK11mYubipgDh/scVbOxk9+EHlKgOzW5usP56PgpKHpiFH
TgLptPO5YSXAZ8clPLP1p4A4TuTK2gW4I37wTZ9VLZA5VY3Bm+zR52D0R/iZ
+a6mdZDrgP2LtcqynafZP/ip6y84YFRz4Awn95+AqOqiR8Id8VqzTqoyMtte
1kTzhGhM27M8/OQZIIF2SR+bhbj8kEXM3tA6IMUfTq/9dgruXfi9qMW+HkiJ
bjjTYioeUjpq7HTMcXUj9xumYv4R5VBSwVkgrSmXxsc4YchIRnX19AYgb7UD
fXYi1O24rlVkMvd3fznWIsIW/xyli5656uqAcZ4YOe8fv/NZoAaiif/ng1yM
8aHip8XFzA4Cr00PxLj03R9lm43MCS8dNO4Ud+90ab3zTSMQ/wAJ3U2xOzeY
Ex3APGT0LsqluPSAfLVxJXPevvnj5BQ5R/u6eYHMFYVuT/ZSzLtQN2llKPOC
V9ZVhRQPvPaIuBHDHGPbKa6gWBq/zKRtB3ORLlzcSHE0Kc3fP5O5s2HtwXMU
Q2SnSh9lMQvkAeQ8Rfs885lvc5iTzbz1LRQrajqC5u9jPhkrrGyjWKkPrlGX
Mosy7oluUiQG+RCWM7dn6gpvUdw4pPH67TBzcOqVj79QdB5z7Bg8yhztqe7q
oKgUdo3OVDCP5+0/cZei6TSer1bJHKjItv6TYqybb76firnMVZZ5n+J0L4Vo
Sy2zidmmiIcU5Xh3y5vTzK4xYbcfUTQsn9AkP8O8VB0If1OUrvIc49d/mv9S
evYxxdrgzVLVWeYNFER6iv8DH0kJFQ==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{788., Automatic},
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {3.4867909671215784`, 23.10886148407178}}, {{
    0.0072992700729927005`, 0.072992700729927}, {3.4867909671215784`, 
    23.10886148407178}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, 3.647107859210648*^9, 
   3.6471091268905373`*^9, 3.647153700996437*^9}],

Cell[TextData[StyleBox["not universal",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.646981611749004*^9, 3.6469816137322397`*^9}, 
   3.646981760296327*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVz3s0lHkYB/B3qHUKuXSbdclgmpFJEt63RT2PLqJoUUc32mFroxJpddok
0ylKJl1G1CySCc24zpDI7d0uWtXZaptUhFlCaIdULi1r3/3jd37nc57f8zzf
n3VYVOBuHYIg/Jjz/31zlhm+6o4Hon0JqIf0Mehze9noV8aVH6d7TurjtBaZ
Ndv4OBDY21Q8wwCFeQ6629wYH93rc9rGANkeno0tqYzd/+S5bTbAMxHhvu1U
AhADgh3XbhugS9iOouE1IiBWLlXsOW6Is+vkVePpJ4AIqe8c1DfCvsiS5O5D
p0DUu5rf5mKC/bduSIBzGkR6RkUWD03ROHQGy6EhGYhBU6OwgDnop9fMG0sX
AyHrPjs+MRcr16QlOq08D8TYoXtDKfNRujJkI9foIhBVtjWuHt/ifnFByi9H
LgHx71qThHdmqM7b253YJAEig6twiLbAh7Wh5izqMohYlgVcywXof+15pLM4
HUSKI9Uni61wf/nYwdKWDCD82vaMSDk4+8GmQOnaq4AbIsRPoqzRP5f/vccV
KYjKjXdvI22QHe9o56eXCSK3yYpEQ1s8lKxVFURlgehvyfpKjS3uCuVtr27I
BmRl+OTkcTHavElrMS8HCJs4K37cQhzfV1O/nM4BXGf+W/gqHnrXPJxIOXId
6NBWs7VmfBTKSmefcsgFQvGog6fl4+qPL6q2NDNe2GjdWG6HH1aYPgk7JwOa
ezdhMnkRCofEkT7LbwB6sGs+BdhjlntXr7qD8ZsNNsNzBZiTuOlZxuU8EA1U
WSb1CzDSlVhHQj7QW9pTW8sWI/GuUWAwmg9E13DC/dMOGCyI6EsqLADRrsTu
iu1L8OTrda5tm24CHVW3K8LKEaNP4eDemXKgzbLVJZ8d0S49llJXyEHY9Kj1
bchSlGPS1s4dChC2TQn3NCzFob6yXr5JIWBRN+e7RU6oMz5/us8dxqShRpvi
hC3fXL1w/WAREFN/qftHnDD+aJDipUUx0NK6nx9vX4Z9SYOZJfeLQRh7TKWs
XYbml3In64+WgCaX6n/Lc0a27qUPCm4piDI1xtpkZ2yJ+dXnj7elQPAWLFn9
xRnLV9Dw2LsMOMOfzmftdMGOz8+sLbMYD7jZd9AueKBQe+fsWBlochrjfhS4
YmeavXmPnxKEHxeXPE11xZr16l7JdSUQXnqHVw254ujU2X0hE0qgq9IaRraR
yH7/Q+WcABVw3pzjp9WS+JOffCI1UAU5sn8O+taTWKEaXjVjswo07bq102gS
/eMTn04GMfXCro2x90g8Y1r4vieY6a/WRAU9InHUY8SsOpzxgefZ7NckNl8U
J4SIVIDVkrLMTyRyR18+eHVCBcKIAO3mLyTGBFsZBJ5UAV0gFxiOkjiLr7ri
lcT0v1iUF/+VRK/aV0pHsQpEU+GSnSwKb/XYvGNdUQER1xXMMaJQx3e//bGr
TJ6E9WmvjSn0V96KHpEy7619H18wpfBDnPdkfxazD62Ws+ZRyDU5ME8tY/Lo
TjfstKAw5vDt4I15zP9menpKF1BItxKy3/OZ+bfnxwZyKAzOlzjWyRkTl1vv
2lKo0G+LpQqZvNnus+IWUjgWzatVFjH1nmPozKfQqzlKZ3EJM795a8yAHYVp
7tXe+aVMnuinMpk9hf8BKHwt2A==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj300lAkUxl9ORr6W0ozRWCYMxVYYTMzLvdVUtFKLY9jYJur0sZtGKkbK
GxU1GkWNjz7IjGGiMMpY+pjTqd3qWFbtbrs5ZSoWEY4tq5T23T/uued3nnuf
+9wFSbujtpoSBLGOrv871z9D86R/FxBvu661yZjobHTISJ2bApRr9pvPFBM5
BfpwK6B5iOm+Kp+JrL7JkdDSFCBiPpzoUjLR+sw+vmbtbiBCKqCvmYkfZUGS
NrEUKPZ3IptRJg78Ffgm/0YqUOF/tCcmsfBWma+5x7G9QGlfJk+tdcDfKaHf
rtOZQNW1ZPmtdESW/pKKyaGAWuTA63Xk4HZWNC+8NwcIvZi7dMAJd2sVrrm9
R4Eqrq9P63FGJTw4k1GfD1gskTmKubjHQpGz97ocCLNm7/HoBfhWSA2IGhVg
uNiW5hDhih2trZLB9lOA/qahFN8NM3btlzeFFAGxusA1YYk7XlM1S/+sLgZq
zK32AJuHIkXe6SHGWTAofEzGP/HwahF3/NNRJVB3X1c8nvTAWnaQhXS4BIiG
7p6Z556Y1cqS9KeUASGrESifLkS1tXxCNFwOBq+y+MPdizDh5SEwjTwPaNrp
3qr3wtFuwcM7nRcAvR75iZu80W6l1PZFQAVQtuPTK8u/QsZAYPjhxEowuGcN
nVUuxiuMwwvznC6BYU5uYohiCToNWPa3d14CKqq3MHDfUpTFpONEYRUYnDcd
vy/wwYs5bjKxSAWUWNtYUe+DI5bnunzfqcA4WFXr5uKLntx3d22uqwG1ZSmx
53zRa1JRwt5eDZTcbnaArR9y4q0seF4aIEq7hwwFfhjAii7VDGqAm+Y6/705
Hx3OPJ0lLq8Bybww+95MPv59UWRnsbEWJDlJ+6X/8vHgztGpoS+0wN14varx
e38MPZX8GW5rgaiQOlc888eRFe3qkkOXgVvoESCID8CklihPZ986MNq/mszu
CMCfWjrCNBN1gPaLn0jDA3Ei/diaxJp6oEzvSexvBeKaYqstx+OugCTXxHKr
jwCPC9Nc9OyrgJsY5on1AixWz2+176D5GE8+m7sM5eXqsVRFA1RyHF7HXViG
4ndZVVUejYDWU6/F7CDsOPhzuyq7ESoz3eOs5UGoj8hV84yNQJ2iupPNg5Hx
8fl0aHATEN+sb0g9EIw747gvi4qawFj+g4vPm2BcNf2oZNtEExji/+kp3C7E
I4d4Nx5/rQOj0L+rpkeIfUdjGcnrdEC1Wmq1z4S46mTeholIHVTuWZdT1ytE
xvmhPrsoHXCrHfgNr4SY/+MVm8g4ep9/+2TLsBBPvg3YdH8LzRkJnvemhajc
udr05kEdYFXP8AsOiZOp6RER2TSzQ5pffUmiWFar7KFofxOrzH4XEtn5lt4f
cmn/ZSNmQ24knqvujBacoOc332WNe5NYaYytblLqgHD7xWlGSCIxmDeGpfQ9
zeTTzyEkbh5rDfq1TAeGtoJSEyTRdWZ+5+h5mpUzc8xEJKo5vZPeKvq/mPef
rCJInOVmt7xdTfsdydPbRJK41Wu5fK2G9tuQI7XdQKJHkMplh5bWH9w0zo0h
MQ9/2zF1md5PnymZF0vi4Bqza3n1dN6HdZGsOBLD1gfOsK7See/cm8X+lkRt
7LYwTQOtJ0W0OSaQ+B/WNCAL
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3001HkUxn+1LaEmw2nMaWxNLFpqMzLE9+ReNZI2atmY2l4oksrLVFt0
yA9NM1KTKG+pMGOkGEzyNr3Y1G5rpdZup7Bpsgmb2DPJFtL+9o977vmce57n
Ps/CHbGBEdMpivJn5v/Nd41XP+mLBtrT2uJBIBvn663iJRYxQAezLFdtZiPv
ZL2fGTCcrWE3hrGR83JsyCsvBqjsD8alcWycdfaHZeq1sUBtaHqaqGDjZIJH
aFNIHNCpQ6aLW9nY3+n2Rn5DArTUWyv3tsBb+QJj++MHgf6RxyLOlviYJi7R
Z44AlVWsLxPORU59sXIujwZasf+ckmuFuzlBdn7PU4He9dF3moGLseUKm7Tn
UkavW7Tx7TzMgV/OxlfIgT6QP44d1rjfRJF68HoG0+fEM17nfBwldL+oWgHo
t9/FaS8f2xoaQgd0mYDD243zxQsxPvpQRs2KLGjuWz9zfJMN1iqvxT0tzQbq
4b7RJWttUaSQnRk0Ogf05pZdOcIvUZPF/+ejNAdoy8m2N652eJnrYRL3Oheo
bie5ta09JjZwQvti8oFOv37bzc4BVbMyDKLXBYDTROJjNotwS+9RmB5QCNiZ
3FzJ+gqHf3NvvdN+Aaiwm+G3WI5ovipuzgvhJcC7QtvKj45o1O/ml7K1CPAJ
qUqmFmOlUcoimXUxULUJmbKpxWjdb9qna2c4RjMheb0EE747jIbTJYCavZ/I
0Nd4MdU2IUSkBPSy7fi7eykOmZ5/KHinBPrfhXeidjqjA//d3dnXVUC9ONbz
a68zOo4pcrm7S0G/+0JaySYB8jaZmdg5qgEbJyCiS4BCTlCeekANFOvxtrti
F7Q62zUjpKAMaHnT0oJ2F3x1UWRu8v1l0J9nm20OWIZJe4bfD7LKgZ+Wdu3M
vWXolbnzE9xmOKVkNNLTFYdW6lS5R68Af0gmsm90xR11gQ7zBVcBX7Uc3LZU
iD/Vta1RG64CX1xskVQlRMPh475byyoAN64u5zi4oW+2WXi6uBKoGS231xe6
YTo5sKCeqwEqd4d/NM8ds1XzGizbNKCfYvUaZ7ljRoFqRKKogiKzyQ1Si+UY
8i6xpMS+GtDpZn1x5nJsS/pZp0yuhqKaPLLCyAPr16Wp7PTVwJ86ealR6oFG
kz0TXp41QK/sENRNeuAeMb83K6sGilr39QRJPNFnoiM30lADfG56yqMRTzx2
1O7G799oofl9WdDDCIIvpcFGO/21QG95y++JJOhzSrbBEKCF0MeFb4aiCBoV
Dr40D2R4jqnUNIagvLFydoBYC/we/wqfQwRPjQq33w9n9BWJf+qOE8zZs3r6
zSQt6H2kLWVlBMckh9etS2buq3MT68oJhiRczummGb5gLLx3lSBXbuo0nqYF
KuQzVW8VwfOl7UHuJ5h8zpFHvmggWKQPLq3JYf6Jemdm3ydIDchGME8LeKmr
vriVYNhIg8ejfEYvEeyqbiNoMzWvfbiQ0aeMNz94RFDFez7mpGTynx6PmdlJ
cIatubdOxXDXK65VN8EIR++Mter/8wvu2D0jaO+hXBBVzvgP91qsekFQhn9E
vb/C+IX5NX37F8EB389rZRVMv3BWWGgfwTXr3aY4GibfB4FxbD/B8uDINeoq
LRTxayuSBgn+B0oyKmg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs41Ikexh3HsSbTvSTjljKKTShC+H7TWA3lHpYzzMVluhiXFNZ1CeM2
iBBHsRi5/X4lyW7il5V2exy3Tie0G20JKRyRVWidP97nfT7/vJ/neXfxg138
ZWVkZIRr+X9rHoqUPhsLgk2D08ZXpKaU+uiOyNAtIjANtE4aLTGlGJl32Yog
Am4rlamXa0opvf74zqpIBGJVhf9Q0aYUPf/CQaldMCj0s40mnEyp5Sgz7k8e
IdD3qW+X7ufD1PiQyXtxayjk/KIq+s7xMNV21fArZko4hBiP3WMvGlNPE44Y
BeV+BzeHBgy1aQcppbvlFdsZCSCMOq3QamtACZVctdkjiWBgtzwap65HBddI
tJJGkgFtP3aN6GlTBfBrfmS9GDTtGb0DTA0qjCZJDL+TAdwlkx5iags1fyRh
nHVTAjI2FqHjxp/bu1tauBP3ckDmofiV/dk5iAy6mHHL8jJQVVs/MJU3Y1PF
7ZDBqjzgWv9DGDeiiixJau6k/BXgul/pe8Hag8RlzdmV5AJIkCh/GarVxRvK
ZrSQqUIY3Of8v3QvA4xpUeKOia6CsKjAYrb2IFbSM+ZYU8VwM9XykcyiCf7z
jziQdfgXUPwk/aFt5jjdf/hxR08ptLyHPVWJlrjpWMjGl8bXQfPle29LHqL8
uAn7e04ZUOe8vKz1rLFB/vu9qarlIM77VWFh/hiqjq8bu9dTDsfH0z0aq20w
yi0C57J/ALrvw0IzsS1eS9wd5cGqgKbU1hFrFza+W1fSa7hQAZ0BgYFvVe1R
R3Ohc/2dSrA49ejvDionUfejpFBZWAXCIfPl8b85IuNbRZq2rhRE4Z2e13Oc
0FjJtUg6IQWVxE2tXRXOuCN/WM6juBpk7LObP9S74JtrrE007xvAbaRH6T5z
xdgz039ObqgBq6sMo21LbmiVI/gC7TXgpbV6aHqXO76zvldZGFcLcjsh5G24
B/KbXXTUDetA9rH52MVOT+xq7j4unauDgqkf3NvtvHAuIsWWU10PAwONZP8z
b7TNU/RL82wA7sntJampHJwwXFJJ926AQ9ZpuxyzOZje96Y/3acB/EbqjBiF
HOxe3wGZfg2grvGb8gMpB53EkYzskAZIGM36yOrioGfs2EC+uAFUmYnnjOV9
UBjYfrSspQHqN6sdlUv3wbQj5zXuKhPg5vEmi13pi/pDT3MvMQhgynyjulDv
iwMXTeVc1AnQTBv/d/UdX1RpXJl4t5sAOo82qfXIF2v3ihu1DhCwQc3XOOyt
L3ZvL7WR2BDQoZK/kbWTixtmu876hxGQ7vljbJkfFxuz9r0wukDApRvxwvjT
XHTXy3SSiSTg1n5ZiUDExWsBzsYlsQRwSr95ciSSiwd+f77aJyaAH9Lor5/J
RafHs7kW19f83H0W+ne4mFep0rK1m4Dx7F+CT9J5eKb7TwO1XgKW05LbY7bw
0Hr+vzXMAQLq1DLdm5V5OHcsr8RskAC/Q3XmbG0eurxSjPd9TcD9OVHovBUP
N2ut2NQtE7BTRzWwNJyHE+znbU1fCLC69MAvJ5qHVOiPh9tkSRgVFXhcTuRh
yIML+/oVSLgd9rKjM4eHfdxp+uI2EugRDO/ZBh5mXx95Yr2fhL6mG0q/T/Ew
4NH9EycMSBj8fPnmygceWs2UPDx1kIQd/jrLJss8nLbyvCs0I6HCfz5xkc5H
hxd9xRIbEtSLMjR6D/CRKU9uLTpOwqXzpR1PTPm4uj8rs9yehNWjtJ5PR/lI
xLLjmpxJCONMjjW78XG9WgdvmEPCzz6KjhoxfHzNKht+xSXBPTqmU5TCx9Zz
ca7vBSSI4ntn5nL4eK7V3EbmDAkqzMX4aikfWa+V22hBa3uMgqWRW3xUpS+a
bA0hYUM0L4Jzn4/d3rf3Mi+SMLzkumD5lI+VSbnlB6JIIDVOmxIv+RhTF6xi
FkNCwKdQ37hpPn79WY9+IpGENonANIAmQLnd65JPJa9xEy2zYIcAf7ObWPER
k/D1nhTGt0wBZhRXzoRKSNhcKtCZtBFg98ySRVDu2p/lCx6l7gKk2zimC/NJ
4Ga7zzoIBXiyuPKZoJAEhv4f6UbRApTMLO3xLSbBJiN7LjdbgD0sxzCvUhKc
lsVhw1UC3Fhc2X6qjISUW67VP7UJ0Glmie5cQYJV0rzh2ecCzGE5ep2QkmBn
T32VvyrAvquV1bY1JDANI342M/TD8yxHh4e1JLwVxbhlnfXDvwAILgTo
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs01HkYh2dlpwxpaA1LB8llU+1SLk2zvC/mmyHJyW60Wy2h5LjMtBW2
aFIadmpW2JFLNZoxLrmMX8mUaFa22lYqW7oeplKIqFmkUu3sH+95z3M+5/Oe
57zzN6esjTOg0Wir9fP/tvdIU959lgT4OmWiON0CbbWWaQLzZKA9EB8bzbZA
m0PNQcagZ9uVnIB8C2T1T474Hk0G4VtpxEiNBZoU7lymDE4B2h/UXN9HFjid
zo46H8EHWqtVSZ8vCwfue73MuSAAmseNx9aGlthW7D7T+eAO0ATHJW+XWOEd
IWdp0pFfAJttFw732yCruVxuYSMEjfE5IcvADuNZ4U5BfVmgSdxUnjlzPqZU
Sxz292UDTWATqqp3QCn8VZhWmwMamHsgjO2I240kWTuaxKAN2btB1u+E4xzh
AFclAXtJwsFrIhfsVKujBlvyQMYO4qeZLsS0pF3iRp98kJW9393R5Ipn5Kf5
9yoKQNYj+foELkauRHRkiP47aKauGyRcWoL1+favPmRLQfYij9e+5RussmIb
8YeLgN/gKO7d5YZ71KyoZ8nFoL2o7ioNdkeFiVjHHS4BpilXssZ6KW54kgkG
oWVAK88Q9j5ciqO3vK+1dx0DmdFlu4q6ZcgM4M957HkChKtyTUIEHkgf8Ara
t1EGYa+TGI7EE+vo+74SzSuHsL9DS9984YXzBhjPWrrKIcrsrXlTjxemf5eK
ut9OQhTD83xplTcez1qQHsGVQ5jDYW9B4nIcYZTecJ+QA7O7wCVkMRtd7Cc6
ZjcpwO1pRwdvmo2uk5Iiq/gKoG295unTtgJt1hsbObkqQeN/32V1Hgc9WeFH
lYNKiOrxc4ne9C1aFj4wjCipBI3oyMROWx98fpzLNPqxClSV3UPHR30wI2F0
asi0GtDVfNV1lS/65sV8govV4FbTMzkrBXDEv0VRlFkDWmfl0ypbxM1n17rY
up8CdR/ldTsT8fLZTp5SdwrcvvTgzBhA1KUeDNxYWQuqruk4Ds8PAwuMY3Mj
60BLUsP3VPphLudnu2aresgbDypsNfXHAoW1em5nPeSc5xqbpPijuEQxJpA0
wE0XM7PIu/4YMbHn5ElnFajW3/Kp9QnAzowrLfK9el6urjc7FoDNIfsVTloV
qLc0xQgMuUif7n3vu6IRrBK6t/fHcjEh0v5Jfn4j8GKD7sRc4iJ53120VafP
/Vb+8GAhwQOZThf+WUWBWy8xjM8l2J+9jh6zmoL46EMSczFBclgUpgulQJ14
zrL1EEF62VA/cy0FPHLF2TyPYM65utmhkRTIHE97X5ASPDzu+dPVWAqmrt52
ZCoIShNWGrRmUKAxyF3c3EZwUpAaErKXAubdMwXRGoIR6VXSh0IK+FlX3xq3
E7TKYSx6t1/vk1vZHvUnwdKKrnDvXynA3SSQ0UlQpl1X0Sil4B6LMW/jfYK0
QdEYHqUgLVAtmPmQYPSYmn2zWM+ToZcbHxF0+GjdNVpGQd47z0S6lqDCpm9y
kZwCWttwTcNzgoYLmH4tCgrCZvW9WT9IMM7VTxyspEDo2BJg+IKgM1tut61a
f+/DknuRLwmK8Pa2qRq9340O+xljBAcDPz8jqtX/p4wbX/eKIG+N10dWvZ75
dfUROoLV67bylA36/vef/v1snOB/K1ItOg==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVkHtU0gcUgH9asSxNlmUss6imppKPVMxI7kXhl5q50pZuqyM97GEPsWzK
zCKdryimYPgqQ0GKIgXKxGmLtY7LjoeZq9NqLalZWjH1MLOm1sb+uOee75zv
j+/exdsyEtMcCYJYZ5//Nz00R/3g+X4gpKepHkYHXGiZl5M5+wAQZzl3xL0O
6HGyNXYm2Fl5onTS6oDu/WNWdpWdO0ZpTxY7onPF4RB1XAYQD4Jy68WOOCmM
4H+fLACioGidb+oUHHjI/KukIxMIH7l/JGUa/lAd/JF3URYQ9R2PD2+cjvdF
rBX7y78BYrZuX/kxV3RvrVfO9RCBaPxOUhvNDXe7J3nF9uUDcajQwWmrO2Zo
JEsK+gqBGDSGd458gnLoqsjRlgARMunwR7QnHnSS5Ge1iMHEzJrLzKDjKEs0
wNVJgPiyJSYodAl2G438wfYyILqYG3ofLcWc/V+L9ZFSMOWIleGNXnhVeUXw
W6MMRLd/TIza4INcSXH5S8ppQP8HuvHRZdgkpY+8L5QDqtJy8zr88AItwknw
uhJMO1NyFWkMPGJ05z8/UA0i6cRt2YoAVDmLbdzXNWBqcHFe+TYQNz87Co4J
Z0BEK8hvNwfh0N3wOzfNZwEVrPedV4KRGi1wfRp2Diw7hYfqSlcgZYAZe3yL
AvjPwqamZYbgZcrxZcUL6oHgnlBN+TwUFwzMeN5urgeFr3DDXt8wFG7MRtt3
DUC/dcOn05WJdflLhclcJYiupMsGXzDROqP2l+A3SuC7aOmWtnD0ob+55dKi
AlMZY9BctxL9xiSVtN2NQN+Yx87PikCPL2Y6efmpgV+kXBa0eRWGuSdVqQft
vMV7WguwcF7Fo6nJNeeB7xa6asJtNb6o41KdvroA9OVzUnF8NealD717OUsD
/OkuHN7dSGSXbf8XbmjAcuTVE08VG61R7arKoxeBqGN1/VMCuO1aos/C4EvQ
EzBldmwgYue17hi17RII3tfraUpEW3bRmi3ntYCPqpt5rhxcI5u5ozTlMoz8
5MXYLORgKevQolZaE1AvqtJyrByUqeYb3bqbYH0fHUaSo1BcoxrOlDRDUHm/
MaM7CpPfHGlo8NaBaE+V/iE7Grvzfm5XHtPB+mbPg2c10dgaX6DysuiAWPuK
t9eTi5TJJxPsVXqwPLWOlpdyMT2F/kwq1YOJb4mt/5uLvIneyl02PRCLsz+9
vpOH3x716vh1rQFG7iveBvbysL9wE2X7Ojufy7zneo+HvFPF620JBhAxJvXD
93lIOfOyn5poAIWGndH8kIclbZddElIM0DMutAU85eGp0bDU2zvsvm+PR8AI
D+XppOP1PLsfxxhnzCJxLDM7Pv6YASyLooecqSQmCy/IfxcZQFAz50/rxyTS
Smb4jxcYgF87YNbOJbG20ZwUfsIAuoqEZoYniQrLpka93O5XessYDBKJweJh
rDJAmdtrqXMAiVuHjRE91QYwqdNl1kASl3yYbx46YwDq8lq5NoRElUffmL/S
APSCm40MFolTl1I57Sp7Ty7/knMkiWl+HHGc2gDErTa9lU2id4Ry0R6N/Z7U
OpM2isRivLfn3UX7f0y+XSe5JA6umXa1WGvvlQh695EkxnzG/ODeZO8xH3wc
H0OiZtOuGHWzAYJKgwYYcST+B8j+Jlg=
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQk1cQAPAn2GhEEbUmXJoYSMiHtQUqUMqU/UREsEIRlcujyFGPEQkU
JbEcAasgSFRALsGLEEW5q4Jgm53aadHBYFtRLFrEYgiHQiNSvPv8483Ob3bf
vjc7uygqPjjWhBASQM/7KFwq19x9HAdkulHS5GLKLnzIlyfM3QVEn1MvZkxZ
m0PN/mZAPbTBo1RgyvL6J0a8SqgjNEHKmabszMLdn2pWxQNpuJ8XqDdhXys8
IltDZUDGb3oPl5qwA/fcnmRfTQBifqVIPMWE/anUeZrkQBKQiSh9RSdhu5Se
LnFH9wJht3+cmPgaeM2nK+fbKIEEiRTlFf/BNt5asX9vJpAx+z1OfUaIr1aJ
9vXuByLv2RyeMgxFcL1QXpMNJBsNEn0fJHJVmUmXcoFgov0aMx2MeyoHfBpU
QJT+0sWpl7QdLS2RhrYjQMg6p9aYbq08bk9u4xf5QCKTni3K1GsvVv4g664q
AGI4vIo/Z0zro8o6Osg5BuS2U39r+7i2Ll849mZ/EZCapV09+hfac5YeXNlw
MZB1xweZ2rfalBZe5ONdpXRe3N6JkSmonplr9BkuA2JbYS5JnoobH6WBSWA5
kDS7bFkXB5/+7n7jZ10FEPuhT/79hosWy2Wz+1xPAjkUk3O4www5A27+GZtO
AfF+4hcZa461nAxplu1pIBa3bInCAm0HZjxu01Ff6PHfUj0HFeuSWePhM/T/
74LCn83FE5l2ilCfSiDiuxjt8CGOzDje6fycmq9zDls/Hx2Ez3+ZdUkNpL/O
ta+ch44TqmLLbVV03jFDaTo+2oSbccWOGiAnrwXXW1mhK29ticZAvdlh9vXN
1sgv/GtqaNlZIMWxt17k2aD+hI8Fd8M5IGuOjLfescXUHU8nB82rgQi7Agq5
C9HrSPQ70FLzz24IdxPgiHebujjtPJBSgW+IlxCjLgc7LHS+ACRFYZV3R4i/
Xu7w0xipXeRzcr5bhMbkAys3na2h+6q4XzhfhCsLzGIOhtXS98Mnj9WI8KDn
t4JmyzpQTltqtTHIDgvU1i3zOqgFsMR50A5zy9SjCap6UN5/EH5DZY+hz1PO
nJE0gNL4LiPcWYwdqb+1VaZTp0Rcm2wXY/PqfWrxQ+qXw5MRcRLkvP77ldfn
jaCc1fngJscBd4QJH+XnNwJZsHPIvcIBV7z6o3irkTpsdmc0K8Xv08RX//yy
CZTqmvTT3VLs3x/CiQ6gFuu8/HukuCIvK8gY2ATEt+DN2AMpcsoH+y2CqaOn
72X/kWL2ldpZgWHUohO7ep9IMW/c9ev2GHp/ntx3gSmDRTt8TX5MpeYNNpQs
YXAiIXn16nRaH5wewzoxGKo4V9SjpPa8wje4MGiZPWPxy33UPMtU988YPF6l
W+ueQ83JXH7Hm8FTD0OqGouoHadp54UxSAxZo2wJ7b+7e2dbBINbRls8bpVS
JwdYR29iUPTWWve0nNaXiZKaohhU2/ROLK6kTlDYrYljcKqdxbI2NXXiNt1k
PIOxjstyV2moP3olP5XIoMSjUrC9mrrD7OZoMoNZ7O3tk+dp/6aDe4r3MmhY
+cHFrBqaX39BAKkM+n3l9pZX9z4va9enM1gdstVPU099/Z5Mlcng/2+oMSw=

      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQ00cUB/AdiqGA1AAlRlGI0HAERPJTsAi6DwyiVKkVx2CBlnoUROSo
aAABOcSEoqlCGg5RUUIAFQQVSBu1jmUqbWmoYosHFnRAgiA4EFK8sK9/7Ox8
Zr/z5s13dtG2pE07TQghG/D8f/OWpal7BvdQErOyufvAJHXon5uWYpOI7umF
45PU/kjbOkuK7r9s1qiepJwB4+iqMnTV0kjZ7Uk6W7FvqTo0CfMbXwa4Guib
dL+YH8XJ+P7GWn3HQIfu+z6XXU2hZKNzi8TdSK+XC81cDqfivJab3J5p+leO
P7PneAYl3k776mpmKKftTLWdfQ4lx8TBd983gThOOH9dXx4l+qQoYbMpJNXL
nfL7CijRnAxnSsxASX9VpF2QUcILHxxdbQHfmMvzUluKKOkQu4V6WYHBP2dI
1CSnJOqhSd4sNnRqNDF67TFKplMlAZHWkLZnf1HzymJKPBtlt/6wgSvVl5Pv
1ZTg/H+zmlw/BJFcenyY9T0lmdrMjgw7aCzmvXhboMT8UEzTMw7Ucf3Mk0dK
cf/aXmMgFzI1nJjBxHJK2j+und06D1SziyZEIxWU1CmCPnO2h6gn2dQkrJKS
ZcLFU5IFMHZ7+W83dScp6S05Hzu8ENirk+c89jmN+/f+7RfkCKwh33W50VWU
kL3vRiN50MDKdZMuOEPJJcPpzbaLYMGQxaBWh55+b2/C9UWQvlkCE9+dpWSs
/ukziROcynNOF4uqKXnRrZ3Hd4ZRixNdwil0WNyBfp0zuPKm2q1aVJQol+RY
ST8CgVFeyo2rwfksGGH4YL/V0pwvUFNiYnjp9ZwPPpzwMrUeXTUrz0LlAnMV
D0zFFbWU3GjnlYa5wtNTIrZ5ZB0lirCoQjM3yIofmx7+oJ6SNQGPPK+4wapj
29/Rn9BR2sK4aHcYDdKqSrPPYd8L08ztBLCtdZOrg/A89mEwjbohgF9aO9eq
J9BO0zLbDA+YkBwOia69QElE6INMV08IKbHcURjRQMmzhozs255Q6L/XsY3b
iP/Num2gcDGUqOZrbDvRvfPmv/XxgqIK1XiK/CIliUt16S+8QDyVefasSxMl
M+4t8tol0Jl1S1t9EH3Tbo6Huze0rc9X8fvRjsprNwq8gfXmn9erVjRTYrGr
fUmvN8RH8J4UF6O7RbYj3kIIfn2nNHYCbdfhde+IEA5l8692f3IJ+7TsOvVE
CAMFW1jbN6ALVnQtHMD8UenGiTC05vOuykEhsCqHB9ib0KKkrgq9EGQ/NFiF
RaCn9DrlmBCOGny+7NiBvu7wu/yVEJTxa0yuZaHZCk22DQPGFMn69QfRnuOt
b20ZEKfXKR/moM/5t2TaMcCVWXi8ykd31jVncBk4UaMLX/4t+mJ3/X4HBqr6
t9Q0K9Ezu0sTBQwQvXQcytDBjxTPPRj4alzj92c5epwWJyxmwGlmvm6sEp1w
/0i8NwMq+z6jRzXaMjr3a18GTJ3ZgVoVOm5r9uByBnYKAotC1WhByIEdfgy4
+FU77qpH9xhTtwUwIIW7u6bPoX/WpDxeyYA+ZNYV6QW0TUJiDGVg7ae+M5xG
dDt7dx8wUL8ldq36Ivq+OvaLIAb+A5XTEQ4=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {3.4925923286607485`, 23.166559446472547`}}, {{
    0.0072992700729927005`, 0.072992700729927}, {3.4925923286607485`, 
    23.166559446472547`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, {
   3.646972678784955*^9, 3.6469726870726957`*^9}, 3.646973163543934*^9, 
   3.646978350153631*^9, 3.646981396624117*^9, 3.647107791359207*^9, 
   3.647109068456748*^9, 3.647153629189049*^9}],

Cell[TextData[StyleBox["Areas",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.64699302179138*^9, 3.646993029215353*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxF1Hs4VVkfB/DtkpRLJykK43LEbgZRbgnrh7N19Cqni0YvJiVSTFEmhrAn
5TKuJ06djpNr0hwZDJoStZWhiUxN6arJ666SS+V1nXn3/PGu+WM/+/k+v7V+
v/Ws/eyP4b4j24PkCYKQsM/f75HZN6pP++MQESpOm+hTgcaOIGGgPo2Io2Eq
oZQaRPQdqDMM+g4RPz+MSLijDq27O697iE4ierO/QFeTAxazDn4xtxIR/Wjb
s4+3OXBy709a4/KnEb1D4iahl0K0qajmoWUSIs51GuZYaYDfT6khU1HJiB7s
V/AZ1wDBweM3TK+nIHqo6ZS4YhkMJHS8Z/pSEfFqKt3cXxMO+dpvLFyThmhX
3qkMneWQdVYtZNgnHdHcqSzX+8vhl/kX6zaezED0vGhnZOwKGFpTv+JRcyZ7
Ps3ZI/ZaUFGn+PLxeBai+QNNTUNasDbR0k9dmo1o2jejq0wbhE0vzts6ChH9
n8fMscCVcKeyvjXnIZsTHEz2aayCMJorn3vsDKLbN8drP1gFA8Rts18X5yCi
uzfH5DsdeBo4HFj0I5uTp27Ogi486FJ9E+eVi4h7J5kt87ogWRAckNWfi2iR
qXDqih685PB73VJEiKgNDjoY+hmMtO3ZZW5wFhFf+uWu19OHhReOaevUsblV
vjq2TR/EAs5g+a5ziN4QFsjjGcBMTU9pxMg5xBAeBtFSA3g07RTxIluMmC94
79TmDKDWW5S2yeo8IkAjuWe3IQTvNTo73HIeMTG2L/dXG0Kml32FxUEJ+72H
r/I5RpA8klh7mchDjHSR8EWIEaQUtS02FeUhSDJrLr9lBIS99Gu+rRQxevKz
r/S44BFfzOS3SxHRmFBz8xsuLCqzMhAfuYCYJdsViE4uSBImj7QszEdMat/K
MXNjWH/4Z/VpaT6iOz7e1D9tDG5Irr7DuQARNolRlb3GYMzQ3s87CxAzpx7z
fuNqaBQ2x99xLEREFsPNyFsNYR3uMboZhQg27LIOnV4Nir29I0uesVn+rea0
wASehvwyuHNNESKGT6wYqDSBnJam3dbfFCGmIdwsUdkUdqx1/CC6xdafLFkX
sMcUti6a1fDgFCNG3exJXqMprLvxWHbWtxgRCZmclOUkHFrg73GpshjRVy99
Xx5FQq3nSy0vjQREVCsNrBWpwtZu7Zj80+z+2PVGEncSBMaBGstOxCPih8iE
pU6qwNw/fkYSztazUiyWWpDQNVG/t1jC9psUvjXaQ8JnnLIlnyzZ9dssteSX
qsK3zaX52sHsfHHnxXZDEkTDw18bZLPrdczS/9hOAncuzdu4lO23LwgOhJKg
pOShHqzC7n/d4T0zowJPUOPFpwFsPVfRT6ZDwsR+ucjX3xcjWHPSp8GTBDqq
xLe3gO3/aYsWFURCCx3pFSRj+29+FpwaQcIMIcnIn2L/f35HxOSoCpyav2tq
9xW73zzf9rw2CYVGav91TmHzoUqncg8SLGwq/3C9wOaUZjnrfSREOtO/N5ex
84M/7Ig+TIL2nZD2BRXsvCWa30oi2Xq8632HUba/4kx85BsV8O3aOjzg9/d9
l5dwtEiIksu59j6JPc95pSojPgkLNG0KJ/LYvJ85Xh5AgqeeUm7kJbZ/isu9
0TASRoveZ9SVs1mgMrb0GAkufT2Ld/3Irk+akOMeJ+H/nnECBotOiLjYM2Zo
gxkzaIw9q/IOlH3wNsGePUgal4aUm2LPAuK22dRPk9izwgbjsv7Az7Fn4R+d
Ph2t+wJ7Jrg/1NNqZI49636UXzKVYoE9e+CvNiB7shZ7FgJ2KsqFltizsVh+
diLfCnsmOEz/O27ECnt27Vy53KbCddizcJXZ7kH39dizqmV9NYLZ9dizy0NW
Z+yuWGPPLCd6JArbbLBnYLXqh0wFW+wZcBO0lGS22LO7INxu85XdP54dfe3x
Vt0ee5btdEUsqbHHntl7nZFMB23AnlV56sl8VB2wZ5ZzVv3/qnTAnj3bVLFn
cM9G7NmYcrswU9ERe1a1eKr76VVH7BnnRsCpuiAn7JlY/bKtTNkZe0YfSrZ3
uO6MPePvDf180B9hz0Im0m2s/0LYs+YnBeYqXwL2TJz5sj3rMmDPlOvkw7oI
F+yZ2MBwG9rhgj3jz02Gfypx+cczfsnj8FkX7Nk7fUPzhVtcsWeR3InUgFJX
7FntK16Y2pwr9uzd3N1fn3u6Yc980upuB190w57l9vcLl0+6Yc9S5ocv6Lrz
sGdm1SP6PVIe9ox56BBzf4SHPePvPvDnMj6FPaNHm/QrnI2xZ5w+SjixisKe
WZ5IP6P9hos9C2l9HBugSGHPGq45NiRaUdgzRroyue0WF3t2sbNMW2uahz1z
rPnkttGEwp7p1ghm2hwp7Fl3aYvXRRkXe0bWdgmOfuBhzzRd3o+fNaCwZ1U3
UntM7SjsmdRbrBDuSmHPsnfKkjmFXOxZl9KBwYIxHvYsOu/wnWY9CnumfcD6
obc1hT3LVWgm8hGFPXuX0CHvSlHYM2YwTtwi4WLP2u9tqrYd5WHPoo/8JvPV
pbBnuUNmre/WUdizQv6f89bOFPbMx6hM4bkbhT0TpKrLlbtT8D9jhVgV
    
    "], {{{}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxN1Hs0VekbB/CNMqlGF5cjosMRx31jT5qS96kkZpAoqTQdrV8RuRylptv0
zrhUklVI7o5DZqRxTUKy/dZPNymVKF2cSC414mQiE/32/DHvmT/22utZ693v
833ed6+P4Y5w753KFEVlcM/f79/UdaGjNxTh6a05SRVaoFFfdPVTqhhRN5b9
SaVrw0BoycnevfsQNo794VYSDwarCpIR/wCitJpmTBzWgbkBakpWDQcRFp7r
OiNaAB5ftZuMpx5BlLG47yc/XbjinBJr63QMYZVhjadIDzKctnkaz/kZYXFc
74llC2FPwq+nDv74C8LpzhuzaX1ouxDcG3s7GuHK6R2LtA3g5rUAPSWHWEQt
3675UX0ReOU+CLVPiEPUZPb25WOLYE/luLi08zhi9wVJ9obyQaPJxztjzUlE
HRnF8n4+eElN1zmmxSM8bNlh5m8IOkdthB5fJSBW59VmtaeGsPfkUMWv4acR
XrriVaaPEfwnwGRLTUMiYiUtD/qajCBC7/bQQu0ziF1nN9m5UgCfQuquL2W5
WmCgfqJKAK51Nz+f+vEsolpupT6zMwZRfqlGjFUSYh81H+/+3RhWjzy6uqk9
CcG9yPUF/MXwbsX8uztOJyN8qjRvVvZiEA0nhLotTUGsZ6mL9TwTyF7e09fW
lYJwlJv79GgTkMT6tJ4/dw5R0bpDeMoEQr+h1i5BqYjdNHr/qtgUqNc3LGaP
pSL4Enw6ZcgU/C12D8QVn0fY3mGX8W4hRD9Z+80LnzTEvpkZLn4mhIgYeB88
M527X9HOgE1mIEyNcmi7zNU8Z9U5zWZQBHF+3VszEL6SUC12NIfhgbI+03mZ
CD8eDdtfbQ7Kn3jT3WozETVXWPOtuQV0qqafyRNnISrb5/ucQgs4esj34uOF
2QjWSgYbdS1hIO59Vsn/shGLNCcyEixBL0k6ef1QDqLKTwVrzrACHZWkdxeN
cxH7h2qrx2Er6IzMdLv3PBdRibVPTMatoHIFi5pdJQhmbv66KtIaukZbDfWz
udrlF8G0XmsIKx6qjR+XIGrYWT4isoHuFHO9Nx55CFZu0Mtrs4G679r6kvPy
kEjpLa0ioGHsS3zIts95SHbpwPUYEQ06/duvaK6XIn55VkhfOg0py2tcC0ul
CKYpR40+pYHZsfWS3DkCUaLEpjuLtaH9bMKxbViKRNPFy4ZqaDixO8j9pUM4
ojy1R6zfacGY40fdmiBuv54zvYNFNFS9MXqtlMat94bgkdtcP8eVNzoTwxCV
8HuH6L4WnJhf3P/GX4rYY99aDeTR4HKto9wmQYpkSRPt7xtpMJ4Xpt2Wz+Up
XjUqf0CD6IKVyuZl3PdRVg2fWC3wOhp7f9JXiqi7yR792TSom1akucRx691f
qr2vp+HdYdfJwWwuT+9uWt5Cg39hsk190d/z3qn68JiGaZ35hjpzuf2CJ2xu
1GjB5Qr5KrUNUoT3dD/vy6Qh0n/RbO9oLt9tsXSojgav8qqIjxlcvyW5LSPN
NLDPqPxbhVy/Jq+NHx7RMB5hcq38EldHlGmNdtDgO/qybGwilPOgINDyihbs
8ij6nOjNnYeud0FfBjff2OOmjp+5ed9Hhw3V0qDsvsf8SDpXf6ecNXKH67+/
2t/zApfX6bnxh4c0XJz1IsqhmMun3dr7oZ07r/ZwZcsSKZI0hKwZfULDP55R
W2JD6g14Cs/S6nZsX6Oj8KzaOrUqZgHxDL8oDLlfoks8o/5SOjf1UE/hWcPZ
/76Yo6/wzC1oMMbBgHhGtUzkPDmwiHgG7SaO/M184hnrGrW19i2feIb9vXJ/
izcknuG93UumDIyIZ1igJhCVGSk8+3THSNNToPAs4EWq7SsB8Qzc34TkYmOF
Z+6fqQX6i4ln1IolzFTJYoVnqvXlth4mCs96j/Q/kJkQz1ilsZrr2FThWdEh
h6v6QuIZNbkzhV8mJJ6Bk+PBR55mxDN8t9b3Y7eZwjNh23zhPnPiGQSKN0jn
WfzLs0RJYoGFwrOen5obV1sSz6Ck2llFZkk8w8sceq6KrRSe1ef5Vc6xJp5h
9TpVQb418YwN+WyWb29DPKMst1ruarVRePanvoOXLU08E33JGT+NaeKZTKm6
+zj3P/7jmSx+xv6ZGrb/8uxG6aUAW+KZzLBLY3axLfEMK3d6xU/YEs8kbiPD
Z1ztiGf42cHGjWftiGcimW7YUpkd8YziCR88NbMnnvHN1uVPi7Qnnolwur87
a088w4Hlt3zUGOIZX/NAY9sWhniGVxTmz63gEc9Y3+5eTTuGeIa/bk4NDOIR
z2RV0ccu6zMKz94+/WufC0M8w1NjBUmrecQzfM/MOkaDIZ5Jlg5OODsyxDOs
Utlf4MUQz/CQ3TyhLY94JokZmQxRZ4hnVOCA3NKBIZ6JbG+PJnzPEM9Eyec7
rm1kiGfYKZ2Vm/KIZ6K98p6uWYzCsyLVPyQMQzwDkI9TbgzxDA83yWgfhngm
kpu2uPoxxDOckqPtJ+ARz8DqUHv6TIZ4JqrMGthizxDP2FWJE7VrGeIZm//6
9eB6hnjGf3v8ofImRuHZxQM3Ezcz8H9g7GLx
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxF1Hs4lHkbB/A7nW07DGIYZYwH5TCzu9UStt/dhugloqRMGzq8KoMOyjFD
axJydZg0iXKo5BCddFBp1GYT0kF6U9FaEmvTdkBdqvd5/3h/zx/P9Vz39Xx/
3/v5/fMxD430W6MFADns87/3SZ4JPu6WE0XICDT58VH/Wsmlj9kbCahLyfBM
PeyVV+zq3ryFQO4dV5GNPvZVHdtPRNuIQl0WCzoGqBsycZT99VgCixSTgwYM
0Ht8q9VwdgJRxATHne6cjBdcVanfz0kisPSUjuaWIebMWbGQ0UkmigfrGm5f
McLwzOKM2JgUAnu8Av91SoAtx9d3p9bvIGCzRpSeZYy/Xw0RjnJIJTChcqIm
xQR9j96Xz8hUEkX9lNnn1gox/Nzwxsq2nQSeHvIRu5ui/i1/vxy3XURBavco
Haegb6G1j4s6nSj6LvJLTaaiIFE6zXt8JoF/h4pqdcxw867XZ4sjdxPsENdO
BxGuDrFafvl6FsHAh/v9o0QYJax/bWq4h2CSg2SwV4QfN1ypcdTsIYrmr3/H
Bpmjx5XfRzJi9hIUphRHt5pjcFGl/q/2+4hmTd4WqY8Y5/3z8NLS1n0EfwkN
a7guxv6f9BpDd+8n6B+6tH22BQa/yZR7OqqIhrf+zcMyC8xz/rOnpUNFQN5Q
lCZkMD/V/97BAweIxtgy6JyKQfksmP8jySaaB8FVtWMtEbrqbCcNZRNFwSoP
N4UlymzX9SrLDhKNQPvUzmFL3PGf+bOe+6sJTl56tiLMCqN+xYH12oeIxmnZ
B89OK5yWHe3Qcv4QAXvV8jv+1liCysDOoByC1YdV2jet8U3v6R5r/mGi6JYL
apynodZHo7Ge1YeJJvWvc0vLp2HbuEN7CjbmEsVHzb1VVtMxMS6g9JFpHsH0
vcoA9XTsVQ7kVvzGzj7Xtk6cYIPCfYWfa+KOsPv63tsn26Bg9L7+UuYo0Xw3
bpTTWxts23TY8+6zowTabR9eCLfFcz9pSINHPkErS/W7LlvseH/PfEoeO+9o
6RIsscOIstfV6cP5BJzioeKuHXaqbIQvvQuI5nOIhR3a45UFLT37CwqIomim
44ZKexz6mr5hxUgB2//e1niaBAWvVl4wWFRINGa7BWfUElQ5X/Y4UVlIFFbq
cpmhFGeGBpW/dY0icKyk9M+bfGzdm5m0QsHm597dvvOxBNPWhXm1O0QShUmE
OjCDj0MugyaXwwoJumk2mV6SYNVLcdcoNdsXWePydpDd5zK3ri0rgsAF2XO9
SD6m6ZW9eilj800bmteelKD71cdnpJlsPm9Xj0uPBBl+hGFLETsfk28vHifF
4OP2o5c5RRCFIuDdQDAffRNTmz8HsOcb5YMZ+RLkWZ9VuyvZfHPurNAOCfbH
e3zuyyskUDnuReMXCcpO7JdeK2Fn+TujFJ4Ux7QVmQt02b43M+Lbl/Hx/Nm3
P09czN6vyTjtSK4EN8nMJvntYPtu3G/b8lSCvmeqogZz2Ln6S1bHJwlqnkLR
7RNsvryxQaUtxeEoq6tnytn+vj9CI/WkGPC+/fTQJ9aX+uU1SwL4uNa7ZCTL
j/2+O+5ecQ57v6FHtx4ns//PH7Lb/kSCWl7hNgmH2Dl/7MtXw+z+rRdlC4+z
/d+7Wh6ZIMXSb55HO5Sx58/vvRajK0X31kgtuwo2r9s1fq2BFP/vGbxQOt0M
5nGeNc7zdFmtw3nW3+x9c44u9QwWfKuYfEOX82zctoCHP/OpZ7DAMjv2Lp/z
bOFMwyZfPeoZjPDuT2jX4zwLzZh6Okyf86x0dPeYPn3Os5Pp5XO3GlDPoLB3
ot1HA86z8sIZKbGTqWeQYGmlGWNIPQNVZneZ0pDzrC6RJOkbUc/gN//FNXlG
1DOIWhVRNlVAPYN2ZW9SqYB6BnNylVr2xtQzeLYyILzamHoG/aZDc91MqGeQ
4PP2Vp0J9QxqMl5+5y+knkHdt34LWoWcZ/3TbzcHmFLP4Iv5V+dOU+oZtC3p
Clg9hXoGrrNlgf9MoZ7Be4+mW/FTqWcge8B0jkylnsGCU4+60sw4z3547Now
VkQ9gxgTxzY3EfUMwvRcZBki6hmIBp/NahRRz6BOtS1Fz5x6BonJ16wWm1PP
YMxe62SVOecZ3zdyYZs59QwsmhI3C8WcZ3p/+30TKqaeQW7CvGXFYuoZZD03
/Noj5jzzn6MyklhQz2BAo5UWaUE9A8HikopKC86zNV+ez/9gQT0DZ4HZ7B8Z
6hmIY9dc3M5wnulqjyR18qhncH3e4pjlDPUMXt0vKSjgUc+g1a4m0IOhnoHZ
ij8OhjOcZ5q70T8k86hnMPfGgAdhqGdg9kaYtoqhnsGd9GPF0Qz1DML0n3yK
4lHPwL5qfK0TQz2DthBHWMlwnnU43zTbyHCevfBMlcYx1DPwGq/dEcajnsHZ
GP1ER4Z6BvWr3a/KGOoZxP7y4GkEQz0DnxHVX9sYzrP4zdGbExjqGeQvEd9f
zeM8++BlHOTAUM+gNtA7J4ihnoFX55PLcoZ6BpNu59ZvZTjPbFclLopnqGfQ
GCc/kMjgfwHpDCjc
    "], {{{}, {}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84,
          85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 
         101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114,
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 
         143, 138, 134, 131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136,
          152, 146, 141, 153, 147, 154, 127, 50, 77, 70, 76, 64, 69, 75, 59, 
         63, 68, 74, 55, 58, 62, 67, 73, 52, 54, 57, 61, 66, 72, 49, 48, 47, 
         46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 
         29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 
         12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 51, 53, 56, 60, 65, 71, 
         1}}]]}, {}, {}}, {{}, {}, {}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJxF1Hs4lGkfB/DHqLDIiBBag5xPj3KYxuG+s/LQYi3WKuyO3rwpGSq1JTER
IXmdmxzHiOhESkeZW28bvbWiREnSQc6atcWweN95/5i7P+7rvr7X9Ty/33V/
//job4/xj6ARBFEsOf+/a1dqw96haABrFZSC5J2Q2t26m3NFewHb6z4n3JaF
RqMvZwztjwPoH3Juazw3orGms/mA8RvoPOyhrshhInq4goyV8DBgaGXmK/Ic
kY9cj7G4KAF0zg8b1NU7oOvuBam2rkmAmDbIzOqxR8WuYb7rVI4Bhn2RPzFu
h/ZknTt5+FAy4DdY6SXI2qHu6t1DqQ9TAL/pHthisQG1NYfryDimAsbTm948
uB75VXRFb8hKA3RlOOEaYYv2XBXvre87AYimScX5UyRS+z3Av3hzBuA+2uXm
5WmD/AQmPzjzMgE0XyWOzLdCWkdtTH3ksgDR1sjxvmWB9mdMNZ6LOQVgQ1z1
lmEztCPceNstYTbgP7Y0t7YzRbE6D6d0NXIA+nnBpjHEGM1F3WlhohzAFomG
TAXrkOedtoWTh3IBWjGVbvhvA8Suqlc7bpUHBhWSnF0nGOi7P5/d/LknD8Bt
NTufRH6LJlxWPd5+Kh+gUN7im0vaiC3KivZiFgBo12RpbquJypzeD3e/KQDI
wq1k4r4a4qcGdJ4uLARczSNRBsp0FG1PUA6gCHBrpt8Xmigg4sMDC6VZSVbh
GASUyaBQi12jaRdOA2L183ruzs/ClBeU/esAHiBqFS5tc+4Txh6Hn3Z/cwYQ
pluL9v01CEyLDjh2X5Nkr6KIn07MgDqYFvwupBgQj+TT/cxoUDTaMGyiWgKI
VrOr7ecUIG1Oc7nX7RLA7ddx1wikw74VZ3Iq95YCYkBj7V8MdXg0Puj8c90y
QHxI96y5rAlH0z6VXr5fBrh/8FbesNCBOnmCxZb4ckCMKjQ8+PIt1JLNmzi/
rgJAN/eNDlAf9u0r8erorwCDYK+5haUhvOqCwCNPPkBGCL5VMYJvPnfqry3j
g8HwiHz0zBhyLkzdzhTzAds6YYHTYgrfFZjrfPSpBLDkQIt9hjm8s6V7OL+y
ErA9eG9LvreEs//NjApbqARcWhtryc4aao38el39RwGANV1JQUs2sMDplmdN
vQAw1FiL3UsktNsecnHaPRYQGyrq3pWyUE9uVlIYVwAGY1Zcm04kYfquSO8B
xxggoqbUy5+y0KzzjPatSMm8+eRKRUDCpo8GH2R4AkBP6Tgy2EJCLedND/qy
OcBv5n1i/CQLpa+6MPIxVADYvgPF2nok9GjuvWKTJflfeQGNlJNwnSpHo7tK
ADofKgy9HCAhu9pKdiuLA7iEcvjIPAv5HU19shgkAA1bZ24YqJBwpUkjzyNN
AETsjuOT2SScOOK5OFYmAPwtRfP9HSQMrcm3uVsn+T6d5dQ7RcJlfVX6WnQO
IHbGulTIOKFrjdNuCoECwP2lcMpYjoT7QvWU/FMkuX1ppSiNhH5XmmJniiX9
yLdcGnhAQvSKqGqvkcyLrEt+8ZGE4ljj5isXJftChCt7ZkgY9HmgYXY+GtBd
DtbML3NC//SpW8j2l8y7NKJmJit53+zz33uPSfrpNfnlz2QS0rz3mCeckeQf
d+W+uSfZf/BGqG+1pI+sI+TLdyQ8r/j6gOMFyb7g8sqeaUlfPTE0y8uSfnrL
kp/Pk1DqWc7fXN/CGib2TP6eA5UT7og9q61++F6bcMCeiXvj+mhNdtizSIen
zhExG7BnbA/VBVnl9dizyIzkJbNWEnsGh4X+pxqssWeksLU1aNQCe9YwUuV7
8gcz7BlcHV40Hm+MPePK66W/fWaIPWNkzPKbHfWxZ+zrE5oioe5Xz4QhSSF7
NL961s7RWM9XxZ4R5+37G7vksGfcbYxY743zQqlnhF+i0U6LNqHUM+5itOXp
uWkg9Yz4MrN7847lUOoZd+njVGQuHUo9Y1d08rmrNKDUM2Iki9aiqgulnuV8
MmTZvGRAqWdc2ssbz8sNodSznNUlgU1njaHUs8HV9AoUbwalnrHrj11czLWE
Us/89o2P+1bYQKln7Gyxm66rLZR6Vtv2Kqrvj/VQ6lnw5NgX9812UOoZLz+e
iL9hjz2LPdow0fS9I/bsUFjXe9825lfPrqm9/VcEC3sWa5c2pzjuhD0jl+sE
xEe5YM8OdTo3x6kA7JnS2TVhZj4Qe9ZffbBfuG4T9uxiqm2R3vwm7Nkyx2Dd
1ntu2LO4m//haZV/hz27b5NyuWKPO/bsbM7L3EfMzdgz+cGu/i1aHtgzdLvA
qG3MA3sW/OVJyzcvKOwZQ9k113YZE3vm/qpauCacwp4FX59dHfUTE3vW2bBi
oN+Iwp6JxcqsxFIKeybvHahNS2Riz5ROZRv6yFPYM3rlVVpbIoU9E7XO7Ae3
KewZXHCz9s5jYs9MideT6XMe2DOeYprhpxgKe5Zu+6gw7AKFPRsZC+sxfEhh
z9J/fdofW8rEnomXjJtNpj2wZ+onPA2OR1LYM3rmndOTVRT2TOnv1MArrRT2
bCFTwkgnhT1j0jevTalkYs9EjxPCfpvywJ7tCDV53bGDwp6J1Pu77fkU9uzz
kJaf+C6FPVN37w14/ZjCni3IKrT7dVPwf/A8iDo=
    "], {{{}, {}, {}, {}, {}, {}, 
      {RGBColor[0, 1, 0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[
        PolygonBox[{{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 
         11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 
         28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
         45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 
         68, 63, 59, 75, 69, 64, 76, 70, 77, 50, 127, 154, 147, 153, 141, 146,
          152, 136, 140, 145, 151, 132, 135, 139, 144, 150, 129, 131, 134, 
         138, 143, 149, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116,
          115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 
         102, 101, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 
         86, 85, 84, 83, 82, 81, 80, 79, 128, 130, 133, 137, 142, 148, 
         78}}]]}, {}, {}, {}}, {{}, {}, {}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,
         13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 
        30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 
        47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 
        59, 75, 69, 64, 76, 70, 77, 50}]}, 
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[{78, 148, 142, 137, 133, 130, 128, 79, 80, 81, 82, 83, 84, 85, 
        86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102,
         103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116,
         117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 149, 143, 138, 134,
         131, 129, 150, 144, 139, 135, 132, 151, 145, 140, 136, 152, 146, 141,
         153, 147, 154, 127}]}}}], GraphicsComplexBox[CompressedData["
1:eJwVkGlQUwcUhZ+4V2pZGgpGKyACCshi8DF1uVelEjZBcKGaaHApiwaCVCtW
NBiIGiLEgGwSDI814BjZXHAhdlikIqYDglLR1LAYBwEdSrAjbV9/3Llz5s7c
c85ntz8+7JAJQRDB9Py/Kxcuwt5BPgib7F/kJzHQ8r7q9qecBBDyXA9EjFmh
gX/9wmDiT0A0T41yUq3xXUNpFtj+DES72OfAPzZoFjl/hltTEuAi6myfgInB
c3scp3JOgVCRsjbTZAne9M1O89xwBoiz7/q3Jn2LBRu4Wx2+SgGdhSaBmmuL
R6QV6UknzoJtY/GL7k5b7C6LHUxrFwHRcGL3pfN22HYvkjmDTAPdX7M0A9vs
MfTq7/zVUjEQNoai5i+X4ZG6qQR13zlQJupLdC3L0LIlPKzg+wuAMs+ozIsO
GEo5hazLk4AuyGD51G85Wie7OwfPlQLPfLZVkbkjJl4Yra2IvwgENelS2euI
ByMdd99pygAMDFH5yZxQwGwfXWwlA2EMN+xohDN+Onz3gY9GBsQuhZpluQLZ
d9s+p5+4BMqYxJen+1cgr0RtmeomB524yn5O6Urc/KHr9q4eOSg7fdNXcF1w
ZL1Fx/6LWYDaapV2uSvyxqV8f59sUPI2ulv96YqKtfrh7tfZIBTNiVDkuaEy
LVybe/ky6CB3Y+m+Vcj3JvzWQA5oHtZ1Btu4IzHQ6mJqzAHer5teJr5xR45L
jEFcnQtChoXv+3APFD338+4Pz4NQucRsQu2BglQci/0iHzy0/na3LD3ROecY
2V2fD8r6jIedAk9UoTjizZ4CMMu01M/r8MRxw41hJ/MrMC5q3Tu9ygtNPn0z
27+R1pl5x9npXtg3J19WnFAIgsbhHUFjXph8cmfVs8UK4AVmDVUErUaDeKzw
erMCNNQCvWPlamTKqekHJ4voPA7NnAUstJ4pH6lyuArCZUzOSBQL+45e8e98
eRWU8olAzw4W1q3XwGO2EsbPKV3yV3nj6wmt3RKFEoTw6glH4o1x1aONkikl
COKH9F3vvfFN9krmUHAx8N7XPKoIWIN3A7qHs4qLQWvsaFCWrUHjv5LD3M/F
oAmu2hw4j0Trt/tufr2NAsEBXfb2gyRmr73DLlfTeptkcN5jEln791z76CsA
Qv1bczLLCnsuSc9whRSE7uBMqHNJPB8THfSKjAehUj9l2stA47rJRXeiKdBS
p+Qmp0lsGLIfmJFHgVBa2cipof3WbWzty4gDHBPXhVcy8LxF9dshDgVEuXOF
SwKJW+711rhLKZCFfIwVl5LoYB5n1V1CgZlbqt7rAYm8MreZP3wXB8Lnk88n
ZQwMTU57Or2TAuU+vb0mlsSFTrV5W8QUYKGIxSwiceQX9vQ7BQW8vR+62m6R
yCnPcr+vokBXGGlQNJM4q6/EztosDjT8Bi47jYH1tR83zd9O56VsuJIoEo9y
lpqGiWjNqLg8WEBiaE2DYLKAAluNiC2vJ1HzB1HyqJy+i1VR0Q9JnBI43qu5
RoFH6rXorjYSd068umH8mw/E5pzFCWcY+GOw6nNGGM13IiBp7BDdz/ispTeF
5pUc0hKQT6JJ0JGVp/Jpvn36FGMt7X/8FmdrGf1fNFD2pInEqgX9x8hq2r9h
u8qnlebVE2/iep0CjWmMU1w7if8BPWs7DA==
    "], {{}, {}, 
     {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
       13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
        31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 
       48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 59, 75,
        69, 64, 76, 70, 77, 50}]}}], {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{387., Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None, 
    "AxesInFront" -> True},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[5, 137]}, {0., 42.563110161269435`}}, {{0.0072992700729927005`,
     0.0364963503649635}, {0., 42.563110161269435`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, {3.646992528913074*^9, 
   3.646992545849931*^9}, {3.64699274796657*^9, 3.646992776255843*^9}, 
   3.646992822360291*^9, {3.646992898389032*^9, 3.64699293263308*^9}, {
   3.647143412953412*^9, 3.647143422149975*^9}, 3.6471437447538*^9, 
   3.647153747151428*^9}],

Cell["\<\
Nbaryon -> Gray
Ks -> Red
\[CapitalXi]c -> Blue
Dmes -> Green
\[CapitalSigma] -> Purple
\[CapitalXi]j=3/2 -> Dashed
\[Rho] -> {Dashed, Red}
B -> {Dashed, Blue}\
\>", "Text",
 CellChangeTimes->{{3.646981679971199*^9, 3.646981747353818*^9}, {
  3.646993436345579*^9, 3.6469934379553843`*^9}}],

Cell[BoxData[{
 StyleBox["TODO",
  FontWeight->"Bold"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"units", " ", "of", " ", "charge"}], "-", "Jackson"}], ",", 
   RowBox[{"try", " ", "universal", " ", "fit", " ", "values"}], ",", 
   RowBox[{"more", "?"}]}],
  FontWeight->"Bold"]}], "Text",
 CellChangeTimes->{{3.646901592114575*^9, 3.646901612598467*^9}, {
  3.646901717460721*^9, 3.646901733991518*^9}, {3.6469025578557243`*^9, 
  3.6469025603696613`*^9}, {3.646902991834437*^9, 3.646902998262576*^9}, {
  3.646909724054406*^9, 3.646909725151971*^9}, {3.646913421070413*^9, 
  3.646913421209238*^9}, {3.6469156357926292`*^9, 3.64691564949657*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["universal fit new intercept effect", "Chapter",
 CellChangeTimes->{{3.646779808572959*^9, 3.646779836769912*^9}, {
  3.6469313325908966`*^9, 3.6469313549702573`*^9}, {3.6471661215824423`*^9, 
  3.647166132671138*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "mass", " ", "of", " ", "the", " ", "Ksp", " ", "is", " ", 
    "the", " ", "hadroproduced", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaonp", "\[Rule]", " ", "493.6"}], " ", ",", " ", 
       RowBox[{"Kaon0", "\[Rule]", " ", "497.6"}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "938.272"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "939.5653"}], ",", 
       RowBox[{"Ksp", "\[Rule]", "891.66"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", " ", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "2286.46"}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1896.61"}], "  ", ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "139.57"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", "134.97"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "2452.9"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "2453.74"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "1531.8"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "1535"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "775.26"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "775.26"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "5279.58"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "5279.26"}]}], " ", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m1", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "ms"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mb"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mu"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Spin", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        FractionBox["1", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        FractionBox["3", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["3", "2"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Kaon", "\[Rule]", "  ", "0.57"}], ",", 
       RowBox[{"Ksp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bp", "\[Rule]", 
        FractionBox["2", "9"]}]}], " ", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "0.884"}], ",", " ", 
       RowBox[{"proton", "\[Rule]", " ", "0.949"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "0.949"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "0.95"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"Dp", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Dn", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0.884"}], " ", ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", "0.95"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.884"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.884"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0.884"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0.884"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", " ", "0.5"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "0.5"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        RowBox[{"-", "0.32"}]}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        RowBox[{"-", "0.13"}]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        RowBox[{"-", "0.36"}]}], " ", ",", 
       RowBox[{"Dp", "\[Rule]", 
        RowBox[{"-", "0.19"}]}], ",", 
       RowBox[{"Dn", "\[Rule]", 
        RowBox[{"-", "0.19"}]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        RowBox[{"-", "0.12"}]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", "0.12"}]}], 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"\[CapitalSigma]cn", "\[Rule]"}], ",", 
         RowBox[{"\[CapitalSigma]cp", "\[Rule]"}]}], "*)"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.27"}], ",", 
       RowBox[{"\[CapitalXi]2n", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], " ", ",", 
       RowBox[{"\[CapitalXi]2m", "\[Rule]", 
        RowBox[{"-", "0.04"}]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.52"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.52"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", 
        RowBox[{"-", "5.7"}]}]}], "|>"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}, {
  3.6469313848637843`*^9, 3.646931386542401*^9}}],

Cell["\<\
The energy not due to end points is actually (now letting the charge be \
arbitrary)\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771928577896*^9, 
  3.646771937756853*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{
    SqrtBox[
     RowBox[{"2", "\[Pi]"}]], 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"csq", " ", 
        RowBox[{"Q", "[", "key", "]"}]}], "-", 
       RowBox[{"a", "[", "key", "]"}]}], 
      RowBox[{
       RowBox[{"\[Alpha]", "[", "key", "]"}], " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]]}]]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{" ", 
       RowBox[{"2", "\[Pi]", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]], 
     RowBox[{"L", "[", 
      RowBox[{"key", ",", "csq"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"csq", " ", 
       RowBox[{"Q", "[", "key", "]"}]}], "-", 
      RowBox[{"a", "[", "key", "]"}]}], 
     RowBox[{"L", "[", 
      RowBox[{"key", ",", "csq"}], "]"}]]}]}], 
  RowBox[{"(*", 
   RowBox[{"+", 
    SqrtBox[
     FractionBox[
      RowBox[{
       RowBox[{"Spin", "[", "key", "]"}], "-", 
       RowBox[{"a", "[", "key", "]"}]}], 
      RowBox[{
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]], " ", 
       RowBox[{"\[Alpha]", "[", "key", "]"}]}]]]}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TotM", "[", 
    RowBox[{"key_", ",", "csq_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{"key", ",", "csq"}], "]"}], "+", 
    RowBox[{"m1", "[", "key", "]"}], "+", 
    RowBox[{"m2", "[", "key", "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, 
   3.647107852952241*^9, {3.647108911976357*^9, 3.647108922180167*^9}, {
   3.6471536746757298`*^9, 3.647153677939547*^9}, {3.6471662688443413`*^9, 
   3.6471663590330667`*^9}, {3.6471664206207867`*^9, 3.647166442907484*^9}}],

Cell["\<\
Now plot the energy differences due to charge and string tension, minus the \
difference in the actual experimental mass. This should give the mass \
difference in the end points needed to explain the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771892161929*^9, 
  3.646771922570491*^9}, {3.646771955659872*^9, 3.6467720195600758`*^9}, {
  3.6467746398636637`*^9, 3.6467747120583687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "\[IndentingNewLine]", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["1", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ks", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
      RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Ksn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Ksp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]c", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dmes", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "Dn", "]"}], "-", 
       RowBox[{"Mass", "[", "Dp", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"Dp", ",", "csq"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["0.5", "137"], ",", 
        FractionBox["10", "137"]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[CapitalSigma]c", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}], "-", 
        RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cp", ",", "csq"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", 
         FractionBox["0.5", "137"], ",", 
         FractionBox["10", "137"]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]2m", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]2n", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2m", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2n", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Bn", "]"}], "-", 
      RowBox[{"Mass", "[", "Bp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Bn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Bp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "Ks", ",", "\[CapitalXi]c", ",", "Dmes", ",", 
   RowBox[{"(*", 
    RowBox[{"\[CapitalSigma]c", ","}], "*)"}], "\[CapitalSigma]", ",", 
   "\[Rho]", ",", "\[CapitalXi]2", ",", "B"}], "]"}]}], "Input",
 CellChangeTimes->{{3.646771950731372*^9, 3.646771952079427*^9}, {
   3.646773446750395*^9, 3.646773527162901*^9}, {3.6467739499050417`*^9, 
   3.6467740871374083`*^9}, {3.64677412262253*^9, 3.646774187884631*^9}, {
   3.646774249796054*^9, 3.64677431049582*^9}, {3.6467744799045258`*^9, 
   3.6467745123336573`*^9}, {3.646774736765486*^9, 3.6467747673780117`*^9}, {
   3.64677480806011*^9, 3.646774905078524*^9}, {3.6468054195661592`*^9, 
   3.6468054612143517`*^9}, {3.646806278805697*^9, 3.646806299819624*^9}, 
   3.6468063302471447`*^9, {3.646904373022484*^9, 3.646904418235331*^9}, {
   3.646904481152533*^9, 3.646904485287752*^9}, {3.646906424813212*^9, 
   3.646906474872012*^9}, {3.6469067567808332`*^9, 3.6469067664148483`*^9}, {
   3.646907516192577*^9, 3.64690752320674*^9}, 3.6469075735789843`*^9, {
   3.646908658506624*^9, 3.646908658933872*^9}, {3.646912738500119*^9, 
   3.646912824595537*^9}, {3.646912870978058*^9, 3.646912884420073*^9}, {
   3.646915424828039*^9, 3.646915448856234*^9}, {3.646973251487301*^9, 
   3.6469732584090242`*^9}, {3.646974597814584*^9, 3.6469746041105127`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3s0lAkYxj/TRTGrXJvoQmZNhSRmvrbkfdstRpuITrUbdtguwmjo6LbU
14aoSTWkyJTbyBjNDZUGTed0s9my5ZYSWxJSyqZhj9ndb/94z3ue81zO+TlF
7QnZwSAIIpC+/3+5hT22v0kBwvuSfKTXHDd/fqk2/E3raXuZWz6Z4+TOEifW
zMNAxCXH6YzmKJC5T/phBa2t3dmpdkxk+ay+15lF6/CpibZ8Jmbsjl7/kjwC
xID0OKlgonfUtsqRNRQQZpn5BxO+Qut6+Y3x3KNArD0jGDVa4IBQmflmbypQ
PzOH6twscbCmNBscjwMlMX88VG+FMyOnm7jfygTiIf8vjr8NBpq2uYzlioHy
s1Nf+mSL19bkpHn6ngYqMuBwxpFZmO8bvoE94ywQ0UFZ8iWzMU585eTBAxIg
IpsFLa322CKLeZPWmA3Uo4l7+wVz8H5dpIMJeQ6oaMmsQOY8DL78h9BLnAtU
lKRJenE+xlWNJag6zwOV3DFy+KwjWt8NDclfmwe4Thd+d4cTBhdzgnwu5AM1
LFrQ5LoAWSkeCwNNC0BvvMPexXDGvZkftFf2SIHIiJg7vdUZt0e6/Fh76xLo
lf7O8XlsFDk0fphjVwjo4/lge/zXOB6ra1iuLwTqwW/P53NdkK+7P3HyQBEQ
HKuEGCYHBSUq61T3YsCmcKf6bg5+9+npjS1ttHbuGG4rXYhDq6yaok6VAJqW
ylIOLULBR7EwYHkp6PP/6RhavRilK1+/bekuBfzo0bdziisWpoU2nz8nA/Qq
2hT7zBWFXMKfB2WAd3zbV1x2Q6L3nivTUAZUxDflkiR3DHPdPZCuuAIUwSn4
7L8Ej3X4c7tCy0Gv2uHHZnqgKBWHY8zkgLuSNM96PHBhbhLZUi0HgY3KVhW6
FOWYvvXVtgpwNFPWGaqX4scB9VuOpQJ64vmmv87zRMb4rCkBNxVA3Vw0b5Ty
xM6peWeKEiqBWBnaUv7OE1MOba5onXMVBDobhl/QMhxIHy5Q3rkKjrFXnQfV
y9BBUmxsOKQEzNbKf7f3QtYkyVAFWwX68W2DF1O8sDPxYsCjFyqgVteKy/u9
sGqVHh7y1VA4rbtRt9Ebuz83O82VqgHfBZrpqrwxXvHh5okxNTgmjwkNc7n4
KmexQ1+gBnq6Xic7HuWibl3L2+wiDeinnNm38RUXDf+eiA2f0EBhwPWIhu95
yOr/6ZrNRi30GJ8tma3k4c5A+URWiBaoxNGgZhUPq7Uj307fpAVCqhAd1/Aw
OCXtsXEznbftV49W8zDDStHfF6YF1BS5PdHx0ODzxb42WguFESzLk408bDsr
PhJOaUFgYp810ctDtqH1bvtROv/+VHFVHw8Tw+YzQ45pwbGy4FpMPw8tONoL
ful0X3aiq+MdD/3q2jUeYjpfWu5SM8LDmr4FvSYX6HzBe5mQIJGxPm5xch7t
s2dUsxkkBmtqRF/yaT/r4e3nk0gc+oVvHJTSPGa2LwJMSWRbxtu1lNB+w6C5
iwWJifuuh22Q0XzC13ZdM0jUPydKHpTRfJP3O+VYkhhWlu1RL6f7I/Fchi2J
FeZdSaRCC/p1T31r7UgcE7nUaSrpvdNP/EUsEv3a9jDclDTv7bhgjj2JOStr
+WUqeu/Poq0vHUj8DzdXLN8=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkXlQUwcQh5/W0gLSUqkvlKBEKKB4kQQIAWEXCnKIqKCAIpp6i4EERSGW
4IsWQcHIoVwiBhICCEbyPECOmvFEpeDVQauVaEGwWtCMQTyqjX/s7HwzO7vf
7G/aGlHU+vEEQSw01efO8khX9w4kAdW6lD2yhcSpekZ6yqRkoFbNCT+aSiIz
rznMEkz8pnr1AimJZP/oC//SZCB8EqhaOYkTD23nqsNFQC1hlK3WkvhBwhe0
xoqBWNbo2jNK4uB9r39z2lOA+k5zrkHGwN/K2F+57E0FSk6fWlFii39Qvpyk
gp2mfRz7gFd2SDZXKSczKaCKOsDSaQpuIqOdw/p2A8HbcL08zAFF9XLHPX1Z
gIb4+IgeFhbDtUPpjTlAMAceXByYhlvN5btTz+QCMbd1U5KNE772pQaDmuSg
Yz/9Ot33R+xqaREMteUD1p41yhY5Y3rSjlytXyEg54y6eacLnlaeEt+rKQJd
xGy7lwWuGCTPLnhmdhjw1lhevnI6agpZL//LKgbdD/mnYrpmYJ0t31z8vASI
wL9tXB67YUYLKRhILgPCO2UWaTULVRNzDUHPy0F3o7dJyJ2NK59kwvjICtCh
3fvbwXNw+Bbv+oXuo4B5qYPRorlo/ZP428eex0CQ8dfbbYHuaDboFSZLUAAR
hg8777njCTPZ9Gz7KtB97yWMErLRftBioK27CiiF49UhIxslS9PQcLAaqItr
P5rlcrByt5MkNkgJrLsWdVySiy8sjvSwjUog1OGRpZVcdGUZL1mdUYGeWfFc
xvFAt1F5ie2mGiB6kydJ2z2QudzS3NlNDYpVAT3vlniiJxldqh5Sg75e1Hmy
3xMZh/6cEFteCzojUyhJ8sKnlUHW5vF1oL/4quPCOB5KE4fHnn1TDwpGwlLH
PB7656/9BOfrgRJL4tttvPFFYJuqJPM4KK7+HnhH7Y1rzka5TmU3mPLoE37h
zscrZ7tC1YYGIJbgDM0lPhrS9oYk1DaC4qZHx7ZFPhhSZLluX9wJYIXPZWzv
9cF9vtscmm01gBUaGE70xSKVXYtNl+Zzftys176YW64aSZGfBL0VX1uwbx7G
GjOqq12aQD9d6Hef6Ydd0qttyl1NgA/HCgNUftgcsUflrG8CykbYYO/tj2Yf
Hr3399ECbuVNtrvgj4lxrCeFhVqgZIzKZWGAwe9vl2w0aEEhK5437iHgr5nO
7XcW0GC9M3LCZg5if1aM2dqFNIirrm8p5yIGH8hebIikQXfw7u0bHohmFc/6
raNoEHQWHJvDQ8w5d8IqMo4G4pGWa9LHA689V3euMzFn//xdwYjFifPHd0hp
uMmvIw/HIY6mpEVE7DLd69SLrixHjJXUFT+gaGiKre18swLRNsdi5rs9JpY9
Sl+RgHikpjuat5+Glx7GOw5rEBX6mBptMQ0szeXU41sQiaHsESylId+t78oD
IeLPIy38m2U0LL6819YqGdHxo133cIXJJ4FqFYkRVcy+0ZlKGjB0yluP7YgT
nKwD2lQm/qc2ZMMOxPVuAbnhapPfOd3hkjREF77SYXM9DVR/hfs7CWI23t08
dpwGRZBAOvMXxKGQL09nN9Lgfl97bWUGYugir4+kxvQ/ZcFkuRSxPmZjqPqk
ab7mk+B8JuL/ANInuQ==
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVj3001HkUxn+1LaEmw2nMaWxNLFpqMzLE9+ReNZI2atmY2l4oksrLVFt0
yA9NM1KTKG+pMGOkGEzyNr3Y1G5rpdZup7Bpsgmb2DPJFtL+9o977vmce57n
Ps/CHbGBEdMpivJn5v/Nd41XP+mLBtrT2uJBIBvn663iJRYxQAezLFdtZiPv
ZL2fGTCcrWE3hrGR83JsyCsvBqjsD8alcWycdfaHZeq1sUBtaHqaqGDjZIJH
aFNIHNCpQ6aLW9nY3+n2Rn5DArTUWyv3tsBb+QJj++MHgf6RxyLOlviYJi7R
Z44AlVWsLxPORU59sXIujwZasf+ckmuFuzlBdn7PU4He9dF3moGLseUKm7Tn
UkavW7Tx7TzMgV/OxlfIgT6QP44d1rjfRJF68HoG0+fEM17nfBwldL+oWgHo
t9/FaS8f2xoaQgd0mYDD243zxQsxPvpQRs2KLGjuWz9zfJMN1iqvxT0tzQbq
4b7RJWttUaSQnRk0Ogf05pZdOcIvUZPF/+ejNAdoy8m2N652eJnrYRL3Oheo
bie5ta09JjZwQvti8oFOv37bzc4BVbMyDKLXBYDTROJjNotwS+9RmB5QCNiZ
3FzJ+gqHf3NvvdN+Aaiwm+G3WI5ovipuzgvhJcC7QtvKj45o1O/ml7K1CPAJ
qUqmFmOlUcoimXUxULUJmbKpxWjdb9qna2c4RjMheb0EE747jIbTJYCavZ/I
0Nd4MdU2IUSkBPSy7fi7eykOmZ5/KHinBPrfhXeidjqjA//d3dnXVUC9ONbz
a68zOo4pcrm7S0G/+0JaySYB8jaZmdg5qgEbJyCiS4BCTlCeekANFOvxtrti
F7Q62zUjpKAMaHnT0oJ2F3x1UWRu8v1l0J9nm20OWIZJe4bfD7LKgZ+Wdu3M
vWXolbnzE9xmOKVkNNLTFYdW6lS5R68Af0gmsm90xR11gQ7zBVcBX7Uc3LZU
iD/Vta1RG64CX1xskVQlRMPh475byyoAN64u5zi4oW+2WXi6uBKoGS231xe6
YTo5sKCeqwEqd4d/NM8ds1XzGizbNKCfYvUaZ7ljRoFqRKKogiKzyQ1Si+UY
8i6xpMS+GtDpZn1x5nJsS/pZp0yuhqKaPLLCyAPr16Wp7PTVwJ86ealR6oFG
kz0TXp41QK/sENRNeuAeMb83K6sGilr39QRJPNFnoiM30lADfG56yqMRTzx2
1O7G799oofl9WdDDCIIvpcFGO/21QG95y++JJOhzSrbBEKCF0MeFb4aiCBoV
Dr40D2R4jqnUNIagvLFydoBYC/we/wqfQwRPjQq33w9n9BWJf+qOE8zZs3r6
zSQt6H2kLWVlBMckh9etS2buq3MT68oJhiRczummGb5gLLx3lSBXbuo0nqYF
KuQzVW8VwfOl7UHuJ5h8zpFHvmggWKQPLq3JYf6Jemdm3ydIDchGME8LeKmr
vriVYNhIg8ejfEYvEeyqbiNoMzWvfbiQ0aeMNz94RFDFez7mpGTynx6PmdlJ
cIatubdOxXDXK65VN8EIR++Mter/8wvu2D0jaO+hXBBVzvgP91qsekFQhn9E
vb/C+IX5NX37F8EB389rZRVMv3BWWGgfwTXr3aY4GibfB4FxbD/B8uDINeoq
LRTxayuSBgn+B0oyKmg=
      "]]}}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVjn081Accx0/dbh6q3ZTLYlx5iJ5GdcqJ75dODof7UWilHFJazikVebrc
dJqHPNSRJHLOQx5/JUyrX7ZGe5mertVqy60RRdzuFelxsz/er8/r/dfnvTgi
LnDXLBqN5jfD/8tem6h6MBQL2twb77bou1AWmoWJ8cZioDxkzaDnQpnltHsb
gRg0FX8H2b/lUqzBqTG3EjEwNXLx+1EuNefkwTUqnzhwMIHRyltc6n2Sc/j3
IRKoiI/Ve6HgUsO/O73MuhIPEvl4idiGS1097fip7bEEkC6I4nh7OFP3pS6r
YwuOQIuyfot28zqK1V5ZZWImBS17B4cr51B7WEE23gMZ0NL4aG7+9TVUXF3e
EtlAJgidbL/2VTtSCrh5MrEhCzRfHSl/wHCg9hvkZSS0ZYOmmL6BabWCeuUi
Hea15EH4oZ6INXw7qq+jI3ykKx+oq4GGYY3WVGLsoexW10II7xREW3SzqUtV
FyUPq4uAtqKMvnLVIoqXJy94zjgFtLrK2IhpY6qpkK39kKkAqZ36ShsyqFpT
ZwPJaDHQnvzo1SEYv5bSwQofEp8GGj2RH9WtBeWcbB1vtBSk1geNS1j6uP1p
GszyLwOqmp5zN3I+jt9Z90t3/9mZv0pLkcgMmRsln/3FOQca130f7MWLkTHs
5H00rAJooDa+nWaDjYyjdnLzSkBFT/SNdHs0HzYc6uqfcVG+80u3lZi0+TDq
TpwHiXdg2fw6ByzPsEoK4VWBhm+VdqFgNY4ZnrnlOFkFknkvfFftX4tL2ZM/
zW1TgsPYudmOqU64bCqv2HRPNbTMOdX9Ino9mm01MrBZpgLqD/cieTIXOayg
EtWIChxO6L4IzNqAC08+ooeU1oBwx71/jh9ww2flPKbBtlpgB/AdWJ6IqXvH
p5/PqwOJhVFNDrijW37kv3CtDtZfe2j/muOBYx5dyuK0euD/6Rwd5rERIy4H
LrVwvAC9U6nkdVce/ny5j6/SXYD8jHnl2wM8UXf4mFdYTQMwe7JangZsQq8i
o6jjoY1Q+4xpHS7wwuMuByzbTZtgulKvPXInH4uUizrm9zWBfpy+dKnIG7NL
lRPxec1gSld/vJjkgyGTKefP27aA8GxNWHSeL/al9nRVpc+4/4r19QUCbBfI
lDaaFmBbmtw0bvBDxvsn79y4rXA72Yj7+pI/7g1lPy0sbIU91rLg3zoD0PPd
3eLdulZQ5wxt//IbIX6bZnPlni8J6ok7pQlaIQ5mBjMi/UgwT76bcFMnRM9c
uVDnTwK9u32bxaQQGWXPB5mBJKRoOcLeN0LM6myc6x9KQtljW7X5bAJzX3F2
9kaRIHxj5N1rQqBi76ZZP6SSsGHgkNbOhcCp+MMCQToJ+v9ejEl3JTAkqVbx
WEqCoFlPex8INM0yXP5WRgL6qK1kPALPVPcHrfuOBLu1qXZP/Ais0ARXtypI
kGoW1CjCCaSNyCewhISHmXq6lxEEiiY6nG+fJiFqeoGP5y4Cl3xc1D9eRsLg
47bFr2IIVJoNTC2vIiG0lxEXeIBAuhXTvUtJQokeYVV/kMBdy9yzfVQz/S6/
DuolEmjrXGUZU0cCzV90ojWFQDmqY6brSdg3lZxokE7giNcnl+QNJDi49YtF
RwnkBzh9ZDWRUJG7dX+njMC64N18VTMJPD9L2efHCPwPt2gvNw==
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVkHs01HkYh2dlpwxpaA1LB8llU+1SLk2zvC/mmyHJyW60Wy2h5LjMtBW2
aFIadmpW2JFLNZoxLrmMX8mUaFa22lYqW7oeplKIqFmkUu3sH+95z3M+5/Oe
57zzN6esjTOg0Wir9fP/tvdIU959lgT4OmWiON0CbbWWaQLzZKA9EB8bzbZA
m0PNQcagZ9uVnIB8C2T1T474Hk0G4VtpxEiNBZoU7lymDE4B2h/UXN9HFjid
zo46H8EHWqtVSZ8vCwfue73MuSAAmseNx9aGlthW7D7T+eAO0ATHJW+XWOEd
IWdp0pFfAJttFw732yCruVxuYSMEjfE5IcvADuNZ4U5BfVmgSdxUnjlzPqZU
Sxz292UDTWATqqp3QCn8VZhWmwMamHsgjO2I240kWTuaxKAN2btB1u+E4xzh
AFclAXtJwsFrIhfsVKujBlvyQMYO4qeZLsS0pF3iRp98kJW9393R5Ipn5Kf5
9yoKQNYj+foELkauRHRkiP47aKauGyRcWoL1+favPmRLQfYij9e+5RussmIb
8YeLgN/gKO7d5YZ71KyoZ8nFoL2o7ioNdkeFiVjHHS4BpilXssZ6KW54kgkG
oWVAK88Q9j5ciqO3vK+1dx0DmdFlu4q6ZcgM4M957HkChKtyTUIEHkgf8Ara
t1EGYa+TGI7EE+vo+74SzSuHsL9DS9984YXzBhjPWrrKIcrsrXlTjxemf5eK
ut9OQhTD83xplTcez1qQHsGVQ5jDYW9B4nIcYZTecJ+QA7O7wCVkMRtd7Cc6
ZjcpwO1pRwdvmo2uk5Iiq/gKoG295unTtgJt1hsbObkqQeN/32V1Hgc9WeFH
lYNKiOrxc4ne9C1aFj4wjCipBI3oyMROWx98fpzLNPqxClSV3UPHR30wI2F0
asi0GtDVfNV1lS/65sV8govV4FbTMzkrBXDEv0VRlFkDWmfl0ypbxM1n17rY
up8CdR/ldTsT8fLZTp5SdwrcvvTgzBhA1KUeDNxYWQuqruk4Ds8PAwuMY3Mj
60BLUsP3VPphLudnu2aresgbDypsNfXHAoW1em5nPeSc5xqbpPijuEQxJpA0
wE0XM7PIu/4YMbHn5ElnFajW3/Kp9QnAzowrLfK9el6urjc7FoDNIfsVTloV
qLc0xQgMuUif7n3vu6IRrBK6t/fHcjEh0v5Jfn4j8GKD7sRc4iJ53120VafP
/Vb+8GAhwQOZThf+WUWBWy8xjM8l2J+9jh6zmoL46EMSczFBclgUpgulQJ14
zrL1EEF62VA/cy0FPHLF2TyPYM65utmhkRTIHE97X5ASPDzu+dPVWAqmrt52
ZCoIShNWGrRmUKAxyF3c3EZwUpAaErKXAubdMwXRGoIR6VXSh0IK+FlX3xq3
E7TKYSx6t1/vk1vZHvUnwdKKrnDvXynA3SSQ0UlQpl1X0Sil4B6LMW/jfYK0
QdEYHqUgLVAtmPmQYPSYmn2zWM+ToZcbHxF0+GjdNVpGQd47z0S6lqDCpm9y
kZwCWttwTcNzgoYLmH4tCgrCZvW9WT9IMM7VTxyspEDo2BJg+IKgM1tut61a
f+/DknuRLwmK8Pa2qRq9340O+xljBAcDPz8jqtX/p4wbX/eKIG+N10dWvZ75
dfUROoLV67bylA36/vef/v1snOB/K1ItOg==
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVUGlQkwcQ/UwRihFNtQYGUFJoRDk6ghCMILuB5BMU0QYKeEdFUVQOL4JK
jCAEjCCHEEVrgwmRcPMpkBYlqB0tmIK1VUtrJVAsUKgHFepRoV9/7Oy82ffe
vt1PtiaKtzMIglhF1/+d4yPVPXq6F4jx+oCOh1NwntlWmjwrAQibW8adL6eg
w6nmUCbQuPtIiNV0BrL7x0cCz9JY0xcvFDBw+pmDi3UrEoH47dTfrVUM/DeV
L/kmOgkI28KPG+Uf4EA376/sa8lApH+uKnebiq3nvKzmZx0A4nefOpXsQ3wg
9/feW3AYiAez7Oc2zUR2c5lmjoMc5MYezl3+bNzJjuCG9qQDIRW8aVewMVGf
55zRkwlE/wImNdceS6D9jLQ6G+QeVpUnD83FfdZ56QcalYDFdY1VSg6+8pcP
COvzgGgsi2yKcEaTwSAZbMmHNhkV4PPeBaV7DykblhWCnGHacKWDi1c1V5J+
Li8CYt+mUE2qKwrzFAVDlsUgF7ce8eYsxNpCzov3mSWAr13ndPzphhV2fOuk
YRW0BahXfF/igUcNbMnThHN0nuz7T3Z8htrpylHhcCmYbwQcCrVdhBv6ZMAI
vwASt5ZTD4cX4bMf/Dpudn4J6tijlQn3vZAVnDSz1/craGt/lWjQe6PlAC/0
+EY1ENFfbGIVLcYay+MLFI5lIM/pXciX+qDjwLSnLZ1loO7i6lnhvpgamYKj
py8Bh+cd99aXhxfTXVKjhRr6n7zNBTP8cGTa+S6vMQ2YK8WC8T4/dOWMfWvT
qAX1lQWHk9uXoNt4nspuZzlIDnB7S9R8dFjLtOa66UBeAxMPcpaiLzvirG5Q
B23rN3T3J/ij7ZlfLKJLL4N5f4euVBiAf1wUsqzXVwAqenITPJZhWvyz10Mz
9EDEMdsHLAIxMH/bJBj1oN7tleXZHYgjQS1alawSCInnjWIj4NYmses8ryrI
9xybWL0S8XaTKUQ3WgXmrnXug0bE0ZSs5RsvV8OLvuC0ex4CXF7EjM2JqYG2
S/PrL6oEmOO/36nZrhaSHG9COjMIi7T2htmmWmgTyxdfTQlCZan2eXJeHdS3
5se/HwnC6LGjl2gpEL3UCU9JMJrS7rRojtWDxLfUtfJuMDaHZWi55npgbf4o
E1GIlv8+eRe4tAGIXLs05xohxsdw+goLaew4eWTIVoSid/dVcaMNIGHPqDYp
RXhCxr3240oKWOTt/Df/iLA/M8py2yoKUFJQ/fgNzc9VrBkNp0Ats203vhOh
5YWhfpaYghf9kRZZkyLM/rrGJjyGgqR5xRmzrEjMfeW7+btYCtqOe5W7s0ks
iScZ19Nov5fMg5t8SBxPTgkLO0YBJ1ZUIeCRGJ1aUfKrnPY3Ln386RIS7bKn
ub/NoCA/bC057E/i+fLOCL+TdL6sHS7SYBLV5qjyhhLav+kOUSgmkRhUPMez
FJitb8HBSBK3PDfw752j582Hj8VEkeg8Yd/57AK9H52mOK0jUevQM+6uoWCR
aZlN9RYSLVxYghYt7X/dUXx6G4nb3QTKFTpaLzCo9m0ncT5f47RLT+dx4XL5
u0hU4E+7XldScC9vfI/jbhIHl0+9qqim+ZUnGif3kBiymjfBrqXvk3VN9CWQ
qI+KC9HVUbCG9SjkdhKJ/wGUGyWi
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlQk1cQAPAn2GhEEbUmXJoYSMiHtQUqUMqU/UREsEIRlcujyFGPEQkU
JbEcAasgSFRALsGLEEW5q4Jgm53aadHBYFtRLFrEYgiHQiNSvPv8483Ob3bf
vjc7uygqPjjWhBASQM/7KFwq19x9HAdkulHS5GLKLnzIlyfM3QVEn1MvZkxZ
m0PN/mZAPbTBo1RgyvL6J0a8SqgjNEHKmabszMLdn2pWxQNpuJ8XqDdhXys8
IltDZUDGb3oPl5qwA/fcnmRfTQBifqVIPMWE/anUeZrkQBKQiSh9RSdhu5Se
LnFH9wJht3+cmPgaeM2nK+fbKIEEiRTlFf/BNt5asX9vJpAx+z1OfUaIr1aJ
9vXuByLv2RyeMgxFcL1QXpMNJBsNEn0fJHJVmUmXcoFgov0aMx2MeyoHfBpU
QJT+0sWpl7QdLS2RhrYjQMg6p9aYbq08bk9u4xf5QCKTni3K1GsvVv4g664q
AGI4vIo/Z0zro8o6Osg5BuS2U39r+7i2Ll849mZ/EZCapV09+hfac5YeXNlw
MZB1xweZ2rfalBZe5ONdpXRe3N6JkSmonplr9BkuA2JbYS5JnoobH6WBSWA5
kDS7bFkXB5/+7n7jZ10FEPuhT/79hosWy2Wz+1xPAjkUk3O4www5A27+GZtO
AfF+4hcZa461nAxplu1pIBa3bInCAm0HZjxu01Ff6PHfUj0HFeuSWePhM/T/
74LCn83FE5l2ilCfSiDiuxjt8CGOzDje6fycmq9zDls/Hx2Ez3+ZdUkNpL/O
ta+ch44TqmLLbVV03jFDaTo+2oSbccWOGiAnrwXXW1mhK29ticZAvdlh9vXN
1sgv/GtqaNlZIMWxt17k2aD+hI8Fd8M5IGuOjLfescXUHU8nB82rgQi7Agq5
C9HrSPQ70FLzz24IdxPgiHebujjtPJBSgW+IlxCjLgc7LHS+ACRFYZV3R4i/
Xu7w0xipXeRzcr5bhMbkAys3na2h+6q4XzhfhCsLzGIOhtXS98Mnj9WI8KDn
t4JmyzpQTltqtTHIDgvU1i3zOqgFsMR50A5zy9SjCap6UN5/EH5DZY+hz1PO
nJE0gNL4LiPcWYwdqb+1VaZTp0Rcm2wXY/PqfWrxQ+qXw5MRcRLkvP77ldfn
jaCc1fngJscBd4QJH+XnNwJZsHPIvcIBV7z6o3irkTpsdmc0K8Xv08RX//yy
CZTqmvTT3VLs3x/CiQ6gFuu8/HukuCIvK8gY2ATEt+DN2AMpcsoH+y2CqaOn
72X/kWL2ldpZgWHUohO7ep9IMW/c9ev2GHp/ntx3gSmDRTt8TX5MpeYNNpQs
YXAiIXn16nRaH5wewzoxGKo4V9SjpPa8wje4MGiZPWPxy33UPMtU988YPF6l
W+ueQ83JXH7Hm8FTD0OqGouoHadp54UxSAxZo2wJ7b+7e2dbBINbRls8bpVS
JwdYR29iUPTWWve0nNaXiZKaohhU2/ROLK6kTlDYrYljcKqdxbI2NXXiNt1k
PIOxjstyV2moP3olP5XIoMSjUrC9mrrD7OZoMoNZ7O3tk+dp/6aDe4r3MmhY
+cHFrBqaX39BAKkM+n3l9pZX9z4va9enM1gdstVPU099/Z5Mlcng/2+oMSw=

      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HtUDGgUAPBPMqaHmmrNVEMzX0602WVD2VD3xmC0hVNUVik9SGfpsaVm
T5SSiSilrcijmmnIKk1Sw5Tt4HjtbHYXK+xq2NJEDya11iP7+eOee37n3nPu
g0YlBMaaEEICWHzK4nnpqvs9W4Fkefn6mRvASS9IT7LdBkQct0jvZADh/pYV
FsCcqPfcPtcA/O7Rfp9y5qz6z6vDDGBZkjpX5ZcARN/OeVtvgPcyr8iLIYlA
GtqO1wb1Qe8Dz4G81iQgqx2WcY89h0uH3SdO35PC+mOTr8wegHtZC+dsLfqB
1X0bSNQr4LdUKSYLs9j8qOvX3g9DHD/IZUVXNhDpuK7kfaOQUFvgnNOVC4Tr
Opy56j8ohZsl6WfygETOzvboeQfJZgXZKefzgdzofO7XOAavF2b1ShoKgFzF
YecLBHUaTaRBexDIooGI1HEmmL51e77auxiI5IppWux4bFKcS+ysOQTE/pnx
V7UpSgrkRX2cH4GkJEeU/zsB64vFLz/klgJpF6+xWTcRT9l7mSW+KGP3lPjo
q7mYoeFH9mw7DORNhjica45Ky3yj5MURIJahfgGbLTDs6U4wWXkUSGWiY0m9
JQ7+Pv/W5Y5jQL6SzsqzsULekkTrJx4ngHwXvPhOmDVyej1X7AqvZPfn7u7Z
yMM6zi5X+ZQq5j2zhLY2OKXXvEfbwWwlVmc026BsTRoaC6uBfP1qTlOcLR7P
niYLkSjYPrKLAms77DevuO0+wlzeG+XRaIczxCNXJ51XAmm61Oga/Rm6jRaU
2cfVAPlr7QYpdzIK11mYubipgDh/scVbOxk9+EHlKgOzW5usP56PgpKHpiFH
TgLptPO5YSXAZ8clPLP1p4A4TuTK2gW4I37wTZ9VLZA5VY3Bm+zR52D0R/iZ
+a6mdZDrgP2LtcqynafZP/ip6y84YFRz4Awn95+AqOqiR8Id8VqzTqoyMtte
1kTzhGhM27M8/OQZIIF2SR+bhbj8kEXM3tA6IMUfTq/9dgruXfi9qMW+HkiJ
bjjTYioeUjpq7HTMcXUj9xumYv4R5VBSwVkgrSmXxsc4YchIRnX19AYgb7UD
fXYi1O24rlVkMvd3fznWIsIW/xyli5656uqAcZ4YOe8fv/NZoAaiif/ng1yM
8aHip8XFzA4Cr00PxLj03R9lm43MCS8dNO4Ud+90ab3zTSMQ/wAJ3U2xOzeY
Ex3APGT0LsqluPSAfLVxJXPevvnj5BQ5R/u6eYHMFYVuT/ZSzLtQN2llKPOC
V9ZVhRQPvPaIuBHDHGPbKa6gWBq/zKRtB3ORLlzcSHE0Kc3fP5O5s2HtwXMU
Q2SnSh9lMQvkAeQ8Rfs885lvc5iTzbz1LRQrajqC5u9jPhkrrGyjWKkPrlGX
Mosy7oluUiQG+RCWM7dn6gpvUdw4pPH67TBzcOqVj79QdB5z7Bg8yhztqe7q
oKgUdo3OVDCP5+0/cZei6TSer1bJHKjItv6TYqybb76firnMVZZ5n+J0L4Vo
Sy2zidmmiIcU5Xh3y5vTzK4xYbcfUTQsn9AkP8O8VB0If1OUrvIc49d/mv9S
evYxxdrgzVLVWeYNFER6iv8DH0kJFQ==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 3.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {3.4867909671215784`, 23.10886148407178}}, {{
    0.0072992700729927005`, 0.072992700729927}, {3.4867909671215784`, 
    23.10886148407178}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, 3.647107859210648*^9, 
   3.6471091268905373`*^9, 3.647153700996437*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "\[Rho]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.647163095628129*^9, 3.647163146557482*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0ns01GkYB/CXn1tMYcyMu1eyU+tSkSy19T5ZSUmsoqVyKbdyyvW01bHm
p4tMi7RttXaphLZTh02xhErouJSplJ2z0UUXcg3TaIxp7Lt/vOc5n/N9nvd5
/3jn70wMitFECPnT83/VcYm2ROg1QdGeq45iBgT1Er6vDnVHguaUHQPCtZ5G
+Rzq8tjWOCED60LnaduaU/dXB/o5M5CdWTtGXKkX1kVyVzKg38VpEkVT64Xt
vxjCgGFqdfxsG7WD4seGXAbMqnX+Vp/qI6i16plshgE70bKCzrVvCXpS5jk0
pAXnx/GC+t53BNXc1tLt0IZ5g9Fu5Qn9BFnYTt0t1YH9C93yEq0+EDSNX6pP
6ULg3Oa8wOuDBCV8g2IS9cDOs1eqETtM0Mmw+MCIOTAw7H+lxmSUoLIF1dIN
+mDtI8I5pWMEFV3jHRcagDC1KPE3x3GCNnm+quNx4LOgx+7QFHWXrqOpjANe
6hbz8NsTBLVlehh1zgWx3ic3hzOTBEXc7cm5NQ/E/YdLjoXLCMov6HI9awjH
BkLc2z0+EWQwLS33MgKlo5RjaCgnaMf7LKNaI1jkXeP+7h85Yc8L/bK/MoYg
Ue/R4r+mCLKa4K8pNIbleVHCsYOf6Xs+OBkacIHX6DhiF6wgrLhk0voIF/Yu
vyQPdZomrG3kghkFF0QZB4Js5dTJKoOxWBPIHTr9VCJRElb2k/v8lyawxcHw
Cuf3GcJekgTs8efBmXL3xo1RKoLCkNfhOh50bS5RpXl+IayKx3m+lA9tnYk5
ToyasC0/O/te4EPdnkx4+EJNUMX9R3KBAIR+xGNf1SxBv6Q7pOQIoExUcS9g
NQL2Qvo6baUAlg9HHOy9igBpOB+UJplCMdx7vtRIA9jA8pLGV6bQUaPYkZWq
AehDrezARjNIbgySBbyiOVr5MbHJDOQ3trv2facJCP/gl7HUHD67i4/0X9cE
1jxJ1fGnOXSXxmTcFDCAmCbvJaYWkORm9kfmIerK6N6dRy1AHDza3txP/bgw
4pnSAkSRKZc6/bSAfaT3ZsduS5CpzHP9bmkBakqYtu+zBPv6cwUd9trA7h0h
9SFW4LLrfoCxmDpo6OPuFitoKOSbPZRrA8re2x680hrsG/knNm3TAVRV6hV2
1RrWa49Yd93RAfZ53NbFpjYw0vOuud1BF9htXGeSawMJhbkm4pO6gPpK5uye
sYE2DfuPG+i/RZtVI1u+2IAwrq6Dc5p6yvUxzNrAa5eBzPyz1JIVZ80YDCGt
MH6uiLq1yrZNHwNMyh5evkYt/37JQgsMPN+wrJZW6i6XZe89MCSXj0dltdP9
GYHcJyswSLjHV/k+oHmE/0TDtxjEL25+eiCh+a2+il8Bgzpl7q6n3TSXpi3y
9sUwWNRI3ryl+RNvfslWDD7MVsvS99QNPpN5oRhK40enYgaoe4SPDm3DEL7M
omJwiLo2MzsoAsOztlSriQl633DxtEYcBpfF+oobMur0M92j8RjyTl98mian
9oqr/HcPhvXhnScUCjqfXBZfuQ/D5eZdsXVKaqmxd1ESBq2vlWvSVbQ/bTsW
p2CIysu3Xq2m9jmmTEvDcEcmnJ6dpf3+Od2R+zH8ByckCKE=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HlQ00cUB/BNkEMaAdFEzoIBQ1htSwAZ0eo+RTygguLBUCUVOXSkliJW
xRHzoxXbOBDNIKUgOAUiKF5UEVEEf5aIhCOVwxtUlIIIYiBEjtLQ7R87O595
3/fezs7dkRAWy0UIraPn/9tMEuOI0CuC5oh7NY84IKjS8teYURekSRo7OSAK
9Lc5yaPeuvpwUzcHVkdYmbraU4eP2v41zIFfUisHiTd1zvTAdisuWLby/pTF
UCeOVb1YxQXrpOu7puqpUywM+gou2F03qzAquwg6s/iUS7YJCGU+Oc2BbwgK
0KV4p5jCGZ2LW1VHN0EbliNBgDlY9cX4XorvIehKeKodmg77PXwVCU5vCaq6
8+zpa0tYP6NWsb6sj6DjeZG7z/JA6N/xmBPXT9Co9JOqDCvo7V937sas94Tx
cCzO8rMB51Uyl3TVIGFefJHvK5gJoqT8hN/m6wgyLZGVW9jCqOC58NBHHWHi
dz5x6LeFFUa1vbR6iDCVE/42mlkgtxjxxVnDBJEfInpvzgZ5z49FaVI9/Z/p
PqpcPqT1bvHTLBohaMn5AwEKAUzMf8yztjYQRnbNZm/KHBCvvOHX/YhaaVmQ
ts0OwmQdRwuufCTIRXzgcIg9LFREiQaTRwn6TNMV7uUAs9n5A8LNY4TZPLhi
zjxH2LOw0BCxYJwwbfcqY/lOIDtyMMzVME7QkyWT2QYnyHiX2abVThDUl8S/
8tYZNmHrc7zcfwhSfpt9vvFTyLrkx34VNUlQS3SMd6kLtG4smtzn/y9hVdLE
B+tcob45IX2BiZEwa3/kJte4wq3dqdDUaSTwobju1KK5IAomi74rnyLgcerx
gbK5cFZ2+W7oMgSsuqg92FUIC/u/Se4oRYDU1fszc4RQAHefedlwAAVtamm0
dIOGG2ORx5I4AH/Ez2xMdoNENkwf+pIDrKIibtmwGxiubvPuCuACalVbF+5w
h1E/+U89ZVxgzwbiQx3u8FAVe+SawASYxU+jV4TMg+997U6nHqIudNjeUj0P
5Jvfa2p7TAA1e8NDPxHItu8tbA6eBnAk/0l9iQj0k/YZwTenAaoYuioReoB7
VXZOg7spMM7VB6NyPUASfS90ptwUWG5mOmMphtt5fLsmA3WKVQT/qBjcWf7x
kK1mwOaVLs0xiGGt6YBza40ZMKGDBW9iPGHgeXetBpsD05Tjo+r0hPi8jFny
E+YAzIZ9G0Mw1HPcPwQpqVuSC4LWYxDtvNXAy6T5M3Xa5WEYXkl6U0/+Sl3W
7Om1BcOW+6DLzjcH9o6yiyfFAMP6puILtF83FF63B8PsNV8fU9+n+S7+dv8M
DImXdFHHNOaASrVKrxMYtLY/L13TSPPGC7UeSgzyzmsjjVrqoHYPQRYG494Z
0W0P6Xzm+dBwHoa+fJa8fkPrWnX6xYsYVpmEO6r+pk6rY4suY1Dtev8xtpf6
wcBIbhkGqY/D5b53dL9rSaS8HEN7fZLT0BCdV9nqFXcbg+Rzy7Grevoe/nhs
ZA0GRebvbfsMtN9i5elNLIa10ubjY2O0Xr7aLECNobg2Ou7WBO3fg75cXIdh
mufE8sOTNM92JkrqMUQpTjovM9L8xZcl4gYMNXrR+NQUrXuZvXBpwvAfeW0Z
UA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 2.2},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.5, 3}, {2.3903889449252347`, 7.865603768051528}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6471631479522047`*^9, 3.647163159777108*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[CapitalXi]2m", "]"}], "-", 
  RowBox[{"Mass", "[", "\[CapitalXi]2n", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]2m", ",", 
    FractionBox["1.3", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]2n", ",", 
    FractionBox["1.3", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.646909619265101*^9, 3.646909688722557*^9}}],

Cell[BoxData["0.05833227935642071`"], "Output",
 CellChangeTimes->{{3.64690961414717*^9, 3.646909689088436*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["1", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646895740385*^9, 3.6468957490279293`*^9}}],

Cell[BoxData["0.0072992700729927005`"], "Output",
 CellChangeTimes->{3.646895749553051*^9}]
}, Open  ]],

Cell[TextData[{
 "There is an intersection\nFor the N baryon the mass difference is md-mu\n\
For the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalXi]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the D the mass difference is md-mu\nFor \
the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalSigma]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox["\[CapitalSigma]", TraditionalForm]]],
 " the mass difference is md-mu\nWe can thus get very good agreement on the \
mass difference (The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " should get a seperate treatment. Also this could be due to peculiarities \
in the mass of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 "...) of d and u quarks. "
}], "Text",
 CellChangeTimes->{{3.646775053040186*^9, 3.646775142096891*^9}, {
   3.646775199764783*^9, 3.646775236703779*^9}, {3.6467754764935083`*^9, 
   3.6467754795461273`*^9}, {3.646775596913702*^9, 3.646775624475506*^9}, {
   3.646776222673148*^9, 3.6467763075116053`*^9}, {3.646777508648984*^9, 
   3.646777539824637*^9}, {3.6467791465652037`*^9, 3.646779146718832*^9}, 
   3.646779925941574*^9, {3.646805482892427*^9, 3.646805496417951*^9}, {
   3.646806391075924*^9, 3.646806395111081*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Mass", "[", "neutron", "]"}], "-", 
     RowBox[{"Mass", "[", "proton", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"Mass", "[", "Dn", "]"}], "-", 
     RowBox[{"Mass", "[", "Dp", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"csq", ",", 
     FractionBox["1", "137"]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Mass", "[", "neutron", "]"}], "-", 
    RowBox[{"Mass", "[", "proton", "]"}], "-", 
    RowBox[{"M", "[", 
     RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
    RowBox[{"M", "[", 
     RowBox[{"proton", ",", "csq"}], "]"}]}], ")"}], " ", "/.", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"Mass", "[", "Dn", "]"}], "-", 
      RowBox[{"Mass", "[", "Dp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"csq", ",", 
      FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.646776527507779*^9, 3.6467765812168913`*^9}, {
  3.6467766316594954`*^9, 3.646776680954193*^9}, {3.646776798198564*^9, 
  3.6467768476840363`*^9}, {3.646779183914538*^9, 3.646779219408032*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"csq", "\[Rule]", "0.04914073298149917`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090128*^9}],

Cell[BoxData["7.363124561956624`"], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090995*^9}]
}, Open  ]],

Cell["This Gives a charge squared of about", "Text",
 CellChangeTimes->{{3.6467771406034*^9, 3.646777154531913*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["6.5", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646776911505561*^9, 3.646776929981927*^9}, {
  3.646777002303513*^9, 3.646777120047933*^9}, {3.6467771596631937`*^9, 
  3.646777229957468*^9}, {3.646895845591597*^9, 3.6468959274932613`*^9}}],

Cell[BoxData["0.04744525547445255`"], "Output",
 CellChangeTimes->{
  3.646777230356695*^9, {3.6468958463623877`*^9, 3.64689587729163*^9}, {
   3.6468959079091187`*^9, 3.6468959277733803`*^9}}]
}, Open  ]],

Cell["\<\
We can now fix the charge squared to this value and calculate the masses of \
the up and down quarks from the equations for the proton and neutron\
\>", "Text",
 CellChangeTimes->{{3.6467773185942783`*^9, 3.646777368241434*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CSQ", "=", 
   RowBox[{"csq", "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "neutron", "]"}], "-", 
        RowBox[{"Mass", "[", "proton", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
       RowBox[{
        RowBox[{"Mass", "[", "Dn", "]"}], "-", 
        RowBox[{"Mass", "[", "Dp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mdmuSol", "=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"neutron", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "neutron", "]"}]}], ",", 
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"proton", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "proton", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"md", ",", "mu"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6467775770882177`*^9, 3.646777640259595*^9}, {
   3.6467777177337923`*^9, 3.6467777635087214`*^9}, {3.646777879591655*^9, 
   3.6467778860019197`*^9}, 3.646779306165267*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", "17.761528445582996`"}], ",", 
    RowBox[{"mu", "\[Rule]", "10.379176540859646`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6467777782700357`*^9, 3.646777888879471*^9, 
  3.646779310531558*^9, 3.646779524478355*^9}]
}, Open  ]],

Cell["\<\
A consistency check is the mass of the pion, which turns out as\
\>", "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
   3.646778033720356*^9, 3.64677806653109*^9}, 3.646778229205288*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TotM", "[", 
  RowBox[{"\[Pi]p", ",", "CSQ"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Mass", "[", "\[Pi]p", "]"}]}], "Input",
 CellChangeTimes->{{3.646778081503436*^9, 3.646778090319837*^9}, {
  3.646778122203072*^9, 3.6467781331729603`*^9}}],

Cell[BoxData[
 RowBox[{"391.09360357712904`", "\[VeryThinSpace]", "+", "md", "+", 
  "mu"}]], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527554325*^9}],

Cell[BoxData["139.57`"], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527556019*^9}]
}, Open  ]],

Cell[TextData[{
 "which is inconsistent. This tells us our model is not fit to determine the \
\[Pi] mass as is.\nKnowing these masses now enables us to determine the mass \
of the charm quark through the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalXi]", "c"], ",", 
    SubscriptBox["\[CapitalSigma]", "c"], " "}], TraditionalForm]]],
 "baryons and D Meson, and also consistency checks at the same time (the \
system of equations is over determined)"
}], "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
  3.646778033720356*^9, 3.64677806653109*^9}, {3.6467781760373373`*^9, 
  3.646778202103224*^9}, {3.646778240201126*^9, 3.646778240391296*^9}, {
  3.646778308620927*^9, 3.646778339601349*^9}, {3.646778533744286*^9, 
  3.6467785338908997`*^9}, {3.646778737028174*^9, 3.646778769651718*^9}, {
  3.646805575940419*^9, 3.646805585392634*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778346807811*^9, 3.6467784408184633`*^9}, 
   3.646779379658902*^9, 3.646779491242586*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.6344132901909`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304356327`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1144.748983436131`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304381104`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1625.8134845870227`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.6467795330221977`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1611.048780777576`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.646779533024062*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.6675194115548`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539536715*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1604.633761850927`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539538064*^9}]
}, Open  ]],

Cell["\<\
We can now use the \[CapitalSigma] baryons as a probe into the strange quark.\
\
\>", "Text",
 CellChangeTimes->{{3.646779586878907*^9, 3.646779694008649*^9}, {
  3.646780429957749*^9, 3.6467804753703403`*^9}, {3.646805632702094*^9, 
  3.6468056615386553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]n", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]p", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}, {3.64680695981404*^9, 3.6468069692650146`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "343.52751941155503`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969799654*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "341.0337618509266`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969801393*^9}]
}, Open  ]],

Cell[BoxData[{
 StyleBox["TODO",
  FontWeight->"Bold"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"units", " ", "of", " ", "charge"}], "-", "Jackson"}], ",", 
   RowBox[{"try", " ", "universal", " ", "fit", " ", "values"}], ",", 
   RowBox[{"more", "?"}]}],
  FontWeight->"Bold"]}], "Text",
 CellChangeTimes->{{3.646901592114575*^9, 3.646901612598467*^9}, {
  3.646901717460721*^9, 3.646901733991518*^9}, {3.6469025578557243`*^9, 
  3.6469025603696613`*^9}, {3.646902991834437*^9, 3.646902998262576*^9}, {
  3.646909724054406*^9, 3.646909725151971*^9}, {3.646913421070413*^9, 
  3.646913421209238*^9}, {3.6469156357926292`*^9, 3.64691564949657*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["universal fit finding the intercept - latest", "Chapter",
 CellChangeTimes->{{3.646779808572959*^9, 3.646779836769912*^9}, {
  3.6469313325908966`*^9, 3.6469313549702573`*^9}, {3.647504476097582*^9, 
  3.647504478998272*^9}, {3.649445548663157*^9, 3.649445550671855*^9}}],

Cell[TextData[{
 "Find the intercept for each hadron which will give universal agreement for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["m", "d"], "-", 
    SubscriptBox["m", "u"]}], TraditionalForm]]],
 ". ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Alpha]", "e"], "=", 
    FractionBox["1", "137"]}], TraditionalForm]]],
 ", \[Alpha]=0.95 for baryons, \[Alpha]=0.844 for mesons (subject to change).\
\nAt the same time the fit to the regge trajectories must be at least as good \
as the linear trajectory, which puts a constraint on the allowed intercepts. \
"
}], "Text",
 CellChangeTimes->{{3.647504642057277*^9, 3.6475047060495863`*^9}, {
  3.64750479261349*^9, 3.647504800786112*^9}, {3.647508401139412*^9, 
  3.6475084815057383`*^9}, {3.6475085268221006`*^9, 3.6475085691916175`*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"keys", "=", 
   RowBox[{"{", 
    RowBox[{
    "proton", ",", "neutron", ",", "\[Rho]p", ",", "\[Rho]n", ",", "Ksp", ",",
      "Ksn", ",", "\[CapitalSigma]p", ",", "\[CapitalSigma]n", ",", 
     "\[CapitalXi]n", ",", "\[CapitalXi]m", ",", "Dn", ",", "Dp"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mass", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", " ", "938.27204"}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", "939.56537"}], ",", 
     RowBox[{"Ksp", "\[Rule]", "889.11"}], ",", 
     RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", " ", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
     RowBox[{"\[CapitalLambda]cp", "\[Rule]", "2286.46"}], ",", 
     RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], " ", ",", 
     RowBox[{"Dp", "\[Rule]", " ", "1869.61"}], " ", ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "2452.9"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "2453.74"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
     RowBox[{"\[Rho]n", "\[Rule]", "775.26"}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "775.96"}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", "5279.61"}], ",", 
     RowBox[{"Bp", "\[Rule]", " ", "5279.29"}], " ", ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "1314.86"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "1321.71"}], ",", 
     RowBox[{"Kn", "\[Rule]", "497.614"}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", "493.677"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m1", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
     RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
     RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
     RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
     RowBox[{"\[CapitalLambda]cp", "\[Rule]", "md"}], ",", 
     RowBox[{"Dp", "\[Rule]", "md"}], ",", 
     RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      FractionBox[
       RowBox[{"mu", "+", "md"}], "2"]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
     RowBox[{"Bp", "\[Rule]", " ", "mb"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "ms"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}], ",", 
     RowBox[{"Kn", "\[Rule]", "ms"}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", "ms"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m2", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
     RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
     RowBox[{"\[CapitalLambda]cp", "\[Rule]", "mc"}], ",", 
     RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
     RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      FractionBox[
       RowBox[{"mu", "+", "md"}], "2"]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"Bp", "\[Rule]", " ", "mu"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", "ms"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}], ",", 
     RowBox[{"Kn", "\[Rule]", "md"}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", "mu"}]}], " ", "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Spin", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
     RowBox[{"proton", " ", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"neutron", " ", "\[Rule]", 
      FractionBox["1", "2"]}], " ", ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"Dn", "\[Rule]", " ", "1"}], ",", 
     RowBox[{"Dp", "\[Rule]", " ", "1"}], ",", 
     RowBox[{"\[Pi]p", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Pi]n", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
     RowBox[{"Bp", "\[Rule]", " ", "0"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"Kn", "\[Rule]", "0"}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", "0"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Q", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"Ksp", "\[Rule]", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"Ksn", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], " ", ",", " ", 
     RowBox[{"proton", " ", "\[Rule]", " ", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], ",", 
     RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"Dn", "\[Rule]", " ", 
      RowBox[{"-", 
       FractionBox["4", "9"]}]}], ",", 
     RowBox[{"Dp", "\[Rule]", " ", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["5", "18"]}]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], ",", 
     RowBox[{"Bp", "\[Rule]", 
      FractionBox["2", "9"]}], " ", ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", 
      FractionBox[
       RowBox[{"-", "1"}], "9"]}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"Kn", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "9"]}]}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"K", "\[Rule]", " ", 
      FractionBox["2", "9"]}], ",", 
     RowBox[{"K", "\[Rule]", " ", 
      FractionBox["2", "9"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "=", 
    RowBox[{"<|", 
     RowBox[{
      RowBox[{"Ksp", "\[Rule]", "0.96"}], ",", 
      RowBox[{"Ksn", "\[Rule]", "0.96"}], ",", " ", 
      RowBox[{"proton", "\[Rule]", "0.94"}], ",", 
      RowBox[{"neutron", "\[Rule]", " ", "0.94"}], ",", 
      RowBox[{"\[CapitalLambda]cp", "\[Rule]", "0.95"}], ",", 
      RowBox[{"Dp", "\[Rule]", "0.86"}], ",", 
      RowBox[{"Dn", "\[Rule]", "0.86"}], " ", ",", 
      RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0.95"}], ",", 
      RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0.95"}], ",", 
      RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.95"}], ",", 
      RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.95"}], " ", ",", 
      RowBox[{"\[Rho]n", "\[Rule]", "0.86"}], ",", 
      RowBox[{"\[Rho]p", "\[Rule]", "0.86"}], ",", 
      RowBox[{"Bn", "\[Rule]", " ", "0.86"}], ",", 
      RowBox[{"Bp", "\[Rule]", " ", "0.86"}], ",", " ", 
      RowBox[{"\[CapitalXi]n", "\[Rule]", ".94"}], ",", 
      RowBox[{"\[CapitalXi]m", "\[Rule]", " ", ".94"}], ",", 
      RowBox[{"Kn", "\[Rule]", "0.66"}], ",", 
      RowBox[{"Kp", "\[Rule]", " ", "0.66"}]}], "|>"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"for", " ", "summup", " ", "purposes"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intercepts", "=", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"Ksp", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.9", ",", "0.94"}], "}"}]}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.9", ",", "0.94"}], "}"}]}], ",", " ", 
     RowBox[{"proton", " ", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.67"}], ",", 
        RowBox[{"-", "0.15"}]}], "}"}]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.67"}], ",", 
        RowBox[{"-", "0.15"}]}], "}"}]}], ",", 
     RowBox[{"Dn", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.86", ",", "1"}], "}"}]}], " ", ",", 
     RowBox[{"Dp", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.86", ",", "1"}], "}"}]}], " ", ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.306487", ",", "0.371938"}], "}"}]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.306487", ",", "0.371938"}], "}"}]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.5", ",", "0.9"}], "}"}]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.5", ",", "0.9"}], "}"}]}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.316", ",", "0.465"}], "}"}]}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.316", ",", "0.465"}], "}"}]}], " ", ",", 
     RowBox[{"Kp", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.75", ",", "0.99"}], "}"}]}], ",", 
     RowBox[{"Kn", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.75", ",", "0.99"}], "}"}]}]}], " ", "|>"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}, {3.64718323066405*^9, 3.647183314054035*^9}, {
   3.647248155835827*^9, 3.647248197979225*^9}, {3.6475044888152475`*^9, 
   3.647504500984384*^9}, {3.6475046059067135`*^9, 3.647504608359341*^9}, {
   3.647504873117288*^9, 3.6475049220851345`*^9}, {3.64750496201606*^9, 
   3.647504969317958*^9}, {3.647509615050374*^9, 3.647509772670514*^9}, {
   3.6475098612159696`*^9, 3.647509945910093*^9}, {3.647590452254952*^9, 
   3.6475904881379905`*^9}, {3.6475910864880853`*^9, 
   3.6475911227592463`*^9}, {3.647598908911371*^9, 3.647598935143151*^9}, {
   3.6475989773112135`*^9, 3.6475990089529257`*^9}, {3.6475991756951237`*^9, 
   3.647599198269082*^9}, {3.6475992807035465`*^9, 3.6475993060886145`*^9}, {
   3.647671408744645*^9, 3.647671409834181*^9}, {3.647673172068865*^9, 
   3.647673187951953*^9}, {3.647685404879972*^9, 3.647685502717764*^9}, {
   3.647687071984888*^9, 3.647687101643024*^9}, {3.647687214976473*^9, 
   3.647687222861485*^9}, {3.6480448544523544`*^9, 3.648044876969721*^9}, {
   3.6480449086785345`*^9, 3.648044929811305*^9}, {3.648106425808877*^9, 
   3.648106660777998*^9}, {3.648109786813809*^9, 3.648109801033676*^9}, 
   3.6494387533827496`*^9, {3.649439189660613*^9, 3.6494391952469764`*^9}, {
   3.649445590465287*^9, 3.6494456104289427`*^9}, {3.650537541408896*^9, 
   3.650537546958292*^9}, {3.650537602402877*^9, 3.6505376039479723`*^9}, {
   3.650538012073498*^9, 3.6505380152358103`*^9}, {3.650832921307974*^9, 
   3.6508329390944777`*^9}, 3.6508331315401287`*^9, {3.6513904661840396`*^9, 
   3.6513904959974785`*^9}, {3.651390847418784*^9, 3.651390849664742*^9}, {
   3.651392617824711*^9, 3.651392619505311*^9}, {3.6515211236703215`*^9, 
   3.651521127076396*^9}, {3.651644007743041*^9, 3.6516440376300855`*^9}, {
   3.6516442356118913`*^9, 3.6516442373293743`*^9}, {3.651760688061421*^9, 
   3.651760768383651*^9}, {3.6517617778035526`*^9, 3.65176183105686*^9}, 
   3.651765219367569*^9, {3.65176536040514*^9, 3.6517653616966834`*^9}, {
   3.6547032760443354`*^9, 3.654703280034713*^9}, {3.6556207659844832`*^9, 
   3.655620766113802*^9}, 3.655621140341138*^9, {3.655621325526847*^9, 
   3.6556213255926504`*^9}, {3.6556213793786125`*^9, 
   3.6556213794148855`*^9}, {3.655622188054433*^9, 3.6556221906339965`*^9}, {
   3.6556223422355766`*^9, 3.6556223460356255`*^9}, {3.655922990477105*^9, 
   3.655922997222724*^9}, {3.655923108502385*^9, 3.655923129845542*^9}, {
   3.6559250364762225`*^9, 3.6559250401002398`*^9}, {3.655926603803669*^9, 
   3.655926610130257*^9}, {3.6574671088334703`*^9, 3.657467187920588*^9}, {
   3.65746722206357*^9, 3.657467284392303*^9}, 3.657467394441268*^9, {
   3.657467426320912*^9, 3.657467457504838*^9}, {3.657467490481093*^9, 
   3.657467633336166*^9}, {3.657467854538261*^9, 3.657467855964261*^9}, {
   3.6574678956292458`*^9, 3.657467896068782*^9}, {3.657468923931631*^9, 
   3.657468972839367*^9}, {3.657469220019177*^9, 3.657469265486025*^9}, {
   3.6574694649082937`*^9, 3.657469634201823*^9}, {3.657469692556612*^9, 
   3.6574697029536*^9}, {3.6575208635549994`*^9, 3.657520867272675*^9}, {
   3.657520992062224*^9, 3.657520994673766*^9}, {3.657536898290772*^9, 
   3.65753689966249*^9}, {3.659700472192665*^9, 3.65970047766298*^9}, {
   3.6597243706881866`*^9, 3.659724394803853*^9}, {3.659724624469474*^9, 
   3.659724646908051*^9}, {3.659724830341712*^9, 3.659724887210845*^9}, {
   3.6597254460345993`*^9, 3.659725504010931*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}, {
  3.6469313848637843`*^9, 3.646931386542401*^9}}],

Cell[CellGroupData[{

Cell["Mass difference functions - \[OpenCurlyQuote]usual case\
\[CloseCurlyQuote]", "Subsection",
 CellChangeTimes->{{3.6475829226647415`*^9, 3.647582959147748*^9}, {
  3.647764558973187*^9, 3.6477645644184523`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{"T", "=", 
    FractionBox[
     RowBox[{
      RowBox[{
       SubscriptBox["a", "e"], "Q"}], "-", 
      RowBox[{"(", 
       RowBox[{"a", "-", "S"}], ")"}]}], 
     SuperscriptBox["L", "2"]]}], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["L", "2"], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "\[Pi]", " ", 
       RowBox[{"\[Alpha]", "'"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "e"], "Q"}], "-", 
       RowBox[{"(", 
        RowBox[{"a", "-", "S"}], ")"}]}], ")"}]}]}], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", "=", 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "\[Pi]", " ", 
        RowBox[{"\[Alpha]", "'"}]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["a", "e"], "Q"}], "-", 
        RowBox[{"(", 
         RowBox[{"a", "-", "S"}], ")"}]}], ")"}]}]]}], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{"TL", "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        SubscriptBox["a", "e"], "Q"}], "-", 
       RowBox[{"(", 
        RowBox[{"a", "-", "S"}], ")"}]}], "L"], "+", "\[CapitalSigma]m"}]}], 
   TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{
      SqrtBox["2"], 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{
          SubscriptBox["a", "e"], "Q"}], "-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]], 
       SqrtBox[
        RowBox[{"\[Pi]", " ", 
         RowBox[{"\[Alpha]", "'"}]}]]]}], "+", "\[CapitalSigma]m"}]}], 
   TraditionalForm]]],
 "\nThe computation of energy difference when the fine structure constant is \
small:\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", "=", 
    RowBox[{"\[Pi]", 
     SqrtBox[
      RowBox[{"\[Alpha]", "'"}]], 
     RowBox[{"(", 
      RowBox[{
       SqrtBox[
        RowBox[{"S", "-", "a"}]], "+", 
       SqrtBox[
        RowBox[{"S", "-", "a", "+", 
         FractionBox[
          RowBox[{"8", 
           SubscriptBox["\[Alpha]", "e"], "Q"}], "\[Pi]"]}]]}], ")"}]}]}], 
   TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "m"}], "+", 
      FractionBox["L", 
       RowBox[{"2", 
        RowBox[{"\[Pi]\[Alpha]", "'"}]}]], "+", 
      FractionBox[
       RowBox[{
        SubscriptBox["\[Alpha]", "e"], "Q"}], "L"]}], "=", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"\[Pi]", 
         SqrtBox[
          RowBox[{"\[Alpha]", "'"}]], 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{"S", "-", "a"}]], "+", 
           SqrtBox[
            RowBox[{"S", "-", "a", "+", 
             FractionBox[
              RowBox[{"8", 
               SubscriptBox["\[Alpha]", "e"], "Q"}], "\[Pi]"]}]]}], ")"}]}], 
        RowBox[{"2", 
         RowBox[{"\[Pi]\[Alpha]", "'"}]}]], "+", 
       FractionBox[
        RowBox[{
         SubscriptBox["\[Alpha]", "e"], "Q"}], 
        RowBox[{"\[Pi]", 
         SqrtBox[
          RowBox[{"\[Alpha]", "'"}]], 
         RowBox[{"(", 
          RowBox[{
           SqrtBox[
            RowBox[{"S", "-", "a"}]], "+", 
           SqrtBox[
            RowBox[{"S", "-", "a", "+", 
             FractionBox[
              RowBox[{"8", 
               SubscriptBox["\[Alpha]", "e"], "Q"}], "\[Pi]"]}]]}], 
          ")"}]}]]}], "=", 
      RowBox[{
       RowBox[{"2", "m"}], "+", 
       FractionBox[
        SqrtBox[
         RowBox[{"S", "-", "a"}]], 
        SqrtBox[
         RowBox[{"\[Alpha]", "'"}]]], "+", 
       FractionBox[
        RowBox[{"5", 
         SubscriptBox["\[Alpha]", "e"], "Q"}], 
        RowBox[{"2", "\[Pi]", 
         SqrtBox[
          RowBox[{"\[Alpha]", "'"}]], 
         SqrtBox[
          RowBox[{"S", "-", "a"}]]}]]}]}]}]}], TraditionalForm]]],
 "\nThe energy difference is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]E", "=", 
    RowBox[{
     SubscriptBox["\[CapitalDelta]m", "ep"], "+", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "\[Pi]", 
        SqrtBox[
         RowBox[{"\[Alpha]", "'"}]]}]], 
      FractionBox[
       RowBox[{"5", 
        SubscriptBox["\[Alpha]", "e"], "\[CapitalDelta]Q"}], 
       SqrtBox[
        RowBox[{"S", "-", "a"}]]]}]}]}], TraditionalForm]]],
 "\nThe quark mass difference is then implicitly\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalDelta]m", "ep"], "=", 
    RowBox[{"\[CapitalDelta]M", "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "\[Pi]", 
        SqrtBox[
         RowBox[{"\[Alpha]", "'"}]]}]], 
      FractionBox[
       RowBox[{"5", 
        SubscriptBox["\[Alpha]", "e"], "\[CapitalDelta]Q"}], 
       SqrtBox[
        RowBox[{"S", "-", "a"}]]]}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6477642191060753`*^9, 3.647764531313713*^9}, {
  3.647843842720583*^9, 3.647843863686614*^9}, {3.649175705854738*^9, 
  3.6491757328031063`*^9}, {3.6491760175635157`*^9, 3.649176043232565*^9}, {
  3.65470157842911*^9, 3.6547015811795735`*^9}, {3.6574572035387497`*^9, 
  3.6574572175138073`*^9}, {3.657458347659382*^9, 3.657458382335494*^9}, {
  3.6574584136447353`*^9, 3.657458432989444*^9}, {3.657458548973538*^9, 
  3.657458603995152*^9}, {3.657458705419077*^9, 3.657458744093974*^9}, {
  3.657458852018079*^9, 3.6574589505157433`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"approximation", "\[IndentingNewLine]", 
      RowBox[{"L", "[", 
       RowBox[{"key_", ",", "a_"}], "]"}]}], ":=", 
     RowBox[{"\[Pi]", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{"\[Alpha]", "[", "key", "]"}]}]], 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          RowBox[{"Spin", "[", "key", "]"}], "-", "a"}]], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"Spin", "[", "key", "]"}], "-", "a", "+", 
          RowBox[{
           FractionBox["1", "137"], 
           FractionBox[
            RowBox[{"8", " ", 
             RowBox[{"Q", "[", "key", "]"}]}], "\[Pi]"]}]}]]}], ")"}]}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"M", "[", 
      RowBox[{"key_", ",", "a_"}], "]"}], ":=", " ", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{" ", 
         RowBox[{"2", "\[Pi]", " ", 
          SuperscriptBox["10", 
           RowBox[{"-", "6"}]], 
          RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]], 
       RowBox[{"L", "[", 
        RowBox[{"key", ",", "a"}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "137"], 
       FractionBox[
        RowBox[{"Q", "[", "key", "]"}], 
        RowBox[{"L", "[", 
         RowBox[{"key", ",", "a"}], "]"}]]}]}]}], 
    RowBox[{"(*", 
     RowBox[{"+", 
      SqrtBox[
       FractionBox[
        RowBox[{
         RowBox[{"Spin", "[", "key", "]"}], "-", 
         RowBox[{"a", "[", "key", "]"}]}], 
        RowBox[{
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]], " ", 
         RowBox[{"\[Alpha]", "[", "key", "]"}]}]]]}], "*)"}], ";"}], "*)"}], 
  "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
  RowBox[{"(*", "exact", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"M", "[", 
      RowBox[{"key_", ",", "a_"}], "]"}], ":=", " ", 
     RowBox[{
      SqrtBox[
       FractionBox["2", 
        RowBox[{" ", 
         RowBox[{"\[Pi]", " ", 
          SuperscriptBox["10", 
           RowBox[{"-", "6"}]], 
          RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]]], 
      SqrtBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "137"], 
         RowBox[{"Q", "[", "key", "]"}]}], "-", 
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"Spin", "[", "key", "]"}]}], ")"}]}]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"key_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"M", "[", 
       RowBox[{"key", ",", "a"}], "]"}], "+", 
      RowBox[{"m1", "[", "key", "]"}], "+", 
      RowBox[{"m2", "[", "key", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Implicit\[CapitalDelta]m", "[", 
      RowBox[{"key1_", ",", "key2_", ",", "a_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Mass", "[", "key1", "]"}], "-", 
      RowBox[{"Mass", "[", "key2", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"key1", ",", "a"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"key2", ",", "a"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[CapitalDelta]msq", "[", 
      RowBox[{"key1_", ",", "key2_", ",", "a1_", ",", "a2_"}], "]"}], ":=", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"TotM", "[", 
        RowBox[{"key1", ",", "a1"}], "]"}], "2"], "-", 
      SuperscriptBox[
       RowBox[{"TotM", "[", 
        RowBox[{"key2", ",", "a2"}], "]"}], "2"]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, 
   3.647107852952241*^9, {3.647108911976357*^9, 3.647108922180167*^9}, {
   3.6471536746757298`*^9, 3.647153677939547*^9}, {3.6475047246798997`*^9, 
   3.6475047615750465`*^9}, {3.6475064365535603`*^9, 
   3.6475064410696683`*^9}, {3.647506849733817*^9, 3.6475068623783274`*^9}, {
   3.6475069359308066`*^9, 3.6475069923560953`*^9}, 3.6475828989587765`*^9, {
   3.647598356457915*^9, 3.647598368795441*^9}, {3.6475984281305933`*^9, 
   3.647598435842408*^9}, {3.654701777048044*^9, 3.654701807851019*^9}, {
   3.654702633272958*^9, 3.654702641645323*^9}, {3.6547026739925385`*^9, 
   3.6547026839482403`*^9}, {3.6547029926108327`*^9, 
   3.6547029990591955`*^9}, {3.657459123628345*^9, 3.657459163319557*^9}, {
   3.657459799075502*^9, 3.657459921381357*^9}, {3.657459998432494*^9, 
   3.65745999894058*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Mass difference functions - \[OpenCurlyQuote]casimir case\
\[CloseCurlyQuote]", "Subsection",
 CellChangeTimes->{{3.6475829226647415`*^9, 3.647582959147748*^9}, {
  3.647764558973187*^9, 3.6477645740122757`*^9}}],

Cell[TextData[{
 "The computation of energy difference when the fine structure constant is \
small:\nThe energy with the casimir force is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{"2", "m"}], "+", 
     FractionBox["L", 
      RowBox[{"2", 
       RowBox[{"\[Pi]\[Alpha]", "'"}]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        SubscriptBox["\[Alpha]", "e"], "Q"}], "-", 
       RowBox[{"(", 
        RowBox[{"a", "-", "S"}], ")"}]}], "L"]}]}], TraditionalForm]]],
 "\nThe equation of motion is then\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[DifferentialD]", "E"}], 
      RowBox[{"\[DifferentialD]", "L"}]]}], "=", 
    RowBox[{"0", "=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", 
        RowBox[{"\[Pi]\[Alpha]", "'"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{
         SubscriptBox["\[Alpha]", "e"], "Q"}], "-", 
        RowBox[{"(", 
         RowBox[{"a", "-", "S"}], ")"}]}], 
       SuperscriptBox["L", "2"]]}]}]}], TraditionalForm]]],
 "\nSo the string length is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", "=", 
    SqrtBox[
     RowBox[{"2", "\[Pi]", " ", 
      RowBox[{"\[Alpha]", "'"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[Alpha]", "e"], "Q"}], "-", 
        RowBox[{"(", 
         RowBox[{"a", "-", "S"}], ")"}]}], ")"}]}]]}], TraditionalForm]]],
 "\nThe energy is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{"2", "m"}], "+", 
     RowBox[{"2", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{
          SubscriptBox["\[Alpha]", "e"], "Q"}], "-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]], 
       SqrtBox[
        RowBox[{"2", 
         RowBox[{"\[Pi]\[Alpha]", "'"}]}]]]}]}]}], TraditionalForm]]],
 "\nwhen the fine structure constant is small\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"E", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "m"}], "+", 
      RowBox[{"2", 
       SqrtBox[
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]], 
       FractionBox[
        SqrtBox[
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{
            SubscriptBox["\[Alpha]", "e"], "Q"}], 
           RowBox[{"(", 
            RowBox[{"a", "-", "S"}], ")"}]]}]], 
        SqrtBox[
         RowBox[{"2", 
          RowBox[{"\[Pi]\[Alpha]", "'"}]}]]]}]}], "=", 
     RowBox[{
      RowBox[{"2", "m"}], "+", 
      RowBox[{
       FractionBox[
        SqrtBox["2"], 
        SqrtBox[
         RowBox[{"\[Pi]\[Alpha]", "'"}]]], 
       SqrtBox[
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]]}], "+", 
      RowBox[{
       FractionBox["1", 
        SqrtBox[
         RowBox[{"2", 
          RowBox[{"\[Pi]\[Alpha]", "'"}]}]]], 
       FractionBox[
        RowBox[{
         SubscriptBox["\[Alpha]", "e"], "Q"}], 
        SqrtBox[
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"a", "-", "S"}], ")"}]}]]]}]}]}]}], TraditionalForm]]],
 "\nThe enrgy difference is\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]E", "=", 
    RowBox[{
     SubscriptBox["\[CapitalDelta]m", "ep"], "+", 
     RowBox[{
      FractionBox["1", 
       SqrtBox[
        RowBox[{"2", 
         RowBox[{"\[Pi]\[Alpha]", "'"}]}]]], 
      FractionBox[
       RowBox[{
        SubscriptBox["\[Alpha]", "e"], "\[CapitalDelta]Q"}], 
       SqrtBox[
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]]]}]}]}], TraditionalForm]]],
 "\nThe quark mass difference is then implicitly\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalDelta]m", "ep"], "=", 
    RowBox[{"\[CapitalDelta]M", "-", 
     RowBox[{
      FractionBox["1", 
       SqrtBox[
        RowBox[{"2", 
         RowBox[{"\[Pi]\[Alpha]", "'"}]}]]], 
      FractionBox[
       RowBox[{
        SubscriptBox["\[Alpha]", "e"], "\[CapitalDelta]Q"}], 
       SqrtBox[
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}]}]]]}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6477642191060753`*^9, 3.647764531313713*^9}, {
  3.6477645817479467`*^9, 3.647765131477714*^9}, {3.647843683367196*^9, 
  3.647843718236596*^9}, {3.6479762643786697`*^9, 3.6479762784802313`*^9}, {
  3.6479776744290423`*^9, 3.647977712712885*^9}, {3.648045059692052*^9, 
  3.648045060629622*^9}, {3.649156208344479*^9, 3.649156235786666*^9}, {
  3.649175739818365*^9, 3.649175781406157*^9}, {3.64917593798184*^9, 
  3.6491760038845243`*^9}, {3.649446786850506*^9, 3.6494467871084447`*^9}, {
  3.6574609984124393`*^9, 3.657460998412486*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"L", "[", 
      RowBox[{"key_", ",", "a_"}], "]"}], ":=", 
     SqrtBox[
      RowBox[{"2", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]], 
       RowBox[{"\[Alpha]", "[", "key", "]"}], "\[Pi]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["1", "137"], 
          FractionBox[
           RowBox[{" ", 
            RowBox[{"Q", "[", "key", "]"}]}], "\[Pi]"]}], "-", 
         RowBox[{"(", 
          RowBox[{"a", "-", 
           RowBox[{"Spin", "[", "key", "]"}]}], ")"}]}], ")"}]}]]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"M", "[", 
      RowBox[{"key_", ",", "a_"}], "]"}], ":=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"L", "[", 
        RowBox[{"key", ",", "a"}], "]"}], 
       RowBox[{" ", 
        RowBox[{"2", "\[Pi]", " ", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]], 
         RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         FractionBox["1", "137"], 
         RowBox[{"Q", "[", "key", "]"}]}], "-", 
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"Spin", "[", "key", "]"}]}], ")"}]}], 
       RowBox[{"L", "[", 
        RowBox[{"key", ",", "a"}], "]"}]]}]}], ";"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.6596999453581467`*^9, 3.659699945621348*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"M", "[", 
    RowBox[{"key_", ",", "a_"}], "]"}], ":=", " ", 
   RowBox[{
    SqrtBox[
     FractionBox["2", 
      RowBox[{" ", 
       RowBox[{"\[Pi]", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]], 
        RowBox[{"\[Alpha]", "[", "key", "]"}]}]}]]], 
    SqrtBox[
     RowBox[{
      RowBox[{
       FractionBox["1", "137"], 
       RowBox[{"Q", "[", "key", "]"}]}], "-", 
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"Spin", "[", "key", "]"}]}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TotM", "[", 
    RowBox[{"key_", ",", "a_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{"key", ",", "a"}], "]"}], "+", 
    RowBox[{"m1", "[", "key", "]"}], "+", 
    RowBox[{"m2", "[", "key", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Implicit\[CapitalDelta]m", "[", 
    RowBox[{"key1_", ",", "key2_", ",", "a_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Mass", "[", "key1", "]"}], "-", 
    RowBox[{"Mass", "[", "key2", "]"}], "-", 
    RowBox[{"M", "[", 
     RowBox[{"key1", ",", "a"}], "]"}], "+", 
    RowBox[{"M", "[", 
     RowBox[{"key2", ",", "a"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]msq", "[", 
    RowBox[{"key1_", ",", "key2_", ",", "a1_", ",", "a2_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"TotM", "[", 
      RowBox[{"key1", ",", "a1"}], "]"}], "2"], "-", 
    SuperscriptBox[
     RowBox[{"TotM", "[", 
      RowBox[{"key2", ",", "a2"}], "]"}], "2"]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.646771550426784*^9, 3.646771553316934*^9}, {
   3.646771604306888*^9, 3.646771872911043*^9}, 3.6467719448725758`*^9, {
   3.646773728033743*^9, 3.646773751002304*^9}, {3.646773799429037*^9, 
   3.646773799697246*^9}, {3.646777672506926*^9, 3.6467777031024427`*^9}, 
   3.647107852952241*^9, {3.647108911976357*^9, 3.647108922180167*^9}, {
   3.6471536746757298`*^9, 3.647153677939547*^9}, {3.6475047246798997`*^9, 
   3.6475047615750465`*^9}, {3.6475064365535603`*^9, 
   3.6475064410696683`*^9}, {3.647506849733817*^9, 3.6475068623783274`*^9}, {
   3.6475069359308066`*^9, 3.6475069923560953`*^9}, 3.6475828989587765`*^9, {
   3.647598356457915*^9, 3.647598368795441*^9}, {3.6475984281305933`*^9, 
   3.647598435842408*^9}, {3.647765158437969*^9, 3.6477651623488283`*^9}, {
   3.647765201702017*^9, 3.647765258480199*^9}, {3.647977734668704*^9, 
   3.6479777935802298`*^9}, {3.6547057382973337`*^9, 
   3.6547057396899157`*^9}, {3.657460977246035*^9, 3.6574609774692993`*^9}, {
   3.65746105795312*^9, 3.657461062536635*^9}, {3.6596999365978193`*^9, 
   3.659699951239917*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Intercept finding", "Subsection",
 CellChangeTimes->{{3.6475829226647415`*^9, 3.647582959147748*^9}, {
  3.6475926884967213`*^9, 3.6475926923199368`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Generate", " ", "Graph", " ", "of", " ", "Mass", " ", "Differences"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"neutron", ",", "proton", ",", 
            RowBox[{"-", "0.67"}]}], "]"}], "+", "0.000021"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"neutron", ",", "proton", ",", 
            RowBox[{"-", "0.15"}]}], "]"}], "-", "0.000021"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "0.5"}], "]"}], "-", 
          "0.8"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "0.9"}], "]"}], "+", 
          "0.8"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"3", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Ksn", ",", "Ksp", ",", "0.9"}], "]"}], "-", "1.2"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Ksn", ",", "Ksp", ",", "0.94"}], "]"}], "+", "1.2"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Dp", ",", "Dn", ",", "0.86"}], "]"}], "+", "0.1"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Dp", ",", "Dn", ",", "0.95"}], "]"}], "-", "0.1"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"5", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"\[CapitalXi]m", ",", "\[CapitalXi]n", ",", "0.316"}], 
           "]"}], "-", "0.024"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"\[CapitalXi]m", ",", "\[CapitalXi]n", ",", "0.465"}], 
           "]"}], "+", "0.024"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{
           "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "0.306487"}], 
           "]"}], "-", "0.035"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{
           "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "0.371938"}], 
           "]"}], "+", "0.035"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Kn", ",", "Kp", ",", "0.75"}], "]"}], "-", "0.02"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"Kn", ",", "Kp", ",", "0.99"}], "]"}], "+", "0.02"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"Bn", ",", "Bp", ",", 
           RowBox[{"-", "0.00001"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"Bn", ",", "Bp", ",", 
           RowBox[{"-", 
            SuperscriptBox["10", 
             RowBox[{"-", "8"}]]}]}], "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<-\>\"", ",", "30"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(m\), \(d\)]\)-\!\(\*SubscriptBox[\(m\), \(u\
\)]\)[MeV]\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
     "PlotLabel", "\[Rule]", 
      "\"\<Mass difference for up and down quarks\>\""}], ",", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "1", ",", "\"\<\!\(\*FractionBox[\(proton\), \(neutron\)]\)\>\""}],
            "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "2", ",", 
            "\"\<\!\(\*SuperscriptBox[\(\[Rho]\), \(\[PlusMinus]\)]\)\>\""}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "3", ",", 
            "\"\<\!\(\*SuperscriptBox[\(K\), \
\(\(*\)\(\[PlusMinus]\)\)]\)\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "4", ",", 
            "\"\<\!\(\*SuperscriptBox[\(D\), \(\[PlusMinus]\)]\)\>\""}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "5", ",", 
            "\"\<\!\(\*SuperscriptBox[\(\[CapitalXi]\), \(\[PlusMinus]\)]\)\>\
\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "6", ",", 
            "\"\<\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \
\(\[PlusMinus]\)]\)\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "7", ",", 
            "\"\<\!\(\*SuperscriptBox[\(K\), \(\[PlusMinus]\)]\)\>\""}], 
           "}"}]}], "}"}], ",", " ", "Automatic"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Generate", " ", "Data", " ", "Table"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"keys", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"keys", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
           RowBox[{"Mass", "[", 
            RowBox[{"keys", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
           RowBox[{"Q", "[", 
            RowBox[{"keys", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"intercepts", "[", 
             RowBox[{"keys", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "-", 
            RowBox[{"Spin", "[", 
             RowBox[{"keys", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{"Spin", "[", 
            RowBox[{"keys", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Length", "[", "keys", "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"key", ",", "alpha", ",", "mass", ",", "q", ",", 
         RowBox[{"a", "-", "S"}], ",", "S"}], "}"}]}], "]"}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Generate", " ", "Graph", " ", "of", " ", "Proton"}], "-", 
     RowBox[{"Neutron", " ", "vs", " ", 
      SuperscriptBox["K", "*"], " ", "mass", " ", "differences"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"neutron", ",", "proton", ",", "a"}], "]"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"Ksn", ",", "Ksp", ",", "a"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{
     "PlotLabel", "\[Rule]", 
      "\"\<\!\(\*SubscriptBox[\(\[CapitalDelta]m\), \(q\)]\) as a function of \
casimir amp\>\""}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<a\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(m\), \(d\)]\)-\!\(\*SubscriptBox[\(m\), \(u\
\)]\)[MeV]\>\""}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6494236333682537`*^9, 3.6494236426024694`*^9}, {
   3.6494241364614935`*^9, 3.649424217129401*^9}, {3.649424279155983*^9, 
   3.649424346548066*^9}, {3.649424380696353*^9, 3.6494244179397125`*^9}, {
   3.6494244605413103`*^9, 3.6494244918791847`*^9}, {3.6494245226063156`*^9, 
   3.649424524679083*^9}, {3.649424605575287*^9, 3.6494246148671184`*^9}, {
   3.6494246733773575`*^9, 3.649424674819755*^9}, {3.649426343044653*^9, 
   3.6494263832106647`*^9}, {3.6494265418905277`*^9, 3.6494265668578157`*^9}, 
   3.649438824042061*^9, {3.649438856391624*^9, 3.649438865157397*^9}, {
   3.649439220518591*^9, 3.64943922902142*^9}, {3.649445633977475*^9, 
   3.649445648708639*^9}, {3.6494458927027435`*^9, 3.649445933487588*^9}, {
   3.649445995548564*^9, 3.6494460071819963`*^9}, {3.649523043490364*^9, 
   3.6495230512195024`*^9}, {3.6495232893488474`*^9, 
   3.6495232950009036`*^9}, {3.6495234357124805`*^9, 
   3.6495234381586185`*^9}, {3.649523510525578*^9, 3.649523512376383*^9}, {
   3.6495235721189404`*^9, 3.6495235839373903`*^9}, {3.649525812472726*^9, 
   3.6495258862650566`*^9}, {3.6495260598991203`*^9, 
   3.6495261050165987`*^9}, {3.6495261395131216`*^9, 3.6495261401480474`*^9}, 
   3.6505381932936773`*^9, {3.6505382263409367`*^9, 3.650538285984268*^9}, {
   3.650541282539022*^9, 3.650541300093564*^9}, {3.6508326532893515`*^9, 
   3.650832759196541*^9}, {3.650832792012394*^9, 3.6508328338177767`*^9}, {
   3.651390573815928*^9, 3.6513906002656374`*^9}, {3.6513906661709404`*^9, 
   3.651390670462797*^9}, {3.6514152821345863`*^9, 3.651415325471198*^9}, 
   3.651415389235346*^9, {3.6516443911186414`*^9, 3.651644391170084*^9}, {
   3.651644460027775*^9, 3.6516444643241463`*^9}, {3.6516444950974836`*^9, 
   3.6516444993695436`*^9}, {3.6517577625378733`*^9, 3.65175790114286*^9}, {
   3.651758200515793*^9, 3.651758218711029*^9}, {3.651758257806612*^9, 
   3.6517582687889557`*^9}, {3.6517618799626875`*^9, 3.651761885175527*^9}, {
   3.6556346265313034`*^9, 3.6556346437693696`*^9}, {3.655634742178726*^9, 
   3.655634775554748*^9}, {3.655634852193449*^9, 3.6556348759427223`*^9}, {
   3.6556350734010363`*^9, 3.655635082861988*^9}, {3.655636667572729*^9, 
   3.6556366735231557`*^9}, {3.6559255906307783`*^9, 3.655925593345001*^9}, {
   3.655927030821246*^9, 3.6559270968592167`*^9}, {3.6559271269270887`*^9, 
   3.655927134713621*^9}, {3.6574614576846857`*^9, 3.657461465712015*^9}, {
   3.6574676441223717`*^9, 3.657467644359462*^9}, 3.657467682510496*^9, {
   3.657467715680914*^9, 3.6574677310851717`*^9}, {3.657467768299691*^9, 
   3.657467822220395*^9}, {3.657467920984136*^9, 3.657467956521899*^9}, {
   3.6574681400369577`*^9, 3.6574681458962173`*^9}, {3.657468261024844*^9, 
   3.657468310744989*^9}, {3.657468343741021*^9, 3.657468353878084*^9}, {
   3.657468416404142*^9, 3.657468417912096*^9}, {3.6574687270646753`*^9, 
   3.6574687325818644`*^9}, {3.6574688143172083`*^9, 3.657468853237866*^9}, {
   3.657469312449176*^9, 3.65746932002802*^9}, {3.657469366400015*^9, 
   3.657469366489778*^9}, {3.657469735107814*^9, 3.657469749700279*^9}, {
   3.657515779053527*^9, 3.657515808646845*^9}, {3.65751586671764*^9, 
   3.657515900919866*^9}, 3.657515985536232*^9, {3.65751601617585*^9, 
   3.657516089050069*^9}, {3.657516129248352*^9, 3.657516150030075*^9}, {
   3.6575207329536657`*^9, 3.6575207373700943`*^9}, {3.65752097351982*^9, 
   3.657520980982133*^9}, {3.657521090362915*^9, 3.657521099231366*^9}, {
   3.657536976563311*^9, 3.6575369909179907`*^9}, {3.657614858213706*^9, 
   3.657614877211211*^9}, {3.657622916740086*^9, 3.657622920510111*^9}, 
   3.657624076774988*^9, {3.657624164566297*^9, 3.6576241687480717`*^9}, {
   3.657713082265051*^9, 3.6577131040607157`*^9}, {3.6577142358999157`*^9, 
   3.657714242621752*^9}, {3.6587395231478987`*^9, 3.6587395319218597`*^9}, {
   3.6587398192771463`*^9, 3.658739892588134*^9}, {3.6587399334397573`*^9, 
   3.658739937307618*^9}, {3.658741028266466*^9, 3.6587410319621*^9}, {
   3.658741073004779*^9, 3.6587410963368597`*^9}, {3.659682713411088*^9, 
   3.659682779506764*^9}, {3.659682821532118*^9, 3.6596828638402443`*^9}, {
   3.659683024835856*^9, 3.6596831473549337`*^9}, {3.659683182201819*^9, 
   3.659683214528982*^9}, {3.659683250218357*^9, 3.659683258308523*^9}, {
   3.659685573863282*^9, 3.659685590600404*^9}, {3.659685709303389*^9, 
   3.6596857116893187`*^9}, {3.65970011895996*^9, 3.659700248894836*^9}, {
   3.659700331614263*^9, 3.659700363822632*^9}, {3.659724972032535*^9, 
   3.659725019295138*^9}, {3.659725129420802*^9, 3.65972515820243*^9}, {
   3.659725289651575*^9, 3.659725290696763*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
       StyleBox["\<\"-\"\>",
        StripOnInput->False,
        FontSize->30], {0., 0.}], {{{1., 2.2187652783929326`}}, {{1., 
      2.5347108821533237`}}, {{2., 0.7208236475796184}}, {{2., 
      5.07014615170043}}, {{3., 8.626524335596674}}, {{3., 
      11.931033005272678`}}, {{4., -0.7412961934751593}}, {{
      4., -4.771654307215249}}, {{5., 4.494584243856765}}, {{5., 
      1.5525133092262413`}}, {{6., 5.5265122237636}}, {{6., 
      6.113527169727863}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(m\\), \
\\(d\\)]\\)-\\!\\(\\*SubscriptBox[\\(m\\), \\(u\\)]\\)[MeV]\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotLabel->FormBox[
   "\"Mass difference for up and down quarks\"", TraditionalForm],
  PlotRange->{{0, 6.}, {-4.771654307215249, 11.931033005272678`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{{1, 
      FormBox[
      "\"\\!\\(\\*FractionBox[\\(proton\\), \\(neutron\\)]\\)\"", 
       TraditionalForm]}, {2, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(\[Rho]\\), \\(\[PlusMinus]\\)]\\)\"", 
       TraditionalForm]}, {3, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(K\\), \\(\\(*\\)\\(\[PlusMinus]\\)\\)]\\)\
\"", TraditionalForm]}, {4, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(D\\), \\(\[PlusMinus]\\)]\\)\"", 
       TraditionalForm]}, {5, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(\[CapitalXi]\\), \
\\(\[PlusMinus]\\)]\\)\"", TraditionalForm]}, {6, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(\[CapitalSigma]\\), \
\\(\[PlusMinus]\\)]\\)\"", TraditionalForm]}, {7, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(K\\), \\(\[PlusMinus]\\)]\\)\"", 
       TraditionalForm]}}, Automatic}]], "Output",
 CellChangeTimes->{{3.658739893841172*^9, 3.6587399001411257`*^9}, 
   3.658739938629602*^9, 3.658741033219021*^9, {3.658741076475069*^9, 
   3.6587410979304447`*^9}, {3.659682813088233*^9, 3.659682864776061*^9}, 
   3.659683132365612*^9, 3.659683186209374*^9, 3.659683259353006*^9, 
   3.659685712904228*^9, 3.659685886834814*^9, 3.6597003880948153`*^9, 
   3.659725187964471*^9, 3.65972529678913*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"key", "alpha", "mass", "q", 
     RowBox[{"a", "-", "S"}], "S"},
    {"proton", "0.94`", "938.27204`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.17`"}], ",", 
       RowBox[{"-", "0.65`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"neutron", "0.94`", "939.56537`", 
     RowBox[{"-", 
      FractionBox["1", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.17`"}], ",", 
       RowBox[{"-", "0.65`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"\[Rho]p", "0.86`", "775.96`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.5`"}], ",", 
       RowBox[{"-", "0.09999999999999998`"}]}], "}"}], "1"},
    {"\[Rho]n", "0.86`", "775.26`", 
     RowBox[{"-", 
      FractionBox["5", "18"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.5`"}], ",", 
       RowBox[{"-", "0.09999999999999998`"}]}], "}"}], "1"},
    {"Ksp", "0.96`", "889.11`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.09999999999999998`"}], ",", 
       RowBox[{"-", "0.06000000000000005`"}]}], "}"}], "1"},
    {"Ksn", "0.96`", "895.81`", 
     RowBox[{"-", 
      FractionBox["1", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.09999999999999998`"}], ",", 
       RowBox[{"-", "0.06000000000000005`"}]}], "}"}], "1"},
    {"\[CapitalSigma]p", "0.95`", "1189.3`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.193513`"}], ",", 
       RowBox[{"-", "0.128062`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"\[CapitalSigma]n", "0.95`", "1192.6`", 
     RowBox[{"-", 
      FractionBox["1", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.193513`"}], ",", 
       RowBox[{"-", "0.128062`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"\[CapitalXi]n", "0.94`", "1314.86`", 
     RowBox[{"-", 
      FractionBox["1", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.184`"}], ",", 
       RowBox[{"-", "0.034999999999999976`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"\[CapitalXi]m", "0.94`", "1321.71`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.184`"}], ",", 
       RowBox[{"-", "0.034999999999999976`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"Dn", "0.86`", "1864.84`", 
     RowBox[{"-", 
      FractionBox["4", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.14`"}], ",", "0"}], "}"}], "1"},
    {"Dp", "0.86`", "1869.61`", 
     FractionBox["2", "9"], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.14`"}], ",", "0"}], "}"}], "1"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.658739893841172*^9, 3.6587399001411257`*^9}, 
   3.658739938629602*^9, 3.658741033219021*^9, {3.658741076475069*^9, 
   3.6587410979304447`*^9}, {3.659682813088233*^9, 3.659682864776061*^9}, 
   3.659683132365612*^9, 3.659683186209374*^9, 3.659683259353006*^9, 
   3.659685712904228*^9, 3.659685886834814*^9, 3.6597003880948153`*^9, 
   3.659725187964471*^9, 3.659725296796467*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV0Hk81Pv3B/D32IYxNMauobFkSUmFkvQ+SnXLbdUVlRu6la2FlEoxKFcR
ITeSLVpkLQlFHw0hIfs+MygqIkV+aPu+f398Hp/H8/E657zP42i7Hd91SAwh
RJHv//8mWGXk9+/PFHr4zDZzEMFuT4Pw2Tni0MtvvxOfi1+lP/mNePn8a/Zv
EdSM7nUbHiWOTWCLv0PgkpDaU99JnOFS7jaEIOaL4evEfOJHu3P1PiCYyrDK
WXGA+EQ4q3AMwVNp12NHno9TSHjxydwMgqCGjtEXrmMU2q93ZA2bBh/vqKuu
5HyikJfBJ8EiGiwS/SEzTzBCoZg8TbYtDTIVM6a6Qz5SKHn5snwXGlTuq7tK
4Q8UCsx7kXueBpxUDjdhYJjskzh45RYN7NbvO9t6eYhCK8NQcDkNFnw/zDPa
/I5CcR1+gwIaLMlL5vmODVJIN9buq5gY9Pulm3TcH6CQlPh0pIEYeNyKybjl
2U/2Sa8I2ioGjoFOujk6QnKPxMZVZ8XAcNRo3+6UXgplKwc+yBQDr207Lg2+
7aKQnE7zbIcY7D253drCooNCymeuiTPFIY76sIN60kqhtTVyC23EAYt1OZjQ
mikkdlp+a5A4eHbxT9yZrKeQ9cta/efisCYxWO3pmRoKLbR23SEtAe6CL71O
qnwKpW08beUoAdv7F+fW6j2l0FDSFvMHEmBBJXWOXMyj0BvTN5lMSbCccD4o
PHidQtUb6NYnJcE49DOj4lQcRh7BrOG3kpBfM54V5JiP0cJNj3OPSUH55rpV
q/mlGHGal0aK02Hc3Kxycoy4qKzKRooOWjopW3PVn2J0+4TqrDQdAud83Lg+
xHG5P73l6QDZ6pFS3GcYOQSJearToYrpIWq5UIZRh17q06V0qHtDD/OypDDP
131nlTMdRh/c9tjmyMc80zL6NEWH6R53sZdHiZfVVHEq6YBklyZZhfIxCn3/
bEM1HVS8ntUb5hEzP7ul1NNhnXHbUnGJSrJ/hdCzmw4J2ZLTxfmVmKd36Ivv
JB1sc9xDtOkvMc+iNcneSBqSc02SpopqMEp4ulgmWRqOMdUuz74i3vSk9Hqa
NKz1ovn/EhB7RX/SyZQGoWHbLmmpWow6lXduypYGbuZZBsehFvMU958sKJWG
zJtVZ9dPkzyEv4DeKQ05/+51jLWow0j/8nmRogyUuYYpmxbXY16jxUutGzLQ
zRK0DtUT0zyK3yTJwDS1IjZpsB6jYCbtUpoMmGoNyNPlGzD6GV30I0sGMnqs
pIX/NGBehuZB7XIZuGL/ZS6C3YjRAfrvDe9kwHHD/v73R99gnuRuxjILBpya
epSSHEpsma0VYMWA2AwZZ/vENxipD/PqgAH1tOLu51Ukz8naddaOAVxR+Mc6
uSaMcs8bqbkyIC7p7WD6P02Yl6kicLvKgHNKie3b2c0YPZf47TvCAC9xB5EP
h/hexhf2BAP2f2V/jNNvxrwNd26XfGMAbor80bmaOJtzRJkmCxKRPF2Xg6Te
RDdWWU0WosTdfU48Jt7bHWq5SRYyvlrIxTi0YHTX+aPzA1m4PjCpUuhCrMRI
qCuQhbCmAm67Zwvm3f3bd22xLLjnLTJTDyL5lzsiqypZMPHU2pd+j+Sls/Oj
hbJQMiCZ9XCG5MsfRmcoMaG+qc225WYrRgref0yEMeHJ/r2rXmQSS9CLLKOY
kP5BZFyQR3ypZDQingmn0Sg7it+Kef5nfm3JZALXlDaweYTkC2yemPOZcCp6
yYUXlm2YdzFJovE3E7S2hRUVdBG7P6m+GSIH0j2yWamDxErbGHoRcjB5KOZW
1Kc2jNqdKkri5KD2wq1Qb9RO5jWPSNyRg5O5j3YaGhIP7eIY15KcKRpL9W/H
vFtm+jUsefB5vVI/WqUD8+591lXMkYeQ35PBDtod5P7aDJ1ieYhdUSDQXEzs
nslaz5eHx0mG8Tk2pF60ZWNZlzzMeKlL1HkT78ibuiY1DwKZ3wckKkm9iYH8
5KF5EA3F1vUNJE9dLWPtOw/S/E4mxnURe+pk3AqcBy/6RnfojJN6/qrC5Bvz
QCK3j8LqnZg3OH0hr24eXNn6PPncceKlvZqZGixICj43a3OuE1cYDZuFabMg
p8jiL5lLxDftnE8ZsqBBM5+ZcJO4Su1ygAULWOOpAUUvif/+LrXYngU3ooKd
JuZ3YTA7JbcxmgWZb2yVD9d2YTQZc6lFUQHUkmKT/FpI7jf1XoujABGH+7VD
+0ieFV9+Xk8BfH8GmKRNkLyaX3rUXAFsjAs39ah14wrdoB/GjgogDNM+t82j
G/PsF1g5pCvArl3HkfPJbnIPy4DuBwrwUrM8zOtCN4aR+fd9HytAzmPHuPAY
4skZzocaBQgYjM7hl5J5+d+MP34m+6z9JbRg9GDUy/ozwZYNkTJ/Htqg1IMr
6FMH725nw++2xFF7rR7M+1qS3bSXDcNe5jMnlvfgtFH1ggAfNhQleitk7+3B
XLkEP8s0Nuz61rN+QTaZRw9oaBBXhOoKw7olRT0YzvdtFbIUwTLy9I41FOk3
uKiopKUIXF22s1MryfOvWX9dpQifd2w+HfedzLM0r756QhEic4rv0//sxS5G
Gn/PvlcEfe6aG+MOvZgruienOKsIFXEVl9pdezFvdW67O0MJJs+9csvw78UV
r5s2NS5Rgr2bezk4g9hHGPbAXwmmyg7I6ueR/lbx0MYrShBl+m6WWdqL+0sF
ilYpSsBXHevoaSRudLH59lIJjIZ/XTs9R+ZvLszSU1cGvlNokLNkH3axfsuv
NFGG/Q30Y7asPsybYA8+s1WGa49Zdmz9PlyhHTNR4aMMMyE6knk7ibd9mDzS
pAzVCzaeHbrfh5G/uXnnbRVwias7Ul9I/Md/XYcoFZiT2u5Q+LwP94fXeof0
qYDJ+J4VwW3kPTmG9Rk1VYgv8xjjIAFOM6Us3t9QBRPT8V5xWQHmwky9X6kq
1Gb41o0ok9zY83hZryr8uBJwr8RYgCt+lvnH66jBP05XXXfvEWBo87HY8FQN
ftUr7LByE2DevyMl/oNqkAD/rdU5SupzJuCurDq8NkidPxFCcnFWl7arOiyf
LmiPyBNgF0ubpgF1Daj3MK/yLRVgtObdPWynAYcFpY+cqki9UDqKFqgBN6v4
0QY9ZN69XNH0ew2gxbVtrpQUYu7dgOC2N/PhV/KI25d5QpwWEbB0PYMDc/fR
+QUaQnLfmXdBGzkw9XxxXoCJEPOeeHhXV3Fg4tW6mqxVpF+bFiJF14SxNsf+
znVC3G9SGh5spwnDIxfZZnuIFW5syuvVhLffbhq7uQpxhbLlXJaBFvSjh7bX
vIS4wHnVilOntaBbRXD6U5AQw7Kg42aaC6B+nXlv5n2yT39UeekWLrzaajfV
8kiIS1a/+28ukAvVjq5ytHIhRoEBlplFXKCOXcXOzUKsFiNy/L5IG8rOZjhG
9AqxY2FbKMdTG0oulvqUDpF9201LonO04dHNoQzlOSE+sU5jNHuNDuTf+V62
XkKEWTobTFkROpBToNDhIy/CXWhI1UaoA/efGXxOVRPha7EKd15Y6MKdamvp
Rh0RVpuydzCK14XbzfbaPxaLsMvin/6Gc7qQ0uexetFKETYtK7999bAeJHyN
9w6zE+GZ4ylnwp0WQvzP7EuP/xLh8LPNguTBhRArzU8ZPCDC7p5juuZn9CFK
sauY5SnC/Vt1I/dwDCBCa7xprZ8Ic738zKKaDSDcSGLEO1CES4YNKuWSDOGi
mYZ4UrgIJ8S/mPp23giCsSnnVawInziU3lJwfhEEbtlo/n+3RNhMY82WsHRj
OPfX/m0L74nwmtlTAVe+LQZ/F98j9g9FeGqLxsLl/5qAn1c4L/iZCPMfDlxX
sTCFhlM/3aWei3B1ZF5hDs8U/gfK9Gsb
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVlXs4lOkbxyeRWi1bUYoZ7zsHhuQYFem5S1MSimwOLY3zIZXOtGXfZKWN
VKIkUTQJi7YT2nZEIpRjItIwjsPMWKdIbb/n98d7Pdfn+h6e+37+eUnfgy4B
CjQaTYi//59GaKnk+3e5kJpbrq56gw6uoXpxM18we/FsDDCfTF6rOz6JeXJ5
yBbMVcOevv3DmH8tqYnCzL+e8aHuPWaD3sdyzJf/5damFmKe86thUxodJrKs
8833YrbZkZGaTofS+T4Hgv6RCakl5i/MbtPhtzetwy98pEJq2Z2dJvfpMHR3
+bI12iNCKi7gWW8RHQw+2S1Q+ygRUkFXDYqK6ZC9JGuiPXpISP28Lnf/CzpU
7KlJEKJBIVXWbtH1mg7aGdrE9e5+nNfguTXTYbvtnsjm831Cqk9N+q2TDjqz
gZT+tl6c16nd1U+HVQXp1GFpj5CinFDrKB1ER28bteZ0C2lWreL5s3QIuXk5
62aoSEgRXov2KTHAPcqDlc/sEtJMNSI4ixjAHdbf43qrQ0hlny9K0GbAPqed
v/eI24TUiV3EcX0GeB7ZYWNp2Sqkxn2jSywZkCQc3Cl80ozf16nqvi0DkELb
bqM5jUJaR4uKtwsDQtvKw++O1wkph3FpJZ8B61PPaJZGVAkpyeA9k0MMCP74
b4fHsnIhLTO33CyaATtEhn9Ws0uFlPcSK/kVBlgK095LYgqEtOSgPxgCBqwb
9fLr8rsqpCUsPLmihAErz8p/KDuWhKhvo2FNdQworJLd/829ENECHj5PFjPg
+baatVblJYhm9rpo4xcGDOfeCXFyL0c0rRWFV9R1IP1Po7SJx1WICg8xDjDR
gb99YjVMntYh6u/AVZ4OOnBSPfXdjsWNiBI/itTfrwN1DS2bm240I5r/vtHj
F3XgUO0a3cSlrYhGuMd/f6AD2fWbNQKr2xA103ZoR6cOxOc/zVF26EDQYeg1
OZeAOUkt2yqUuhC8n4rcwiBg2f28qmw7EaJ97vcRrSOg9R7FUorrRjRxvnuA
OwF78gxiD/f0IFpHcYxjFAHr05StKzm9qMznT6bvPQJU/aZKNqzsRSLNN4nM
HAK6DfrWFpv0In7P79FizLGl5ZZ51ph1jWcDcwlobD9tdtkZ5zcl2h/9k4BA
zQl9r9O9iEjfJct5SMClZJHmZAv2BwgGo8oIECeWTLFj+lDmgeNx8zoJMBPE
S2LO96Ey+4D0IczRf+/t6r3Yh6gDe3zefCSAGFJ6lZ2K9V29MymfCPDe5JLM
LuxDItGhWDMxAW0TEnP2hz5EO2racUFCQJ2H9iGWST+ivX65/u0MAY9Yvw2T
nf0os1Ux++0KEh4rpR3ldGNdT7mxSYuEJwNPvnH7+xHcvdXyXpuEp3kyNZPR
fkTVr/LvZZBQau69eoPiABJdKKxUZpEgtLU57WmI+cDnzIiVJNT4zaomnRpA
NIlhkYoNCbW8ZddTzgygzGuLtFZtIKFOz5y8ETuAiGNbY3cgEt4Mh5rfvjSA
oCjF79pGEhqOfHArzMZ9j2n+5ltIeHe2JLO2bgBRPr+2pe8gQZR1wkyRPoho
wOXa+ZEw0V4gP8IcRISjo16OPwnzf+rPF+sNoszpuKQFgSQYn3LVqzAbRNSp
Vc8bgkmIcjXVjrbD+ePdaeEHSNBWGlaiHR1E/MjwxulIEjwCvdtna7DfrLRt
wxUSwm4mp+xrwPqJ7JeNSSRQTXW7Ot7h/MI5JwOTScjZYP22VIT9jblOyddJ
mF6qWRE5hec5NklbkEFCSlVj/mdyCJW5Hfxrez4JTVweNR4xhIjh5Ece1SRc
M6hsmhc1hCD90jzVGhJ+MeRxVpwdQiJLXbeXtSQMGPNqIGEI0XKq566pJ+Gr
JU/94m2cn2z7srqVBA6Pl8OtGUJUxIDitV4SInx4DV5aEkR7usB6yVwm2PhV
Mg8REkRNJ7eqKTFBIYB3LIYjQcQP95TUlJmQEMxbkWcsQWX7XqzWUGHCnYM8
/2lbCeILzp7YuIQJdad501fCsN/YqoHBZoLODR5R/VyCRONa4yvsmMCX3B94
UY71g8APtcd5K9XCZ1W4z8dC87kDE3Q7Wm0KGzF/U4sLc2aCkXbwnpQ+PF9z
57YJTyasv/VHiv+Pw4ivrV9ZcIAJnnfqF87xGkaZAurColQm3Bwzb/niM4yg
M6W2I40JXZuup00EYr/Wg4u5t5jgK+YbDIZjXWHm7c/ZTAhhj22tj8H68cDU
3kImRAjUz6bnD6OyqLvK8iompOR6zKz7itn09SXiKxOGndonMuaMIJGqR2zP
dybAuPuokjJmvkwrfy4LJNbuA42LRlBmhUfibhUWbHiz+12IHtZfusaraLGg
T77rQarLCKJEOtvV1rPA6mpz/ne3EQR/RV90BxZcXLsrJ8ALM8FxydvMgrVn
XDJMgzELVgzud2RB/GLnhNencT66z2PfXhastnAKmcnB/SfCXEN/Z8H59jf+
ewtGEKG6ucfrDxZ0nXbkVz7EfLvqnFciC+JeObhd/gf32Wp2n0llQafbdp5+
ywji9xlT/gUsiDlpR3p8x/5TcaYVH1jQzqjWFipKEf+8IeeKiAVGFVs1OT9I
0ajeK3F4PwvaVLaq/asuRT9t+yb2HmOBYTrvW5yBFO30cLBTUmFDs3BTe/HP
ON/8eHUlYsMHY5XQck8paijZFY22sEGU0fyldq8UmUREudY5sGHkN3/tTyGY
M0JGGJ5smAexe5WicL/N/vV/HWPDurLXfc4CKaLFH+kYKWIDmFw5vicP+x/b
9f1TzIYtmZ7KAUVSREg8duaWscGFGuZGlEqRKNQ0or6BDWHwY9itt5j/CLL1
G2NDRtnOMcmUFMHC3dc3WXNAYLL87MQsvu/lzflTmzmQn9m95D+aDNF2q3S/
ceJAMXXYYpGKDGUW+IfKfDnQBFcj1ujI0E9q1zRUEzjQVvTLgo1sGSozW1X7
/RoHPhGcG/b6mB/GqDGyODBCe/LMy1yGdt5PW9pXwgGlF+//O7sVc17UuRdD
HFhompmY4ID9rzVbrKc4sPh2MHHNWYZG7R9kSRV0gXFmZmPuHhkKP2K69z9t
XVi7Uev3hoNYP3bMcZ6rLmx4INb4cBTPGzTgeMBXF3hkvkAcKUNF/z4d0z6k
Cy5zbKqnzspQw+zcYLdEXdj3wluFfl2GYPGF8XP1uuCb0Z7ydzreZ5EiN7hH
FzxPuzJ/yZKhS6G51c8mdcFunf26tAIZomicTQ10PWA/sAhaXon1oiaa7VE9
0EosGiuukSH+rS9Tzhf0YPH+lVHuDXgfLe1zCll6QNMnk6914LzlRYWgFj3o
zFxYoTGG9ym2/scUuNAcdc7p8Wfsj+HrIC8u1Pyi8MH1G35vzcQpq1+5UKw5
PZo0X47/96e45qVcKJw6fMpcVY6IfM4zhw4uCFqkys1L5Oin2x/DEr9x4eol
MWOxjhyFZyV0tfH04cIB79wHbMwaE5PKYfoQ7dBu4WwgR1DjbPUgSR/C59c7
XLKQo5zdgk9tA/oQ1L+tzdga3xfV1XBJ3QC8X770qwc5Ck76+tjS1gAcqNKT
qg5ytHOZ+pMegQHYelvMK3CWo7ULTrtv6DQAq/VFlx3d5Kh6Ln/1avWVwJ2+
mxPvK0d8i5r0d/ErQaeVWG0YLEfXo4x6571dCUsfpQlr92N9wWt70WJDUAy/
3PpDpBy13VwqULxvCLOOC31zo+Ro+pXmjNGsIYytPCfdFiNH7p/mFlW6rIKh
BQqRQ+cxv5ocCS5aBaKBU4rnE+Vo8KPy92Z1I3hf+TmRm4z7bJTviCkjeJt1
WKv6Bu7rD15+a9IIXp2RCoIy5aghNvy9zVFjeL432ExZIEfF/Uf+Qv8ZwyMb
8XNBnhzFXPm65Jm9CVRsWXPOvlCOXsUXPMynTOB/pSmZpQ==
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"a\"", TraditionalForm], 
       FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(m\\), \
\\(d\\)]\\)-\\!\\(\\*SubscriptBox[\\(m\\), \\(u\\)]\\)[MeV]\"", 
        TraditionalForm]}, AxesOrigin -> {0, 1.5}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotLabel -> 
     FormBox["\"\\!\\(\\*SubscriptBox[\\(\[CapitalDelta]m\\), \\(q\\)]\\) as \
a function of casimir amp\"", TraditionalForm], 
     PlotRange -> {{-1, 1}, {2.1106648797778007`, 16.50263522159073}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "(", 
         RowBox[{"neutron", ",", "proton", ",", "a"}], ")"}], 
       RowBox[{"Implicit\[CapitalDelta]m", "(", 
         RowBox[{"Ksn", ",", "Ksp", ",", "a"}], ")"}]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, 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])}]], "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, 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])}]], "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], 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[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm]}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.658739893841172*^9, 3.6587399001411257`*^9}, 
   3.658739938629602*^9, 3.658741033219021*^9, {3.658741076475069*^9, 
   3.6587410979304447`*^9}, {3.659682813088233*^9, 3.659682864776061*^9}, 
   3.659683132365612*^9, 3.659683186209374*^9, 3.659683259353006*^9, 
   3.659685712904228*^9, 3.659685886834814*^9, 3.6597003880948153`*^9, 
   3.659725187964471*^9, 3.659725296867242*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Light quarks", "Subsubsection",
 CellChangeTimes->{{3.655925689222722*^9, 3.655925697442486*^9}, {
  3.6577149260026283`*^9, 3.657714929459653*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"neutron", ",", "proton", ",", 
          RowBox[{"-", "0.67"}]}], "]"}], "+", "0.000021"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"neutron", ",", "proton", ",", 
          RowBox[{"-", "0.15"}]}], "]"}], "-", "0.000021"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "0.5"}], "]"}], "-", 
        "0.8"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "0.9"}], "]"}], "+", 
        "0.8"}]}], "}"}]}], "}"}], "\[IndentingNewLine]", ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<-\>\"", ",", "30"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Mass difference for d-u quarks. Casimir case with \
\!\(\*OverscriptBox[\(a\), \(~\)]\)\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6494236333682537`*^9, 3.6494236426024694`*^9}, {
   3.6494241364614935`*^9, 3.649424217129401*^9}, {3.649424279155983*^9, 
   3.649424346548066*^9}, {3.649424380696353*^9, 3.6494244179397125`*^9}, {
   3.6494244605413103`*^9, 3.6494244918791847`*^9}, {3.6494245226063156`*^9, 
   3.649424524679083*^9}, {3.649424605575287*^9, 3.6494246148671184`*^9}, {
   3.6494246733773575`*^9, 3.649424674819755*^9}, {3.649426343044653*^9, 
   3.6494263832106647`*^9}, {3.6494265418905277`*^9, 3.6494265668578157`*^9}, 
   3.649438824042061*^9, {3.649438856391624*^9, 3.649438865157397*^9}, {
   3.649439220518591*^9, 3.64943922902142*^9}, {3.649445633977475*^9, 
   3.649445648708639*^9}, {3.6494458927027435`*^9, 3.649445933487588*^9}, {
   3.649445995548564*^9, 3.6494460071819963`*^9}, {3.649523043490364*^9, 
   3.6495230512195024`*^9}, {3.6495232893488474`*^9, 
   3.6495232950009036`*^9}, {3.6495234357124805`*^9, 
   3.6495234381586185`*^9}, {3.649523510525578*^9, 3.649523512376383*^9}, {
   3.6495235721189404`*^9, 3.6495235839373903`*^9}, {3.649525812472726*^9, 
   3.6495258862650566`*^9}, {3.6495260598991203`*^9, 
   3.6495261050165987`*^9}, {3.6495261395131216`*^9, 3.6495261401480474`*^9}, 
   3.6505381932936773`*^9, {3.6505382263409367`*^9, 3.650538285984268*^9}, {
   3.650541282539022*^9, 3.650541300093564*^9}, {3.6508326532893515`*^9, 
   3.650832759196541*^9}, {3.650832792012394*^9, 3.6508328338177767`*^9}, {
   3.651390573815928*^9, 3.6513906002656374`*^9}, {3.6513906661709404`*^9, 
   3.651390670462797*^9}, {3.6514152821345863`*^9, 3.651415325471198*^9}, 
   3.651415389235346*^9, {3.6516443911186414`*^9, 3.651644391170084*^9}, {
   3.651644460027775*^9, 3.6516444643241463`*^9}, {3.6516444950974836`*^9, 
   3.6516444993695436`*^9}, {3.6517577625378733`*^9, 3.65175790114286*^9}, {
   3.651758200515793*^9, 3.651758218711029*^9}, {3.651758257806612*^9, 
   3.6517582687889557`*^9}, {3.6517618799626875`*^9, 3.651761885175527*^9}, {
   3.6556346265313034`*^9, 3.6556346437693696`*^9}, {3.655634742178726*^9, 
   3.655634775554748*^9}, {3.655634852193449*^9, 3.6556348759427223`*^9}, {
   3.6556350734010363`*^9, 3.655635082861988*^9}, {3.655636667572729*^9, 
   3.6556366735231557`*^9}, {3.6559255906307783`*^9, 3.655925593345001*^9}, {
   3.6559258896880264`*^9, 3.65592593248755*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
       StyleBox["\<\"-\"\>",
        StripOnInput->False,
        FontSize->30], {0., 0.}], {{{1., 2.2187652783929326`}}, {{1., 
      2.5347108821533237`}}, {{2., 0.7208236475796184}}, {{2., 
      5.07014615170043}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.984375, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotLabel->FormBox[
   "\"Mass difference for d-u quarks. Casimir case with \
\\!\\(\\*OverscriptBox[\\(a\\), \\(~\\)]\\)\"", TraditionalForm],
  PlotRange->{{1., 2.}, {0, 5.07014615170043}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.655925935444021*^9, 3.6574608301731377`*^9, 
  3.657461099029389*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Strange hadrons", "Subsubsection",
 CellChangeTimes->{{3.655925689222722*^9, 3.655925697442486*^9}, {
  3.655925869482394*^9, 3.655925902181918*^9}, {3.6559260361015124`*^9, 
  3.6559260397736893`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"Ksn", ",", "Ksp", ",", "0.9"}], "]"}], "-", "1.2"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"Ksn", ",", "Ksp", ",", "0.94"}], "]"}], "+", "1.2"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{
         "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "0.306487"}], 
         "]"}], "-", "0.035"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{
         "\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "0.371938"}], 
         "]"}], "+", "0.035"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<-\>\"", ",", "30"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Mass difference for d-u quarks. Casimir case with \
\!\(\*OverscriptBox[\(a\), \(~\)]\)\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6494236333682537`*^9, 3.6494236426024694`*^9}, {
   3.6494241364614935`*^9, 3.649424217129401*^9}, {3.649424279155983*^9, 
   3.649424346548066*^9}, {3.649424380696353*^9, 3.6494244179397125`*^9}, {
   3.6494244605413103`*^9, 3.6494244918791847`*^9}, {3.6494245226063156`*^9, 
   3.649424524679083*^9}, {3.649424605575287*^9, 3.6494246148671184`*^9}, {
   3.6494246733773575`*^9, 3.649424674819755*^9}, {3.649426343044653*^9, 
   3.6494263832106647`*^9}, {3.6494265418905277`*^9, 3.6494265668578157`*^9}, 
   3.649438824042061*^9, {3.649438856391624*^9, 3.649438865157397*^9}, {
   3.649439220518591*^9, 3.64943922902142*^9}, {3.649445633977475*^9, 
   3.649445648708639*^9}, {3.6494458927027435`*^9, 3.649445933487588*^9}, {
   3.649445995548564*^9, 3.6494460071819963`*^9}, {3.649523043490364*^9, 
   3.6495230512195024`*^9}, {3.6495232893488474`*^9, 
   3.6495232950009036`*^9}, {3.6495234357124805`*^9, 
   3.6495234381586185`*^9}, {3.649523510525578*^9, 3.649523512376383*^9}, {
   3.6495235721189404`*^9, 3.6495235839373903`*^9}, {3.649525812472726*^9, 
   3.6495258862650566`*^9}, {3.6495260598991203`*^9, 
   3.6495261050165987`*^9}, {3.6495261395131216`*^9, 3.6495261401480474`*^9}, 
   3.6505381932936773`*^9, {3.6505382263409367`*^9, 3.650538285984268*^9}, {
   3.650541282539022*^9, 3.650541300093564*^9}, {3.6508326532893515`*^9, 
   3.650832759196541*^9}, {3.650832792012394*^9, 3.6508328338177767`*^9}, {
   3.651390573815928*^9, 3.6513906002656374`*^9}, {3.6513906661709404`*^9, 
   3.651390670462797*^9}, {3.6514152821345863`*^9, 3.651415325471198*^9}, 
   3.651415389235346*^9, {3.6516443911186414`*^9, 3.651644391170084*^9}, {
   3.651644460027775*^9, 3.6516444643241463`*^9}, {3.6516444950974836`*^9, 
   3.6516444993695436`*^9}, {3.6517577625378733`*^9, 3.65175790114286*^9}, {
   3.651758200515793*^9, 3.651758218711029*^9}, {3.651758257806612*^9, 
   3.6517582687889557`*^9}, {3.6517618799626875`*^9, 3.651761885175527*^9}, {
   3.6556346265313034`*^9, 3.6556346437693696`*^9}, {3.655634742178726*^9, 
   3.655634775554748*^9}, {3.655634852193449*^9, 3.6556348759427223`*^9}, {
   3.6556350734010363`*^9, 3.655635082861988*^9}, {3.655636667572729*^9, 
   3.6556366735231557`*^9}, {3.6559255906307783`*^9, 3.655925593345001*^9}, {
   3.6559259504400945`*^9, 3.6559259777036705`*^9}, {3.655927169600425*^9, 
   3.6559271736142626`*^9}, {3.657461480426155*^9, 3.657461489824538*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
       StyleBox["\<\"-\"\>",
        StripOnInput->False,
        FontSize->30], {0., 0.}], {{{1., 8.626524335596674}}, {{1., 
      11.931033005272678`}}, {{2., 5.5265122237636}}, {{2., 
      6.113527169727863}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.984375, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotLabel->FormBox[
   "\"Mass difference for d-u quarks. Casimir case with \
\\!\\(\\*OverscriptBox[\\(a\\), \\(~\\)]\\)\"", TraditionalForm],
  PlotRange->{{1., 2.}, {0, 11.931033005272678`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6559259861586523`*^9, 3.6559271748110495`*^9, 
  3.65746083020313*^9, 3.657461103047002*^9, 3.657461490332201*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Charm hadrons", "Subsubsection",
 CellChangeTimes->{{3.655925689222722*^9, 3.655925697442486*^9}, {
  3.655925869482394*^9, 3.655925902181918*^9}, {3.655926025573382*^9, 
  3.6559260331174097`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"\[CapitalXi]m", ",", "\[CapitalXi]n", ",", "0.316"}], "]"}],
         "-", "0.024"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"\[CapitalXi]m", ",", "\[CapitalXi]n", ",", "0.465"}], "]"}],
         "+", "0.024"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"Dp", ",", "Dn", ",", "0.86"}], "]"}], "-", "0.1"}]}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", 
       RowBox[{
        RowBox[{"Implicit\[CapitalDelta]m", "[", 
         RowBox[{"Dp", ",", "Dn", ",", "1"}], "]"}], "+", "0.1"}]}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<-\>\"", ",", "30"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Mass difference for d-u quarks. Casimir case with \
\!\(\*OverscriptBox[\(a\), \(~\)]\)\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6494236333682537`*^9, 3.6494236426024694`*^9}, {
   3.6494241364614935`*^9, 3.649424217129401*^9}, {3.649424279155983*^9, 
   3.649424346548066*^9}, {3.649424380696353*^9, 3.6494244179397125`*^9}, {
   3.6494244605413103`*^9, 3.6494244918791847`*^9}, {3.6494245226063156`*^9, 
   3.649424524679083*^9}, {3.649424605575287*^9, 3.6494246148671184`*^9}, {
   3.6494246733773575`*^9, 3.649424674819755*^9}, {3.649426343044653*^9, 
   3.6494263832106647`*^9}, {3.6494265418905277`*^9, 3.6494265668578157`*^9}, 
   3.649438824042061*^9, {3.649438856391624*^9, 3.649438865157397*^9}, {
   3.649439220518591*^9, 3.64943922902142*^9}, {3.649445633977475*^9, 
   3.649445648708639*^9}, {3.6494458927027435`*^9, 3.649445933487588*^9}, {
   3.649445995548564*^9, 3.6494460071819963`*^9}, {3.649523043490364*^9, 
   3.6495230512195024`*^9}, {3.6495232893488474`*^9, 
   3.6495232950009036`*^9}, {3.6495234357124805`*^9, 
   3.6495234381586185`*^9}, {3.649523510525578*^9, 3.649523512376383*^9}, {
   3.6495235721189404`*^9, 3.6495235839373903`*^9}, {3.649525812472726*^9, 
   3.6495258862650566`*^9}, {3.6495260598991203`*^9, 
   3.6495261050165987`*^9}, {3.6495261395131216`*^9, 3.6495261401480474`*^9}, 
   3.6505381932936773`*^9, {3.6505382263409367`*^9, 3.650538285984268*^9}, {
   3.650541282539022*^9, 3.650541300093564*^9}, {3.6508326532893515`*^9, 
   3.650832759196541*^9}, {3.650832792012394*^9, 3.6508328338177767`*^9}, {
   3.651390573815928*^9, 3.6513906002656374`*^9}, {3.6513906661709404`*^9, 
   3.651390670462797*^9}, {3.6514152821345863`*^9, 3.651415325471198*^9}, 
   3.651415389235346*^9, {3.6516443911186414`*^9, 3.651644391170084*^9}, {
   3.651644460027775*^9, 3.6516444643241463`*^9}, {3.6516444950974836`*^9, 
   3.6516444993695436`*^9}, {3.6517577625378733`*^9, 3.65175790114286*^9}, {
   3.651758200515793*^9, 3.651758218711029*^9}, {3.651758257806612*^9, 
   3.6517582687889557`*^9}, {3.6517618799626875`*^9, 3.651761885175527*^9}, {
   3.6556346265313034`*^9, 3.6556346437693696`*^9}, {3.655634742178726*^9, 
   3.655634775554748*^9}, {3.655634852193449*^9, 3.6556348759427223`*^9}, {
   3.6556350734010363`*^9, 3.655635082861988*^9}, {3.655636667572729*^9, 
   3.6556366735231557`*^9}, {3.6559255906307783`*^9, 3.655925593345001*^9}, {
   3.655926047901018*^9, 3.6559261007035074`*^9}, {3.6562233881242027`*^9, 
   3.656223398908207*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`],
      AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
       StyleBox["\<\"-\"\>",
        StripOnInput->False,
        FontSize->30], {0., 0.}], {{{1., 4.494584243856765}}, {{1., 
      1.5525133092262413`}}, {{4., 26.05870380652484}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.9531250000000001, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotLabel->FormBox[
   "\"Mass difference for d-u quarks. Casimir case with \
\\!\\(\\*OverscriptBox[\\(a\\), \\(~\\)]\\)\"", TraditionalForm],
  PlotRange->{{1., 4.}, {0, 26.05870380652484}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6559260872580347`*^9, 3.6559261015147166`*^9}, 
   3.656223430205843*^9, 3.6574608302502193`*^9, 3.657461105688714*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Misc", "Subsubsection",
 CellChangeTimes->{{3.655925689222722*^9, 3.655925697442486*^9}, {
  3.6559257327828927`*^9, 3.655925733310686*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mpl", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Implicit\[CapitalDelta]m", "[", 
       RowBox[{"neutron", ",", "proton", ",", 
        SubscriptBox["a", "p"]}], "]"}], "-", 
      RowBox[{"Implicit\[CapitalDelta]m", "[", 
       RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", 
        SubscriptBox["a", "\[Rho]"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["a", "p"], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["a", "\[Rho]"], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.8"}], ",", "0.8"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fpl", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "p"], "\[Equal]", " ", 
        RowBox[{"-", "0.32498448657770906"}]}], ",", 
       RowBox[{
        SubscriptBox["a", "p"], "\[Equal]", 
        RowBox[{"-", "0.19779200441658287"}]}], " ", ",", 
       RowBox[{
        SubscriptBox["a", "\[Rho]"], " ", "\[Equal]", " ", 
        "0.46978229750300965"}], ",", 
       RowBox[{
        SubscriptBox["a", "\[Rho]"], " ", "\[Equal]", " ", "0.6"}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["a", "p"], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["a", "\[Rho]"], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"mpl", ",", "fpl"}], "]"}]}], "Input",
 CellChangeTimes->{{3.6478491660646152`*^9, 3.6478492715579844`*^9}, 
   3.647849338980896*^9, {3.6478493990569267`*^9, 3.647849416918495*^9}, {
   3.647849448951407*^9, 3.64784953879937*^9}, {3.647849647510529*^9, 
   3.6478496581931973`*^9}, {3.6479756825180454`*^9, 3.647975699210885*^9}, {
   3.6479757842363033`*^9, 3.647975847234271*^9}, {3.6479759585661125`*^9, 
   3.6479759917216067`*^9}, {3.647976032384798*^9, 3.6479760786520333`*^9}, {
   3.6479761355807877`*^9, 3.6479761398659554`*^9}, 3.6479816553427944`*^9, {
   3.648017044657016*^9, 3.6480170494435863`*^9}, {3.6493186912484627`*^9, 
   3.649318694057344*^9}, {3.649330213452711*^9, 3.649330224164955*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{
     GraphicsComplexBox[CompressedData["
1:eJxkXXkgVs/Xb7NVCkVJiSRkS6ks1amULSmtqAihxVZClBatCkm0yJYURbKk
yHJRFMr22Pf92R9EUUrv8+M7d97UP7fPM3Nn5s6cbc6cOaStnXfZTpk0adIs
vkmT/vcc/9dHBC41CFpq0AFNbxwb3zgySYzKX//v58Yeshzh9PEniYPH3yNx
61j9RhLfGyuvJHHoGM4n8Xh/SVl/4z6ibrxfsn+EUf8Io/4RRv0jjPpHGPWP
MOof4Zvj5YBwwPj7JE4Za74GHP73eMMGn7HyFNAN+t9/6EAZq1fyD574PsK1
4+Ml20P9o/ePj/3eDOPVOFAy9p9M+P3nf/+okDj2eyHcHnuPAdHj4yHQ++j7
EN4y9qyHJf+rFsQCqbFnFYnR+BBG9dH4UH00ftQfwmg+EHYaf48Yb68LDMfH
QeJl408Sj9NoG4nfjY+HxKg99D2oPYRRewij9hBG7SHcOb4+JE4ZG380geYT
zTfCw2PzXkZiVB/N16lxTM4feh9htF4Io/YQPjb2fdWgNzYeNoyMldeSGLWP
1h9hNB5Erwgj+puIUX9ovVB7iP4mfj+an/H2G+DO2JPzHz00kRjRK8KI/v4e
XwP5PYj+/8YUGJcHDHI+xseH+QfVR+UT5w/RK5o/hBE9o/cRPaP+ED1NlI+I
/pB8QhjJI4SRPJpI3xPlIypH8glhRI8T5e/f/NxHYtT/RH6YKB9ROeofYdQ/
wkg+TuQP1B6i14nyE80/oh+EET0ijOYDvY/4E2HEnwg/G8Nv/nufRvIPGt/G
sWfRf3RHJ9cfvY/WH9EPojdEn4ge/5ZvTSRG/aH2Fo6VfyD7Q/0j+kHyEK0f
c5x/CMRfSF4gjMonyhP0fYgf/h4/5R/5MFGeT6Rv9D5aL3I8//ETKkffh74H
jQd9P5IHCDePPTuJE2Pz0Q054/NF4slj/dHI70P1ET41Li9ILD8+XhKj9hCu
HHsGEWh8fWPjJsjxbh377goSj69vDTSM9cuGmrFnLYnH6zfDeLOc/+in/r/3
kf6rhnF5wCLXd6K+nShPUTnCqBzNR/34PIDz+DyR8zVtrLycxHfH2yH7Q/XR
+qH5RBiVo/rbxsbfTmKjcflHYtQfeh/NN8KoHNUfGesvnkD0j9YDYVSO5h/x
LypH64UwKkf17cbgFxKj9hF9ovYRRu0hjNqbSM8II35FGNELwqh/hNH6I3pA
9DSRPhA9jfNbHVmO8ET6Q+WZ49/zHz9RyfEieYfkJ5oPJF8RRvUn6ms0v6j/
0bHvYf/H7w0kRvSO8K+xZyM5XoRROeKXifUR/yD5iTCyBxBG7/8tf1tI+zZ1
7NkC+mP1esnxovGg8SKM5DnCqP7f9kH9BH3U8M/6jctbJrm+4+PGGPE/kpeo
P1SO+kPrO9E+Qe8jPJGekL5B5ah9JN8nYjT/yJ5B7aHv/Vv+15EY6V8kXxBG
/I70PypH+n8iRvWR/YHoD9kfCCP7A2FkfyCM7I+J8miiPTKxHOkfNB5Ujvh3
or2C+AVhxN/bx/mflCfu4+8TE/XtRPsF9YfsF4SR/YIwsh8m2ieI3hC9IPpA
/IT4A60nog9Ev3/TH+ZnxH8Io/7R9yOMvg/pr4n2CSnP/6M3RF+I/tF4kX5C
+gzpI2T/IH2CMNJ/E/fjqH8kjyfux9F4kTxEGO0Hkb2OMOoP0SPCaL0QRuuF
MHof9Y/oaeL+C9En0jcII3mO5g/tt9D8I4zGj9YfyRskzybKa7T+iD4m+h+Q
/kDzNVHfIn2CMBrv3/qTOkF/UsF2DBb89z6D1J+IvpH9itpD+hn1VzjeHklP
u8YVAUy0H1B9hFF7499LmcAflH/ocaI8RfyK5vdv+7jun/0g4ieE/5av1eT6
vB3XUyS9y463S2JUPtF+QxjZYwgjewxh9D6af9Q+wqgczT9qH5Uj/kIY9Uf6
C8b1MYlR/wgj+3vi/gTxA/9Y+7mkfETrizDiD1QfrTcqR/wx0f5C/IXqI3pA
GPEPan8iPaH5QO1PtCdRfST/J/Inwqg+ag/ROxofqo8wKkf0hfpH4//b/qdN
8AfRJvg/GaS+QfOH6B3pC0QPiF6Qf2AivU30VyD6RPSB6iP9jTDS1wgjekEY
6W+EEb0gjPQ5wmi8aD7ReBFG45tIv4j///Yn0GDT2O95/8kDGqlf0HztHF8P
YqK+QOuF6A2tF9ovTdzP/u2f6CLbQ/yEyl3G3m8ny8ftgzbMD//NH6qfOTbe
FrIc8d/f/uoGsnzqWP91JEbzjeqfHLcnyHKNsfYy/qN/GgyN/f7xPzpC81lM
YiTfUHvIPkHyDvEX0i9/8zfer/zt737/Xzmd1B8Io3LUP+Kfv/V9MUnvaPwI
o3Kkj5B8QvobySc0PiSfEEbliJ6QvYPeR/prYn3EnwgjeYHan+gvIdsf+72S
nE/Ezwij8r/3F5X/7B9RObLHEP7bf4n99X+X15HyFtVH5Wj9J/qHJupjNB8I
I35F+hW9P3es+PV/34fpA60voge0nkgeIPmE5MFE+Yb6Q+VIfiD5hcqR/EIY
ySuEkXz6e//SQfLP3+8jfmsi8d/tIUwh8d/tM0Fp/PtJ/Le9O9Efh+U7smcR
nmg/I4zkC8JIPiCM9BHiT7Q+SD4g+wnRI5IfaP0Q/yF+Q/Q+UX8hfkD0jeoj
ekPrjTDqD8nfifsHhJG8RfjR2PMRKT8Qv6D+EEb9/b1fZU7wbzEn+M+YE+wj
5gR7iDnBHumZ4B+lkv3/7T+h/OMfQvoHlf9tX7z/R9//7W/vI/h92ir7NrSD
jNrx+lP7qSS9IH5ovSe2ZNL+DpKeOYMPRJtZHST9TvH4PSQW00nSa2D9yHvt
W10kv3lu+B03JxWftz7q8m2kcJhA8daRT+NjEQ8PuW5d9qod4kqNp1Xvu0ic
XVlsLRLaA1XeruZrP/US0zR/XrzwlAlxGxS7NY8+IfKO53pqxbDgHK9Wid6+
p6CzX9pU4j0LJPcn+d+wKoILl/UaylaxobL4dMfw4i/gIPaNaWjIhhLXoI3s
mzVw2LQxTqKVDZcirWxEkovhlJ+04rFvNEi6GBL3Or0EyiIbqiuF6SQ9N9aP
ij20xfO1r3SeeV0MPp+88tHM8a0FFZr0qAcPbmwAhsjPhBvbOaDpxu9RFNQM
ZVErU9zZHHBR/L310MYWyAgZjVaR6oWsz5qerP4sAG9dI88yKunf2mdVyWOu
y4FDO+WHh4LrQey40HYxcxa5n1uh4d8stYgNtaNDJkzeKkgzuHeWEsCArzdv
zxpKqPrnfPXtd0GVRa/Z0Hxr8j2Z1mZi1uy7vQ2XOqH7qMZ8i6l1hH9J58DO
0U5w+7Nlj+zsGmKSiN7AUqUu6E0/pXOu6jPx1Pfu+Z/MLrj2mBlcOKUCindT
9PI+0sHdSSpCMSKTUPuq7aflxwLVL/yh0pszCUa87bkaLjZ5tMUlVugxkX4n
5Xv5UxZ0bt18QWluJGgVZQlo5bDARibSTv1FDqS5D1fX/WCBQG5I+zPiA/i9
7qzXEmfDIsqLvqFVBRC9zO9k8zEayFMHq/n/4PNIZH8fXiP/y8+XDt/b7wrc
dqqDu6suCDYLc+D5o4xfyuYNsPjwJb3nJhw48isv/vDMJniW7nf1mj0bzN87
LL8z0AL8M59KP7XqhRMNRw1mKLXChUlyIke39pL+j8uLHGYaJ3Pglae73ZoM
7G8UD9CQ13j4r7/xsY5C5e/fHPhYs4p2rq4BlmuqSvY0scD31M7DQZ7/73wy
K6YwU7rhH3/iKkmNhNAoFgi1et4KPlsNbcwfcsI/8Pnl1rZjxIUiNrwZGGCJ
iUw8P62CgRNmZ3xTGRB6Qy2/enY1uX9B/oveANPntbwdoFH6+MGVWfi8EOmT
9QULS3IudZP1vYx3aptUY/9J+eELDK2lNFhdwW5pjsjF58fTqrSLPcsJpm4c
75G9LNjnvFr2imQZ8S2mVZlhxoKm8uGOY6aFBP3xQ9UbJ1nw4Uq9Uvbxj8Th
9yJ6bk4sUv6/4bzW6UvG53/rQgzt1Kdjf2PG5oPXYtlMcA9YdAM6OohMqc0V
FbwsSEja6r/zTyexe8e7U68msUj/zL1LOxr4Z7Agxtf49te4dqLI5GgLTZAF
U2W/2pk+ayMaGi03z57LgruJU38n1DYRqSkarOQlLNhaNa9bKbqFSP/cfjRq
IYv074QcCFt4VpUFP8qSLOs59YTRcqOHssosyPoVKztkW0eYj1KCRlay4E+u
utmaYQoheLUzB7Zyy6f0seatrSZMHWxy2wGf3w86Le9LuEuDRN3WDyd16uDJ
wcBFei3Yf2NyzdjyqytXHpSk7N0W2/TP+WJFy533d5+xofOJXtO0FqxPkH39
1n2mcO5UKvbPnfEafinYQ9p3j1wCl1aocOdPzMJ+3mNs39UeMhCQnM0kmmcH
vdzxmQmv05816t6kE5ubex1PUJiQN7dfy37eG/g2mfli7TUqnNc3p8zSLyIy
l95flirRDdevvUgxMikgwh+/UNq9pxteOFNTusxeEAtyc52pa3tAwePk41h6
NRgpBF/fVM6GMt2hrRrnP8Hoo0NPWzNp4Cnc7VZW0gQ3BVYGvMjhQNqw5pFc
wxZQl1c6/EGmFwwe2WwLy2gB5r77DvtYHBCb5pkboNEAFmZegsGh+HytV6Pv
yMqHLIia19DAWZH+z/ka8auE/3E5C1qaIpNf0nqIN3cF/Y/s64AmxtC+s12Z
BF1a/ndqQTcM8uUH8ia/IwxNZnqcLO2GNlu3pEeXK0Bjq6X04R46JA5PO3Xn
XhU8vfxb9y1X3npoSH9uWtcCK+AZn+MDDqy5+GMtpbAZhtyPe0hx5dHkBPH6
1QcS4cpQELNlAxUeJOZrd3Y9hX28ro8VRKlwyeVWcofyexgJKr+uqkkj/QXf
q3K1VwjQgek+z8J3by3wt+3ZRB9gw1Qdq9uS3rVA0+RdZjTMhj/Bxw7+KK4D
zlOmhOlCDhh89Ms+Z14Ps6aLmqqqcMBC/qB9okoz9Kt39fX/ZIONT4YDbbgR
+q6v5lSFcGDI8VaQ6awmWDKpztHtIQfmhR7e+dy9FcxTZ/tLpPTC0eP8M/i8
W0FOq/X4u0SuvHxXkXdxA44vQucztj9zHfQpHIgO/fL8nGoLeX6D9OvlZ/VH
6D1sUv/12csGq3zD5zlRvPQ1QhEY302TsGUv6SXlrfHT6xkDO3uBco5TbWiE
z3s+JJzYGfgL4weXrdJ+d9VAd/zyJs5Rrv122kAtbkojaJ0UGZzeyyL9ozeq
mRtGmvH5x3eDrWJb7Fggkl504nwVPu+hpiWs7Uusga/mNRJn9jOh+O7dhDi1
Gogz/6O9cwU+73knuXJ5Zh0+b6l72SS7ipcD9wN9le7n4POXPoHsrFeDDCLG
44HrovJ2aB1canPCgU6M5Omf2Ta5A/z0I/KNZ+b8c34S8miy6M/fXaT8zD++
3yEjoYc833i3QeirnQkLCka8KCLvK4gMdcWtG3ew4LzftnQVtc9EJsVc+YQV
V99oNczbtfkkbMiIF6Gn98DlKL3SpJJC0l+C9E//0BSNI9OZwH5i8E5XoIa0
L7u36S9q7WuFNTaBUW61XPoY3fhyQ38rJNIDHkZW98Ilh/XUCo/W//zivaD0
W/bFlAsYO+3U/jWNpxXGoGMvTLl/69IeO4zH7dZWOHn8IeHoj3HgndRzA869
pD9s6JiB3vFs7P/JFPQZVKQx4byaS9ITMyoR6TWlmsVkQvJynXUZPlRC3m95
5G8G9v8/+RF1g3myncRWWZuTkuNxvEKl3LFlvJ0saPaKOCIcnw5RKxwo4QwW
HJR+kFSV9xpy5A/KW7Zj+Z5sH5wcIcQm7ZXzGmYq/jvZwLn35A3dpRQU8iwb
RXdz+S9SMLMwpBaWUnu8KdFMeMlU+LjgeSrpH0H+9QIptcihPipck+zYWrSN
gHKdLHlPOva3D5Z5pW/2p5LyfZpzRNrAMg6cD/uzU3Z2LzErT7/TwLQdTGcy
o3QecYhnA3Mts460k/6PzD67LtYtFmxuWHU/4Wce4ff9s2z8eRa4G2S+0QrM
BSrh9ujyJDbEj5oL8R/4APGE2LR8MTYwW/oYgZUVEJo+PfTOWTZcHD7ocyui
HJZb3kgI4dpbP4wymjbTS4EXvt/ZdJwOC85GNG1OKyf9pUdkFy/Z3v8JzrO7
g2zUsH90s+PFpSHAhqN9uhYajXnA6z9J8KwEDX4ofTOiZBQTccsGN+60xfFB
j/w2Ln16mU3uB4V5orbIU5lgREj3q+/vIbbayj3u7WdCxJYj1pnaPQSflET5
va9MOKOy+uYiyW5CMUxo060fTHh7sdDsgGI3EShs0buGi/nOu2vGTeoipow9
WeR+8uu+Z46Lp7Lgtr1E85IP7cRCvyPOelz7YofVzWwN7zaimspnLyTKgsUt
c0RLhVsJVY2FqiskWKS/7nnGOZa/LFf//hSqtYhoIPiZNkvCl3P5c8Ua2Xt3
a4lc6hG2+hqu/fxh+fAtlRrizaDm1jptFqTvzdD7visKoo5feVT+E8cHufUY
DXd/6ib3k6vftlE0zXpgm4O9ege7Dn4GWUw35fa/dmvRhtSvOH4U+V9WfTq/
uCAYxztpLf4V5lrIBBqv6fyWUny+VGe2l1Nh+69/6PuSb7ukfzIhu6ureP4k
NtGq7NFrFdRO7gffJP+wNMhrh76cRKntVR1EQaLSPSk+Fo6/7XQf1p7Ogk/3
N+pOMWgiXtbJOz9ZyiL3m92TFF69kGNBfLu4rUZ9JXGfoaANhixy/+nuTOks
MWLBfPuTrKjIfMJHg3/Wi3Ms0r6lSjMzk71Z5H648diNb5SIdpJ+NvV8XpAm
xgCLOzH6LpbpsKPxmfLaCCrMyIpae/NaBqzYR3UOe0El/etLu99OumXDALNp
Z3eGUSlgUlJmNO8ag7RXn6bqbjkR0QGiSuEbLYt7iFV21/lXmXfAqOOBJX86
uoijBiKBDQ87QKotdZch155dOP6Ekxm75pTLdRFbX994Ep7aQdqzTs2LdO/o
dMLIPrvZaz3bCYWviqIi4p2gS5Q2i1DbiKrOeS5rV3SCqfOfyqILzUSPQ1Ec
+HaS9uuke4lOzkJdQDuQpDvQW0/EPlplbk/pBFcd0czXZpXEa00lock3u+At
oynysAEFIm8KJ+04wIBuP74CI99KsOmjnxFS4OJVwwuvHvhM+oPQeUf+9JYp
jXo43s9Yy1DkmA0L3hslxXBe0ojDv9ovmHcxQSqe91KFB40Ysjp98EY39qfc
fJIZxu/CIv0pGrGN/J+4/IX8Ka2hk7+mLGaR/pRC/ZbEsM0s0p9SFeqq86O+
h1yfzYsOmmqFsmHdYNy+tWGVEDJwbcYufzbclSuBfFUKV293L26/zwbLLIFl
an5VMDPklFNZKldea6WVHXpEgYPidwf4otiQdrqlCtg0YoR3qmSlcAfsfLM2
atuGSuLPHd/4Jr8uWBAUKzajiEmIjT+hR/VA+klrrv6wLgqUysfxQu+dg46e
XMkG2Q7zWSXpzbBKeihPSZ8D7NkVhy6fboSs7q98StJs4P8WsSAmvwpy51Vr
b3yP412/hF3itTDm2kPO7T750o2wRv92jqQzV75/kbasi2yC9eLO5XOS2CR9
99OM8+8WYP/hgHlAdoY7i/RXJrg41w/xskj/pOvdKusoGRbpj7xo8CUwQo9F
+j8EV3X2bZqG40mZIh7zp5Vhf+roRlOZvpXYXzLrwnwF5i0G3HF6e9VKgvpP
PKmRX+Y0wcnYv3qaKT/keBT7V181NIvUMXA8icyD7OINylQwzVs3/66CF9me
5OwHOcf080h5FqNdvdd4I463R/6nOzrfjRWdcf+Ov4J9pvtjf6wefYN8YDL2
vwYsYfdFt2J/66vzOediw7C/dYNs2uScfozVr0i7iZ7C++XCYYIl8h3jrP1K
h4+74/OkgNMqAwkcjK9QQu2mccen/kJ8Sy8PizjopWq8WqcH3njdHGyZTyXe
HFby/BXeAypu5ZUMPQpxtOD+vekHe4AauLXM1J9JfGkKoc41ZoKb2XODZA0W
AXNXOmZFM8A+VWlh2FUqoXByofsNLj1toL23aSzpIFQGvgpMYjKgPGP06mnh
JuLwalneOgkmGJumrvjq1ExI9xSvEHdkwFP3XMn1zpVEueDKkBfmTJAQPrba
oIJChOQ2+8Y8Z8Ct5jvb1op8IMJuSCifGmGAm4ghM3tfDZQqc65fPs0G4oxY
/malWujZK05zCWDDI2lPy+M1NXBm8lHxQxls0C2TC9Jpfwntmtuio2/j89Q1
e08NX+Pa1whTFcVv/GnA++O8bAMx6SEcv7XFb8tK4WIuv+ZNOmm1FMc3zMy4
m3GZ+Pd+xMOFIRkc4Pb38sr6869ySXm2cN3ey5HPmuHQ+pkJtzo5sHC/Qu6t
6Ga4HT+3bWsFd/+y8WZn8spmOCBV0G/K3R9d1P72ImewGfLCvfZa/uTAcGyn
nq1jIfwW5Ut8doQBG32tln0M/gin45dzvDwY8DknoclCNY2YvLjuT/FHGjT6
bPdiKiQRgpKyy+LbsD98wcvt75LW0mFllGJG0i5/8jzz/OUY90K5eiA27dLu
vMuCofIFbO3RKljLY5y74yALrOs1t3s7VcHkSxuEVGNwfMPtI+sqY1Lw+U6e
MVXA5BmOV9gbdD6tyxnjY1MStmjW/D9/otMWd/YeHO+jcnzR1VtrMN4Q13zz
2m0cz9pQbx06oIj342bTPAemvsP+04grcm298zBOzKd2M1xwvOts5cjfk33/
Xzzs/rR9IvMwnuVT8mrJUybI5EfO3arAIRytn3u3Lu6Cj3wfVdz3sYmzbtHd
nWpdcE7ugfFhOTqxp4Vn+byQLmBPDtCT+9FF0Mef4CSRo2ze2EYEHNm564lj
N2RcP3I/b4RNjHS7L05opYGytWn0aQ82wSNe6K3YTYM/D12iXA5ziNqdLWfl
SunQOBq07PVKOpEm++aEixgdnDTPKubOoxPHx59gl+B7xHgKjbAef4JW0/SW
N4N0Ys34E95JLJpucbebSCEe2njL0OBB44/IYy87ifSlfh9SgAaT29Kf7Lrd
TUgrbPv0SJoBb5StHt5500XUuA9kN+jTwdq/eFdFahvRM838e64LDSyetFf+
/NhCDNiEpNy+QYOijH6hfQfaCEEjMXPaBTp8fV+W/cO7llhu/2KrEYUGhn2v
/K7triECKLNeR3Dpb1+luPHReXVE8If3wbfz6VC53z7iZV4ZMX253YPg2TQQ
vFlkrz3lEyF8Xdsh1YAGU/zvp4uuKCNK+ZwnLRdlQGVkd4poXwnh4zflj8JW
OpgJtH1vOxlHbHnzp+RBD51rn5mrJy58RJyz/fjO4zcdNn49abnLOo44mizh
/PYFA8INhVTczN+CgEf4waxCOtRInhXXEc8Bf4/r01MH6BCwIlAs+Fs67K/u
Ysg/YMDSq33S37LKYMvULwZUM66+uT+3cU/lI+LuAV0fA649WJOQLcjYFEtE
TWr8nMW1F/jXfrI9JRgF27SKJwc4sUBH5uUWXrUYWC3gIFDiyoIrodHG7CUv
IDf584OEudz9Rf33/ZJF2VC0dPLqJl0W2EYsL83vzwTRHnp0cTQLmE93CvT5
pgNvrLFh+WoWSAr58r57WAg5yd4aTZdY4LqvOiOG+AC73+/s3jeDq38PmhLb
BT+CpaDrkoqrLOAURcaoun0CkZXSz+u4/BKlOtk0ur0AntXp/8osZ0FHtVWL
tXQ5qFpYpd3ntqf+ndd/RUk58JbOaklSYsEF27CiNw/LoevsYd+lrVz7nrqE
TyysDL5OOfDM2JMF9DL7jiPx1XB9pvfUWkk2iNvO3b8juxqcv7jtMeXaG75B
B9PbV9TA2zcVMrepLBi4EeO/a081+GQqZ9TsZUPKpjJq3LY6ONG/rjp7lAWr
kuR+OGvUgc3x9K3FG9mgJeBmS936CEbow4I2hjTYy7h7S3drNLDLm5N79PF9
ovara7+MUnD8WsJrtxuC37G8X5Upe2njDxaJd9s/vLTrOb7/dKZO/7kAhwYl
oKbz/VQDfBWrztBW50pwuelebnEN0Bl9VPKcOAfeef0QUBmqh9gd0sYKUhyI
1eL3Zr1pglLFWT2Va7j20h4H66mtTdAhedD14xIO7HMq11vA1wzfhV9MyprF
gfltLuqXFjWBWL3ZzRuXOXDAOOmKqU4TDEprdYS5cCAiq7dK9VgTVB5foJV8
iANty1Vl+W43QXLqzzsFhjheWaPxQPbdCxg7VHyLsbLhgPLLuslz1+LzBLOQ
hx90PP+971QTON/Hso4BB+zPFu8gGiAxdX13rCUbwi+s2VxSXw+5Xcr9Gw6y
4dnsKJn5yg2QudDz4gOufXk5QXO3sU8DGBknHP3Nh/WjpYr2Oo4FG/p81H83
SlEglm9YtnEy1/7wf2A4qlUDjGW373CyufJ8yJ4uMqUGFgTUZT+SxfojVsXa
tEAPxxcbK4pQ953D8cjzeH0E06swPiXh9+35Q+z/4g+adzgmHuOw6sQZGm4Y
u5m6LYhuwPpnS/3rJ8M9XP61uM6w4+D4Y2RfrndZ+mPNj07SvpP+fKTvZxG+
P3XQsfnGi804PvlUauLa45Qecn/iZCF5iijF9qxwjcY6JSq+H7VU5v5MgRIa
2b7D+6k2N+bgeAFr0V9pa9XwfSl5N9sldyyYJNZIlZX3e4vjl/2nWZ/z1sf4
8j7zMiU7fJ9q/qOFAqxn+D7VmmrrGaHDdNC+S90Uy/o3nnlts2NGwyU6VBne
vH+gt+yfeOYVz8U+OdczSLwybMfDlBFcLj+SOXP6ORzfXDqaOVw8E2NJPqaE
RDi2Xw9uyrHTfYf9LWovz90M4mGT2MSs72ZMGo5vnmEmqajZiPfDGo6nWt+e
xfe1Hsv5vTHkxTjZ1ihrqyWOhxZNsF0l/hDf50pYJPHzrTbGWQca/6QE43jp
uddS3G5x6Rf53y4veOf09D4d1Gobrgh8/QQqhkUR3u/pYLnATkPhehGcWn9d
4VIZjqc+sTc5JfURE6YZit7Oe1MLP8zdNCKX4vPX9OpRu6kHufadqXbn5wZ8
/hbjYBvVduvf+2Bqmbrz+F7h+OqC0eb80DMYG09TznZuxuc5UZl9b71qcby1
wrtTPVmi+Huev9h963IME1R8DA51eBTAMkHfxW7edNivLnSrY2YxqF49/Mzs
Mba/eOaqFx8KpcJG3eWe+U5vCeqdt67SF6lw7GeSxY/DUYSpd6GRdzsVrt04
mQ2aT4lcz+3bR8upkPcxakPPlyzixbVX55e7MUCK9fC8xYcMgh7eGb7jPI5P
ove81vTjoYN6q+LcRd8oUMqM6jTKYsKNeS6afFso8LRstLyWqz+nimj9Dp9E
gZQjG9IlD7ChZPY9kc8OFMjLSe9a+P/un/llT7He8gjHI+06bFql9ROfDy5Y
s7g/W5wG767z3k3jvU3G31y4+DvefQWOH8rfUrfTRvEDFHOKFOW+McCjpOrV
eaUC2DYrQXyEK+/Q+KNNl+p67MY45V7XtlMJ+Psca/ZvSAQWiVmTnO7nfMH+
YFu7bDv1rRifjvF2UI3A92fUrge9HViN9VdScpzQtA/c/eJnBxliThehX/hW
liLUDS4R8w59p3YQo/mHexeodcOOgspL7JtdRDNdYq5IVQ/Qax+o12wuIb6v
XuafVt4Dv45m9QhsoRHBmX7xC3gYcEomerNUHpWYpM+s2jKdAb57xKNDqD3E
PE9r9Xcr6PAhwkSkTpRO7HofGvOLK58++124ctqVRpgnfxJ7mMUAkb3eKvre
nYT5NU24q8mA4al1zMDjXcTp2pZLhkZ0yE4rivW37CScZZ5ajGgxwDanrT/t
egcxTykrTsaGDntiPkZHTesieEWemM1qY4B2tEz4wKpWQjEvyOvBTTr8OCHJ
l2jTRFBYv1r8I+nwe/7kU26arcReHafgk9O5+/WCbJuq4WYi7qGRoPRxBvxU
0Xgh5lJNPFNzL1vfQIciSobudAqFaKUflLlKp0OkeJSQx7kaonjmzhvaG5ig
daq/VwOqifkZwx5hkQyIVyzIKaEVEnPTjIW+bGXAQ+Gj0r/Li4mHI0/f5m6j
w5ZBys/T5YWEmq6ejZ0uA+4HpX+48ug9UeCYu3e5Jx10J/F0OOoUEWq+c8KX
djLA0JIGpyGEaHN10szk7p/NWYfKGqm3CQi7NvnDJwbsuS7cp06LIqasN2yP
5e5Xo39yRCxHc2D6ds2HmpkMGP1ZEK23PxcGOAqljwoYcHnppj/8LlkgbTBw
z2E7E/Q79Hjf6JVDmqhjyB8HBvC9SlmQdrUCdlvONW7i2sPzrw0Gyt8th2LX
gaAlS5mw5sERq20xNcDzu9VVhmt/HVRqiu7tqYaBlUt3V0Sw4aWwlsidjTVg
uNHt0aRTbHgXfZWpcbUWaLlWlG9WbGi+bKYX0F0L+8o9ZEvU2LB5w609L9pq
IdDr1/0VsWyYsWJ5ScjGWjg9sG33sv1sMFBQXX40sgmeBc8Tfb2DA67yFxlK
0AyC57soI1c4IDMwtyzyUDOkzQ+1ynfjQGX281SRc9z9c+qO3ht2HPC5seHB
1dBm4DHm8d6xnwMfDZ3LVtGaoJPlYHUmiQNzr/yQfzCtGdaVx6rrRnPAOvuy
zy+pZriX2sE3N5gDM40eMamu9WCzmu5B/cUCR4p3p0p1PaT0D43ofGZB/Fvv
ANkH1dB0J6zXfDbXPq/gBAu7VoPUFhWNIy54//lbvyp2JXc/gfaP8XP7lDPC
6CDSFzTp1UF8//1zy8cXB/nTyPgM01VzfXlie4g9409oen6bUh7eQ4zObOHr
KesCYtUnoxmPugiJy08D4it7QIjvZ1S4fwXR37JqwwvvHlDj8k7pixLi8dSc
bLnPPfBJ98/h+B1M4sP4EwzttV6wEhiE7vgT6t1Tz3GeMAiDypZYcw53v+/t
JiirTidiShbOW8rl32dndlg3tdKJc+Wb8x1SGHAovVYxrKabYDZJ5eQupsH5
S4TtbIcOIqLY5KbpaA8MG391yZTtJDrszx4f0aOB9ddajW3aPYSP9vFDwV+4
8v2xYtxAezfRYlG1f6YkA67YPKNolvYQXmFmSoVc++aQ1uK01wrdxOOCNsNt
Ndzyov1OiWXtxKcD595uHGTA+32xgekq7QQfvaTecDd3/p6oH5o6rYOYNUfz
fOoxOlhpavMkn2gjPL1X1vBMYcJpAXV6qHg7YfdS86vEHgakTc5csLaugdA5
OHfk+xImnFFr3734YT0hezp23onLDNguusvLdH8DMdsmxTPvFR0kQ3vXxW6p
JZ5F2cxfoMmEUL8DDKWYOuJo7MtN+30ZkK/s8KFDrpJoEltj3T+HDpfem8Ho
/HIisz1h8YWZNOicEvfZyPo9oSvrWvBWmgrOQvRyLYsCwuT+uQwjLq/fNMxf
uJH7fqXBi6gPB5nwI+ousYVrf03/JvJVl2AA//bWo2vOlhOC5+sP+c5gwOZu
kYQZtC/ExhNbYqXLGDCwa+dIR85LYjlPmiqnkbvfrdo45OpymJhPkciespqL
eXQegpMXcT1CbI7+XAaY3GM2L6AkEbN4OmK+ceVZuumCgSmrXxEPnhz+NszV
Jxr1D91TBp8QgfHyv3/v4tpvjouit197A9aPjF0u5NFhcrP2pMKveSDfFctW
0OLaj8MSlkt98iCo3vvqkXkM6Ll56/xDt9cw83j3enl5Joh0KthJ0FLBal2B
w1RvBqwM+RbaMesdPE2x2N20iQl8dNO2La9LYBtjpfkc7vf78rSsOR3xBRSf
3LlyvZ2r3+Lz3xa1f4EvVhYGCj0MOKapuGy6fQCRZcM7bTeVCUnvxX/vE99I
6P1WUss+yYR+H81fQue8Ccmah1NM9rNAd/2Thl2cEEJTNdu/poMJQvqdM25/
SSRYz4bPTSlmgvow1Z/vehwhFCM3I6SCCTOcNi8ulHxFOG1bPyikzYJ3cnsV
m47nwsw3y7/pdzNhrfTM65HL8+Hl0DpJUzcmPNar6da1ygPaHbcME1OuPDio
3xFOzQG/GQZZA01MiNPbPlvM6zWs1541ozqVqw9lpLbvzUoHjWNrBTvfM6F6
0HLjpWspMN+5LCD8JgvqVjvyCp5Jg6FCQTEH7n67Y21PtNypfEgcCY4c8mCC
3eEFvHMXF8Lyn+F6X8KYcET9x/ITk96D4la78x5HWJCw3qhUzfkD1PvcqS7g
Z4HX4/u/s/4Ugcq6zl2ri5jAo1JiZSVSDJxnCoWu3O/j77w9Mr/nI6hWhSZY
JTHBel5C+eClCnBavy7LmDsfvWv6bKX1KiFWOfRkuhMT5N72H3iSwi0PsvPl
12NBp5jg/NsXy8Fo82n70Zfc73WbSfF7+AUC7PaaJQwzIWiLo8yloi+QYhsU
tI+7H7jblp/82K4Mkkd/Oc0KZoLTrZagcPvPMDLnjXvZbhZYvJXPo1VUwaaL
zV/np7AgWUIj+pJJNYzGmUz//oEFojFTaH+qq+DzEQfqmyls4C204Mgn1MBw
WPkNJnf/rp8hK+ThUQPC6UXf7n1lwYa9r3Mff62CQ9VPF7+6xgaPJ06HL9ZX
gSshQlXWZ8Ov11+CFztVwxr9zZe8g9jww2y98ec07v6vm2dJQhELeDQ3Uipk
6iHf7Yrlc658dpx63ZEiUweNxXsbV8Zw9x8+QaoG/XVwiMJuWxPOBvGD73ZN
F+bil2Zb9iWy4dzFZ7sybepA6ZHNh99X2OBy74c8NaMOVgpp1VPNuPZo7dyI
gLn14OCcIBmsxAZPaVsdHf1a4JWpZaR+YoGeiMTS+d61MEJcEcmmsAAiYlc+
GKiFSV4bZng/YEFu39MYH8FayN0JlddnsLmyp2Cv8dF/719fqFGeP6eFAXeu
Htn/djq+j+3Mv1NjaSy+j43i3wXfzCnJ0MP2pcvilicK7XR4HXXSxjmxDtT3
BLax+tlc+ep1UWywDqoWz9wlXsaGL0de3us7XAfV/oIZu6lsMDtn0KfR0gAv
hvVtQkfZcDZQsPKgeCM85Nid4m9nQ3hMRerFPY3g23Xlkvt7NmTJaD1csrsR
ph1QPdmgzQGn41cPfKQ0wMHRPZVKv9iQvygoLsqnHhQfO4Z3dLNBrUCVIVxe
Dwtuvc87MsBdv7lq1kbCDbCmM//qx0o2WJzc6J91tx6mrdZ2uS3MAWm7oL1S
dxrh4+WYpGVP2dAprrqsobQRehT2fTLg0keSgaeHTE0j1MVkZQoz2SAi+qU4
mr8JXN0ehiaOsMHLNGiPonYTEJQ3e493sKH90f6WVMcmmLGySmhZEZeeni42
6vJohFGlvnrBLRy4znx6elJcI2hOf1nwR5EDwmpK4QvrGsGVeiy5fw4HCsLE
+3XeNnL3MYsXMR3xfXRxbWWV75cxNlb7KPrBHmMfOavfd7ZxoPSuFHd3ju+v
R99+17hFHN9fLwvrXZhs9u/99oyXRqtjazGON5D50pSPcUT3jyMiiRgHXir/
pfeQA9/lRvztLHD7S4Sydt6LwvjQzY0utCqML4jw+a+cguOx5vhXfhPrwvl3
UPzWsrlzq35vwHi1QFfpqwUYf9Qw8XrmifEvFabV6UMciNe3oswlcDxYablc
nwUL435Tzszn4jh+dk77a4UBXYxRvFdWqTbf048YJx4XiWxIwXjz4+0F7+f2
krjf74JsKC/GUWeSr7oM4/rGRzq7dRkY/94hqruoCcfv+qk91r2pj+PLirPf
UaQ2YsxvWHX47VqMt9aw2dtVMb5szXe2a1kv0Ne0SDvY4/izP31fHP19MBaN
z85IDMdYyfYlT3k6xpsXh5v0UzBe/Gie87oujPuf5Fna9WHcXvVKav/uBtC5
fHlZfjKXP9Zu3acZ2gDLK9NnmARw+fn8itTd7Q1wREWn+f1xNgRW+X3+urwR
TkwN2Tm4lQ2LPqt2K6yrh4sbkiNnx7NhxRszapFvPXgYhEUAVz7KCbn8Yu2o
Bw2T4mjQYsPVoy60eUoNcNS7eP7eOOxf1CnuOhN9nw2Ca9azV9Px/fLul5vc
zgTg/Aq13+bt/1qG8yug+LuKAK8/AUcxtrDb9VtdHudfeOobvQPycLz08KEV
pl+5+mTeyYxsxijOX1C/i8U8nVoFv5Jzh6QOce0dnj+bprnVQELJna0ln5nw
6n238/2aavhT5SVzwocFPklSlSlHauCexaFTh7SxvzOsmrFzJvf715pt1len
4HxaKL6vbOE66yVMfF94j16tzNVVbFCm7rdsvFf7Tz6H/ZbZWVMsMF6aoj14
YyH2p3quYUQ6iWL/6Qr58J4jUmzQSLXRC2zB+R5eLAoaCMiqmXCfvwYoG/n0
TZ9jbH8lYoB5Crf/58L083u4+7/RJe0GgfNr/skH4fBI/uq6NWxoPchoVimp
/ec+86mwzRqtXH0rxgnR1fmG85M8ejZvU/SP+n/yZWQJll7N2IXxzM2b24/N
xvdXeLseP50/C+N9vDPd75vgeO9v9029z0/F/tuiknRN0ZU00n8558KRuCEV
7J89mmyi+PATjncXCpZOcfxFJ/2tQ3GP1if2MuDEM1aN6bp/80ksf/80wX0x
jgfQmmyXcvIMzi9hKD1XPucAjg8wt6xSzniN80kYXB/ecU8IY6jvi96qQidx
uHz843JBGum/PVerHCYxDccX+IlyHosdYkCWRxn1iW3hP/kqxCZ/iDnpyCTx
MrjywqEQl2sdW7bNoxX7dzW9jA+ZLcf+X9XPukn8+nSIslvW0V7wmYyPQPE7
g2/KYUEnvu/85A/0rPuJy0MtEsyCvbB/2LNH+rufJb6P8X7dIfqs8zgf3Zq5
oetV5rHgUP/MEZ/5paR/bt2SbSOu5hUETzpr2Wyu/R504dUk14FyItK94IAL
d/+QLuZqb3zzC/FllnNO0yAThtLMT26KKSHCv9Mump1lQsyqqDOzufut/udb
f6cMMOFhyug5hQ6cXwPF/3gW1Gqr/L98cA9Pblu3sQqXbz9g2LbjIsa5K6+r
O4tj/7Vw/44lBUrYf82no+922hDnA6xx37Or/ArOB5iVqbR79RfufrOxuGuy
0ScyvlHy68c5ziq1wOJd6P7pKAsaZo9qm4lifQtfRZqsbmCM8jNU6dmv2H4O
Y/4Nk+dLHMb4i2halv1mjJunX30rLsmBZyPTxCrd6yfkg6mHpruuDTv8MV7w
9uTUEA7G4VcdFl/Nw/5py+hKs/Vcef8r87lzl/i/+ULOnG/f914J+7tvuCab
uPFz4E2/upC0yL/5RMIDLiV9l8P2UsJlk/i4qRyoieqJipuD841oXx7ZmHwN
4/OxOvsLO/7NR1KX1b9G6jjOR7LH+M8avis4/vaj7LpbyxZh/4+C6pDa7gp8
X3cg95fjxgGcn+SzYWK9IYcFt4bOaTpG/puv5EfF15lv9rKAc3nPkgOROH9J
Ad92be/1TGJG6Mkrs627YHQk2OugBs7Xh+LZYLlcnjWjB3ZfdrG9YFr8T34T
C474eZ3f+H5m5mdKG82OSeKS6cE9nQSDlBepjtnChz1p5H30L8fAaJU2zofQ
uGnud9/3+PymMkCmuc2CBfImsd/P7nj/Tz6Un2tFbzG4++Wv078kUJL+zY+i
tWnB/j1LcP7MD7tiPpjPx/lOYi3nmlg30khccz1veeMDKimPI91KrhY64nwq
Q+vWlYmE4Hye5mmral+I4vM03+a2JBkKleS3jty4X72u3SS+6Xnaa9UJGokz
HkvvSZCnkvyosXJ6guwMnJ8lndpvYVlJIzFtdqRG3W0qOV4Vnp06/pr4e0UT
YsLNPRkk/rXrx5BcBh0CzWU+xAmUwrlTvgMtXH126OW73DVSZVAUbnNau5gF
mjYfTJcZfIF1g9SpsgJskM39ZChaVwIeM47ltiXg/J6DWjYjLifoJL7vrTa4
fR+NjOcOkfTZ6fORBgp5azWnG0XDB62Gtd/1GbDToOfEjYJYCD6Sc830HD4/
39wfEEN9y4CrZ3xMudTwT74YHok9P2dx6dUg4eXU0z9rILntXv25PhxP9eXD
6tPumzgkbs7gcZZfxIHmQs+FAZ2Yn5VX3j72yRfnl6nlPexrZYfzyyD7LV6X
/3thJMb+qmv5W39jLDSqtrSsnGuvvk1dOAWa/slPQ3t9MOh/91kQPnF5f+K6
EowHbpYrznyI47kE4iNlfy1hgPvTfAW+/Cw4OWgG/D9xvhqqymO2/jycL2CL
36aO+kKMZwavYBrdxvkAtnfuLLwSTSfxy2Mxk489oUHSp4r072ExBC9/1rK9
f2jwVUw7UmHGW+J2eT6jMosOvOVHFxyIfEMsUd2adyiHDitiXOu/idkDi2d0
w3NtOlhsD+DdMScclqTMXXDzMB26k79P2/HWFRTWwmCaNAN6X1itb4yOIl4s
qElVnk4HebES/2YTW0L4fw9RfJ/eIMytZc1iOpgMfix7kkWBd5LKXu5yLPDw
4LOwX1IFlUe3dvatZQHtTOOQ9g0KLDh64B7vVRao8jApO50oIMHsNtrK1Y/f
VKDfhE4BjRrtnA89LMg4Kv/2q0wVzIl2FrFnY/m36IFIwsspbNhr8MTQQaFm
wv3FGjj2omrH0/ssyNOM/tpTW/tP/hxaSq3itnKMhVouxuzyYEHH4k8bGLp1
E+631YHzaZVb5n4Yux2d1FPExnh4zcjkd7nYPhU7u/ZMnyrXvmXpL9o2/998
PHOPOCU9ncKBDet19dfMwvl5PgXGzJjiWQ3yTe5+T/yYEPvx1FyfT1WQkTv7
RmcXE3TvbD9je6qXONrQGpY4rQt0fxR+zIllEum8mhqbTLuAcWDZpy/qvURE
0eQL2kI90K/j/jnSnUOo8Sw0fS7RA4+yFI49pzEIV9f7Ww7v6wG5pXM3B96h
E7WNzGxnpx6ItJomHXipnZg3szak2awbCN8bcdF36wnZ2qPhNpxuMFt9cYtx
SB3RLSDg4j3aDcOrS6ke0EtkrRUs+/aICjoqpm6NFzmEb+65HMenVGC53jrQ
8LyXWMmbFONQSgMpB+eDr/awiOElzWvt8qnwaGlFlf0DJnF9ad6O9h80uKh9
dXpjDYuIFhRc4JRJhcU73TddLewlhni7Fq5TZ0LSkHWkqkwvcSOx3KsnkAES
KxWumFj0EoqHRz5s5PIPLBPM3NrNJvgc5gUYAROOuTtt2hbIIZol3vDpBTOg
iaZ9w/UEg3itLTg9uZkKVyJrL91fziA4XgG9p9qpIHl4/YMkXSZxQ3uQx+83
DeY3ie8+9ZtK9Mj0JPhPocHqwhP7VaU6iDmf0/utp1GBNnt76usdbUSot/zx
JYpUmBZ6v13oejvxhs/1wXlrGnwfKnw537mJgFn8UZIHqdDdHSWyz7OJeP/z
5sv8CBpIegfZpGxqJeRURa4Ga1Fh8H7ic/qqBkLh97sde85QwaDeNOK4fh1x
ViZ0OesOFVZnrOJY+jYQJ+9er7RLoYGSZVtEtVIV8We63HrdL1QYfZ/vxT5Z
SQTlU6uUheiwKcTyRYtINdFvJr4+jcD5j2jdvflrFjJJPCST9EnNDcsbbQnv
9b+59ifC77bevScYx4QSreXGgpfyCKOTbglZkUw4wpqTz2eWTVz33jwsFc+E
20Ppu6JP5RKt6xOD4xaywFl+RuiiT6+JXUO2v0KymXCmSmx6kWkaIXf3Qcie
FSwI1aaYSKzPIDbzPjYqTsX5lpZHZDWP9uL8SDePLfuQ74j1lUDwukWUEVzf
N2eXe6cvE+43P3mduDQIPlaLmDSNMuGi8vPtI2t0QFZ6U+iVU0yQzz5ke9w+
CNYcsK8Q5NoTB+fEXVp4LgroHz0OXr/JBBOKlE5PiCd48s00XWTJgtRp7/eH
3EiCSq+c/E9PmUAZqEv88CcZZuoslV/ky4Ihucb4o98SQLiWd9HZ+SxQT3yi
uuBsDJy21FldE8iE/Phv5jyGFcC7WLBy21o2FF9xPZ3BVwE84t6poyu5++mp
tkcuXeNqSLMrmaEDLCh2jVFxFayEK4+P1EgnsSCs89b9aV4uUDhPVWBQigZP
+XPmSXwMhDuFr6acpzLg6e7sJlnlYFCdrZrnz8DzpdzwwonD1c+7xuUz8PRL
5WapcfdnyxQjszoSIW7LvDk5IkyYMnJN2YGIA+f6DKtdvExYtIchsGRhMoSN
7un84MSA5FuP2yVsPsN+1aydJTMYsCeYqfXzWylMzE+onHlKqluBAaMLp2dY
C3+C74OLbAtbWbA6+4SL32gR3Py4i5jDtWdTaAG37kiUwItfvmcqn7GAh9l+
ZejoJ1I+I/33QkCKs2QlxvrL+W1OUjE+WnPW5jJXvtdNFjY43vIcqrwdDuzh
2p9Li2860w8mANNj58jeyzhflYGkUdz/9CXP56G7CwdfkfcJM67NCfNPtIeJ
+aqeNw+5KwrhfIkU2eGZVC69f3ui1ZO0pgo2d23K4nIL3Hvy0nkzk7u/y90u
3K/ChNc0pZAAQTbx08ukRWoljucqDZt7GLb3gPdLmQsh+jhfPMpvFaN/tnG+
ZxfUSPxyWidNJ+4R70YjuPbornNpFs6zqETWfofPhgVd8DpIr9WqkEZIOo0a
rffGf7/gd2Ch7fvoHvBffmLBneJmoiX14P1JL7vhnUAW5MU2E7dPZewzfoXz
XdXvUxW2qeiGZ3KxkTKaOB9W3NUjVfG+1UT8j8gCv5X47x2IfpyaVsfVDy+9
i3r6JnPla59w+bl6Oox25Va0KbCIo7kekNVGh/udjU6hN9nEZCKoyW0TE5be
mh55i8oiAuzyZtpH4HxZRSvEDrUb/798OU411k2xOH9WgNLCmYFBVMjh2ZhH
E8X5s9D+49LP98QJrjxGOLzG+mUmH4PEd+UPTDohSyf3M4MesxZx2Dj/csE1
zu/UW0zYOOAnt16thMij2upXn+Py953HOsrbPxLNEJmzjCsPit42+fCoFhEH
BJxKw6bgeLMm+/pVCfpsGLy194wIUU7SL9rv3L4it1JuDcapX84aBDIwpnj2
GkSH4nxd63OtRlMqcD7kO6pvwjXccD6X4wFmB9W7cb7pSHXP5/xXmcBfW7BY
xaeLGJLXaqvwZsLy03pqzlc6CdmxJ87vJR3+ODr5J86frNZoFZewG+OTl7IK
Ve8wwVPdx7VHvoMYeKb+c9CfCeG2JpQV29qJ5TdDbfcGM+Fk3B5TBdU2Qs8y
f1VbGBNWx6eJhI60EZzwJuFX93C+GYHBYPXrIhiLr9yr5XMC58fWbvg172Us
E+Ke09+HP2oleDvO/Pgff/kX9JxdKtdCdMdftW58ivOJNSe11SxXxpjNiWqS
vYbzP8t3BW2N4OqPUfs2kVntDYSBxWuY8ZoJj3fv+JORWU9cnnf5jWEGE/4s
2p0Vf72WGAlQaKnm7kdLUlZbVV+qIx4us90hSuD8OJQb94+v3oZxZ+F+lxUx
OJ/3aNW+9D+VTNiuN/OapHQNMduw2rWlmLu/pc0VbNxTTfjyvir7U8qEfd0/
2y3VMmC+xvdjfM00COfoik1alAFyS9b+tmyiwWLK/kq7F8Wwf88v51dUOnx5
bCZ68zv+exQon5XBySdSc84wQcL2WcCpRTi/ETqPs3dsFJ99nKvvAxwGObR8
eO3wsv2KER3aSqtya9PeQ3XfnOjEA9z9Q/7AakKpEDL6zn1RvUWH7wIVVmq5
+aCuaG9hpciAOosPytNufYDR5yF7duvhfIGHHfc9VFmN748t7c+ZEpDDhMFR
34p9f4qh7dNgneQuJkTE/74uWVMEl1zeluzm8v+MzTE6fQMfIe+StsY9OSbc
zaB7mIl8gpeTFsfKKzBhF5F2PD65GKqcXzYcT8D2x953jYvsrKjwy3C36tIn
uYRE14My9hYunvGl0VOKIPaZUsUKTahg1ah5P37aG0KWbrX49g0qmHvsGXot
mEt8t7O3fhNCg3tend59jQRRUV89t+QeDURFZc8evfaKeKd07NumV1SQmJGr
pNeSS3i6zPD5w6XX8F0zbyXT84hZZvP3TLZiwHaj0KcyP7MJpaXymxW49tJL
6+pa98u5RJ5P3tvfIXTgsdV0XqNGEAL8EdpTwumgueXhlW28r4nuFJnfwmu4
+kFXlLF0UwZRGrc5fKk8E0JYisMuHq+JAG+exZwABmQF1Eht314JvSdeLylx
ZoLvt8W0VVIUuHB/7t4zXH779cJQy9K6EgrX/Ym3HmBCaXR2/bN5VUBJCGlI
zGdCcOfCZcpRlRB5LK7hgx0L4mJl3MKAArc2OfZrn2WBhlND+sIXlTDEblhb
kM8CduYnj/c/K+F+4ZGa/BIW3JVkm3I8K2FLSKWt8kw2FHZd7NrsXAfZNSYp
seY4P1trcJz1RU0WeMl6/NimVvdPvrZ7Jp2Jg3EY087c83lnyAJlY5Efxddx
fjabXi9hP0Ocnw3Rdxevl2T0EJPcTz70Dn7T9hPnYztwT7j082wWSe822cPt
pcP4PLrsQ+KyAO5+qchdI7VfuBAcFT+8/SyI9cuLX4kPLh/C+aBWXBHyyh+h
kfoGgrNdd+Thvz9R3OfF/0iYRvrr6SOjB/P20kj9uc9gW+yc5zR83/daut4K
ETrMr2gV7+apIONBJd0a+aLsOwhrvkkmK7nj+9JyTI3Y20nQAk5eTeTKb7Nf
rocYXAINqXcJ2/mKK98uT1Lv29BMMDv0zyQ85+73AqUE7GUoRJJDvVhdAxMu
OGyfkZlDIZRlhWjetUxYka203+FnPjEa9uwzfygTcnYmLcrY8YGYfz59cowQ
1976Lie56WAh8Sg4dLKPP/bvm/+QE6oQw/Gs0/c2q9scwPeR7+pdiB7Q7CGx
+OWjn/kJnM/g06VmxWl+OF+bjGRb8EkjnG/Vnm/SnDgdnL/tdrjvZZGPVDJ/
m7qc/s7w63SQDrD5FnY+DUS25q3rzObOd0RK6h2eVDhyhvhU8xznc/t+LTDn
LpUJk5/LaAVs+AStFgL3nvowIG/B3kj/+elE3vnH0uwMfF9NykeYWiKB87VV
u6zeWV/PlUduUHsqOxgETklL+axmgOJQzIyZuyvB7oryT88aBhQySnb/kC3+
N7+a13CfnACOv6XGtnp/buDu11aHn9oaWwkjocYZ0bvZsP4dzXaFQBWMzLGe
teMUGxzrP1nb/6CAtKHA8qkn2RC5nX9upk0V8AceM6nXZgPfqZVtnksm/v2i
OugJooZmERjPETZN8z/CAnB0mz7/JM6vhvKtxWg6amjScf41w8N77NrU2DDj
RvWdgn35EHwt53t1C4NcT4UNp3ee18P52DTPqe/zjMLzNVzxbP1ST3zfTvMl
bFfcwAabLzOUVkwhiN3Xzv/MWMzlx65na4+uTic+OYnvBEUWrNM1cor62QL3
DdMuLLLoBckixZRXk1thmW9Bc4h5L0wymvE9h78V0j5Wa8/a3wsdpQzN0tmt
sIW35+G13b3wwaTYu1msFShbvg+N7uiFZ1XP81iLWsH6Mu8+D6NeuLHfl+fX
0lbozxN73auP82O5ZWyOuRzGAZa4WeA3a3x+P6VKv0ns/L/5sXQcCoRNFuDz
8q/7h07KzeyFi9+9r1FLPxC7mF4P5LjyxlA59b6yeBEBZgeV6rn2H7/y4vZH
pi0wIyDjcc3CXjC3mmbhYdcCHQO6nTTRXkgIoTfsOt0CGWZVS0dm9cKfotL9
Kj4tEEhY2Qny98Ku0dQqgcAWsJftjV08uRdiVj406Q5vgQ23ztHVfnLgu935
0tz4FhDtF1DcMsCBU8eHVpS8a4aVy7Sr3eo54PqWUnymvBlS/hjxR5Zy4PS0
pCPLerjl9Rban95zwM3Eb5Qywi1PcXHqT+eAe8TRB5eEW0DNz+fxgkQuZm5Z
qSrXAsm2wVU6TzggXTRvL39nDcgIVGfFvWPDktiUpDmFtVB3/VBIBYUN0sFp
fG4eraAeU3T0VXIvKAZMJzaeaYVZIZe36HDx6huW7jM9W4F2db1UbVIvgM9r
5TouznMfGjnOxQbnBLqfeLVCqH1y7eirXtjtbhHmfLYVTpueSA3i4kMuqbu1
z7WCsYHs7WVcbBQddCXp4r/5e/bfuz/tfA7GhiudwlKfY7yudIs6PRjn8+F1
q7pYn4Hz+UTu3j84jcqB1dZ6s5l9rcCjntSqVdsLV8/oTh7i4qpp5ZKTuLgm
YOvAlP5WeFLde6igpheWPd3SPYuLTz2bHX6Ti90zdWoXcPEmD9WmHVz8sWJz
0TIuFtLfISHKxfNomzJXcnHrfGfzhupeuHc+9M/bMzi/THzg0LwIT4xzo/es
uOKFcc3rZP3jZzFmFc6y2nkO48n1JzzXeGMsxvx0Z+F5jDeZdbNUhHG+mjnW
t5tNF2Hcc1yz1EcB43TXzpyE1RjfPOf/qmYTxoeuro2aZIyxakB74HLzf/Ph
7H21ziPHF2PNwVaV2dcwXqR5ucfSB+PJ55dFJJ3HuDu/aO/ksxgX8TkK7vLA
+KWRUEG0ay88+L8d/Hfq5p1n+3dwTXyvlI/Y77DibGWW+vw39nfWNsaL/d1l
73CK3yR2AWL+rZ136df9ZxDzwSH3MovW8SDOw9Fqqdp2/sQb+/I7THNkth20
V7+trMS9/Y19AddanRs/D9nPcdLmLtv3xn5i7VHvDzef7f+/rNnNBGh/ZeYO
MaH9T/c/cslveQvsrwU9FQycvvDJfpbgt+yswP5Y18Glb6zXPd2/90JdTFgZ
Yjyh+ceXdMf4t/Y77R+tsvK5ba/woG/Vo8h38PMR0oxOC94Elj8Ar+9f2g==

      "], {{{
         EdgeForm[], 
         RGBColor[0.148, 0.33, 0.54], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtk02IzlEUxu///D+KsWPBpITQCNPMMO9Y+Bxv8pWSmoUyJU3KeCcZJMNW
eo1XaiTZKbEQ+RgWihSyY6VEFgbjK5qx4PX5Oz13cXqe89xzzz33nnNn7ujb
UrEQQheWYm04w0kI/8AreQj30c5lIRxnsQxfhbYb3g7/CjazdhbeB95jrQFu
6GtT6aNoFWwyOR+Ad8h7FL4YHCpC6CFmJ3uXYJPg09E2snYGvgHclYl3km8A
fww+C7yAvxl+jPX9+K/g/ab6vM4q6zXsEbyE9pO4F/A6eCuT7usz2NMNHzHd
0+97ifj1hepcB15PFdPB+jBxh9FbvBZTzW8S1ed1vmTvCPw52mX2fjbxL+A1
rB8+33SGn3WenFU/A/0EuAYbgJfBQewm/CRYK9SXU2AJOwBv930mvgBsLZS/
xffhH4I3g52Fal4NVvEnwAfB5YViloHf8bfCP3rvc/F6rn74HRu506+o+3oF
v4T+Gn6RmKfod9Hm5urRnFwz4TPgs+A98De/ivY7vqe/68r4/t6HzJTzA7l+
mPrYANYT9XoqvDET9/77u3ttK9C3m/J3g7OxcfgR8FmcW5/fmmkOx8F3uWbP
Z3CiqRfbTPfxGvYQ/9f0/o/BP6YePfQaCuXxuZ4W6xxLVJ/XVjb5rvs9viX6
F+8T/Rn/O71gU8zpuRfFs/zMebnqbwLfxn5537JUvMvfPPbL+7YXfwp8H7gQ
/yD8Bjia6KwU/ilRzBC8o1DMUrDVNG+3TX/eZ+wJuMnUu9Pgf2Dmhs4=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlFtoj3EYx9/39/7/7+x8wdXulL+Ni9EwLoSULJJaJFI0rP8cJk0khwux
lLFhSZFjLOeaHZAyYgek5TC1HMpmG1vU5ma2C59vz3vxfd/v7/f8fs/p9zzP
5JKdxeXO87wkiIGjfIrZGPM9ryn0vFvgN+s/4DZ8Qorn3YH3Is8IDOJVUoLs
JGcaWL8H8+E1oAn+ARTBMzn/AF4PjrOewXoEXsL9r6x7QKmzPclegDzW90Aa
+gtY//XtjM4OxD3vHKbngvLAdEjXJvAN/hGshW8B30OD+BA6EpxPEO9S1tng
GbJCsMc3H+VrOjbvK3aQj6yD80lnPsgX+STfdEZnE/gzjC/NyLORp7J311nO
lLtK9lYjWwXGOHsdfeuRndcZ1ouxsR9ZI8jibB3rPmQJ0Abv4sxFuA8ess7T
G8GvgkFkQ+AavBbEsHcB/S348wXcQF/I3mVkcbCLdS3338Bfg9PwqtDe5h2Y
Cd8RWG5LQR+6K8Ak32JQLPPQvwFZBpgTMx3SNQ6ysNXFep2zN9BbKIfKpXKi
3PigBn4KuBTzSb5pT7JRzh+DV4JheK8ze6nY/6GY2TvCfyP4pHrivy+qvwFn
EFdN5sM7FQ//UZCJ/n5nsSrmafB+/unon8i/mvV0sDvKh87WOYtdORgE/4i5
m/MrQQ58Tdx8k4/jgb2J3kZvord5HjfdsvEU/gifnbM31du+clY7qqED8F9R
rcimbP901kvqqVnwt9gs479VccLbndWOaqgJ3uqsllXT9VEOlctM8Di0O7pb
BNpD25OsLNLdy/qwsxwr1x3ObMtH+bocnMXXQjDAXpuzXMsH+fLSWW7lg3yZ
6qyWVFMxxeMbVw+vUK6d1apqNg2+xFluleMK+EJntab8Lop6XL2uHlYvKwbF
oh5Vr87mfyiaP8rdQc0W7nay7olqRrWjGlOtjfH/7JuNYfjmmPmr+LYF1pON
UT2dCG2mSbdsLIO3ginOela9+yQwW7KZy/vmBKZbNhqQB9TgGc6GYG9gM1az
dlBxIuvmziVnPape1QzQLLgJckPrMfWabMq2ZrZmt2a2ZrdmsOpfPbEAPuKs
/mRfsQbOYlOMehv5JJnO5ITmk3y7AlKw1cI619kM0SzZHth91UAyZjOvOarP
6tDu6K7u6K5minpJPVUQ2gzTLFOMivU/t+Xh+g==
            "]], 
           PolygonBox[CompressedData["
1:eJwlkc0rxFEUho87P79JyMaGWSFfIUZpxsJCzEIpNVkhyh9A8pVodrIws/CZ
sjY1IsSEHSXKig0lVuyMDauZled0Fk/d9z3vufeee2smp+NTTkRCUAwPAZEW
jHNYLBKJ+iJeUGQbvQOVeDME68nlWM/ivdGX90TKyH2jf+CV2heZRvoz6E94
wkujHbkN9Cbs0dtO7yPZDvQlrJDrJyfkkugUlOB5ZJo5+49SHd4yVKPfYRdv
EO3gmt51sjG8KvQYHHBGD/4S+1w4m1FnvcWrYD0B9+Sz5DK+3T+HdwhN6DDM
4Z2qhjt6u/DOWLfCArUIupw759Glzs5/JjeAn6B+5WxGnbUXL8s6rHNQ60Ov
cfYQPQV0HH8VnSb7gTePHoEXckfMu896FG6oHaNjvr1bp7N9df9u3/6wzdk9
9b4nns05jo7on7B/gf5h/Rv0FgSC9q76vrXwS74B/Q+zI0PC
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.4109375, 0.448125, 0.5775], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlEtsTVEUhne79zlHq73tRCJSDeEWaaJVQZu4ovpIdUKMjRoURV+5IU3K
CIPWe0oiHk1wGw3RlJEqKiYeCSnFoC0TxMCIkPiWtQY767//+ffaa/97rbu0
rXPHoXznXJblWfnBuX3ECX48jZ0by3MulTj3nN8d8FvhCoLiZ3DN4BJwKnIu
Au8HP4Ffja6HvfPZex3+EfwA/C34KfibxDl+98MXoVkOXgD+gfYYeBR8AjyE
rhP9CmI1qxc8SGxh9YPPEkdizXOJGjaCj8CfJg6yfzv8Na+1/q8froFvfWjq
iefsjheIO9nfjqYDjaOmYqmNfTmr+Q7xKJpu+MtoSsGl4CVoNvAti2Yd8bFX
D9eAV7K64G8QJ736kwEXsTcFXuzVL+Ebyek5tw78m+/30TWz90Ok/orP5WgL
I62tDNxqPogfafNwBrzJfBA/ChOtR+rKWj3j4GHyrAXniA+93j1J1GvxfJJY
Y56L95mg58r5FaZJE2tjrV/u145mGLyHuAjdd/AqiaxW9JVo2/iWg98tfeQV
7wLXB/VEvOmCrwX/JFaxysCz7N0W1HPxviDRHpNem47Uq4/Ehkj77Srae6xJ
8DiaV17frph9jbH2g/R1LigvbyvfBL+Ez0u0hm5widdz06LxWud6cgzEioXL
en271kj7RryaR46U17fbgvZMrHkk36nYZgecb2fJmRPWP5upa6/5eQDuC3lb
uONBr76Ivod41+44QszY3a8EnVvp7fOx1iS19XqdE5mXSuJQpDMis/IraP9I
Hx0POoMng3ohntwO2luieUP8FOu7yPvMWW0zkb6xvHUffIX1gPTCN+uBr8Te
oP0mMzdreWrQ/4WfBv8JOrdSW3nQ/wU5d5nXuZX5bYp13mTu6oiHzX+Zoaqg
/oivQ5bnIlywd5H5fsfZTeydIr62O0ovPPBa88JIPRKvPsO9jTWP5HthNY8G
7TPxXLyfCMrL91HD1XIv8196JE707jJz762GMfT/AA5ymLw=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlEtIVlEQx4/ee8+XPW0RhJYUqLmJKEk/AzNNTd0UbYqWEkQJfj6SIpB2
SU+tbFO7IkpqEfagrKgMei2K6CW1UEKjMDe1yoz6/Zuz+MGcM3POmfufmbu8
ObO1Nds5twNieJw4NwwP4CG8YvMlvIG3cA7OwmV8A3Aee5hzpVnOVUXO1bLe
w7qLdal3bil781l3sl7FegP+3aw7WK9k/Y07vkIrcRn4jN2AbwgWRvam3n5G
7HOYgHGYhO+w2tt9un8N9gjn67DvQC7nb7J3A/IgH+6zdw9WEFeSWE46qzuy
eacPXy+U40vDMuxcfN3E1BN7AvZjL2DvOPYf/DMwCNehgDu24FsEhazLWK+F
JdJCObCXF1lOyq0RWsL9Tdjrwv3SMOFcJ7EV2Lv0jawrvGkrfxq7Af+myDSU
lnNSpq2+ZzZ2BWfSIQfl8pMzP2AI7sIAtBHfTfw49xwLeqhmR73VsCusqzk/
A5+wb8FB4t95+1Z983tvNdX781hXEns1sd5Qj1yM7U29rZ5SbyXkGEM7cR2J
aSStpJG0kubSRhrlEL9TdzrrjzPeekS29prxTXJHU5Z9Uwn+03Ab+zUUYk/D
r6CBtFhM/JSzGm+OrWfUOzpzEn+lN61Vk/XY/d786rGPnP3NmWnIg/zYclI+
6uEv+Asi6xWdV20fRZabcpzCPzdl2o+wvqL+hQ8hR+W6l5hOOMS5HvWa3oS/
4LzNqGY1G1+kGdIshRnWLPfEVivV7EKYMc3aKL4xSKWst9Rj+9i/5E0rff8T
7Fkpq6VqmoP9lL1M0FOxYzAKRbxTDEWJaSlNi7G3w7bEZkSz0hLbe2loY30E
DkM1MTVwKtRLGveHGZ8MmkibQW9aSbNr2HVwIPRHrbcaKzflWIxdFfyqQX1s
/wD9C6RRJvRce9BYWpd563X1fDl2X+g/fVOvZoU7MrHNnGavxtvdemNj+Ef9
/1cR8yK2f4L+DZpBzWJjbLkqXrmppqqtaqraTkT2beqRLvztkWklzTz6/wNn
CLOh
            "]], 
           PolygonBox[CompressedData["
1:eJwt0T1MFFEUxfGHO6yVpY1sQwwiFUQLsCKwQggVoZHaRCDhY5GSXhKggFop
TEgIkN1gYgAhWCAFkQ4KPrLAbmGJ0ZYlBH6T2eI/98w59755b179+1z/+KMQ
wjPU4tKjuyaE7XQIJ/Qp6iI5llIhFPXc0S10hr7SV0IZk7w2XrM8hwm8NN+I
JvyV7eiZQq9vXPOix76LD3rz8hHZP/zHN94Bb0Od976AF3QD9tJJ9p3+io/0
kXwGs/E+rN2K9Wp2zJumN+lPcTW/hQz/CS9S3+kfqJ45PvsPeZd9ntOrWMGi
2T79y3QnOjBn9hcvW5usGa+9hjOzeXXQTEE+rGb1vkU7XssLZj7zv8Tn0pvj
Lau78p94jqdmb+QV3CLI781V8Ca+D7WMEsb091jjD32o9zdeVe9qP0r+a/x/
R1PJnoaiZD/xvi6qd19UHwBAekou
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.6065625, 0.516875, 0.4625], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtk99rz1EYxz92zucjRX4sZX2HNl/iQnLhx6xh7MallfUtuZEZNt+tGYmJ
JD9vyCUaLpQSEilSlv9Ayq+401BqSYn94PXe+1ycz/P6vM9znvOc5zynYXdv
e7Umy7KdjMAYKLLs2rQsO4R9jrAHrT1m2QR8Hq7kfPi/gJlEa+R/A3wcrke/
Av/CNhT2/4P+LMVZjm8Xc2fgUbT98H24BzufublwI/pbuI0cPmE/M1dGb0Gf
Ebx2HlorvAw+UDgn7VWPNsHcZbiEnRMc8x3zLxktxHyFHWS0oh9RvoV95NuZ
WLnMYnyFHwefR+dajN0eHGeY+ZpUh1WqWcpzE/PlYP9FaCsK1+eo1vE/BK9E
KzH2EecJ9hSxhtFvMP8mnb0LfQdrrqOvQz8JN8Pjql/yvwV3RNdB9ajCD+CD
0Xtor83wxWD/m9F1UX3GsFuJMwlvwTbnzl/1Pq394BHWzY6+O/XCiZTDb7S+
4LvrhivBe22E10bn3IRtS3e0F/6XaqgeGY2Oo3hjKZ8lwXGlD8L9qa/y6cTg
LFVqUi5cR+nqO/WTcnsR3E/qjU5i1KWYP7EPWfOBtY+wu/CfCdfi+7TwGc9G
35/ucSH6a+UEr88dV/GXFt5bOVzFngvun4HcNVKcIbgv1b9ffch/B/4Z/ofT
m/oSfB7lfyy4j5Xzj+AhrqCNsHYb/t9z94f6pBTcH7pH3X9vsM83uC75LMD+
Te9U72+qF+Hb0e9HfAlek/uMTdg7jNWsvYvtLtx76sH3qQ/1Fj/mvkfd53h6
O6rBvVTDqVpG63pb/wEUT4F5
            "]], 
           PolygonBox[CompressedData["
1:eJwtlE1IVlEQhq+dez/IIvvZJGVq2ddCIaUoUqwUU7JFESQuWtmPmWCQ5qZI
iIp+QWnZj0VGBCpWUotaZFakLXSRoEWgpdYiKyoXmUrP25zFAzNn5tx73jkz
J73iyO6aOUEQVEAIW2NBsAWKcUpgNfZ+1msSgiCOfYu1LvxZGHDk4zdjT0I3
/m9yfsETeArjMAZfYSJmOco9D3PYuwt2wsIoCBbBWewGYnnQQG4L/m3IJ7YZ
dkAp1BKrg+/EBshtggz8ecQ+Y1+DPfiJ+OOBnTGf3IfO4udgBvsya5egBfsO
pDg72xeYz94YsQhesv7KI7uItW0w6/OlaS35L1jrhj609kMAZdSuAHM6sjXF
HpHzGJJZWxpZDVSLIWKDMAV/oVNnhg64D5tC0yYN0nLC+VrBKWI3ndWjEZLx
7/HtHP6fgX8VvxxOY8ehDPsN9Poz6+xrIO7/qX9/Yv9H3Q3fXexrrtrXEquD
EWLDMApj4Ii18b98eBbZHu2tIHcfpIZ2VzqjzpoD2TCM1hH4GdrZpelHaDWd
9PdX7qwGqkUjdpOzPdob92cfgLfQw1qv77mvvqaqbQ97XsN2ckphPWvroAC7
MDQNo16ztK/U+X3/ryIvBaoS7A42kF8N7eoV1vaSPx3a2aVhxs+QZmkBsSRY
5Swm/epdfVPf1owl4T8n3gUT5H6D5sju9h0598nNg9yY9aR6szCyWdRMXmBf
OqRBMTklUI99zNnMaHbUs+pdaZb2wzHrhSK+X439ITJba+8j68EpP9Oa7WV8
61CC1UC1uBhab6nH7pJ/xetRzZqwK2P2PfkHsFPZv8KZBmlZ4qx2qmFVaG+G
3o4+7H71WGSzkwtHsetD8zVTs5FplNa5rCf6PX2+B9QLHc7mX/M+hd3pbLY1
s3rw9Obo7UnztWt3pk0ak/nuH2d7NW96W9RT/3vLz85GP4/ao726Y921NErr
DezrkAlZcDC02moGK7HboBVO6p4j0yAt6lH16oOY3b16oBV7s39vpUna1CPq
lUxiWXDcWa1UowZyByOrve5gKLI3R29Ptp89zYBmQW++3v6uyGZXM3wGf7nX
r//pLf0HUOTLBA==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0Lsvg1EcxvGDkkiYVSQSiUXaxSBxCQkWRh1MLC6JgbbR1mDAYCTRWYhQ
LK6rDf+BxGJiEJeVTZTPm3b4vs9znt/lzTkdM5lUujaE0IJ6JH0SeK0LYbcm
hHxDCH3OP2oPsrNYCOdYl63hgL9V2+Af1cv8KH8kLyFufsGeNpqRZzGubwwf
kVd7o0t6L81mY5Va1HOMEtplRbU/mrQngVV5v6yLL5uftOeXFuQr+KzuzvDP
/Auu9T7Jruie8z5m7ZzBPDbta9RfxA56q/fuobmGynsU6K3aHfJmcphSb1Kb
pkMYxKG80+wAn+Ln+BszcedWLMouovvKvvBdJfLLdZW3SOs51dtt9wndct6O
Vd4wesv76F9qE/pH5MNokr2bbab/qdU9Dg==
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.8021875, 0.5856250000000001, 0.3475], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJw1lN9rz1EYxz+ccz7YWviWWC6+hvo2bUopF0qiNZRskx9ppiYjZnzna4pp
+67txswF4kZsIhcKyy5ELubCPyBEGktSLmR8V5TwevccF5/P8z7v85znPOf9
nOdUtR5r6piZJEmez/Ht4zeC3eST5E5IkkfgQXA2TZKV4O3MV8LfAjfBL4M/
D14Kv59xBpwBp3FtETyKT+2MJLkBd49xM/wafIcZbwX3g4v4PFAe4PJge/3C
9w94FNwFfw1cAtdiG5irBbeCq1mbJ34Ndj5+Q/DzsD18D8FntCc4B64Dr0/t
jFu8rVecbTqXt3yGwZ+D+W8Gb1Cu4NWse8b4EPgEuAw8AF7A/Fu+TvALuEv/
4xBjb7BzFeDK+AbB9axti2dswn8M/iI4pxje/KXH48hXYXvxX8wZe7AVwfJR
Xk+0B/i+NGd8DryWtXO91UX16QOPgbvxmR1zmKWaBtOnWzo4q2kGrp01V9jr
g7Ox+EZ8djjLWfWRjtKnFCw/5TmO7Qumg/TIp6ZVC9zZWAvtuTzuK66QWk1r
4L4G85fGu1Or+yl8AngP+Vx1VgOdvQ7+SMzzcGo1l4/uXzFqVe2sNqrRFPgn
+A34pjONpFUWfDzegUVwFVG3cm/3QHXMequZdKuCK0Y9e7E+au6wC4OtVYyX
znQY8XYnhCfBz4Pd/37iTaam2yrmD4Avk/NBbGVqPuqV9874Nrg5zs6nPvtE
nHr4yWC6K84Sb1pLw9Pe5uTzJVjfqna6d83ONNzorZekfyfxL3jrWfXuUMR6
A056q4VqMh1jTmB/wL+Gn8Z2RJ1LxL4erN/V96XYI+3eekl35ii4y1lM9Xcu
5i897sZ3Q7kUYi8U8G2M/a5aZaIOH3U3Y99J77/gd+Dbqi9zv8HrsAOp9ch4
sHugfFrwbfB2t/WeTcRzTWG/wb+C/666e3sr9GasiFrpHdqp91GaeKul6vUU
vs0Zvwv+H+AsofY=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlEtIVVEUhs9p73N6DSJrkDQQbVCI9oKKXjYKo4hUCHpYgaMKMjKzB0IZ
OakcVING2QMbFtpLwe4gSCFtoIMeRhQRdVFQMq4FKdb3t/bg5661/73WXutf
69zCmuNVtTOiKNoPPChwUXSZ32EwL4mijfilcRTl8IvxG/GfYA+B3wSsA9XY
y8FuuB78l2AgjaJBcMHb/VZynMXPw2/BzwOzuX8T7IvtbD7cj8Q4nSXcb4Lv
wv8IpuEbwWPsfPhlcOfwD+OfwC/m/gviD+CXgkr4n/BvsXcqBvsz+AQ2w5WB
e856UY1NnA+qdvBGceCSt1jlGMfOJNav8lcQ28rZLd3jvBmMg/LYelAvI8Ff
ip/FnuDuu1DPDey61LT93wN2P+jTL9xrcN9Z79KgBb8g1KMcOex6+HbsmDd2
kP86/jWwBnut3lN+8BxkwEFimiOrp9rbjDSrTuwu8Ah0eMuhXLnE7qqHicRq
6g8z7gkaSau+UHvW2ayl50VvM5evHdIuZUItA0HrLPZ3MArGwBdpQuwU2MR7
J1PTRhrVYz9ztpvaUa/8+GdAEXeXgFXgF9wd9edMA2mxHmwAVcS0wY2BbviS
1HZHb4zBlyT2luptxZ7J/SvadbAaf5KYP6CQuKLUcijXVX0v3nZSu9mBf8rb
TOLgN8DtcrY72tFuuL34e7SL3N0CCp29N6LvAX6KNybDDDXLud7e0puL4f9y
fxqswF4JnDdtpIG0OOZtfpp5LXbs7UNXjGIVo1jVoFoWpVafdjwfuzGxfvTN
nfemgbS4Cw5xf5s3WzPRbCqDvqq/E7/K2X+D8vUS2+BNC+VU7rLEZq2Zt8H1
OqtdPaTeelSvylnjbIaa5QO4h+Br+L/Qfn7D3upt9sqhXNJU2rZjdzj7TxsO
9Zd703gk5K/A/0DPQ0Fzab+QmAXgCNxR8FT/f840lJbqUfGa2Sxvb7SHHdGu
nA79agfeO9vx0fCG3tKZOH3Dddy9nYTdi+1beuVMb+WfA7896K0zcf8A9prJ
Yw==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0c8rZXEYx/Ev91wLpeRnQsNlcy2UNTOF/8BizGY2U0OuG7Ei+RkrYzPJ
jlhZyDRjaOTvGKSEf4CIQgmv07mLd8/7+3me73POubf522jfSHEIoQ5p9EYh
bKplDvupEA6QRX1RCHOydf0N5DCEPJbMl5pp0c9giv+VtfIZPo1Hc2eyJ/XG
+Rpf+LZsgHeZfeGd6oX8EuVYkVVEyXx8746fyG6jZG+8P1MSQjOeebveB97D
u5Hja949r7ZhjGfVCb1JXKWS/rDsv2cfF4h9ULaqd2lmoODf1Wq9GixhEVve
ZdxzF/gY/82/8kr3qtAoa8ADTvXu1Sb85PvqH+xFyc54d8adH3q1/FV+zt8K
O+Jdn/Q/Ypkf6u2Y6y/8lp+j5Lvj7//FdzGbTv6/efXQ+R86Usnzj/g7VMBB
EQ==
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.915625, 0.6590625, 0.33843749999999995`], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlG1oz1EUx39/9/5+pBR5fGFhFM3yWF7MP4S0wuYhxNgfIUOWRRjJjA0J
22LhFXmxUcrk+eHVUKKkRHmB1x4yD6UUPt/OeXE73/s933vPPeeee0etr12y
vVeSJE2MwMjFJFmLvcmklTEP3AU3LTUsLg9+Af4IvypLkuO5JFmBvY6vGn4m
/D7mpfAX0FaBd8K/wX8I3An/OVgMxZqDvimztU/RB9//A/xR+HXg53DNmenz
8HvBxeCD4CJ8w8AF8BDwZ/Am/B05i6XY73I2Hwh+H21/5TGeMwyHbwRPZkxS
HaLlo7xWY7+imQrfH74D/AGcon3NqNc54frgWw++Da6LFvNtsPxVh/PYy+xV
Af4hzLiL5jTaVt/nFHaKzgHuDf8AnEffzrpLjHL4ZfCLgvEP8Q+IxrfDTWI+
EfwPvA39GfBs8MpgvPyai1/BulvBalsO/oZvAXv2YEewdiu4GDuPeTeaTjR7
GF3gKrhfjEo0P7F7g/Elme2hHGcwvxZtbRmaq8pNfLC6qD678W/zfNfA1Xj9
V4EbPK72+ON9pf4aA98DHo09oB4C96D5nlrMRri+we55C3xjNM0l/OeC3bv6
qwZ8RXF1116fPt47Z3J2H++DWd3z0mh1K8XWZKbZnNl9694Xwx/LDL9CX5Ja
f07HXxYM12cWQ7GWw1V6D7Sw9refUzmVRctXb+Jsaver+x/kee2IlrP0h7Gr
o+VSjV2YWq9uQDuI+UnwQGmC1VY9fii1nj+S2r2qzs3gH+A8uAi7g3jn0dRl
dt+6333wu6K9tXHB1mhtR7S5+P3gsx5X8U/4HzI3tb5QfyifBnwVygv/fH87
qt99dNPRVMJ/CvZub8Bv9Deo/O655i72r5+5Af9YP8PKzN6M3sij1PpS569H
W+V1UK8VGP3Q1OLf5PvrratvVGfVu8j3V5w7ftc676NoeSm/i8FyGa834n2o
fryYGv8F/rF4YnWn1hPqB/1hBa+nzv7Fa6L9unz/kdiXqb1T/YWl3odtqZ1b
5x+Mvi1aL/3CPkvtn9R/OdR7Wv/iEz/DEvSz/I/Vm4jR9td/kPob1n9QCPY2
9Se1+P76tyZEy1G5HgxWnwpwtev1pv8Dr5i7PA==
            "]], 
           PolygonBox[CompressedData["
1:eJwtlF1oz1EYx8/fOedP3sJSirxeGc1buZg1F7R2oSnzthcbw7xGE2GLNnbl
AhFK8pYLpBQp24xoppiyEbUVygVFpDUpxOfrORfffs/3PC+/c77Pc86Ump3L
dgxyzlWBAN5G5wr5Ls04N4DdlXXuGejC+Ryc8c4V41+CP7J+kZg87BbWTuLf
C3ZjH2FtNf4yMC7xcuwVwfLngY3UqiJ/BL6zoA7/YW//L4FfgS/GXwTvAEXY
xeSvw54Dqokd6y3/Fnwfvtvk9MFz4Kfg9fCp2DNZa8A+Hmyv2nMBuQfhB8Ak
ak8GJaDAWcxS7JXEzEr65BM3A5Q4q5mPLxdMB+dZvwAuk3PHWcwl7Jv4tvKv
BaANvh5eA8Zg54An0Wpvwz+Z/S0MxvXPMuLqg51NZ5RWf4j5DQbAD/ANfAW9
OjdYRfyppG8t+f3RtJTmp7Eve9ub9viT2L/pfGtBBv4jWu/Vg7xgNXvTP/Xv
RcFiZ4NK6Q8/6kzvofBI/ntnGjbCJ8DHRzuzzp4BN6Q9uMd6h+YtY2vynYy2
/3pwAntq1rSRJr/wLweloBbfJv1Lc4lvLjHXFQ+fAh6CR8F6rF7rvIfhPaAb
vAZvQGXWZlMzW4H9xpt9jbVD8OHEDAt2Bp2llrUvaX/viO3E91g1We9JPVFv
2sF9xXqrdRU0wkcSOyLVVO3v0e5SYbp7773VlgbbiW8MNmvqWRP2QJpf6dsv
O9psacYmEj842N2oAUOwfbBe6c4E7HJvXD18Su4ncj6mGdIsTWPtu7OZ209s
czDtpKHuel2wXus8TVm7Y+KagdNJU2n7/80AzVnrrXrcSX4LvrugFbSBrmh7
054qvGkm7bpTrwrSvGlGV+E/F+0uS5PcaJpLe9VUbWmsvekN+Ex8Q7o/OtMD
eB+8F7zEfgWavGmpmc1Sb7POlLEet+Bb401P7fEF/mMx9YeYLcSOCnbXdL9G
B3vzNE968/bAC73Npmb0HTw/prcMzI+mQWuaWc1uT7Te6Z9V3jS+muZzV3qD
u9LMafY2ePu/5qUU/sHbW6r3oppa7dHumnqgXvwDso+8XA==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0L0vRFEQxuHDfnQURCjIrkTjs9AS0ey2WEoUV0JEQqJGgmjpN0K7Wf8A
ihVCqaKiIVrNiqg9J3eL35133pkz59wZTHYq2+0hhB7kUPQpYC8bQp98gG5g
ui2E+UwICb2GFfW6+rJY4pfRTZ/GWWJT/oMJvePYzYdQNeMrk56Pc+boKd4t
fenMBU7oft6o2oP8HkWUzW2Id/wmPaRvX36As3gv8rwPtVp8C92FBX7Cu+a9
4gWfvGferHodk+67yqUz4qwaHtUPecP6R1D0/i19BXFRvoQN9XVU6Bm1p1y6
h7iP3/h/vD/xuPVPR+Kb2e+40fPtjl5eh7wzm+4r7m21tdtNuqo+5ux5a49x
n/9rgzM4
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.946875, 0.7371875, 0.4353125], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlVuMjlcUhr/f3vsTRhziwkQoQgTTIjJEkKASV85nxpQxBBfFlUSnRDo3
QlOKMeNsaIeIaOoQRs1MIuNsnBNNNanOJG4ISZtwJfG8Weti/+v937323uv8
DVq1cd6GTlmWHWEF1hp+GpALY5YtTVlWCZ4FLoIvKmTZMriiPMugsj5wtwD3
wG3I+ewtAX+E7+D/A/DfyBu56dwGD2WvD/ccgfsitzcbOTeMvbng0xCP+f81
OuXgR44fIgPyV3SqWCfB+5HbWb24h+2sGP2u4B7sVUAc586+8CPgv+N/se5k
fxL/B8PvYb8xmI/r4NeDS8H/BfNBvpxDruZsT85eRn6f29tbkYdZ08DP4CvQ
G4N+F/B6+KHwu8ETgtlZwlvV0d7V+xeS+a6fSj/bD25+NB9Xw61zew7CLQYf
01nwxGh4AfpV7pf8m45OLXx5tBjpngGsnrnZLz+msD7BPUd3Gfwu+KXIMtaP
4OXIGnSGK77IhfIR/Z3getYo+JPIMs5PBT8Aj1Rc0DmEfANfrbxw7ijyfMFy
syq3OKum7ic7exBur3IP3oc8xRqtHMsv9urlF7IQrN5a4f8N5tvP4CfJ4q88
fBMMP4XbwP868LfIjmC2yUblQXeqZtqd74zOn1x+X/eDd7J+R6cz+7+A28DV
4BPgVnAp+FIye9QH15LVW6XnQfHczN7ZZPX8CsW/gnE/ycfc3t+UW43q7EXk
eHRKFBPwAvBk8EB0bnrtrUXOLJg9ys1u7xe9oxhP9jhfd9sUsw/J6kF1odpS
jXVTv6oO1Mvwdx3fQV5n7w46+/z9Jr9TeVK+2pL1knrqDLrn4a+oNsC1rGZw
HXJGsrobi+5vyfyV33PBz8Hv0HnhMX+qORPNzq+izR71uXKs+1RLqr8fcjnF
uWB2yT7FRTFr8JnQn/vfIwcia7irCXyRc7MVE/RmyZZgNifwjmhYfpS4X5oZ
Qwr2lt4+4L3wP3JPsr6uRP+lz7dq7wn5NdhtHuJnzwTLkXJV5/FZxNmR7q/y
055Zn2jW1CbzQzV+zufPmGi1pTppTmZXq9eYelKxKUNnXLCYz/B+kp0DfB4p
7yt9frT7W8qBbD4OXwxeI9vBX3ocGmQv6y74BnJCNDsXsd+JO/8Bx2SzSTNq
LXy9zz3FaXS02tFsLiSLs+J9wPOi/Pzh9dYYbV4oZm+DzV/d2Ru+e7S5oTld
mizGc/w7I3v0Rksw+6vQXeGzqMPnUJPXT4N/C9qjfZOUu9fImmA+tkT7Junb
tCXZnnTqgvWh6u02/DaPld5s9ncros3OzPNyFf6N7Ef/MxMQ24k=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlW1ol1UYxs86z3kUDRN8G32wojBtmaLTwoJZq6QPijZ16hTfUb84vxgz
LUYDt2q9WLb/NMo2zJc+tEpDCl1f5gu+oSIoGhQLxFixUbA+OfpdXs+Hi/91
n/s+93POfV/3+T+2rv71rQ+EEOpBBtbnIUwq4xe+Dr43hTAF+wx4NobwI/bo
Msceh38MeRw+nbWD2G+ypwO+l7U5xDdjd2HPBefxbyr2V4HF+P8CTcQG7HeI
/RT/ZPgjLD1N7hS9/0vs57EPYy+Cn9AWYj8HjcHf3Mn+Yfi/h1eDq/gmRJ/1
JHYb/k7WppX5zE04Wlj7DvslcAXfPlChXPhL8DpiquGVYDO5jrH2EH5o+AG+
AozE3ohdTuym6NgSWI69NrOvH0wkdjff+5b4L1QffGuInwHvA2PxP5jZVv1H
wSsy1/Km7khsHn3eF8EF4v/Gfz34Th3Yv5L/NrgHhsB7mWuV4b/D3pWstcLf
YK0WvkM1wp4PtsOXEH8ouN+d+M8l9049UC8+TN7bg/2V6g12Ybdjb4XX5+Za
W03swuRa64yL4H/ivwv6wQD4DwyCbvALOBAdq/sOcpYFmWuhmqzF1w4uwu+B
KvL14n84eO0P+J7k3kk/s4ldqtzBPVwC/z2zfn4DkdgxybW/X3PiFxf3lwae
w16VuZfq6ZZoTSr316AG/m8xH5ekf/IP15mC9VpL/Ibo2KgaJ99Jd1NPn8rc
05tFfdTLsYXeToE2+AuZc6n+mqWm6G+pX/+Qr7vQo/Rdwn8xWRvSiLRdGd0r
zddr+LLku6sGk8ldjj/pe/jbc8+4eq8aqBbfgKOgmaCWZE3Irzu3Yb8CXgav
gnngWO6za6b7yLU/WQuaUc3qW5rBMttd2B8lvzea+U/gU4t6S5OT2H8teZY1
0++y99HkWdJMvZ25hqqlcu5SfZK1IE1UsH9M5t6ppqrtUDEbg4X2VBPV5gkw
k/gb0bZmpA5/Sp4f1esIvg9Aa/SddfeBQsuaOc3e9Wht6gy3+d7S6FmXJqQN
zZzm533yr8j9TX1bGi0Rvzm33lWTLbnfLPVWPR6Ru0fqld7Q0fDLyW+X+q23
YV7Ri6NF70rF/vtvYPKMzy/69xl8Bo5lwRqYDp8VrW99vyO3xhSvfjTAl+c+
ezl4UtpOfvs145Xwn5LfRp33Z81i8f7pjazD7kk+i85/Ojmncqvnz+BYlTu3
anSLRAuS3y71oFHzmTwPOnMNfFtuLUljvdEzFgv9bsQeD8aBBnLvAGeT/3v0
Bust/h9gWNJX
            "]], 
           PolygonBox[CompressedData["
1:eJwtkD9LglEUh0/e93VxNZPAQB1aGvoGao0FQaPiH9wSyzXxA1RSQ0ZQrTW0
thmJgkSmKUEOubW5NPQJgp7TvcPDOfd3fvfcc268XNs9CIjIEvjQ8kTO4Y7D
+oLILXEKm+QFI1Il31eCIldoNeIiegQq6HuQJU9TGzqv3smjbaC9k4fhm7fa
aFu8tQ0TtAz1nLE9tNczvd/wfVIfk09gBf0HLUYsopdgACO0F+IHninc0Oca
DL4vagHf6lp/xPeK1iH2OHdV9+xbM9VgSN4lntLjDObgMd+Ob/9H/6kOh5BD
C1EL4UlyTkDf9bg0dkaddZU8iq+B/8LYGZ6cP+n+Qf/jhHke8DXdzv+7ux37
5MfcP4J7tGW0NXqlOP+Sp327t+7/B2pWPx0=
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.978125, 0.8153125, 0.5321874999999999], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJxFlUlsUFUUht/re+8WccYOuBBlgUKjRi0qxIVdaBRbKpQWog2lpSQaDeiG
CFGqFEXAgaBoAUGUphHSIE6oCyO6MJEQ2hgTExxY4BBAE1didaPf738SFzf/
/84959x7z/SmL3+kY1VNlmWHWQVrZpllL4NllWV1rH3wXjbaU5bNgP/Kfg18
SZ5lOdjJ91XIb0VnLbwO3gBfxN6z6HSADeB+yVk18C9Ya+D3lZY/gP6VufVX
832iMC7Ediv4SWa/P6M/D3yN/bu52z/wb+BD8CZsd4I7we7cdx1Jtn0ane8L
n9mD7AB4hHUH60d8joGnwMnYbY27/YmvFvAZ7H4Knd3w3mSdZeAQ8mnImwvH
RWe2wIfZb80dlxw/J8G3kG/O/U697Rz6beDewncfYq3l+2zEfxZ4NPd75Hd6
7nvrzqvxWS99cILvp3Lfoy1i/Rjymsqx2oX/MvKlvB3kuxv57NL3kL1s17C3
R7bg35n5APgVfiaBtdg1x3nH9EblI7Ovbbljp7hNQ2cU7MP/E8lvbILfHvfZ
ge0xeC08weejsx7b4/B5le8yG74iuVa+g59lDSJfx/5cZJey2M6qwvgl8v7c
e/r+KPzX8bEQXiFfAJ5fuI5Up3qj5PL7S+G3bil9J9mOod/D/lJWp+obHGV1
wa8uXMvXoX8Daxf8JvC28v97zS8sv7F0jNRHimNX5e8J9jck+363cr3UR838
1yu5c/2G+g7+IjrvVD7/ALaf59bRPVQ/w2E7K+rnNNhR2b/OWcH+pxE71cuM
qJkXgqvW9yfX4En8r0ruo9roofHcsVMdfRZ3fRv/s8F7k3tA/pRD1fI1Uc97
k2P8W+kZoTtuR+fN5DlwM7I5Idcskb+jUfMPozcF/jE4kvud8vlDYdR9W+Ez
NaPQGa6cx5fw82DhfumGzy9dr4sr96d8T8K2L+q4vXQM1kccNF9Uq2dK50n5
Ut9sKpyTVmy3l46LZkxT9LJ6+vGo/154Y+n51QAOFs7x7+wvA+dEXbWVrg3N
2jOF3zmQ/IaBqE3Fe0nkWnGtiTicjlzPRWdqnHV/5T4ZjNhfoneivwNclPtu
LXG/0ejXBextYG+s8LzQ29Wve5Lr7PXkma78r0zuBdWh4t5cuq4bkZ8XNZPA
8cjdStVI5X4bAccL8yfR2ZL8dsXgIPwE+oeSbWT7NfhQ5Zo9Dn5buF6XovNc
5VwoJ4eiDtchfzW5ZxuRHw1b+ViePKf6k+fWvphdstPblb/2wjPkQ/RvKRzr
bfBThefwo8nv1HsvLxxTxXaq/neaOcopeC3fV8A3wTdW5pvBDyrn/XDluaY8
9uFjonJu/gKvLzzrn4efg2/krD8C+2O+vRLzX/8BzWLN5E42upL/MYvBy6Ln
pyT3vbjm2pGYL4qd6k+xUh51d50h/+9VzvH74OSIp+I6Hv/Wuug32d1T+E09
Uc/1ca7Ovyv+0XeCF0esLlItJedX/X1Bcj9cCP4LJ0fnMg==
            "]], 
           PolygonBox[CompressedData["
1:eJwtlklsllUUhu/f77+3BTQGAwU3aqMoMYE4VMW4ceFGOwilxUDD0EIiMRHd
iOAsTqFakDAUquDQEBSIOEVdYFsUIkShMbqwpiXBxKGN0d+FtroAn9f3Lt7k
Pfec7557z3S/us4HW9ZVhRA2gzIYTSGMgPPgAvg4hnBbKYTV4FARwg0Y9WLX
iXwQOWHTDh8Ce5FXgbfQ/wSm8O0ysBU+A0xDN4/va+Fvg6Xw+wrzAbAHeQzc
Bd8OxuGjYAT8DH4BzaAP3VT8LWXvCb5/AbkaeTFyNXJN8Bm6ONvdyHPhbeA9
9B18fwheAf2Ffcr3O2At8m7kh+GXgx74c6wdDb7DLOSH2HMPvk6BPng3e86B
Pw2+xvZi1lbCW7FvQTeOPAYq4E/wBfgcfMleJ8F38G/BUfhnYFnZZ6ljj/ns
V4/cHnynm+CT2E6AATAIlkTHQzZt8B18sx1che3VYBd8JxiAD4Ld2FzH3vvB
WOE16brhW8Af6Bt0N/Ar8lmwkb2rkNfgbz36mSXbbEL3V47/OeVAtVI4d2dB
iD6DzqIz6Cyvg0ZUm8DvqoWyY6t81GG/JcezG/yA7Tbka+E94BzyfuR/sX0S
9MHL0f5UM1XwR8EdwTl+DN6e43kF33chPwJq4cdUr9ynOtevcvoj+99f+NvF
yJPYLk8+i/bU3p+CS5GrkT+Bn4nmWhuKjplipxgr1uoB9YJy1IGugf3uDD5D
I/wMOJ1rQrXxfGFfz6BvQm6Mjr1icAu69cl334u8Af5UcjwUz3H0J7FnKUxX
jUbHWLqIvEj1n7zfBtZGCudMuVNPNxWuYdXypOpN9QSuDM75TsUv2bd8DhXu
QfXiNtCp+7D2LLwevItuYbRv2dfDawrbKx5NnO2f6FjrzhPwInk+3MtaGb4o
uR9fVH/DX4k++wnkN5N7uJL7c3bZNdKT498T3XOVPNM021RjlVwfyvXNhfdS
TBRr9aR6Uz2p3mxJ9q36mafaBQtK7vGLlLvCufq/ZqN7Ur35PXsMg8vyPBpA
38v6xtw/g+A19X6uJ+lfRa4Bc4Jrcgr8QOFeUo3PZb+VrG0tOYaK5enoXPer
htGtSI6PbFbBu8qul2HlI3nGaNZoRmhWHC6cf/WwZqnOrLMfx/ZE8pl0Nt3h
G3ztS+4d5Ui50h0Gs3wN3y9B3lxyzjRLb8zvhXzIV2/eT3euzT6O5x5QL6zN
99Gb04z9+9GzVDO8ofAd+3P/fYXuieRa00x5HP4ha7eWbN8B/y3Xv/T7+L41
+q1Qj9yu2CTPQs24UfRHkmOlmKnXXo6exerZl+D3ZH/KUbPegjxP1SML+H5G
8tnWsDYTvjq5N5QT1e705LdTMbke/7P4ZjnyCjAt+U2VvgNcgtya3IuK53Ch
oFO7Jd/xg+g3+nx+E/Q2PJD81qp+1iXHQLGQj6nIpeTeUg1qlsunfKumP4p+
007l/j2i2ky+i3Ki3KgH1AuaqXqr6gu/lar/N5JjrFhrBixMnrmyV020Ic8u
fDfdUbHQP4P+HfTG7ij7H0P/GqrHv+H/AaCxDv4=
            "]], 
           
           PolygonBox[{{1550, 353, 1552, 1380, 1381}, {1417, 285, 812, 1190, 
            1191}, {1191, 1190, 1250, 206, 1252}, {1195, 1194, 1416, 285, 
            1414}, {924, 206, 1251, 1244, 1245}, {1161, 1160, 1710, 473, 
            1709}, {910, 909, 1349, 255, 1352}, {1381, 1380, 1461, 312, 
            844}, {1280, 222, 1281, 1160, 1161}, {982, 255, 1351, 1194, 
            1195}, {1255, 1254, 920, 73, 1253}}]}]}, {
         EdgeForm[], 
         RGBColor[1., 0.9, 0.65625], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtVltsVUUUPTNzz1CMVmKgpNQ2XOoP+EgMtgEimlSjBii0t1BaQgSNoDG3
RUPSGj+oklLFR2Ms4aEU/EBJaHz9qLFRgWowii2CVBHaCIJCw0M+WqxR41qu
/bHv2mefOTP7sfaem310Xa7ZJ0nSDwmQffipB96ZSZJbIA9C3wLbKSy6Dfo/
LknOwT4A/XdgS0ySnbC9D3wiTZJbYb8J+v1Y3wr9buBmrMtCT/C+E3t9BXU/
bGchfdD3AnfBfgz6ReizIW9Cvyujd1yzGd8OYq9vcdaPwCHYF8C+E99F2Oqg
z4S85eTPU9D3AF+HXAf9NWCnk0+Pwb8u6MNB77vMPgf7rgf+BVwBXOsU8zw8
H4c+AuxItaYH51+DXgP7OHBrUK6Ys5fxPB32V4DLIAXQ64FT8P0RrFkH7IMU
0ifgUq9vJwFbsG4+dAcfH8BzE/QK4BtR/hTjnM/wXAx7HjgPtjWQRjyP4Ozv
gReAR4HjPAsyFc/3Atvx7ZSo9ZOBz3uteQ64wStPz3rFxhgHsX4caw9BjsJ+
j1d+DwKLzB/6xfc5rF8IGfOqy5+wnYY+Ffpl6KMW4xj091L51Y/9t8I+DbbP
gdshM6DvAD6Uiifky5aM9u6GnrU1XDsB0gv7cuAyyKfQ64GVXvX/wosLu534
R57sg5Dvx/HzDfQfvPhOfRZjwBmV0D/E+e9GfUf+dlq9uoE3e/GtFVjiFfs1
4Bkn3gx75f9ry8tpq89Jr7wwP03Qh423f0Df48WlM8ACr3r9AiyHrQ9SavEz
DzHqHdf0A/81nrJHlwMPO/XhWNBzT1AvDFo/3BgVM3v941Qc+gR4xOusAa99
uX8t8G/b7yfoP3vtf8IrZsY3zSsGxsLcTLJas+ZXrZeYG/b045Yj9kceUgJ9
yCs/zNMi+NYGXAgMkAbou8hV62dy9ELQ8/ZUXGhy2u+82a/A/qVXnc/BfsCL
A/O9zl9rPrDOvcaHw/i2GfhqKj4edOqxbpydZ61T1XOl1XSy8Zx8L7UYGWsZ
3u+FVCXypd2pnzk/2s1/4iazr0k1twpxzouwdTj1fKNTHng2Od5huRoI4nYr
1udScfqGqDnLGVZDzkMc82q5yVt+yN8Kp3fsg0qLvTqI+xOwXzW4PhF6AWd+
0Nx8BPs/Y3Oe85513mHz9h2nfNEn9l+Zxb7NcnHV8sW8kbu9dm6h+dRo3B4y
jm6I8nG1+TkSdEZbVH2YG86UK1afp61vck72/TZPOFc4d19IFE9dVA5ro+YR
1zZgzUanXuU8Yk0YA+vyJM6tAGZT7d1s5/L+YU/NshzUWx5mp1pDHjVa3UqN
o+TBebvfeM7/szsRt5mrOptNrAVrxXqXGE/4LTlzn1csVTbz2S/s+RUZrb09
yPcq83911H33cFTfd1nvN9hMvuR0fxRbLttslnKmZqzvguWs1/L+QaraLAjy
5VfLLe91zsm5QbyhbVVUXWqd8nhHkJ/0d4bVnvmpicoL73/23DHLT3VU3jcF
8ZL5HoW+MSg+3pM9Nt8+SnVn886ayxmb6kzWcHFUjZcAr4+q1SL6GMXJAnLb
K5Yy3hted2iR1yxgTb8L+mam9Sv7u9xql7WzijKy5a0GJ4L6eSn2f9srDxO9
6sQ85GBvsRnFWbU4aMbyP9So5eYlr/uY9f/N9i63d/8BEOoZwg==
            "]], 
           PolygonBox[CompressedData["
1:eJw1lllsVlUUhe89996T1miNiDRAIFSfFGNisEQwOEeRWqCtFDEOYEAeGOqQ
WHyQClrmEINGg4ryAKImoL6ggijSEAmIZawitjjgVDWGB6BN1PqtrOvD6r/2
me7Ze6+9T2sebmlcGJIkWQ1y8HpMknvTJJkP3wDfCwaxYB44wYI9/G5k/lHm
x8IPgp3YVaAD/mGRJOPhVzM/Dz6Y/XNSj32AfQy7iXVzwT7Oa8N+szyvM/Me
7X2EsSHMnWLdl/CbGKuAb46267BfZP/QzGvngmrmArg1sQ85/B6wAr6AsQOZ
12jtq9hj2L8YexP2EuzfmF8BZmCPAqu5y3f8Ttdefrv4/lus70q9p5u1k0Bt
6f9M1v/Amqm6C3u+h7eCJrhi/CR//ir8rQlgKXubGdsBb2fPDfB/ytjNAN3Y
p7Cb4evBZOxz2HfC94IHsF8BVzC2BdwCHweeYK4DXAj/s7yL/L8DexhohH/O
eL98U/6w58tnzeHfcOxl2E3wr4J9v4qxo/CPwWupNXAj/CHWVDK3Vv7DY3Ru
7seuhPey5jj8AsYWw3fnvrt8eAn/L432VRq5DN4BLmHdXco7/EjwXXXmYXhF
9Nn7wM3sfxvMTJ2D94hta2HttmHfzdopYCm8hbFtzPUXzk8tdh+8Lnqtcq7c
1wbHSjFpg28vnP/Rij/z70b7X4O9NTrGivUkMBh+DOwvc6bcrSmsJcX0Gvaf
BK3wFxibzf6ezFyakrZao2tB31gkLXPecuzT4Cn4enA5cyOwz6Ye05z0PIC9
IViLqc6APwP64UdAdTDEpYHh8I/Ac6lzNF41Dr4oNS/tD5S1ch8Ywdyz3Okd
xiJoxLeRjP2Y+I63KXbBsegEaixTgvWhNYuCNav8S6PXB2ta2laN9HDmp8H+
D4Pvhp/hd2TqGpkWXEjKXQNjm4M1K+0uUPxUe8HxlR53wH8utbeO353Ba7RW
MawJrjnVnmKgWLyBf3tSf//pwhqT1hSz39FuH/PLWbcSDMDPgHbFBfTCJ+iM
1PlTrVwUHasrVY/wn1L3AvVM9c5uxmYFn6GzVMNbSp9fhp8vtaYzP8NeFZz7
DuxD8M5grh6gXlAZHBtpfBO8GR8qUuegPncNq5al0ePwT4J9HcrYLmkhc69V
j1Wv3ZpZX8pvH7whujeop57IPKY5fWMa33ofjE2tEWnlIPMLpTfseuyvg2tJ
GvtGNZ65No+Cqcxfl1tv+qa+rZ6tetQZYzg7je6d6vHq9b/k1po01507J8rN
rP9jC55PrQnVnjSxtoyHtNme+W6K1/nCPaau9F9vjzSzrtx/O7wnuBbUo/9l
/GRw/5JPfyvvme+innCa+zwWHFv5+Hj5huotrVIvjH4zVK+KWR17h+TWt3JQ
Dd8FZge/mXo71RPVG/Um621u4fdQYo1IK3pT9baqh6qXjss8pzW/MteVufZU
gxP59h+5Yy/NS/vSuLSunjkZuyH4LrqThCsf5It6ypLSB/mimlBtVEVrXf3v
Yvi1ubk0V8+3z2bm6i/n4IOiY6cY6i1YWTh2uuOywjUofep/hF7WPxidP+X0
W+z/ANURFyw=
            "]], 
           
           PolygonBox[{{916, 71, 596, 612, 1213}, {1257, 209, 624, 531, 
            923}, {923, 531, 622, 207, 1253}, {1065, 586, 534, 209, 1258}, {
            1256, 208, 533, 586, 1065}}]}]}}, {{}, 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0T1I1HEcx/GfefkAWZCaOAotDgpiS1tjqKd5PgwNdYpBGNh2tpiQFooP
k4iop5P4hFqLtgiCCIKmSwhSNhmdVxAN1TnV64Y378/n+/v+/v97qOh8HuvJ
CSEksZwbwturIdRxnOv5HQ/khRDjIr6GBvMn+nX5Blb0mkgIUc43/81/sIpN
vZGf8k27xShFCbbM3uMZbunTKLdbxrWedwdregZtdtoRNSvQH9uJ4xE+6x38
ibv4Cy/xGb/kC55yN8U/+RUnOMfZFUSQizkk0eusgesxZHdEH0W1/ND7qzjm
rAXNONVb+YBr7R3yGH/gqPlr/qtfIoNuvSL7nT2rDIP6gr0JOSnnyYUowD39
u3mj3IR1947MHmQ/L/9wNi/3maf1fvmYe/kFEtjAGobtBnt3nafkSqRxgRmz
r/wNZ5jVz3kRw+68wap8Yn5fHucdfZJv8wRv80fv2eddPsJe9vfRdziDf9n/
Bb+Qxn88NlVy
            "]]}, "0.6`"], Annotation[#, 0.6, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0E9I02Ecx/FnphvpxSDUUxCBiChI/ww8eIoQRpRZoBGkBkmw1cWDpvch
GFouXQUZokKEQn9u0SCCFFkRu0R40WDQRTzpLXw9hzfvz/fP83ue7fTQw95s
IoRQQDgWwvuaED5gELXJEJ6jUb+OP+p9wj3UqxfQZHaCO6pDOIt36kPcsNOH
Lr0a9Ya8iQcooeDMFifNfvBPZFDGS7NfnDKbktO+cVJ9V308vo2v6vXLQ+bD
mJHf8AWztHyRZ3mH5+N9uCT3OdfJc+o8RjGGV84267fH7+K+XOARvs1Tdm7a
uRV/t3oe58x69M/zov4T+Y98Rx6XH8c32zsV38xfzJp4QF0nj8kNnLGfRQq7
6ke8hHV7kzyBVrsHeG2+x9fNrsW7sYwlPNWvxP+M15zJcUJ/Va9Frpar8ELd
zQtc0d/GX+xiBW36OfO38hW+jGm9ojrPZ/gZf+aye77zVy7hG36ri3yI/9jG
Pv7hCPpjTqE=
            "]]}, "0.4`"], Annotation[#, 0.4, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0bFrU1EYhvET2ohDcVE3K6mLYCR/gHRwkCxFBW0NbYyBqmhAzFoakGDA
WihEWxJRh9KQIbq6GJUUxFaQCFIEhyyCi9BKQSFbwd8ZHp7vfb9zci83E/Pl
K/cTIYQGTh4KoZsM4R1uoodnug+cGAnhE2/hDqbllN1n8yM+NxrCNd1hOceT
8pL+izwnlzjPfX6s/8YF+R7f4B1e1k+591Y+Gt+BT/CY7gi68l1nSqjrV7GG
s3ZXccv+onybZ+SWc035H9rmmv6veQEZ+yFndQVzKe7ic83H0EQDb9zb1Vd5
jx/yD87zdeQwh1mc1hfdGfe7KTwwb+oqnI/P5eNy2dmi/Muc4Rd4iYp+MX5L
fdrZDf4TbddCzType8Jt+Slf5kuo6pPc4br+tfknj/Bz3Xn+zgNdzZw2r5vP
cCf+V7pXnOULWNH35I84hffx+2PH+23zV/Tjt4gdeuYhDjDAPn7jP8tyUFQ=

            "]]}, "0.2`"], Annotation[#, 0.2, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwVzj9I1HEYx/GveKdhBBX+GURMc1AhMIcGFQUlcDOvQYVD4YYbRBQDCUUl
4xx1sKFFRFwFw8CKxKEhF11EjLjBP5ObdOiBYKiv3/Dm/fk8z/P73tWkxhKj
BSGEBXwpDGE7HkIPp/gN73CmKIRdTuhpfsvVZrW4kTfREQthgJvs77hA3+Iu
TvJL80I5hm96Nw9xs3mx/ADf9V5+apaSK/mh/ggVcjnSfvPE7kg+5RG9k/vc
pPkCj+Un+CzH7f+5zeEYeVzhtV3SzSBychmX8DCX8jjP+fYd/9Xfc78+wfX6
NFd7Z4br+DkmzRvdTEXv6uPR93ghL6MRrW4mzT5E72NNv+ZZznEGq+4+cR6X
qMJtdO+myG5RXud2/URuk8/4UM/yR30eK3KD2Zy8IbfwKyyZfdWf4Rdq8BM/
cOC//eZ97Ml/ohl25Dz+I4sLnOMeyCVI5Q==
            "]]}, "0"], 
         Annotation[#, 0, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0d8r3XEcx/GPjGJJzlpRSocLKSW1pSWy1ZLthlOTGzck+TFWTlKbSFyt
qf0BG2prVxOlXHAzSeHGhXPhRkkodSSpta3Y43Px7Pl6vd+f7/d8zjnJntHU
SE4IYR5z+SH8yguhIzeEd1yql2FZb3gQwht+aP6Hk+Z/eQXNdl1cZ3fHQV/j
Iv2F/MTZl7xjls+NeoVcbN+qt+iveNeskFv1pFxi366XcYo34jNcZV8pPzbv
k/txKA/xIJ7bdcY7ISsnuIB7OcGnzp7hBJe4QJv5W/sR3MrDPIBHcrd9Wk7L
r+Vxvos2+8BT/N6sUp7gGneoxZW+pY/J6TjTv2JVXoifazcT38G/eZKv+SZ+
ZyzqFfE+KMc9vpt94h+e/8hN+nH8TfVmfJMzZks8q3/h6XhH/JSf8VN8dmY1
/k+oxok71ZutywfyNu9jT87EGTblW/zDEbI4x39MQUnC
            "]]}, 
          RowBox[{"-", "0.2`"}]], Annotation[#, -0.2, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0UFI02EcxvHXdEUiYrdgOQptCBIFQVQgWQ3RLoInD54E9SCkbO7SQW8F
IpR4jCBUgmCHkZhgBMUI1IsQgooII/IgGAq75QZ+3sOX7/M8v/H/s+3W8MTA
y7oQwlvU14fwIxFCCRNIXg5hFUl7Kz9oCOERVvQaBn3mBjdyl/2Oz3RzyXaJ
7+qtcpP7U/2+nuFftgQ/1lNys3uP/kTv4w3bVe7Rb8ot7v36dV7XO/g733ZP
ox0LmEeLfc99H7s4xAEy9lHPGMOZPMLDuCb/cf+Lcvze+jH38qR7lisxY1wf
cstxTn8h5+NvwcG7q/xGn+IsEldCeKV3uv3Tf8p5+Shu+gcU9S8oYA2vPXvG
vco1JHGONtspt3OKl3mOP3nGZ7yPv59tkbv0JX7OzzBr/6hPywX+rT+U33Ex
/p9Io+z992xf5W25xFvYlHfihm9yBf+xh5P4fXAB9opKlg==
            "]]}, 
          RowBox[{"-", "0.4`"}]], Annotation[#, -0.4, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0c9L03Ecx/GPzlw/XN1Hlw5rdckKTAMLbErasYv38BBoG6NDf4FFTFtE
XqRbNK2MQFJUhH4gZR1CEQtCHKREsEDoNgv08Tk8eb7fr/dnnx/fnbhRuJ5v
CCGMozERwtsDIXxAHunmEN4gLT/ObU0hdGBa/x/91jRxSIbQwgf5EM5Ye4QP
Y0l+Tn8eZzGCElLyC9we98VFdOCT/BJfRiceYBRH5Vc4hy70oBtf5H18Db14
iDKOyTPudzK+A6eRxaK8Yp6NZ2ECH+P+7vqIH+OHdXP8jed5g3N+d9Pbh3gH
gxjQj5n/Mr+lr8bvxr/5KhfMW9Fo7wYUZc38jpN8hxO8a/0e/uGu7DYX47c1
+8M1nHLOc2ybt8hfql9gFsPOuIenZmneRR0Z/U/z9fgWVPRP5JP2G+dXPIVn
6pJZl/o+ryLljBV+bdYuL6tn1O/tk+Eqb6JVvhX/X/4sX1av8VcsqP+iju+o
xftjHyWfTyk=
            "]]}, 
          RowBox[{"-", "0.6`"}]], 
         Annotation[#, -0.6, "Tooltip"]& ], {}, {}}}], 
     GraphicsComplexBox[CompressedData["
1:eJxd1AtUznccx/HHNWMiZC4LWXTIGDbUZk1ErhUmx6Usk3s5ZDnK5chxKdey
EtrJpdXMFuW0SReawoQuTylddJHqQcphy8HM8//2+fzO6Tmd8z+v0/P8///f
7W3p6TN7WWudTje3lU5nvE67svRycJY+Tad9GuzhKUMmtT7YVE8Pil+/ekaq
8prixLXFiU/phLavfVbFPaEP7x9SZL1RudD49bWP6QHlF0odvQz0fyvKJ7cZ
pjw5xGpqiFUdfeDyiumWFrXq+ZPCL5ZV1tAXjbcvfkS/Cet/6U1eNX2//6yB
SRHKA6caH/CQXrW+YHBhUBXt9LrtoR9dlA8ZX2dqpRrPzP1HEiZU0IkFl9+u
M1F+8874eUDvm72nbb/GUnX/76sLjgYo39Pmp5j2+uCfB3r3IvW+fefEOxsK
6Xjt6wW0g1zVfOZc2d9+vvIB7f1z6X5+OWEOdtlq/swW524Ovkvnae9zi36+
cOvD587X1XxtG7e31iuTDtLun07PCU0Yc3VeMj3xvvX2czuT6B3a9+OVS/VO
tn3P0J6rU4q7+EXRsj/PJ8On5P9pcLr8nj4l96eXyvPpDfJ+9DF5f3qzjI9u
vUgbP10l80Nfk/mjB8v80mEy/3T7XG196JbXJFlfeqisP+0t+4N+IPuHdpH9
RR+R/afGo81nuXqe7F+6RPa3+r3sf3qGnA/1PnJ+1PjlfNFlcv5oXbh2Puk/
5fzS6+R80yFy/tU8SR/UeFZq/aCtpC9qPNIfNR7pE50o/VLjkb6p8Uj/aCfp
oxqP9DMtJ/SzcHvXm+wp/OUfDcMrNz2jR1plfv1qfD2NnsIxITEnUkYoR74L
OKd/8ZhGT+Ee3u4dIx4Z6I7Fo/uc/7WORk/hHVPNN/lG1tKbEg27gz1raPQU
brDKqnaeq/zo8MmXXr2rafQUdtcFzrHppDx37fylDtmVNHoKZxXbXm2fXkGn
O3XJsdhdTqOn8AbvisXXGsvoJU77tjz3L6HRU3jWIGdbf4/7aj3evZr/S909
Gj2Fh5Qk9xh1O5/+KHH550vc8mj0FG4XOrSh1i6Hri4623940G0aPYWvypU+
MWVXwfFl12j0lOvT6sNZvw27Qv+86q8+3XckqvVs7imckhzZfc2Ac2r8veos
k6oO0egpfEf+z/37Vn5Po6dwpjyf3iPvR6On8DkZH93yip7CL2X+6M4yvzR6
CveX9aFHyvrR6Ck8Udafnif7g0ZP4RWyv2h/2X80esr5kf1LZ8v+ptFTeL6c
D9pTzg+NnsIGOX/0CzmfNHoKB8j5pnfJ+afRU9hU+kH3kr7Q6CkcJX2iz0q/
aPQUHiX9o7+SPrbsJzu6u0mXUde1zN4xYHulb4dntLXHmGCv3+tpdBS+4DbW
xSXtCR1q97RpwjJldBS2GF2fYvODgW7V84yXxcfK6CgcbBptY/JpLe3TuEDf
lFtDo6Pwq7qFEZVV1XRplpmDfq8yOgovz+hmknqsip4eeyMu7htldBTOj7rp
G+FaQV8K3GYR/G85jY7CLa8zU9f0vL2olEZH4e/ivKOithap+d94vzHw70Ia
HYXHe5X4uz3R022GOd22G6eMjsK9Laa5mS7IplMzVrtWTb9Lo6NwbYzPsqCD
12nf0VM6uFpn0ugobG8TNq4hP5l2c3DcuqVdEo2Owgs6H5sR3jua7uHXELe0
8ScaHYWPyP/T4GPyexodhf3k+bSHvJ/6fXNH4Z0yPrpJxk+jo/AdmT/aUuaX
RkfhTrI+tKOsH42OwiNk/emVsj9odBT+VvYXfVCuNDoKp8j+pYtkf9PoKOws
54NeLeeHRkfhCjl/9Fs5nzQ6Cm+Q863eX84/jY7C7aQfav6lLzQ6CodLn+gE
6ReNjsJDpH9qvaSPNDrawvajtU+V/aJGc49G82d0V0OUqSGqnkZP4RtZxs8T
OiDD7f2fMnoKfxEbaBcbaKDrjLc3VUZP4dPGr9vV0m7aA2po9BQ28zAOoJrW
XidAGT2FtxlvH1tFt7yip/BT4/R4VNAntdcvp9FTOLHSJrXSpozup59goZ9Q
SqOnfF6E8VNENwXFvf8rpNFTroeLyUYXk3xau72FnkZPYSfj1zdm00u09b5L
o6dcD22+r9M9tfnNoNFT+HWe8QVS6OPaeC7R6Cmc6268XzT9iTaASBo9hU/L
/9Pgbtr7RNPoKXxZnk/31X6fQqOn8GAZHz1Pxk+jp/A6mT/aReaXRk/hElkf
2lfWj0ZPOf5gbf3po7I/aPSU7y/7i06V/Uejp3C07F+6UfY3jZ7CY+VKB8r5
Uc9v7il8U84fbS7nk0ZP4YVyvukYOf80ego/lX7QttIXNd/NPYW3SZ/oW9Iv
Gj2FzaR/9GLpo1qf5p7C/wOQDuTh
      "], {{{}, {}, 
        TagBox[
         TooltipBox[{
           Directive[
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[1.6]], 
           
           LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
             18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
            34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 
            50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 
            66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 
            82, 83, 84, 85}]}, 
          RowBox[{
            SubscriptBox["a", "p"], "\[Equal]", 
            RowBox[{"-", "0.32498448657770906`"}]}]], 
         Annotation[#, 
          Subscript[$CellContext`a, $CellContext`p] == -0.32498448657770906`, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            RGBColor[0.880722, 0.611041, 0.142051], 
            AbsoluteThickness[1.6]], 
           
           LineBox[{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
            100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
            113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
            126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 
            139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 
            152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
            165, 166, 167, 168, 169, 170}]}, 
          RowBox[{
            SubscriptBox["a", "p"], "\[Equal]", 
            RowBox[{"-", "0.19779200441658287`"}]}]], 
         Annotation[#, 
          Subscript[$CellContext`a, $CellContext`p] == -0.19779200441658287`, 
          "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            RGBColor[0.560181, 0.691569, 0.194885], 
            AbsoluteThickness[1.6]], 
           
           LineBox[{171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 
            182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 
            195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 
            208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 
            221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 
            234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 
            247, 248, 249, 250, 251, 252, 253, 254, 255}]}, 
          RowBox[{
            SubscriptBox["a", "\[Rho]"], "\[Equal]", 
            "0.46978229750300965`"}]], 
         Annotation[#, Subscript[$CellContext`a, $CellContext`\[Rho]] == 
          0.46978229750300965`, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            RGBColor[0.922526, 0.385626, 0.209179], 
            AbsoluteThickness[1.6]], 
           LineBox[CompressedData["
1:eJwNxllWQQEAAND3hEJRoWjWqEFp0IRSKSpNaAMWUPv/cz/uObc0+u//hUEQ
/BJISIQJosSIM8kUCZKkmGaGNBlmmWOeLDnyLLBIgSJLLLPCKmuss0GJTbbY
Zodd9iizzwGHHFHhmBOqnHLGORfUuOSKa264pU6DJnfc0+KBR55o88wLHbq8
8sY7PT745ItvfugzYMgYP9cQUA==
            "]]}, 
          RowBox[{
            SubscriptBox["a", "\[Rho]"], "\[Equal]", "0.6`"}]], 
         Annotation[#, Subscript[$CellContext`a, $CellContext`\[Rho]] == 0.6, 
          "Tooltip"]& ]}}]}, {
    DisplayFunction -> Identity, AspectRatio -> 1, DisplayFunction :> 
     Identity, Frame -> True, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], Method -> {"DefaultBoundaryStyle" -> Automatic}, 
     PlotRange -> {{-1, 1}, {-1, 1}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           GraphicsBox[{
             
             RasterBox[{{{0.148, 0.33, 0.54}}, {{0.4109375, 0.448125, 
              0.5775}}, {{0.6065625, 0.516875, 0.4625}}, {{0.8021875, 
              0.5856250000000001, 0.3475}}, {{0.915625, 0.6590625, 
              0.33843749999999995`}}, {{0.946875, 0.7371874999999999, 
              0.43531249999999994`}}, {{0.978125, 0.8153125, 
              0.5321874999999999}}, {{1., 0.9, 0.65625}}}, {{
                Rational[-15, 2], -100}, {
                Rational[15, 2], 100}}], {Antialiasing -> False, 
              AbsoluteThickness[0.1], 
              Directive[
               Opacity[0.3], 
               GrayLevel[0]], 
              LineBox[
               NCache[{{
                  Rational[15, 2], -100}, {
                  Rational[-15, 2], -100}, {
                  Rational[-15, 2], 100}, {
                  Rational[15, 2], 100}}, {{
                 7.5, -100}, {-7.5, -100}, {-7.5, 100}, {7.5, 100}}]]}, {
              CapForm[None], {{
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], -75.00000000000001}, {
                    Rational[
                    15, 2], -75.00000000000001}}, {{-7.5, \
-75.00000000000001}, {7.5, -75.00000000000001}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], -50.00000000000001}, {
                    Rational[
                    15, 2], -50.00000000000001}}, {{-7.5, \
-50.00000000000001}, {7.5, -50.00000000000001}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], -25.000000000000007`}, {
                    Rational[
                    15, 2], -25.000000000000007`}}, {{-7.5, \
-25.000000000000007`}, {7.5, -25.000000000000007`}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], 0.}, {
                    Rational[15, 2], 0.}}, {{-7.5, 0.}, {7.5, 0.}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], 24.999999999999993`}, {
                    Rational[15, 2], 24.999999999999993`}}, {{-7.5, 
                  24.999999999999993`}, {7.5, 24.999999999999993`}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], 49.999999999999986`}, {
                    Rational[15, 2], 49.999999999999986`}}, {{-7.5, 
                  49.999999999999986`}, {7.5, 49.999999999999986`}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], 75.00000000000001}, {
                    Rational[15, 2], 75.00000000000001}}, {{-7.5, 
                  75.00000000000001}, {7.5, 75.00000000000001}}]]}, {
                Directive[
                 GrayLevel[0], 
                 Opacity[0.5]], 
                CapForm["Butt"], 
                LineBox[
                 NCache[{{
                    Rational[-15, 2], 100.}, {
                    Rational[15, 2], 100.}}, {{-7.5, 100.}, {7.5, 
                  100.}}]]}}}, {Antialiasing -> False, 
              StyleBox[
               LineBox[{{7.5, -100.}, {7.5, 100.}}], 
               Directive[
                AbsoluteThickness[0.2], 
                Opacity[0.3], 
                GrayLevel[0]], StripOnInput -> False], 
              StyleBox[
               StyleBox[{{
                  StyleBox[
                   LineBox[{{{7.5, -75.00000000000001}, 
                    Offset[{4., 0}, {7.5, -75.00000000000001}]}, {{
                    7.5, -25.000000000000007`}, 
                    Offset[{4., 0}, {7.5, -25.000000000000007`}]}, {{7.5, 
                    24.999999999999996`}, 
                    Offset[{4., 0}, {7.5, 24.999999999999996`}]}, {{7.5, 
                    75.00000000000001}, 
                    Offset[{4., 0}, {7.5, 75.00000000000001}]}}], 
                   Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], StripOnInput -> False]}, 
                 StyleBox[
                  StyleBox[{{
                    StyleBox[{
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"-0.6\"", -0.6, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -75.00000000000001}], {-1, 0.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"-0.2\"", -0.2, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -25.000000000000007`}], {-1, 0.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 24.999999999999996`}], {-1, 0.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 75.00000000000001}], {-1, 0.}, 
                    Automatic, {1, 0}]}, 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], {
                    Directive[
                    Opacity[1]]}, StripOnInput -> False]}, {}}, {
                    Directive[
                    Opacity[1]]}, StripOnInput -> False], "GraphicsLabel", 
                  StripOnInput -> False]}, "GraphicsTicks", StripOnInput -> 
                False], 
               Directive[
                AbsoluteThickness[0.2], 
                Opacity[0.3], 
                GrayLevel[0]], StripOnInput -> False]}}, PlotRangePadding -> 
            Scaled[0.02], PlotRange -> All, Frame -> True, 
            FrameTicks -> {{False, False}, {True, False}}, FrameStyle -> 
            Opacity[0], FrameTicksStyle -> Opacity[0], 
            ImageSize -> {Automatic, 200}, BaseStyle -> {}], Alignment -> 
           Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}},
            ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
          False], {FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]}, "BarLegend", 
      DisplayFunction -> (#& ), 
      InterpretationFunction :> (RowBox[{"BarLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{
                 RowBox[{"Blend", "[", 
                   RowBox[{"\"M10DefaultDensityGradient\"", ",", "#1"}], 
                   "]"}], "&"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"-", "0.8`"}], ",", "0.8`"}], "}"}]}], "}"}], ",", 
           
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"-", "0.6`"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"-", "0.4`"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"-", "0.2`"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{"0.`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{"0.2`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{"0.4`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{"0.6`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{"0.8`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "\[InvisibleSpace]"}], 
                    "GrayLevel[0]"], 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[{"Opacity", "[", "0.5`", "]"}]}], "]"}]}], "}"}]}],
              "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"Charting`TickAnnotations", "\[Rule]", "None"}], ",", 
           RowBox[{"Charting`TickSide", "\[Rule]", "Right"}], ",", 
           RowBox[{"ColorFunctionScaling", "\[Rule]", "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.647849211776002*^9, 3.647849235870222*^9}, 
   3.647849341417246*^9, 3.6478493823296223`*^9, {3.647849526984385*^9, 
   3.647849541170603*^9}, 3.647849659999057*^9, 3.6479760613435326`*^9, {
   3.647976130419326*^9, 3.6479761413276863`*^9}, 3.6479778647246604`*^9, 
   3.647981657000773*^9, {3.64801705002824*^9, 3.6480170702804947`*^9}, {
   3.649330226271985*^9, 3.649330244653214*^9}, 3.6574608327153473`*^9}]
}, Open  ]],

Cell[TextData[{
 "There is a match in mass differences for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["a", "\[Rho]"], ",", 
      SubscriptBox["a", "p"]}], ")"}], "\[TildeEqual]", 
    RowBox[{"(", 
     RowBox[{"0.58", ",", 
      RowBox[{"-", "0.3"}]}], ")"}]}], TraditionalForm]]],
 ". The resulting mass difference is"
}], "Text",
 CellChangeTimes->{{3.648045070355959*^9, 3.64804527712057*^9}, {
  3.6480453113222256`*^9, 3.6480453507146144`*^9}, {3.64811882812033*^9, 
  3.6481188281203814`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Implicit\[CapitalDelta]m", "[", 
  RowBox[{"neutron", ",", "proton", ",", 
   RowBox[{"-", "0.3"}]}], "]"}]], "Input",
 CellChangeTimes->{3.6480453701079473`*^9}],

Cell[BoxData["2.1862845903798416`"], "Output",
 CellChangeTimes->{3.6480454206666703`*^9, 3.6574608329164057`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["commands", "Subsection",
 CellChangeTimes->{{3.6475829226647415`*^9, 3.647582959147748*^9}, {
  3.6475926995643835`*^9, 3.64759270034824*^9}}],

Cell[TextData[{
 "plot the possible values of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["m", "d"], "-", 
    SubscriptBox["m", "u"]}], TraditionalForm]]],
 " for different hadrons (varying the intercept). Is there a possible \
intersection for all of them? If so how constrained?"
}], "Text",
 CellChangeTimes->{{3.647671281515016*^9, 3.64767134636325*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ppl", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Implicit\[CapitalDelta]m", "[", 
      RowBox[{"neutron", ",", "proton", ",", "a"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "0.3264", ",", "0.3117"}], "}"}], ",", 
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"neutron", ",", "proton", ",", "a"}], "]"}], "\[Element]", 
       "Reals"}]}]}], "]"}]}], " "}], "\[IndentingNewLine]", 
 RowBox[{"\[Rho]pl", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Implicit\[CapitalDelta]m", "[", 
     RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", 
      RowBox[{"-", "0.532"}], ",", 
      RowBox[{"-", "0.467"}]}], "}"}], ",", 
    RowBox[{"RegionFunction", "\[Rule]", 
     RowBox[{
      RowBox[{"Implicit\[CapitalDelta]m", "[", 
       RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "a"}], "]"}], "\[Element]", 
      "Reals"}]}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.647681255131707*^9, 3.6476813748079967`*^9}, {
  3.6476814706348553`*^9, 3.647681479694429*^9}, {3.6476815406425*^9, 
  3.647681565316957*^9}, {3.647681686559368*^9, 3.64768175615162*^9}, {
  3.6476818232795486`*^9, 3.6476818342698708`*^9}, {3.647763216678701*^9, 
  3.647763240840128*^9}, {3.6477638618175488`*^9, 3.6477638662085648`*^9}, {
  3.647763908213627*^9, 3.647763989989789*^9}, {3.647764055204702*^9, 
  3.647764099297276*^9}, {3.6477641426088037`*^9, 3.647764160770802*^9}, {
  3.647768729458322*^9, 3.647768732920618*^9}, {3.6477702492729692`*^9, 
  3.647770256516315*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV03swXHcUB/BtatTxNiseUcGuzSChpNJs4vXTmKwSu6FUa+IRki66Qhjd
WMSKZyNeW1vPyKSbNDZe8Wq0tiLTSlKaBitElBKSkgkVpIasnZ77x507n/me
c+bec3/XJjox6PQOGo0WgBd1P7/wV8n8qtJLnJI172YIpM/8vnADTYs9IeCg
3/Vvi9Jewzw1eD0IXdict98ZTXsu1YhHS5KdxtIp0yP2VKFvqLIs6etYb6yR
uI4eMmQ2eb/BXCI3bjYCwjwU93v9BrrnbNtuOpCUA+yhXhVaoVvqbQKktWRh
vuCdUS/xmJ6WizkQQWfNa7bmqBftp2dC+vtAlHmlAzwd9NJk7EdWQPZ0nm4z
MMT65XoJiwHEtuT8qQM70QNmNSEsIDLXaoMju7BepL57zg6IHlv6YHM3+qxA
wd8LhPGPMsDEFt1L065ywudbW5uZtMP+pMj/vnUBcn1wp+AbR7SsvfaCK5Bh
nujXuv1oI12tjoNAFp377L44iP1Tzc0th4E0/eIblu6OubIz7ZUHkBUTZU6e
N+ZPpPaW3kCsHnr2sI+iY4RyMx8gm05LvYH+6Na+B59xgNxZyhiiH8f+4f4L
kX5AnD/ntbiFoLX0PRsDgNiUMnP9w9C9csXicSBqxgRfIxL7tR3iVz8Fkh89
bMo8hWZYST1DgWypbz5+GYs+E98dHAZkmZ9fVJOAZr92CQ8HUpxxTe9WMno7
WyaPAmK2LLt8RojzRdzv78QACdB5sSnJQFeC2pyP5+GNPfdKNtaPFk19GY/7
cePdCs5HH3aczEgAsup4ezqxCJ061DWeBMQhk2bhWob92+Ffv00BMlflz5up
QM8G+BkJgXCiJnir1Vh/rDFNIAJSmesb0VyPuY/UuiwTSHnwFvtPGdpSdXFT
DESYXWxT1UC9T8SHe3OBTIsYO/ya0ZkWg9wC3LfVVsvJdnSCdUP3RSBLNh1x
jNvYX6gV9LIYiPRRy4qvgvreuk3R5UB6P2lKDL2LrleyHlbg+bIuUunfo/bH
2FBX4vmWNYXsG0RzD9HO1QLxyGlVrD7CeU8yWd31QOI+6LS4Oor508dri1eB
kIK3R7smMNdezoq5DmSHu604eRrzZEmHrAEIdzBRXoAWM93d29HVYT0jdVTO
NujvQzunBbHuUy5xGZ9CR/4oHrD4G03jb5vKgSicp4z7KTdIAy+hU1nfyU1n
cd5X75mn3sT/t3N2ZB+appr+IQet6+Oo8qZyzRlXCfpa9G9cAZVXRAS2okeu
rK71Ua4NuLSIdtrF84x/htZZh4hGICJ5DT+LcltMjQDdz35RVkF5RuWQjj4R
mjnXS3m88VgVuqiisZA+h+aoykfQY8yNNjvKR7qZs2hGx8eTHmjxH5e7/kX/
PDzhGEu5+PmEbhMQzZMsnIj19zgCC3TgSpJYQrlUqbZH12Up5DcovyosZ6MX
9LWUCspP+bYc9P/7LSaw
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.312, 3.13},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.3117, 0.3264}, {3.1329267360110293`, 3.2091200679963094`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.647681256029109*^9, 3.647681286378778*^9}, {
   3.647681348130456*^9, 3.647681375634201*^9}, 3.647681480756632*^9, {
   3.647681550227178*^9, 3.6476815664256353`*^9}, {3.647681718077342*^9, 
   3.6476817566068907`*^9}, 3.647681834748097*^9, {3.647764089741789*^9, 
   3.647764124277092*^9}, 3.647764161410747*^9, 3.64776875694211*^9, 
   3.6477714030047417`*^9, 3.657460833030139*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwd0XlMVFcUB+CRArJoGS1CxgXBkEothkErpaPpgSkZBQEJUMrmCEyHxSoi
yjaAxU4rNKyGLgFRB4sK1MqABEUlA0SBlmBB7gVkkR1HNgfZClTouf3j5ebL
O+d3zrvPIuSMp1SLw+G44cNO2Z/xvZa6gypO6yvXjcvtENX3ZOOKDloTM2mF
DpvhQhtz0O4MJ7Q3r6QwmTlqrjkRvTfiRWiHNlpp5zaOHtATzKS+xxzg07jS
DqIjKzoTHJa3R37xXTtsaky2KV8ZUHG406IFDoHnk87RgRq0h0FmrB4Bx2W7
N42jaP7zyQQjArb+SZnhPcwdLoEmBFyH0rZZtaJrr8s7dhAw9qwavv0UrXnr
2W5JQHe89IroITpFEh1uTUBGFs9vLWP5DnW9+wkU3JKm3S1ieVE72wUE1Ir8
9OA8ts/h4BAhgaHvNE0ki7nh9DlnAuL713Ynf49Wis0lHgS0jY1jnRLQA+GH
J78i4OtbutociVZsqFwQE+h4sj4uWsL2ObDhSihaXsN190WbSw+ZRRKQ7/lp
5LUby//HalcMgYAl2+IiIctv/qU2icBAmebmTntm78R+OYHsrNjcamt0Ds8/
L51Arcr7RpoFm+85aJtL4HqX14SpKbp1zssln0Axb6tlgyGaM++7WkjghHDd
r5+sY/el0NpXQoCfeNFHOdWP9c6NXygJLNZliQ90ovk37s3cJ8Dr6usW1KOj
Mh6ZqXD+54/sLvyO5sxK1Q0E9F2c6cc/o1OGxTnPCLy05Kn9UtBcrbEqSkDP
I677aQTrNyyV9RHIdDF1rPBm+bGVj0cImIyHjes5oBU0uXeCwOwL0bmrH7H+
8m35swSs88KiKoxZfcN5ukygutjETWf1Jf6/NbMyLQqFqeuvdanRnJyDugYU
Mg1LbE0I85ZRwSYKLf1dRZdrWH1dwvs8ChFyl4zMYrRSNis2p+AX5+LVeBnt
oN3pbkXBjbsS+E0ie69K2s6nUBA/1Z0dim5tjQn9lIKDbaT922PMa3EeQAGq
+QZUwOovyatEFIRjv5nt+hBdK6pZcqOQJ7m5+Q8j9IC8oO9LCkeVatmD5T7s
vz1/6DiF+JVBtT+zecnYcXSRqMfn3RJa2dN5Af1vb8s+IbMDeViLvqt/b7x5
Ec01ljuJKXAlyf79c2j+s+2uJyh0bNks0H2DVtjEBART0Ao2LC6eRnv4nkpC
29zRNjn6vyskV9FpwsWZ7Ck2f9mzH/3Zmd4S3iTbr2u/JAS/v+kWb+9rdG37
6kkJhaYPFKl/q9Ea7lI6el6cN3+WOejb2Tto9/n0tqpXLE+jnkavWZz90WGM
zbPoiP6agvXpk4tDo6xf3ZaL9n0gkf7ArBxsqUQr3X0c/xph9WENC+jevGNl
p5jN5+pNpRT0R4/sMGLmV6js0XZ8YXr5MDqn8LEfOiTx4JIXc1B9tQz9H2L5
hAg=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.53, 0.311},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-0.532, -0.467}, {0.31213696012787295`, 0.3343188108497088}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.647681256029109*^9, 3.647681286378778*^9}, {
   3.647681348130456*^9, 3.647681375634201*^9}, 3.647681480756632*^9, {
   3.647681550227178*^9, 3.6476815664256353`*^9}, {3.647681718077342*^9, 
   3.6476817566068907`*^9}, 3.647681834748097*^9, {3.647764089741789*^9, 
   3.647764124277092*^9}, 3.647764161410747*^9, 3.64776875694211*^9, 
   3.6477714030047417`*^9, 3.657460833059656*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[CapitalXi]Dif", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Implicit\[CapitalDelta]m", "[", 
      RowBox[{"\[CapitalXi]n", ",", "\[CapitalXi]m", ",", 
       RowBox[{"-", "0.53"}], ",", 
       RowBox[{"Implicit\[CapitalDelta]m", "[", 
        RowBox[{"\[CapitalXi]n", ",", "\[CapitalXi]m", ",", "0.499"}], 
        "]"}]}], "]"}], "}"}], ",", 
    RowBox[{"Filling", "\[Rule]", 
     RowBox[{"Implicit\[CapitalDelta]m", "[", 
      RowBox[{"\[CapitalXi]n", ",", "\[CapitalXi]m", ",", 
       RowBox[{"-", "0.53"}]}], "]"}]}], ",", 
    RowBox[{"PlotMarkers", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<-\>\"", ",", "20"}], "}"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"amin", ",", "amax"}], "}"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"InterceptLimits", "[", 
        RowBox[{"\[Rho]n", ",", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", "\[Rho]n", "]"}], " ", 
          SuperscriptBox["10", 
           RowBox[{"-", "6"}]]}]}], "]"}], "\[IndentingNewLine]", 
       "\[Rho]Dif"}], "=", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "amin", ",", 
           RowBox[{"Implicit\[CapitalDelta]m", "[", 
            RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "amax"}], "]"}]}], "]"}], 
         "}"}], ",", 
        RowBox[{"Filling", "\[Rule]", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"\[Rho]n", ",", "\[Rho]p", ",", "amin"}], "]"}]}], ",", 
        RowBox[{"PlotMarkers", "\[Rule]", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<-\>\"", ",", "20"}], "}"}]}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"amin", ",", "amax"}], "}"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"InterceptLimits", "[", 
        RowBox[{"Ksn", ",", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", "Ksn", "]"}], " ", 
          SuperscriptBox["10", 
           RowBox[{"-", "6"}]]}]}], "]"}], "\[IndentingNewLine]", "KsDif"}], 
      "=", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"Ksn", ",", "Ksp", ",", "amin", ",", 
           RowBox[{"Implicit\[CapitalDelta]m", "[", 
            RowBox[{"Ksn", ",", "Ksp", ",", "amax"}], "]"}]}], "]"}], "}"}], 
        ",", 
        RowBox[{"Filling", "\[Rule]", 
         RowBox[{"Implicit\[CapitalDelta]m", "[", 
          RowBox[{"Ksn", ",", "Ksp", ",", "amin"}], "]"}]}], ",", 
        RowBox[{"PlotMarkers", "\[Rule]", " ", 
         RowBox[{"{", 
          RowBox[{"\"\<-\>\"", ",", "20"}], "}"}]}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"\[CapitalXi]Dif", ",", "\[Rho]Dif", ",", "KsDif"}], "]"}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.6475998224802475`*^9, 3.647599910672287*^9}, {
   3.647600043772453*^9, 3.6476000736975207`*^9}, {3.647670140992119*^9, 
   3.64767014608738*^9}, {3.6476708316954317`*^9, 3.647670831855835*^9}, {
   3.647671015706892*^9, 3.647671051219615*^9}, {3.64767108496244*^9, 
   3.647671121020514*^9}, 3.647671250218602*^9, {3.647671389354395*^9, 
   3.647671393277268*^9}, {3.64767143770804*^9, 3.6476714765777082`*^9}, {
   3.647671511422962*^9, 3.64767167870392*^9}, {3.647671713480959*^9, 
   3.647671803063861*^9}, {3.647672630402234*^9, 3.6476726434677153`*^9}, {
   3.647680535658605*^9, 3.6476805435480003`*^9}, {3.647681075633061*^9, 
   3.6476810769479637`*^9}, {3.647681141756295*^9, 3.6476811540862103`*^9}, {
   3.647681230176355*^9, 3.647681235626225*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{0., 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.647672620733461*^9, 3.647672645108515*^9}, 
   3.647680503533338*^9, {3.647680547104735*^9, 3.6476805638351183`*^9}, 
   3.6476812384378347`*^9, 3.6574608331218348`*^9}]
}, Open  ]],

Cell["\<\
Now plot the energy differences due to charge and string tension, minus the \
difference in the actual experimental mass. This should give the mass \
difference in the end points needed to explain the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6467715615223513`*^9, 3.646771597764853*^9}, {
  3.646771627851495*^9, 3.646771639254436*^9}, {3.646771892161929*^9, 
  3.646771922570491*^9}, {3.646771955659872*^9, 3.6467720195600758`*^9}, {
  3.6467746398636637`*^9, 3.6467747120583687`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["1", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ks", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
      RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Ksn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Ksp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]c", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dmes", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "Dn", "]"}], "-", 
       RowBox[{"Mass", "[", "Dp", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"Dp", ",", "csq"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["0.5", "137"], ",", 
        FractionBox["10", "137"]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[CapitalSigma]c", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}], "-", 
        RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"\[CapitalSigma]cp", ",", "csq"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", 
         FractionBox["0.5", "137"], ",", 
         FractionBox["10", "137"]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalSigma]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalSigma]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalXi]2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]2m", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]2n", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2m", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]2n", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "Bn", "]"}], "-", 
      RowBox[{"Mass", "[", "Bp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Bn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Bp", ",", "csq"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", 
       FractionBox["0.5", "137"], ",", 
       FractionBox["10", "137"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "Ks", ",", "\[CapitalXi]c", ",", "Dmes", ",", 
   RowBox[{"(*", 
    RowBox[{"\[CapitalSigma]c", ","}], "*)"}], "\[CapitalSigma]", ",", 
   "\[Rho]", ",", "\[CapitalXi]2", ",", "B"}], "]"}]}], "Input",
 CellChangeTimes->{{3.646771950731372*^9, 3.646771952079427*^9}, {
   3.646773446750395*^9, 3.646773527162901*^9}, {3.6467739499050417`*^9, 
   3.6467740871374083`*^9}, {3.64677412262253*^9, 3.646774187884631*^9}, {
   3.646774249796054*^9, 3.64677431049582*^9}, {3.6467744799045258`*^9, 
   3.6467745123336573`*^9}, {3.646774736765486*^9, 3.6467747673780117`*^9}, {
   3.64677480806011*^9, 3.646774905078524*^9}, {3.6468054195661592`*^9, 
   3.6468054612143517`*^9}, {3.646806278805697*^9, 3.646806299819624*^9}, 
   3.6468063302471447`*^9, {3.646904373022484*^9, 3.646904418235331*^9}, {
   3.646904481152533*^9, 3.646904485287752*^9}, {3.646906424813212*^9, 
   3.646906474872012*^9}, {3.6469067567808332`*^9, 3.6469067664148483`*^9}, {
   3.646907516192577*^9, 3.64690752320674*^9}, 3.6469075735789843`*^9, {
   3.646908658506624*^9, 3.646908658933872*^9}, {3.646912738500119*^9, 
   3.646912824595537*^9}, {3.646912870978058*^9, 3.646912884420073*^9}, {
   3.646915424828039*^9, 3.646915448856234*^9}, {3.646973251487301*^9, 
   3.6469732584090242`*^9}, {3.646974597814584*^9, 3.6469746041105127`*^9}, 
   3.647181429922538*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0nsw1WkYB/CX95eSBrFhO2yss5jKqN04Teh9axG7sdZta9NYdhFyibWL
cncIJ+XO4bQ4cdxyP8othmhNW2nW5YxTKeU6VpexjrNR+/jjN+98Zp73fb/v
8/wMfEJdfBURQo7wba7VqrvpxEwsQWm7uI/CMfVYedYk+w+s9kAsBTOTQgMd
9TiCcsWzc+CfKk3x6SPga586oAhMdayODU1mgbNN1Q+CLwecO/mME0/QrVRR
DviQz5n6dzYJBPGV3rv/iqlmT81teUEiQeMp5k8jMV0IbkifiUghKKzI4EA0
poviG7lEP42gLyZWHC9hqu6trGDam05QraG1VzymjlvHjdYKeJBHLb89CdN2
mzzuwaNXCZKVGEu4mPKPnnViq2UTZMGNoumYnueJMqOjcgjqfpFXysN0tDJw
hjucS9Dvvpz+q5je6/ZmKXDyCdq+LdosF1PnPx4Hf8UrIKidPetbAPtb1y40
ThYSdMEv4Gox5B90deHbFkN9UpCCAOorjL+zKuJD/rSXlmXQj1gzE8etpQTp
S3N6hZhGpC+3iEIFBLlNtlqIMP3F2+jHjt7rBPkP8CJrMQ1jDS/rapURZOmT
8eEmpvKgrjuH+8CcS8+dmjG177q3nhlVTtD+CtZiG/Rf2KiZYlpB0EcvftRt
TL9++/ftH8bB4Tb1D7owXbLW+MvnihD6s8gP6YX6N7xgh8M3CDpe1THWj6nA
8uXc6BRYa8bdbAjTMq7rSGF+JUGkeXBsGNNgc3TCglRtzv/6sQeYoldD+3bI
wEdWtd6PYOq5L2AhtU5EUHVSuGgU02TJCfOnrtUETX/pryOB96TQ14Hbawja
Za4gkWJqUhDJGW0Ds6bvn5nCtIamnpo+U0uQVLXm8TSmbxaa5ox31hHku3Kg
cBZTRbn2FodOsE6rtv4ippNKxdfKL9QTlNibIP8H09gYj9ox3ZsEhRg+yX8L
/0/q69KGu+ABlgb7X0xZORUbd2IaYH4JUiyHeeCcpVp2I0F923sq1+G88BKH
h0/Aw0STjxjaat1H7ts3EaTyRJzAMHRqZcRATwAem8802cbQkLrlzow1sLKH
3HAHQ6fz9rJmHZsJEqUZP1djaNc3o3O55eAESfcVTYbKPmYEnV0HV+SoXNNm
qM68V/sn37cQFH3kkAuLoX6ONetZLmD5aaWfwW0t744ru4HDRiQRYOdY7qMN
D/Cp/rh88GWNuvlZT7Bb50MJWGa1urvjHDhvI85Ll6Hj2bz4swngrhn9YD2G
smVjgxOJYJXFjVhwuOeeHS7J4FZbaRZY1bilyC4VrIELm8B23RPNZjywX4HG
Clg8+/krhaLNfAa7L37GUMWT5/deKgbrCdYzwc7N4rBVPvhu6FQpeOmi/cai
ANzGqroDZu8M0RoVgr2zOIp74P7fbnk6VYK3DOlqgvukSPhnFfhbd0U22LMq
16ynBtwR89AWXKvyNJJTB15QF3uA18KMupvrwQMfSvzBduOhivsbwA42yVHg
PMsO+6pGcNyLwHTw/8q+AF0=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0X841HccAPBPxuX8SlrHg/um2t31c0/W8JjN+1MxaVIPPY7KJrLKhpMm
esRH6NTVFcohtdydy5VOqdCumjytH2baWjbTM2SEJdpVIj/auz/ez/t5Pe8f
z+f5vOdGJ4bEmhFC1mK8y24fp+r+7I0H4p45pXotpFyXY2qSQwKQJSkepWiX
Q3WB1pAArDnp2zK0oGdk0LcYPZXSfhptc+y75bo1iUDEV2v16Ik076gfpDIg
+a4yI7rvL89nedeSgKyLetKBvlHiPl28fxewFx1dolEhbWU+H8Xn7wEiaeQ1
oAV15ZrZLgwYf5r/+jEh3S4IFQV27gMyVj72NzpRr5yX3ZkLrGHIPPWNkBbB
vWOpVXnAYk44Wo4L6U6+ct+uKwpgkXVHteiXPqzP74ISGHwo950Q0ub6+qh+
41Eg2xKSW9Cp8SmKi58VAMlxaI+bFNLLmkuytopCIJmqpZNoP6U8f4B3HBg9
M3hoSkgNBW7PJ3OLgCz4yXvhWyGtdPLmy56qgOyURhvR6fWCqN6EEmA7xQs3
Eo5qbRQmv6elwB7po0fQm7szwCy4DEjl8di8aRwd+s2rqbHlJO7zcZGYcdR+
lWzGY4/vgawV5RvRvD7PwKzI08A0EU2b3+PoeV7WArlrOZDkHNk42rXPqtfY
Ug4sO+vWEXOOpm3YTU1H1MB+aXy+zIKjp/bNT5P6aYBNZty8gx60OnHf/ZUG
SHX24CYeRyVur27ZXtECa0ozn0QvGlGqnLZXAKlVGwqnc9QlwpovWqQDcr0h
zMuSox6C0GJdvw4Y70pUG9rxWLu5tPQMkBtPBxL4HH1yys+ev6kSWKx2v4MV
R/fGDY0O2OmBpVmWnEP7Ho15Cz+i82e/WWGN71lp1KoyzgJTd2f3oqNrQySc
+zkg947LMmw4eru2ebXOdA6YU47qA1uOmnbvD4g8UwVsi8KxAR1QaL31QPh5
IK9fdIbbcfSAT/KcOicDsMfho1PoQq1z/axmdHRFWOkMjipKtcNJymogvFbB
KnuOSl+lq9XiC8AefCkZQDfvvWPUZKLFz3bkzORoXVC2VtSFpraipQ54j4mO
cd9PLgJLdLP8GR0X7tZdUICu+Uby9SyO+o8/UG0zoS11rXbvczQnQ3Tt9y9q
gO1xKa5C9+SG8WLW1gApCo2oRvsflq83BWNdXeBcg+aVDfTYh6APi07WofOu
nrcNDkcbTqkb0Ydfenx1dyvOe3QY2tBFcZ+bXd+LFhc2m8/m6EjS7qCgTOw/
qFdOR0vTKoseMfQ/t9dboZ3yrBa/yUYnCVpnoE9UtIR6HURb8Duc0ae7wiou
FqHnfvrfMjTplw/TYtz/x81Ly9Fbhuu9fy1BZwWneKLnTTm3DJWh69PHfdBa
l86RxRqcv7yEF4A2n2+/wqhFu/57NxAdu2iFYo3u3X8YFEFosbdmzg79u3rQ
zBC0nD7cMXoWvUX0cAO6P8DisrwKXWahkqJXr/OcEhjQ9wcjNqL1YdtW66rR
Y+2ukej/AatcDRM=
      "]]}}, {}, {{}, {}, 
    {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwVz39Q02UcB/CvHC4ZU6fGRPEH6CEF4h0REGLPZxgGU5QOjGlikuIJlPwS
5cc5+ILBwMX42WCKwtgYoPxWYDakBypTXKBSUWkxCWQoSu2AgyDr4x/PPfe6
9/vzee5xOBobfNyCYZi9eF7d9m8nawdHTwI7/I6sypbQDcbVyfErY4AWhh1R
oe2+6BBZQwwwBol7JVowMjNBymKAHdI9vITmlZx21+6OBZqxYqsSvZDiHf6V
OA5oY6AhHz32q+fznM54YD57ypWgu5Rur23JTgS2oJsVo39ifd46WZgK9NkP
c4tf7e9QqW3sWGCTRppurCY0UhDiKBrKBDY1+2YMOrZOvuncUBZQpxy/9WgF
3ClJrs8B1rdwxX0BoQlW8szENhkwf6uC0tBTPuyYX7McWJ+8x1vRBp0u3KQv
AHZ9f4/RhtDkk2dkLe8WAROXw5Wjr6uvxf1SXQxMaJBWiPaTSwvHOV8Ck/Bx
xdTrhDYW2f/1b5YC6PazUyp0ra23VdyzUqDpRu1+9FmdIHw0RglCTU89g9bw
ZGa/ZxeAijbxGlcRGjacBhb7yoHe/vBBOPrFfa/enr5LwPZse8xD89+LW/7Y
owIYpvVQ10pCOWOeoozDlcBaCwRR6AZOxhvSdSoQSha52qDXjXFH9X0qoHc/
unFrBaEp+5OE5vwqEPqnpsajL2duThH7qUEYPtfmgJ7gXux3m1YDuzAsHuAT
6mQ//e3SNg2wdys3p6GdZ+SltpHVIDz96altaLuD1laOzlpgypeMDC4n1EMQ
UqY1obP4HZno1SW/WYov1ICwwsXWHf3ksh/f6lAtMP3N8kfLCJVEv5gdX1YH
wrqwMhmaFBz7D76uA7ZfuWwHemKnXlOadgWYEIv80aWEHm0PdtrgdhWYNRn1
Jehb7YYArfkqsB5Pe3egzUnZ/odr6oG2K2VPeYT6F1tH5B5oACbCtVOJzvU5
tbHDthFYL6dhX3SxZq1ulQHtW3B90ppQ2QXNZLy8CWj0aIICLZ4+W1W1pRkY
8qScoA2S7/Xq9GZgXX+XTHAJ7Qg8p3E0Yi7qIsVozsIf82R7C7A/j+sBHX3A
frioCL0nqum5FaG75h+UnjCjFy2cKUF/nubYObCnFdjdosW+6JGsUM6xva1A
B3cVwKt+nvQD8z7MdcSOoDnl4yP84FZgEh3dfNA5NxqW7juA+cCtMA903pTH
kdsRaMeD195EK6Lft7gpwX21+sMr0TPxSYGB6ejcnSY+WpxSq3jIYr/zu4Tl
aNscrss/59CCbikPfbG6L8TrPPYvylo46EpjaHWLAvNHsZbzSwhlTNJJYRn6
nl4+h/5kUud9T9kKQhvLNbPoTS/X9r0ox/n8XNdptMZuaMZFjfmeyNBJtOVm
vq9eg//5RmF8jj7u7CvbrcV957ujJ9BbvNUbo+rQXF76OFoq/DFq9gr2e1ys
TGiT/+Lr0np0r3/xE3RAkOdLQSO+5xC+fhRdF3oiQNuE83cSa/5E/w+BVTJl

      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0XtUzGkYB/C3NkNSeqeVlpaWrVz22G2pTjp6HpTk0m7aLrs4WuTSOWla
orHKT22mDKEyoeQy01R0kXTRkEsXZVNyW5QKQ6MynDk1aze0z/7xnvd8zvd9
v+c55/lqbdSKcFPG2HI6/98Oc2LVf72MBMaK3O6Wc5zUPT42WrwFmKWJ/BF5
4v5KPwsgX4/q6iTbao39XkfJ9ieS+8hjMmJmq5dEAat27zCr4PhB6hFWHSIB
wS0y2Z3c89jtTfLlaGABnQPZ5JpjLiOd9m4D5mQ6aVMlxweC5/eRh3cC63hg
NeUS9VeeVo6bKABbNG7PtWqOm2wDHf26EoBFL08MvcwxqiB1SmJXErBYrem4
Go4KaMqILUwG5heuLr/K8Tfz1IRt5XIQPFudfr/OccBT6PE+nwpCTu+GubUc
m6uqwnSaQ8AaRm1+WscxNnK7vHReGrBgx9rcBo4XlWWSR7npIAxMLg5o5Oid
Kjv8WnQEBP8Uo7GJY3Gaw7uPSQoQzDP5jT855tt5mEv6MoF90/mL5DbHXVW2
YS+3HAPh3pt271aOqjFyg3ffcWBPp74Rt3Fc9TweTP2zgc33qq+9y1Hf5n7r
RssJYM5JIVn3OVovlIx95noShOqHu4IechT1uPntWX0K2OfD9W6POBaJ9kyT
2Z8Gpp8g40842veMfqlpOQ2CT11USztH6U870HDwDAizFGZlTznmJEyVhngr
QVhtKZd2cewfndXqMqikeUu+9HjG0dlhsM6yXAWsMVrr8ILjDGNqpt2mXGB8
w3e9Wtr/zxbmjjPUwCJOOXS84uhqG3hUrSP7NQfd1HEcn/HELOR4HrDImJz0
Xo6vcrytzVfmA7P51j6ln2NchP79a6sCYCXh29boOXodWjcMV8krj5yc9Y7m
WaBRZcafBcE14JCzgePaihXOk1zOgbDkio4NcGyoaF6sNpwDtvRVnJmRo2HH
Xt/VeYXAJFtB9zdH33SL9SmhRcDaFlbU/cMxxXPr5Eq7YhD0X5g0D3FMV02o
smkuBjbvCiv7yFF+XPU2OrUEmM/sgPphjiGDu86ccToP7Oo1xR0TMTbH3dQo
d5NvZdloPhNj5bJElWM3eVVhQtsIMYo+dA55zS0Fttult2GkGCNCHZ6npZF9
HZsumovRZ+hu5kZDKQjn93q2Wojxj3jHy/eWXgChMca50VKM2qRg0brlZEXi
0B2yzwHZjwb/C8AOX299TBZlv9ZaryDbtMT2kZMvFVn6h5J3Tr9tZSXGAwOu
axrXk0P74oPIiohFplfiqC8oT/SCbIzesWzZbvKYmu4+cog0X9Eu0HvnEZoB
sl3y6Jn/JlJ+4GuJaKwYs3JbAt33UR6Y3zGdfKo7OLdUQYb6GgmZ6WRv8Sh5
+HmWlPzr2yqPO8fov5eLNIE85dOEFn025QvWzMkgqyZ2GWcqyftNiirJZlOt
52tU5O1K+TVy+Iz58iVqsj4moons5KGcvLmA+vYVTmsny/D+5vdnyWXWo7Rk
ne+Ii7JCsiS3p5+8+Ae3T7bF5NqIm4PkguCNi9Ul1FcclveJ/B+EShBu
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0nlM01ccAPCnkSqHs3GsdFwyCcqqieIEOYRv1apF0RFwFKNowQNkQ2Ci
FKcFdNIqUhFYQUBWaKlFDnFA6QS8D2YQUHEDHdK+Hw6ICqZqR8Thvvzx8vLJ
N/le730Vkxi2ZzohZBOeqdttuUT714sEIL3qO4G3TOBqdJAkz90PhM19vhXt
dLo52BbQ/HuWg2jOoOVVUBFa8qdnHdqu4OA32g2JQOoNZ1xvm+Bjmp/4iigJ
SO7puE/ooT6f1/LWZCCzJOtu3DXB1XNeMxdkpQBpP9Ww9r4JnmQELEs4exiI
MdZ75CHmby5Xf+GUAUR3lT2nzwRxnHCP4IFjWC+1xd5ogsQqxfzjAyeAdAtf
64dMoIQ/CiQ1csxvW/501AQ/WiuOpTRlA7n+Tl1iMcG7gIwhQb0CSFxb58pJ
E3QYDOLhllwgZHXpDisKkoRD2ZcD84DIl+pdZ1NoVDck9VbmA/HtmrbTnoJA
ITs7wvoF9xOYL3WiUJfn9ua/E0ogGbr4QHcKOq6fddLLQiBCjfInHoUjBo74
xf5zQMQfnmxdRkFjl20WvCzGfmbpHfwpbKdSmL65FIhBZbVlFYXRhyvu3+w8
D2S46AevYArsNUlzTN6/4rwuXadDKbCGfIIzo1RYP8DpVCSFWlamp8y5HOPe
1/aKKTgP2bxo6UQTVcr1WAppW1L55jMVmL/fpS2RQtkx9zSRQI1xEuOTSuGV
TUmX13s0d5StkFJY6Pb+9uwmDZDxL6+czKLAsygKuXGVOP9CzjQFBaetttYe
PC3uJ0bgoqTgzQkv0g6jhcGB3DIKDgVPZ4iKL+B+9eM5lRT+KROwrbfpsN9H
hVW1FI7Gj46PfFYFxO1GOjRRCMrd9QmuoeUTQQ2t2M/qFk2h9CK+v3TswW0K
Mfqwha5e1fg/ij9Ed1C4q+8Qas1oz/6e8z0UzKlZ66Mu1AAp2pIT9jeF9fm2
u09G1uJ8ex8MMhROBhyY18ytw/0Y3sx7RSFf42j4vAPNrZ589JZCdrFmLFlx
CevPfbzkIwXR+yMVFQvq0WsK4mcw0HH0Xos6HS2pX+Nsx0BzyHGNhxEtPNAn
sWeA9fH5RJD/ZaxX3b/RmYH4SDeal4eO8+yacGdg7cSjwlgzur3npmgxAz9L
PVofb/wNyNJG3tfLGRg8EcHatQmd9L1LCHptjizUvBndfZidiGaVjgyyw9Dt
5f82ouW/187eHIk2su/zvRnIeee9s303ujclPdKHAWX8uultR9GeOxbLfRmw
JKeGhKSjVY68arQoTad8loEOXeLZiebKbRZ9OI7Ojfaw92OgpLIzfMWpqfiI
uwqtMkZUXlai+TIvgz+D/1I2xi9CS9qXP0NHjxn8us+hSYzvJHr+pGPnaCna
t4wvCGBA4zRgWaRGj/t/142e4c5e1aJBc2HbW/Qe3qrsDVq0riSas5KBBX7q
efuqpuaLStyOlvF79o1fnIrfOpSOHl5v1SirmdpHprQCLfzWZ5JThxYXZd1B
V0XECrWXpvqfeWYY/T+hnDdN
      "]]}}, {}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQrWBSsez601x7BoZ17g+rrtjvm2nIrtZWAudfbbA2
yp1YBeeLbV+4WFS6Ac7PEAtW9bzfBOfnr+xTar7fCudPsz85pWJNB5xfxNnX
VLK1G87/Yt3w3GVDH5x/ZseOhBe7J8D5Fbll3RttJ8H5WxZvLrixdDKc79LX
PvEl21Q4f90khQ9/W6fB+SskLDkLXk+H82t2iCU8zZsJ5y/h6f7k8noWnB/z
qM6eyW8OnP/uovmpQ+fmwvkCzgX8D03nw/lsz808G2MXwPlr2Ro12mUWwvky
z7me7j6H4FeGlDt86l8E589rUq4Md1kM57/hmn3e8CuCr67w9Qjv1iVwvta3
vukSGUvhfOlIbk5VrWVwvqlY8IxlLxB88Sm3WMJnLYfzn81zEeCMXgHn12a9
+/GSbyWcbzch+b/9fgT/jdPuJdPrVsH5SduC1OUMV8P5x7ad8Vj2CcH/VN7m
Hrt8DZzvPpk7pTNiLZzfaV0sv11iHZw/eYnUDuEzCH73rCXvC/vWw/nhX2sW
LVLbgEgftcd3L65H8Lf7NC9RfYDgs/2599vOaiOcnxWh8GjSJATf9fel6emf
EPyWOtU9l703wfkrw9I9lq1H8AHWS2qI
    "], {}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 2.43},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->NCache[{{
      Rational[1, 137], 
      Rational[10, 137]}, {2.4310598752207397`, 2.515398821836925}}, {{
    0.0072992700729927005`, 0.072992700729927}, {2.4310598752207397`, 
    2.515398821836925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.646915455562003*^9, 3.646915465981339*^9}, 
   3.646973198619174*^9, {3.646973238916892*^9, 3.646973265569181*^9}, 
   3.646973500847982*^9, 3.646974569313242*^9, 3.646974618924917*^9, 
   3.646981424556245*^9, 3.646981504385041*^9, 3.647107859210648*^9, 
   3.6471091268905373`*^9, 3.647153700996437*^9, 3.6574608333484373`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nbaryon", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "neutron", "]"}], "-", 
      RowBox[{"Mass", "[", "proton", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"neutron", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"proton", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
      RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]n", ",", 
        FractionBox["csq", "137"]}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[Rho]p", ",", 
        FractionBox["csq", "137"]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"csq", ",", "0.5", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Nbaryon", ",", "\[Rho]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.647163095628129*^9, 3.647163146557482*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], 
     LineBox[CompressedData["
1:eJwV0X00FWYcB/BHT8yal7xGiHC03CSvYzbPkxBDHI2WisxLDunmZUqL63rt
GhcTDUm5OLLDLDNFGqlwcXcO0QtaYu5uXPMed17288dznvM55/k9v9/zffZ+
y/QO2YYQ8oC1tcuYBWsh9JYgxdMlduGYqrcI1FxkwJKaRXuwkZPtzlw5cMm6
hwP46EkFaT1NMKpDruBr7PszxBzsZRfqC97RL/eYFQxWkjWPAivGNIZtdoFd
wnurwBqNMr9v5I0RJHtcTjkCU32WRVGf0zhB+7T5EvCtWV2DlpEJglxb/J6f
x1RBFGxZGzFJEMf03d1ITOP2WXKZ2v8QNBrwNO8Cpl7yHVyvehFB4sLIcCbc
ZzvyQip0iqDCvgSfi5gKpzyqm1TEBK2LOV9EYarjzNLNqpghSHfYXTUa3hdT
yvyJMUtQhUnGBviD+rD+lWXwCeWoVzGYOmw80fRvnSNI6rxLfSymHNlFS+OC
eah3rCr6DjyZzEvzXyAov6EyJg7TNKGvdbfNIkFjn9icvYSphPFCTlFxiaD5
9YculzH91LHJemIIbKQ3uDceU2/WSOqdX5YJkn6cI38FUytuoNFM/AeCchyG
RGDVNsa0vs8KQYuve15+j2mkVfnSyQOrBN1freu4iikr8bK33hLY5IxiWQKm
2e/zBwQCCUGr1QezEzH92lixWq74P4KsBB0RLEwLaq3b3APXCOLxPnNOwrT/
OG8t1nadoKTxeAs2pl19zKwDeIOg3TwDpWRMm8PZtHcU/Ca7WioF8nIjNhd+
2yToWbTSDLiSVdfuaY8oClAY4KfC/FMB8SM14KaXrOY0TO/Q9teHdkpRxBtK
KE7HlN+0ciY9Bszv8orLwDSqzXvB8y9wY+mekGuYLt07bT52ZBtFoXtMHTnw
H9aclMl68LOIo9aZmA5WhCQ2qGOKUjuLNX7A9KKlRgkbckJlva3LYI6PuLtj
EjyQtSLMgnzORpf3uW2naLUsoDsb04U1zWy3B2BxxlQrF1PDlhtFfENpinI4
7nU5mJoFPfVU4oC96vncXEwf3lTT6F0C39ZNTM6D821qmcdOyVDUte4c+iOm
rtLTOv2PwEzOoFM+ptPDEx3dxh9RpJV01+Y6phE3s1U4OWBTSYpWAeQrZfjv
V3lgyo7XBRuda+bL5YPPyTMNwG/NhOzcQvCapR8D7NtJZ2+Ugo+0H7ID0/mF
3qqfwQ6CN35gVRe/9Ced4JBm+2JwVO1sYHo3+NKE5S2wQDnjS5cecLkKoxzM
GW1Y7BGAHdm7asAb0fJBA4PgX4tmH4BFpW3k3fhWvz94r8DO+IRWxd9g4efF
o+CKMPFyiBBc2ZI7Bva32F0neg+O7E0QgZ93xWjPzYHNGN+sgs0O7li5t7DV
/89j62Bu/u2B2CWwSbyTVCHk59+XubICzhk2/xhc1REU2iwBh13fLw/evl9y
+Ooa+JS3nhI4kJurY7+xlZfaLjXwowWj1c3NrfpReU3w/4W39t0=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0HlQU1cUBvCLbNZGoIgYBCFShmKgLQhkYKZwYi0W6sZgUSxKoSxmqi1l
UYFaUqygsRLDMCxaqSgIKQwYBYtiZVCgBITUYZORqNwnsshiIIZ96Xl/vHnz
m3Pvd797N38XGxS9ihCyGz/2b+QWZU1IPxBZQJNPAwXL+6r1/kZorgHfD+3o
520m46DrH0l3ob88aGLIs0L77woJRZ9LuzsBW1nLRpPQazo4j8RR6HC1eTXa
NOGOaEWJVpyJ4jdS4N4x+ns5iwJRWlpsaKJgL3a/1O73Cki+/BS3mcKfGrsP
76sH0GqHWSUFk5Eoj4qjg5gvuaFqpXDiIw9prM0wEJ5TYHsbhcC1DdJAxQiQ
XlPnMhXmeauf6sWMAgkR+Nx8QmFodLe8Zt04kMDNH5d3UNi0Q2x3oXgC87J8
0rvwfgkFsfnOGiDkZc7ZHgozln32KdPou+VGol4Kny83WoU9mATi5OYHzyhI
Vr/z4OdMAVnd3eerRg+eLkoP0wJxvfCzzQsK6UP7BS1e74CI6n6176cw7/yU
Y2qqwz4LIXYMBacvagQDPWj/RP78KwpBYvWZazensZ91/NJrCp7SCMeJ5Bkg
8omyF0MULOqdx+yDZ/F+x44Mj1D4wfO67qDLHPbbMDk8SkGcmhTE06GVU6HN
4xQy32R3qlTzuH5fqOotha/5pnLO5QUgSY/cqyYp5FQI6ndFLOKc2yLVUujY
V7SY6L2E7xmnn62joGyPveCiv4xzd+PjMxRqv08Ttj1Hy9IfiOfwvXaC14/V
K3iegyBtgcINceXDvb5ESBS2ovAl7D/6bbK6DO2fd1i0QuGa8OEzVzM9IXni
Y7BHj4HWmtnDGQloTe8hvj4DcfVB2r0v0aLTkk8NGdDdPrSVbl8lJMqiA+bG
DMwIJL8NKtC8OGPb9xjoLo5OrbLUx7wTgcbvM/CTB/ePtBT0uRS/IQ4DkuDx
loZBdC910ZgwIA6Pv96+00BI8ksKeswY0C5aZe68h/bKNBk0Z8Dhft6lVgdD
7D/qOmbBgFtk094PJGinsLb/LBn458p6bpsOrbRLVnNxff3683tCjYSksDz3
340MBBiObeqoQyutg0ttGBjrG2ho4RtjfqnnLVsGjl7JXCe5iBaanMznMaDU
c3j7VRZaeWimEO14pLaVk42WK07+he53G0qT5aJFoqRa9P5moSavgM3jpqjR
wiltW0k5WpaUytvMgIX/NxmNzWzeZ7/L0XEVmoiMFnYu4NxCq8zP+vg/ZvM9
M++hJc+r3j1WoTXbL7ail+PXRnZ2oxWF2WPokYJ6YF6x54UWuNozsEP/gHXx
a3Z/ma03ulg0Ph09xPZbuboNHea+sXLkDZrcux6E7lIm2ExOosOPyRPRbp+s
mb2tZfcPbvkFLc0u7EzUse8RU56ODghrPz87iz53vDIXXdIQGVM7j+YZul5F
G2yZ33ZqEe10+VYpOkIq2+S7zK73cFeg67SOcysrbN+u6rvo/wHGnjJ2
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 2.426},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.5, 3}, {2.426871503588586, 2.448289974521572}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6471631479522047`*^9, 3.647163159777108*^9}, 
   3.657460833409068*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Ks", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
        RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Ksn", ",", 
          FractionBox["csq", "137"]}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Ksp", ",", 
          FractionBox["csq", "137"]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"csq", ",", "0.1", ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[CapitalXi]", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
       RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
       RowBox[{"M", "[", 
        RowBox[{"\[CapitalXi]m", ",", 
         FractionBox["csq", "137"]}], "]"}], "+", 
       RowBox[{"M", "[", 
        RowBox[{"\[CapitalXi]n", ",", 
         FractionBox["csq", "137"]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", "0.1", ",", "5"}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Show", "[", 
     RowBox[{"Ks", ",", "\[CapitalXi]"}], "]"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.647184117312872*^9, 3.647184199174192*^9}, {
  3.64724846693575*^9, 3.647248492901993*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV0XlM02cYwPGXS8CCXPpOhA2EMRCVzgEaOvR92DjUQaxkHAIThuJUJIrR
GBjgz2tDHdc2UIZEmV0EtIriCi2I3EUUKxawnQc4EYJyaEWwXN2zP968+eSb
N3nyvEvj94Ym6BNCQvD8fwc2LQ4qKpQyorozbfacQn2pR9ziGXS+VmaKFmT7
p+RvlTES7JQ6D+2xZd/lHOcaxpVu/aDro0DH5BbHxbWM0GPjGvTgkkOqPQ23
GalIfa1C+0tfeZ0fb2Sc26ddInS/5YbWffZ3GHclKtcXbW01m18gUDJOnPVx
VC+Fi8NFj+sOqhlx2+j10zMKh2WD1efyehmZ4utLnlK4+qSnyMD2BeN4VZeV
TyjkGxX3F38+wIj3ng+6xxRmAh0zMk4NMa6332QJ+qRe6gtp1zDj2GjLmn8o
5LxcHRo1MMa45RLYrqYwP1mV6Vj8lpG1xt9nqCiYGgYltbq/Y0R4KvjSIwp/
KC9UFVaMMzJ8TKfsoZDI3+KeGzHByHWBYLSbgtahaanPv5OMlB+K+ggtP3fa
zyhby8jJ4aGVXRRcw5l8btU0437VeK9X4j5Eos5y6QwjEa1Hkx9SKMnYaZga
P8c4h0aHzE4KspGnNdOjOtx/9F3xA5x/XBUivE+AyHTiegXuI7d6n0+JHpDf
lWGP7lNQTrzpnk7QB8Jb7jbbQSHoYqRi05cGQIxqrCzRtktseen6hkCiRz2/
uEfBm6/Q1rcYAlebsybyLoXkUzfTCgqNgOw29Uxsp8Cr0PgFxM4DzvzB0aw7
FFrs4opOeBujiyvOtVFoc2m69MTYBLjSsJvX5BSWTWVMmN0zAaI1WvawlUL5
wt3q+xdMgXMxjH7egvNrxXO7fpgPxCPdjKBvpA322LnzgBseqHBqpjAdIPw6
dpYHZCRKs6qJwp9qK82PjWZAVlcphI0UdlXqe7ufNQfOJ5cf00AhOyJYdj12
AZA0N8Ghegqzhac1m5wtgKz4zK/gNoVfnKbqDk+i63LLSuoo3JL17Wjeagkk
U6GuvYX7N46ptmpHzw8UNtdSeOMUum23pxVwDpMSRQ2FuxcPXLuWbwXkuxKD
1zIKEvnVlrXEGoi70QGNlMID4aL06m3WwOmJ1KboBWUTWeta0CO6EJdqCjGi
sZ3mfBsgby2aV1RRUBsuetmWZwNcx1ch/hL8L1VCw5HfsKdbrAN0xxVJsSAf
faHTwxfd8G1k+JWzaP/Vll7oMlGRPOc8Wss9dEan+DuVh4vRI3ZhBmjb4/y9
/W3ohh2hjX9TsInkviluR4ue+9WhzVd0uobfQ7/fvEqG1uva3ydX4Dz91pY3
0EPOks2Xe7C/WtRRgpY2+Xrt70cnOQYcQVeeybJcPoB20Ximo8WJz4ZfDOL7
DVKnFHSJDfdX2GvsXa4kGX1yWxP10aDHTsji0MfWLHz39h1az6AsBp3OS1CU
v8f3aQfPRKKTK+dl2muxVwoOCNGJP0ds757CnpQVH4xOiC6F7Bnsed3C9ehY
vtY+aA77JzbMH73FYKNWp8O+MHAloP8D0dQVPQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 5.676},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0.1, 5}, {5.6770026277563375`, 5.7197760908075}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.64718414129617*^9, 3.647184200132053*^9}, 
   3.647248210037154*^9, 3.6472484234730587`*^9, {3.647248467701092*^9, 
   3.6472484943733807`*^9}, 3.657460833446658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "neutron", "]"}], "-", 
  RowBox[{"Mass", "[", "proton", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"neutron", ",", 
    FractionBox["3", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"proton", ",", 
    FractionBox["3", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.647181494146475*^9, 3.6471814955995407`*^9}, {
  3.6472485722707367`*^9, 3.6472485790766907`*^9}}],

Cell[BoxData["2.4482899749710896`"], "Output",
 CellChangeTimes->{3.647181505091053*^9, 3.6472485798844976`*^9, 
  3.657460833452396*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[Rho]n", "]"}], "-", 
  RowBox[{"Mass", "[", "\[Rho]p", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[Rho]n", ",", 
    FractionBox["1", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[Rho]p", ",", 
    FractionBox["1", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.647182454808052*^9, 3.647182484319798*^9}, {
  3.64724850855927*^9, 3.647248534342881*^9}}],

Cell[BoxData["0.557388487832668`"], "Output",
 CellChangeTimes->{{3.647182457707852*^9, 3.647182485672861*^9}, {
   3.6472485125336103`*^9, 3.647248534809374*^9}, 3.657460833467966*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "\[CapitalXi]m", "]"}], "-", 
  RowBox[{"Mass", "[", "\[CapitalXi]n", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]m", ",", 
    FractionBox["2.8", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"\[CapitalXi]n", ",", 
    FractionBox["2.8", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.646909619265101*^9, 3.646909688722557*^9}, {
  3.647183943582814*^9, 3.647183950781167*^9}, {3.647248588530106*^9, 
  3.647248606582505*^9}}],

Cell[BoxData["5.696798349892106`"], "Output",
 CellChangeTimes->{{3.64690961414717*^9, 3.646909689088436*^9}, {
   3.64718395204524*^9, 3.6471839672676983`*^9}, 3.647248440372912*^9, {
   3.64724859079604*^9, 3.64724860691191*^9}, 3.657460833487524*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mass", "[", "Ksn", "]"}], "-", 
  RowBox[{"Mass", "[", "Ksp", "]"}], "-", 
  RowBox[{"M", "[", 
   RowBox[{"Ksn", ",", 
    FractionBox["1", "137"]}], "]"}], "+", 
  RowBox[{"M", "[", 
   RowBox[{"Ksp", ",", 
    FractionBox["1", "137"]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6471839992599983`*^9, 3.6471840093580217`*^9}}],

Cell[BoxData["7.4932445336231694`"], "Output",
 CellChangeTimes->{3.647184010814485*^9, 3.657460833509657*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["1", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646895740385*^9, 3.6468957490279293`*^9}}],

Cell[BoxData["0.0072992700729927005`"], "Output",
 CellChangeTimes->{3.646895749553051*^9, 3.657460833546598*^9}]
}, Open  ]],

Cell[TextData[{
 "There is an intersection\nFor the N baryon the mass difference is md-mu\n\
For the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalXi]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the D the mass difference is md-mu\nFor \
the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalSigma]", "c"], TraditionalForm]]],
 " the mass difference is md-mu\nFor the ",
 Cell[BoxData[
  FormBox["\[CapitalSigma]", TraditionalForm]]],
 " the mass difference is md-mu\nWe can thus get very good agreement on the \
mass difference (The ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 " should get a seperate treatment. Also this could be due to peculiarities \
in the mass of the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["K", "*"], TraditionalForm]]],
 "...) of d and u quarks. "
}], "Text",
 CellChangeTimes->{{3.646775053040186*^9, 3.646775142096891*^9}, {
   3.646775199764783*^9, 3.646775236703779*^9}, {3.6467754764935083`*^9, 
   3.6467754795461273`*^9}, {3.646775596913702*^9, 3.646775624475506*^9}, {
   3.646776222673148*^9, 3.6467763075116053`*^9}, {3.646777508648984*^9, 
   3.646777539824637*^9}, {3.6467791465652037`*^9, 3.646779146718832*^9}, 
   3.646779925941574*^9, {3.646805482892427*^9, 3.646805496417951*^9}, {
   3.646806391075924*^9, 3.646806395111081*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Mass", "[", "neutron", "]"}], "-", 
     RowBox[{"Mass", "[", "proton", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"Mass", "[", "Dn", "]"}], "-", 
     RowBox[{"Mass", "[", "Dp", "]"}], "-", 
     RowBox[{"M", "[", 
      RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
     RowBox[{"M", "[", 
      RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"csq", ",", 
     FractionBox["1", "137"]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Mass", "[", "neutron", "]"}], "-", 
    RowBox[{"Mass", "[", "proton", "]"}], "-", 
    RowBox[{"M", "[", 
     RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
    RowBox[{"M", "[", 
     RowBox[{"proton", ",", "csq"}], "]"}]}], ")"}], " ", "/.", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"Mass", "[", "Dn", "]"}], "-", 
      RowBox[{"Mass", "[", "Dp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"csq", ",", 
      FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.646776527507779*^9, 3.6467765812168913`*^9}, {
  3.6467766316594954`*^9, 3.646776680954193*^9}, {3.646776798198564*^9, 
  3.6467768476840363`*^9}, {3.646779183914538*^9, 3.646779219408032*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"csq", "\[Rule]", 
   RowBox[{"-", "0.2857555886419518`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090128*^9, 3.657460834266569*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"1.2933300000000827`", "\[VeryThinSpace]", "-", 
   RowBox[{"822.9550880739414`", " ", 
    SqrtBox[
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "1233"]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], "+", "csq"}], ")"}], " ", "\[Pi]"}]}]]}], 
   "+", 
   RowBox[{"822.9550880739414`", " ", 
    SqrtBox[
     RowBox[{
      FractionBox["2", "1233"], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], "+", "csq"}], ")"}], " ", "\[Pi]"}]}]]}]}],
   "/.", "\[VeryThinSpace]", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}], "-", 
      RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"\[CapitalXi]cp", ",", "csq"}], "]"}]}], "\[Equal]", 
     RowBox[{
      RowBox[{"Mass", "[", "Dn", "]"}], "-", 
      RowBox[{"Mass", "[", "Dp", "]"}], "-", 
      RowBox[{"M", "[", 
       RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
      RowBox[{"M", "[", 
       RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"csq", ",", 
      FractionBox["1", "137"]}], "}"}]}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.6467765558796387`*^9, {3.6467768025366373`*^9, 3.646776818301753*^9}, 
   3.646776848841597*^9, {3.6467792830974913`*^9, 3.6467792916174507`*^9}, 
   3.646779520090128*^9, 3.6574608343256073`*^9}]
}, Open  ]],

Cell["This Gives a charge squared of about", "Text",
 CellChangeTimes->{{3.6467771406034*^9, 3.646777154531913*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  FractionBox["6.5", "137"], "]"}]], "Input",
 CellChangeTimes->{{3.646776911505561*^9, 3.646776929981927*^9}, {
  3.646777002303513*^9, 3.646777120047933*^9}, {3.6467771596631937`*^9, 
  3.646777229957468*^9}, {3.646895845591597*^9, 3.6468959274932613`*^9}}],

Cell[BoxData["0.04744525547445255`"], "Output",
 CellChangeTimes->{
  3.646777230356695*^9, {3.6468958463623877`*^9, 3.64689587729163*^9}, {
   3.6468959079091187`*^9, 3.6468959277733803`*^9}, 3.6574608344278297`*^9}]
}, Open  ]],

Cell["\<\
We can now fix the charge squared to this value and calculate the masses of \
the up and down quarks from the equations for the proton and neutron\
\>", "Text",
 CellChangeTimes->{{3.6467773185942783`*^9, 3.646777368241434*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CSQ", "=", 
   RowBox[{"csq", "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Mass", "[", "neutron", "]"}], "-", 
        RowBox[{"Mass", "[", "proton", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"neutron", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"proton", ",", "csq"}], "]"}]}], "\[Equal]", 
       RowBox[{
        RowBox[{"Mass", "[", "Dn", "]"}], "-", 
        RowBox[{"Mass", "[", "Dp", "]"}], "-", 
        RowBox[{"M", "[", 
         RowBox[{"Dn", ",", "csq"}], "]"}], "+", 
        RowBox[{"M", "[", 
         RowBox[{"Dp", ",", "csq"}], "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"csq", ",", 
        FractionBox["1", "137"]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"mdmuSol", "=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"neutron", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "neutron", "]"}]}], ",", 
      RowBox[{
       RowBox[{"TotM", "[", 
        RowBox[{"proton", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
       RowBox[{"Mass", "[", "proton", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"md", ",", "mu"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6467775770882177`*^9, 3.646777640259595*^9}, {
   3.6467777177337923`*^9, 3.6467777635087214`*^9}, {3.646777879591655*^9, 
   3.6467778860019197`*^9}, 3.646779306165267*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", "12.792278510885012`"}], ",", 
    RowBox[{"mu", "\[Rule]", "10.597939031104602`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6467777782700357`*^9, 3.646777888879471*^9, 
  3.646779310531558*^9, 3.646779524478355*^9, 3.657460834569765*^9}]
}, Open  ]],

Cell["\<\
A consistency check is the mass of the pion, which turns out as\
\>", "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
   3.646778033720356*^9, 3.64677806653109*^9}, 3.646778229205288*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TotM", "[", 
  RowBox[{"\[Pi]p", ",", "CSQ"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Mass", "[", "\[Pi]p", "]"}]}], "Input",
 CellChangeTimes->{{3.646778081503436*^9, 3.646778090319837*^9}, {
  3.646778122203072*^9, 3.6467781331729603`*^9}}],

Cell[BoxData[
 RowBox[{"577.4726653354138`", "\[VeryThinSpace]", "+", "md", "+", 
  "mu"}]], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527554325*^9, 3.6574608345765057`*^9}],

Cell[BoxData["139.57`"], "Output",
 CellChangeTimes->{{3.646778093902948*^9, 3.646778133739933*^9}, 
   3.646779317723373*^9, 3.646779527554325*^9, 3.6574608345778923`*^9}]
}, Open  ]],

Cell[TextData[{
 "which is inconsistent. This tells us our model is not fit to determine the \
\[Pi] mass as is.\nKnowing these masses now enables us to determine the mass \
of the charm quark through the ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[CapitalXi]", "c"], ",", 
    SubscriptBox["\[CapitalSigma]", "c"], " "}], TraditionalForm]]],
 "baryons and D Meson, and also consistency checks at the same time (the \
system of equations is over determined)"
}], "Text",
 CellChangeTimes->{{3.646777925033247*^9, 3.646777994953883*^9}, {
  3.646778033720356*^9, 3.64677806653109*^9}, {3.6467781760373373`*^9, 
  3.646778202103224*^9}, {3.646778240201126*^9, 3.646778240391296*^9}, {
  3.646778308620927*^9, 3.646778339601349*^9}, {3.646778533744286*^9, 
  3.6467785338908997`*^9}, {3.646778737028174*^9, 3.646778769651718*^9}, {
  3.646805575940419*^9, 3.646805585392634*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalXi]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalXi]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778346807811*^9, 3.6467784408184633`*^9}, 
   3.646779379658902*^9, 3.646779491242586*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", 
     RowBox[{"2458.087721489115`", "\[VeryThinSpace]", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"398.9422804014327`", " ", 
         RowBox[{"(", 
          RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.0072992700729927005`", " ", 
            RowBox[{"Missing", "[", 
             RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}]}], 
          ")"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
             RowBox[{"0.0072992700729927005`", " ", 
              RowBox[{"Missing", "[", 
               RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], 
               "]"}]}]}], ")"}], " ", 
           RowBox[{"Missing", "[", 
            RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}], 
          ")"}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"398.9422804014327`", " ", 
         RowBox[{"\[Sqrt]", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
              RowBox[{"0.0072992700729927005`", " ", 
               RowBox[{"Missing", "[", 
                RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], 
                "]"}]}]}], ")"}], " ", 
            RowBox[{"Missing", "[", 
             RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}], 
           ")"}]}]}], ")"}], "/", 
       RowBox[{"Missing", "[", 
        RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}]}]}], 
    "}"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304356327`*^9, 
   3.657460834598816*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", 
     RowBox[{"2457.2020609688957`", "\[VeryThinSpace]", "-", 
      FractionBox[
       RowBox[{"398.9422804014327`", " ", 
        RowBox[{"(", 
         RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.0072992700729927005`", " ", 
           RowBox[{"Missing", "[", 
            RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]}]}], 
         ")"}]}], 
       SqrtBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.0072992700729927005`", " ", 
            RowBox[{"Missing", "[", 
             RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]}]}], 
          ")"}], " ", 
         RowBox[{"Missing", "[", 
          RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]}]]], 
      "-", 
      FractionBox[
       RowBox[{"398.9422804014327`", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
            RowBox[{"0.0072992700729927005`", " ", 
             RowBox[{"Missing", "[", 
              RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]}]}],
            ")"}], " ", 
          RowBox[{"Missing", "[", 
           RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]}]]}], 
       RowBox[{"Missing", "[", 
        RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cp"}], "]"}]]}]}], 
    "}"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.646778429855679*^9, 3.646778441347316*^9}, 
   3.646779383922205*^9, 3.6467794945091*^9, 3.6467795304356327`*^9, 
   3.6574608346001663`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"Dp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "Dp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "632.4961135234936`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.6467795330221977`*^9, 3.6574608346077213`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "660.5984537844218`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646778475767501*^9, 3.646778510713888*^9, 
  3.6467793275407677`*^9, 3.6467795330221977`*^9, 3.657460834609084*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cn", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cn", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]cp", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]cp", "]"}]}], ",", 
    RowBox[{"{", "mc", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1531.7900599243562`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539536715*^9, 3.6574608346348047`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"mc", "\[Rule]", "1532.248144624985`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646805539536715*^9, 3.657460834636642*^9}]
}, Open  ]],

Cell["\<\
We can now use the \[CapitalSigma] baryons as a probe into the strange quark.\
\
\>", "Text",
 CellChangeTimes->{{3.646779586878907*^9, 3.646779694008649*^9}, {
  3.646780429957749*^9, 3.6467804753703403`*^9}, {3.646805632702094*^9, 
  3.6468056615386553`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]n", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]n", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", 
  "mdmuSol"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"TotM", "[", 
      RowBox[{"\[CapitalSigma]p", ",", "CSQ"}], "]"}], "\[Equal]", " ", 
     RowBox[{"Mass", "[", "\[CapitalSigma]p", "]"}]}], ",", 
    RowBox[{"{", "ms", "}"}]}], "]"}], "/.", "mdmuSol"}]}], "Input",
 CellChangeTimes->{{3.646778449661283*^9, 3.646778475231632*^9}, {
  3.646778508248706*^9, 3.646778510250535*^9}, {3.646805522193059*^9, 
  3.646805536938571*^9}, {3.64680695981404*^9, 3.6468069692650146`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "270.6500599243561`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969799654*^9, 3.657460834646143*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"ms", "\[Rule]", "268.64814462498487`"}], "}"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.646806969799654*^9, 3.657460834647241*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Factor", "[", 
    RowBox[{"\[CapitalDelta]msq", "[", 
     RowBox[{"\[Rho]n", ",", "\[Pi]n", ",", "0.5", ",", "0"}], "]"}], "]"}], 
   "/", 
   SuperscriptBox["10", "6"]}], "  ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", " ", "0"}], ",", 
    RowBox[{"mu", "\[Rule]", "0"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Factor", "[", 
    RowBox[{"\[CapitalDelta]msq", "[", 
     RowBox[{"\[Rho]n", ",", "\[Pi]n", ",", "0.9", ",", "0"}], "]"}], "]"}], 
   "/", 
   SuperscriptBox["10", "6"]}], " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"md", "\[Rule]", " ", "0"}], ",", 
    RowBox[{"mu", "\[Rule]", "0"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.6478491660646152`*^9, 3.6478492715579844`*^9}, 
   3.647849338980896*^9, {3.6478493990569267`*^9, 3.647849416918495*^9}, {
   3.647849448951407*^9, 3.64784953879937*^9}, {3.647849647510529*^9, 
   3.6478496581931973`*^9}, {3.6479756825180454`*^9, 3.647975699210885*^9}, {
   3.6479757842363033`*^9, 3.647975847234271*^9}, {3.6479759585661125`*^9, 
   3.6479759917216067`*^9}, {3.647976032384798*^9, 3.6479760786520333`*^9}, {
   3.6479761355807877`*^9, 3.6479761398659554`*^9}, 3.6479816553427944`*^9, {
   3.648017044657016*^9, 3.6480170494435863`*^9}, {3.6493186912484627`*^9, 
   3.649318694057344*^9}, {3.649330213452711*^9, 3.649330224164955*^9}, {
   3.6547027009671774`*^9, 3.654702707166527*^9}, 3.654702862757924*^9, {
   3.6547029358670883`*^9, 3.654702949055359*^9}, {3.6547029839394813`*^9, 
   3.654702985875628*^9}, {3.6547030635037675`*^9, 3.6547031012911367`*^9}, {
   3.654703693549184*^9, 3.654703715328747*^9}, {3.65470563760367*^9, 
   3.654705642039031*^9}, {3.6547056823888464`*^9, 3.6547056828711214`*^9}, {
   3.6547061551702704`*^9, 3.6547061927338037`*^9}, {3.654706249681611*^9, 
   3.654706276864772*^9}, {3.6547065421186247`*^9, 3.65470657309394*^9}, {
   3.6547072925388145`*^9, 3.6547074235143538`*^9}}],

Cell[BoxData[
 RowBox[{"0.5813953488372094`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.654705809891622*^9, {3.6547061576170416`*^9, 3.654706168564345*^9}, {
   3.654706228510236*^9, 3.654706277795023*^9}, {3.6547065425553627`*^9, 
   3.654706573836243*^9}, {3.6547073231369324`*^9, 3.6547074240338225`*^9}, 
   3.657460834664255*^9}],

Cell[BoxData[
 RowBox[{"0.11627906976744182`", "\[VeryThinSpace]", "-", 
  RowBox[{"1.734723475976807`*^-18", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.654705809891622*^9, {3.6547061576170416`*^9, 3.654706168564345*^9}, {
   3.654706228510236*^9, 3.654706277795023*^9}, {3.6547065425553627`*^9, 
   3.654706573836243*^9}, {3.6547073231369324`*^9, 3.6547074240338225`*^9}, 
   3.6574608346653833`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["776.6944326034911", "2"], "-", 
    SuperscriptBox["636.168", "2"]}], ")"}], "/", 
  SuperscriptBox["10", "6"]}]], "Input",
 CellChangeTimes->{{3.6547424839133744`*^9, 3.654742499981186*^9}, {
  3.6547427123768177`*^9, 3.6547427245471478`*^9}}],

Cell[BoxData["0.19854451741325901`"], "Output",
 CellChangeTimes->{{3.6547427185132456`*^9, 3.654742725245127*^9}, 
   3.657460834681624*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", 
   RowBox[{
    RowBox[{"Implicit\[CapitalDelta]m", "[", 
     RowBox[{"Bn", ",", "Bp", ",", 
      RowBox[{"-", "0.01"}]}], "]"}], "-", "0.16"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.6556364650134068`*^9, 3.6556364721676545`*^9}, {
  3.655636637787381*^9, 3.655636649482772*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "8.41152975074301`"}], "}"}]], "Output",
 CellChangeTimes->{{3.6556364571089396`*^9, 3.6556364726134377`*^9}, {
   3.655636638248824*^9, 3.6556366500893373`*^9}, 3.6574608346982927`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Mass Differences predictions for J=1", "Title",
 CellChangeTimes->{{3.646561250785887*^9, 3.6465612549931793`*^9}, {
  3.662808435537449*^9, 3.662808439734261*^9}}],

Cell[CellGroupData[{

Cell["Data", "Chapter",
 CellChangeTimes->{{3.641151272725811*^9, 3.6411512765905027`*^9}, {
  3.642315150504609*^9, 3.642315152150401*^9}, {3.64897080356178*^9, 
  3.6489708051658993`*^9}, {3.662815378355474*^9, 3.662815378761032*^9}, {
  3.662892157105999*^9, 3.662892159053546*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mu", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"md", "=", "152.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ms", "=", "601"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mc", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"keys", "=", 
   RowBox[{"{", 
    RowBox[{
    "proton", ",", "neutron", ",", "\[Rho]p", ",", "\[Rho]n", ",", 
     "\[CapitalSigma]p", ",", "\[CapitalSigma]n", ",", "\[CapitalXi]n", ",", 
     "\[CapitalXi]m"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dm1", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
     RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      FractionBox[
       RowBox[{"mu", "+", "md"}], "2"]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
     RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
     RowBox[{"Bp", "\[Rule]", " ", "mb"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "ms"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}], ",", 
     RowBox[{"Kn", "\[Rule]", "ms"}], ",", 
     RowBox[{"Kp", "\[Rule]", " ", "ms"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dm2", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      FractionBox[
       RowBox[{"mu", "+", "md"}], "2"]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", "ms"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}]}], " ", "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dSpin", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"neutron", " ", "\[Rule]", 
      FractionBox["1", "2"]}], " ", ",", 
     RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
      FractionBox["1", "2"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dq1", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", " ", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      FractionBox["1", "2"]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", 
      FractionBox["2", "3"]}], " ", ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "0"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dq2", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", " ", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      RowBox[{"-", 
       FractionBox["1", "3"]}]}], ",", 
     RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", 
      FractionBox["2", "3"]}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "3"]}]}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", 
      RowBox[{"-", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", 
      FractionBox["1", "3"]}], " ", ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", "0"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "0"}]}], "|>"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"d\[Alpha]", "=", 
    RowBox[{"<|", " ", 
     RowBox[{
      RowBox[{"proton", "\[Rule]", 
       RowBox[{"0.94", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"neutron", "\[Rule]", " ", 
       RowBox[{"0.94", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
       RowBox[{"0.95", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
       RowBox[{"0.95", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[CapitalSigma]n", "\[Rule]", 
       RowBox[{"0.95", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[CapitalSigma]p", "\[Rule]", 
       RowBox[{"0.95", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], " ", ",", 
      RowBox[{"\[Rho]n", "\[Rule]", 
       RowBox[{"0.86", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[Rho]p", "\[Rule]", 
       RowBox[{"0.86", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", " ", 
      RowBox[{"\[CapitalXi]n", "\[Rule]", 
       RowBox[{".94", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
       RowBox[{"0.94", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"for", " ", "summup", " ", "purposes"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intercepts", "=", 
   RowBox[{"<|", " ", 
    RowBox[{
     RowBox[{"proton", " ", "\[Rule]", 
      RowBox[{"-", "0.41"}]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      RowBox[{"-", "0.41"}]}], " ", ",", 
     RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.339213"}], ",", 
     RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.339213"}], ",", 
     RowBox[{"\[Rho]n", "\[Rule]", "0.86"}], ",", 
     RowBox[{"\[Rho]p", "\[Rule]", "0.86"}], ",", " ", 
     RowBox[{"\[CapitalXi]n", "\[Rule]", "0.3905"}], ",", 
     RowBox[{"\[CapitalXi]m", "\[Rule]", "0.3905"}]}], "  ", "|>"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}, {3.64718323066405*^9, 3.647183314054035*^9}, {
   3.647248155835827*^9, 3.647248197979225*^9}, {3.6475044888152475`*^9, 
   3.647504500984384*^9}, {3.6475046059067135`*^9, 3.647504608359341*^9}, {
   3.647504873117288*^9, 3.6475049220851345`*^9}, {3.64750496201606*^9, 
   3.647504969317958*^9}, {3.647509615050374*^9, 3.647509772670514*^9}, {
   3.6475098612159696`*^9, 3.647509945910093*^9}, {3.647590452254952*^9, 
   3.6475904881379905`*^9}, {3.6475910864880853`*^9, 
   3.6475911227592463`*^9}, {3.647598908911371*^9, 3.647598935143151*^9}, {
   3.6475989773112135`*^9, 3.6475990089529257`*^9}, {3.6475991756951237`*^9, 
   3.647599198269082*^9}, {3.6475992807035465`*^9, 3.6475993060886145`*^9}, {
   3.647671408744645*^9, 3.647671409834181*^9}, {3.647673172068865*^9, 
   3.647673187951953*^9}, {3.647685404879972*^9, 3.647685502717764*^9}, {
   3.647687071984888*^9, 3.647687101643024*^9}, {3.647687214976473*^9, 
   3.647687222861485*^9}, {3.6480448544523544`*^9, 3.648044876969721*^9}, {
   3.6480449086785345`*^9, 3.648044929811305*^9}, {3.648106425808877*^9, 
   3.648106660777998*^9}, {3.648109786813809*^9, 3.648109801033676*^9}, 
   3.6494387533827496`*^9, {3.649439189660613*^9, 3.6494391952469764`*^9}, {
   3.649445590465287*^9, 3.6494456104289427`*^9}, {3.650537541408896*^9, 
   3.650537546958292*^9}, {3.650537602402877*^9, 3.6505376039479723`*^9}, {
   3.650538012073498*^9, 3.6505380152358103`*^9}, {3.650832921307974*^9, 
   3.6508329390944777`*^9}, 3.6508331315401287`*^9, {3.6513904661840396`*^9, 
   3.6513904959974785`*^9}, {3.651390847418784*^9, 3.651390849664742*^9}, {
   3.651392617824711*^9, 3.651392619505311*^9}, {3.6515211236703215`*^9, 
   3.651521127076396*^9}, {3.651644007743041*^9, 3.6516440376300855`*^9}, {
   3.6516442356118913`*^9, 3.6516442373293743`*^9}, {3.651760688061421*^9, 
   3.651760768383651*^9}, {3.6517617778035526`*^9, 3.65176183105686*^9}, 
   3.651765219367569*^9, {3.65176536040514*^9, 3.6517653616966834`*^9}, {
   3.6547032760443354`*^9, 3.654703280034713*^9}, {3.6556207659844832`*^9, 
   3.655620766113802*^9}, 3.655621140341138*^9, {3.655621325526847*^9, 
   3.6556213255926504`*^9}, {3.6556213793786125`*^9, 
   3.6556213794148855`*^9}, {3.655622188054433*^9, 3.6556221906339965`*^9}, {
   3.6556223422355766`*^9, 3.6556223460356255`*^9}, {3.655922990477105*^9, 
   3.655922997222724*^9}, {3.655923108502385*^9, 3.655923129845542*^9}, {
   3.6559250364762225`*^9, 3.6559250401002398`*^9}, {3.655926603803669*^9, 
   3.655926610130257*^9}, {3.6574671088334703`*^9, 3.657467187920588*^9}, {
   3.65746722206357*^9, 3.657467284392303*^9}, 3.657467394441268*^9, {
   3.657467426320912*^9, 3.657467457504838*^9}, {3.657467490481093*^9, 
   3.657467633336166*^9}, {3.657467854538261*^9, 3.657467855964261*^9}, {
   3.6574678956292458`*^9, 3.657467896068782*^9}, {3.657468923931631*^9, 
   3.657468972839367*^9}, {3.657469220019177*^9, 3.657469265486025*^9}, {
   3.6574694649082937`*^9, 3.657469634201823*^9}, {3.657469692556612*^9, 
   3.6574697029536*^9}, {3.6575208635549994`*^9, 3.657520867272675*^9}, {
   3.657520992062224*^9, 3.657520994673766*^9}, {3.657536898290772*^9, 
   3.65753689966249*^9}, {3.659700472192665*^9, 3.65970047766298*^9}, {
   3.6597243706881866`*^9, 3.659724394803853*^9}, {3.659724624469474*^9, 
   3.659724646908051*^9}, {3.659724830341712*^9, 3.659724887210845*^9}, {
   3.6597254460345993`*^9, 3.659725504010931*^9}, {3.66288962052059*^9, 
   3.662889633638359*^9}, {3.66288969814375*^9, 3.662889700272406*^9}, {
   3.662889806235754*^9, 3.6628898201903152`*^9}, {3.6628898555910807`*^9, 
   3.662889860818771*^9}, {3.662889926103406*^9, 3.662889933769681*^9}, {
   3.6628900402893887`*^9, 3.662890129996756*^9}, {3.662890160808461*^9, 
   3.662890272647687*^9}, {3.6628904468069143`*^9, 3.662890450961198*^9}, {
   3.6628914905081253`*^9, 3.662891495090744*^9}, {3.6628915462986298`*^9, 
   3.6628916355053263`*^9}, {3.662891670949416*^9, 3.662891671794229*^9}, {
   3.6628917403573713`*^9, 3.662891743504367*^9}, {3.662891848301733*^9, 
   3.662891860304819*^9}, {3.662891944330515*^9, 3.66289196005857*^9}, {
   3.662892058018016*^9, 3.662892061266835*^9}, {3.6631627368497763`*^9, 
   3.663162760678733*^9}, {3.66316291920177*^9, 3.663162938725461*^9}, {
   3.663479572048455*^9, 3.663479600360017*^9}, {3.6634796426336117`*^9, 
   3.663479653030806*^9}, {3.6634989665599003`*^9, 3.663498966902577*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Definitions", "Chapter",
 CellChangeTimes->{{3.641151272725811*^9, 3.6411512765905027`*^9}, {
  3.642315150504609*^9, 3.642315152150401*^9}, {3.64897080356178*^9, 
  3.6489708051658993`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Bisect", "[", 
     RowBox[{"xmin_", ",", "xmax_", ",", "f_", ",", 
      RowBox[{"accur_:", 
       SuperscriptBox["10", 
        RowBox[{"-", "5"}]]}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x1", "=", 
         RowBox[{"N", "[", "xmin", "]"}]}], ",", 
        RowBox[{"x2", "=", 
         RowBox[{"N", "[", "xmax", "]"}]}], ",", 
        RowBox[{"xmid", "=", 
         RowBox[{"N", "[", 
          FractionBox[
           RowBox[{"xmin", "+", "xmax"}], "2"], "]"}]}], ",", 
        RowBox[{"step", "=", "0"}]}], "}"}], ",", 
      RowBox[{"(*", 
       RowBox[{"Print", "[", 
        RowBox[{"{", 
         RowBox[{"step", ",", "Maxsteps", ",", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{"f", "[", "xmid", "]"}], "]"}], ">", "accur"}]}], "}"}], 
        "]"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"f", "[", "xmid", "]"}], "]"}], ">", "accur"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Sign", "[", 
              RowBox[{"Re", "[", 
               RowBox[{
                RowBox[{"f", "[", "x1", "]"}], 
                RowBox[{"f", "[", "xmid", "]"}]}], "]"}], "]"}], ">", "0"}], 
            ",", "\[IndentingNewLine]", 
            RowBox[{"x1", "=", "xmid"}], ",", "\[IndentingNewLine]", 
            RowBox[{"x2", "=", "xmid"}]}], "]"}], ";", "\[IndentingNewLine]", 
          
          RowBox[{"xmid", "=", 
           RowBox[{"N", "[", 
            FractionBox[
             RowBox[{"x1", "+", "x2"}], "2"], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Sign", "[", 
           RowBox[{
            RowBox[{"f", "[", "x1", "]"}], 
            RowBox[{"f", "[", "xmid", "]"}]}], "]"}]}]}], "]"}], ";", 
       "\[IndentingNewLine]", "xmid"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"eq\[CapitalDelta]\[Theta]", "[", 
     RowBox[{
     "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "\[CapitalDelta]\[Theta]_"}], 
     "]"}], ":=", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalDelta]\[Theta]", "2"], "-", 
      SuperscriptBox["\[Beta]1", "2"], "-", 
      SuperscriptBox["\[Beta]2", "2"], "-", 
      RowBox[{"2", " ", "\[Beta]1", " ", "\[Beta]2", " ", 
       RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Beta]1", " ", "m1", " ", 
           SuperscriptBox["\[Beta]2", "2"]}], "+", 
          RowBox[{"\[Beta]2", " ", "m2", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}], ")"}]}], "-", 
          RowBox[{"\[Beta]1", " ", "m1"}]}], "\[Equal]", "0"}], ",", 
        "\[Beta]2"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]\[Theta]max", "=", 
    RowBox[{"Evaluate", "[", 
     RowBox[{"\[CapitalDelta]\[Theta]", " ", "/.", " ", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{"1", "-", 
         RowBox[{"\[CapitalDelta]\[Theta]", "/", 
          RowBox[{"(", 
           RowBox[{"2", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"\[CapitalDelta]\[Theta]", "/", "2"}], "]"}]}], 
           ")"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"\[CapitalDelta]\[Theta]", ",", "1.2"}], "}"}]}], "]"}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Feq", "[", 
     RowBox[{
     "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "q1_", ",", "q2_", ",", "T_", 
      ",", "\[Omega]_", ",", "a_", ",", "Spin_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"T", " ", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Beta]1", "2"]}]]}], "-", 
      FractionBox[
       RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]"}], 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Beta]1", "2"]}]]], "-", 
      RowBox[{
       FractionBox["1", "137"], "q1", " ", "q2", " ", 
       SuperscriptBox["\[Omega]", "2"], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", 
          RowBox[{"2", " ", "\[Beta]1", " ", 
           SuperscriptBox["\[Beta]2", "2"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Beta]1", "3"], " ", 
           SuperscriptBox["\[Beta]2", "2"]}], "+", 
          RowBox[{"\[Beta]2", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["\[Beta]1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                SuperscriptBox["\[Beta]2", "2"]}], ")"}]}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["\[Beta]1", "2"]}], ")"}], " ", "\[Beta]2", " ", 
           "\[CapitalDelta]\[Theta]", " ", 
           RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], ")"}], 
        "/", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[CapitalDelta]\[Theta]", "+", 
           RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
            RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], ")"}], 
         "3"]}]}], "+", 
      RowBox[{
       FractionBox["\[Pi]", "2"], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "Spin"}], ")"}], " ", 
         SuperscriptBox["\[Omega]", "2"]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"\[Beta]1", " ", "m1", " ", 
             SuperscriptBox["\[Beta]2", "2"]}], "+", 
            RowBox[{"\[Beta]2", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["\[Beta]1", "2"]}], ")"}]}], "-", 
            RowBox[{"\[Beta]1", " ", "m1"}]}], "\[Equal]", "0"}], ",", 
          "\[Beta]2"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{"eq\[CapitalDelta]\[Theta]", "[", 
           RowBox[{
           "\[Beta]1", ",", "m1", ",", "m2", ",", "\[CapitalDelta]\[Theta]"}],
            "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "\[CapitalDelta]\[Theta]", ",", "\[CapitalDelta]\[Theta]max"}], 
           "}"}]}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ModelDynamics", "[", 
     RowBox[{
      RowBox[{"\[Beta]1_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", 
      RowBox[{"a_", "?", "NumericQ"}], ",", 
      RowBox[{"Spin_", "?", "NumericQ"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]", ",", 
        RowBox[{"T", "=", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[CapitalDelta]\[Theta]", "=", 
        RowBox[{"\[CapitalDelta]\[Theta]", "/.", 
         RowBox[{
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{"eq\[CapitalDelta]\[Theta]", "[", 
             RowBox[{
             "\[Beta]1", ",", "m1", ",", "m2", ",", 
              "\[CapitalDelta]\[Theta]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "\[CapitalDelta]\[Theta]", ",", "\[CapitalDelta]\[Theta]max"}], 
             "}"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"\[Beta]2", "=", 
        RowBox[{"\[Beta]2", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"\[Beta]1", " ", "m1", " ", 
               SuperscriptBox["\[Beta]2", "2"]}], "+", 
              RowBox[{"\[Beta]2", " ", "m2", " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}], ")"}]}], "-", 
              RowBox[{"\[Beta]1", " ", "m1"}]}], "\[Equal]", "0"}], ",", 
            "\[Beta]2"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Omega]", "=", 
        RowBox[{"\[Omega]", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Feq", "[", 
               RowBox[{
               "\[Beta]1", ",", "m1", ",", "m2", ",", "q1", ",", "q2", ",", 
                "T", ",", "\[Omega]", ",", "a", ",", "Spin"}], "]"}], 
              "\[Equal]", "0"}], "&&", 
             RowBox[{"\[Omega]", "\[GreaterEqual]", "0"}]}], ",", "\[Omega]", 
            ",", "Reals"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}]}], 
       RowBox[{"(*", 
        RowBox[{"change", " ", 
         RowBox[{"to", " ", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "*)"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}],
         "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "check", " ", "goodness", " ", "of", " ", "solution", " ", "for", " ", 
    "eom"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CheckSol", "[", 
     RowBox[{
     "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "\[Alpha]_", ",", "q1_", ",", 
      "q2_", ",", "a_", ",", "Spin_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Beta]2", ",", "\[CapitalDelta]\[Theta]", ",", "\[Omega]", ",", 
        RowBox[{"T", "=", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}], "}"}],
         "=", 
        RowBox[{"ModelDynamics", "[", 
         RowBox[{
         "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
          "q2", ",", "a", ",", "Spin"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Feq", "[", 
          RowBox[{
          "\[Beta]1", ",", "m1", ",", "m2", ",", "q1", ",", "q2", ",", "T", 
           ",", "\[Omega]", ",", "a", ",", "Spin"}], "]"}], ",", 
         RowBox[{"eq\[CapitalDelta]\[Theta]", "[", 
          RowBox[{
          "\[Beta]1", ",", "m1", ",", "m2", ",", "\[CapitalDelta]\[Theta]"}], 
          "]"}]}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EMContribution", "[", 
     RowBox[{
     "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "\[Alpha]_", ",", "q1_", ",", 
      "q2_", ",", "a_", ",", "Spin_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Beta]2", ",", "\[CapitalDelta]\[Theta]", ",", "\[Omega]", ",", 
        RowBox[{"T", "=", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}], ",", "EM", ",", 
        "Casimir", ",", "Tension", ",", "Centrifugal"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}], "}"}],
         "=", 
        RowBox[{"ModelDynamics", "[", 
         RowBox[{
         "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
          "q2", ",", "a", ",", "Spin"}], "]"}]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"EM", "=", 
        RowBox[{"Abs", "[", 
         RowBox[{
          FractionBox["1", "137"], "q1", " ", "q2", " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Beta]1", "+", 
             RowBox[{"2", " ", "\[Beta]1", " ", 
              SuperscriptBox["\[Beta]2", "2"]}], "+", 
             RowBox[{
              SuperscriptBox["\[Beta]1", "3"], " ", 
              SuperscriptBox["\[Beta]2", "2"]}], "+", 
             RowBox[{"\[Beta]2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{
                 SuperscriptBox["\[Beta]1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", 
                   SuperscriptBox["\[Beta]2", "2"]}], ")"}]}]}], ")"}], " ", 
              RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["\[Beta]1", "2"]}], ")"}], " ", "\[Beta]2", 
              " ", "\[CapitalDelta]\[Theta]", " ", 
              RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], ")"}],
            "/", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Casimir", "=", 
        RowBox[{"Abs", "[", 
         RowBox[{
          FractionBox["\[Pi]", "2"], 
          FractionBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "-", "Spin"}], ")"}], " ", 
            SuperscriptBox["\[Omega]", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"Tension", "=", 
        RowBox[{"Abs", "[", 
         RowBox[{"T", " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Beta]1", "2"]}]]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Centrifugal", "=", 
        RowBox[{"Abs", "[", 
         FractionBox[
          RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]"}], 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox["\[Beta]1", "2"]}]]], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         FractionBox["EM", "Centrifugal"], ",", 
         FractionBox["EM", "Casimir"], ",", 
         FractionBox["EM", "Tension"]}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"energy", "[", 
     RowBox[{
      RowBox[{"\[Beta]1_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", 
      RowBox[{"a_", "?", "NumericQ"}], ",", 
      RowBox[{"Spin_", "?", "NumericQ"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Beta]2", ",", "\[Gamma]1", ",", "\[Gamma]2", ",", "L", ",", 
        "\[Omega]", ",", "\[CapitalDelta]\[Theta]", ",", 
        RowBox[{"T", "=", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}], "}"}],
         "=", 
        RowBox[{"ModelDynamics", "[", 
         RowBox[{
         "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
          "q2", ",", "a", ",", "Spin"}], "]"}]}], ";", " ", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Gamma]1", "=", 
        FractionBox["1", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Beta]1", "2"]}]]]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"\[Gamma]2", "=", 
        FractionBox["1", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox["\[Beta]2", "2"]}]]]}], ";", "\[IndentingNewLine]", 
       
       RowBox[{
        RowBox[{
         FractionBox["T", "\[Omega]"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ArcSin", "[", "\[Beta]1", "]"}], "+", 
           RowBox[{"ArcSin", "[", "\[Beta]2", "]"}]}], ")"}]}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"m1", " ", "\[Gamma]1"}], "+", 
          RowBox[{"m2", " ", "\[Gamma]2"}]}], ")"}], "+", 
        RowBox[{
         FractionBox["1", "137"], "q1", " ", "q2", " ", "\[Omega]", " ", 
         RowBox[{"(", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
             RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
            "\[CapitalDelta]\[Theta]"}]], ")"}]}], "-", 
        RowBox[{
         FractionBox["\[Pi]", "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "-", "Spin"}], ")"}], " ", "\[Omega]"}], 
          RowBox[{"(", 
           RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}]]}]}]}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"j", "[", 
     RowBox[{
      RowBox[{"\[Beta]1_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", 
      RowBox[{"a_", "?", "NumericQ"}], ",", 
      RowBox[{"Spin_", "?", "NumericQ"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\[Beta]2", ",", "\[Gamma]1", ",", "\[Gamma]2", ",", "\[Omega]", ",", 
        "\[CapitalDelta]\[Theta]", ",", 
        RowBox[{"T", "=", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"\[Beta]1", "\[Equal]", "0"}], ",", "0", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\[Gamma]1", "=", 
          FractionBox["1", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}], "]"}]]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"\[Gamma]2", "=", 
          FractionBox["1", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}], "]"}]]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}], 
           "}"}], "=", 
          RowBox[{"ModelDynamics", "[", 
           RowBox[{
           "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
            "q2", ",", "a", ",", "Spin"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"T", 
           FractionBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox["\[Beta]1", "\[Gamma]1"]}], "+", 
             RowBox[{"ArcSin", "[", "\[Beta]1", "]"}], "-", 
             FractionBox["\[Beta]2", "\[Gamma]2"], "+", 
             RowBox[{"ArcSin", "[", "\[Beta]2", "]"}]}], 
            RowBox[{"2", 
             SuperscriptBox["\[Omega]", "2"]}]]}], "+", 
          RowBox[{"m1", 
           FractionBox[
            RowBox[{"\[Gamma]1", " ", 
             SuperscriptBox["\[Beta]1", "2"]}], "\[Omega]"]}], "+", 
          RowBox[{"m2", 
           FractionBox[
            RowBox[{"\[Gamma]2", " ", 
             SuperscriptBox["\[Beta]2", "2"]}], "\[Omega]"]}], "-", 
          RowBox[{
           FractionBox["2", "137"], "q1", " ", "q2", " ", "\[Beta]1", " ", 
           "\[Beta]2", " ", 
           FractionBox[
            RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}], 
            RowBox[{
             RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
              RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
             "\[CapitalDelta]\[Theta]"}]]}]}]}]}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Beta]J", "[", 
     RowBox[{
      RowBox[{"J_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", "a_", ",", "Spin_", ",", 
      RowBox[{"accur_:", 
       SuperscriptBox["10", 
        RowBox[{"-", "10"}]]}]}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\[Beta]", ",", "\[Beta]min", ",", "\[Beta]max", ",", "jJ"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Beta]min", "=", "0"}], ";", 
       RowBox[{"\[Beta]max", "=", 
        RowBox[{"1", "-", 
         SuperscriptBox["10", 
          RowBox[{"-", "15"}]]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"jJ", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"j", "[", 
            RowBox[{
            "#", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", "q2", 
             ",", "a", ",", "Spin"}], "]"}], "-", "J"}], ")"}], "&"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"\[Beta]", "=", 
        RowBox[{"Bisect", "[", 
         RowBox[{"\[Beta]min", ",", "\[Beta]max", ",", "jJ", ",", "accur"}], 
         "]"}]}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EJ", "[", 
     RowBox[{
      RowBox[{"J_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", 
      RowBox[{"a_", "?", "NumericQ"}], ",", 
      RowBox[{"Spin_", "?", "NumericQ"}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[Beta]1", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Beta]1", "=", 
        RowBox[{"\[Beta]J", "[", 
         RowBox[{
         "J", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", "q2", 
          ",", "a", ",", "Spin"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"energy", "[", 
        RowBox[{
        "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
         "q2", ",", "a", ",", "Spin"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"JStringLength", "[", 
     RowBox[{
      RowBox[{"J_", "?", "NumericQ"}], ",", 
      RowBox[{"m1_", "?", "NumericQ"}], ",", 
      RowBox[{"m2_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Alpha]_", "?", "NumericQ"}], ",", 
      RowBox[{"q1_", "?", "NumericQ"}], ",", 
      RowBox[{"q2_", "?", "NumericQ"}], ",", 
      RowBox[{"a_", "?", "NumericQ"}], ",", 
      RowBox[{"Spin_", "?", "NumericQ"}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "\[Beta]1", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[Beta]1", "=", 
        RowBox[{"\[Beta]J", "[", 
         RowBox[{
         "J", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", "q2", 
          ",", "a", ",", "Spin"}], "]"}]}], ";", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", 
          RowBox[{
           RowBox[{"ModelDynamics", "[", 
            RowBox[{
            "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",",
              "q2", ",", "a", ",", "Spin"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
        RowBox[{
         RowBox[{"ModelDynamics", "[", 
          RowBox[{
          "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
           "q2", ",", "a", ",", "Spin"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"PredictMassDiff", "[", 
     RowBox[{"key1_", ",", "key2_", ",", "J_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"EJ", "[", 
      RowBox[{"J", ",", 
       RowBox[{"dm1", "[", "key1", "]"}], ",", 
       RowBox[{"dm2", "[", "key1", "]"}], ",", 
       RowBox[{"d\[Alpha]", "[", "key1", "]"}], ",", 
       RowBox[{"dq1", "[", "key1", "]"}], ",", 
       RowBox[{"dq2", "[", "key1", "]"}], ",", 
       RowBox[{"intercepts", "[", "key1", "]"}], ",", 
       RowBox[{"dSpin", "[", "key1", "]"}]}], "]"}], "-", 
     RowBox[{"EJ", "[", 
      RowBox[{"J", ",", 
       RowBox[{"dm1", "[", "key2", "]"}], ",", 
       RowBox[{"dm2", "[", "key2", "]"}], ",", 
       RowBox[{"d\[Alpha]", "[", "key2", "]"}], ",", 
       RowBox[{"dq1", "[", "key2", "]"}], ",", 
       RowBox[{"dq2", "[", "key2", "]"}], ",", 
       RowBox[{"intercepts", "[", "key2", "]"}], ",", 
       RowBox[{"dSpin", "[", "key2", "]"}]}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GetStringLength", "[", 
    RowBox[{"key1_", ",", "J_"}], "]"}], ":=", " ", 
   RowBox[{"JStringLength", "[", 
    RowBox[{"J", ",", 
     RowBox[{"dm1", "[", "key1", "]"}], ",", 
     RowBox[{"dm2", "[", "key1", "]"}], ",", 
     RowBox[{"d\[Alpha]", "[", "key1", "]"}], ",", 
     RowBox[{"dq1", "[", "key1", "]"}], ",", 
     RowBox[{"dq2", "[", "key1", "]"}], ",", 
     RowBox[{"intercepts", "[", "key1", "]"}], ",", 
     RowBox[{"dSpin", "[", "key1", "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6411868612324047`*^9, 3.6411868627841167`*^9}, {
   3.641186974554854*^9, 3.641186979177779*^9}, {3.6411880963117456`*^9, 
   3.6411881085431633`*^9}, 3.6412036744360657`*^9, 3.641203707378467*^9, {
   3.6412038507492247`*^9, 3.641203859279292*^9}, {3.641204309087667*^9, 
   3.641204317439816*^9}, {3.641251354992672*^9, 3.6412514822500877`*^9}, {
   3.6415495614437304`*^9, 3.641549597978619*^9}, {3.641549648100603*^9, 
   3.641549732484001*^9}, {3.641550525770522*^9, 3.6415505274835997`*^9}, {
   3.641550633099347*^9, 3.641550793209835*^9}, {3.641550845450576*^9, 
   3.641550973760869*^9}, {3.6415510095748158`*^9, 3.641551045206318*^9}, {
   3.641551087720024*^9, 3.64155110586237*^9}, {3.6415511404858017`*^9, 
   3.641551141249304*^9}, {3.6415511776069403`*^9, 3.641551195724811*^9}, {
   3.641551275206152*^9, 3.6415512753796797`*^9}, {3.6415513131912746`*^9, 
   3.6415513283445253`*^9}, {3.6415516980491*^9, 3.641551710774135*^9}, {
   3.641552090651499*^9, 3.641552103035322*^9}, {3.6415525834782057`*^9, 
   3.641552583740267*^9}, {3.641553910664303*^9, 3.6415539140075197`*^9}, {
   3.64155399684511*^9, 3.641554016729557*^9}, {3.6415540475088253`*^9, 
   3.641554105165592*^9}, {3.641554754427071*^9, 3.641554754724832*^9}, {
   3.64162214440021*^9, 3.641622151020998*^9}, 3.641622507937291*^9, {
   3.641622578785851*^9, 3.641622600862442*^9}, {3.641623278035708*^9, 
   3.641623284671617*^9}, {3.6416334388152733`*^9, 3.6416336916677637`*^9}, {
   3.641633748574325*^9, 3.64163378794531*^9}, {3.6416339107947273`*^9, 
   3.6416339163028193`*^9}, {3.64163474639373*^9, 3.641634758040084*^9}, {
   3.64163488413612*^9, 3.641634884386529*^9}, {3.641634934484454*^9, 
   3.641634949846549*^9}, {3.641634998157963*^9, 3.6416350137807083`*^9}, {
   3.641657927118459*^9, 3.6416579399597225`*^9}, {3.641709932583274*^9, 
   3.641709955783835*^9}, {3.641710001884582*^9, 3.641710002157009*^9}, {
   3.6417105046596518`*^9, 3.641710536424326*^9}, 3.641714820460703*^9, {
   3.641719796019504*^9, 3.641719833500945*^9}, 3.641719963634857*^9, 
   3.641719995138814*^9, {3.641720073610544*^9, 3.641720117530447*^9}, {
   3.6417201490931664`*^9, 3.641720158020668*^9}, {3.641720242593144*^9, 
   3.6417202451173687`*^9}, {3.6417208310126753`*^9, 3.641720855783351*^9}, {
   3.6417209400142317`*^9, 3.6417209499484243`*^9}, {3.641721249435864*^9, 
   3.6417212525243607`*^9}, {3.641722966815761*^9, 3.6417229731928053`*^9}, {
   3.641723398977585*^9, 3.641723417477684*^9}, {3.641723571940188*^9, 
   3.641723623527714*^9}, {3.641725246729137*^9, 3.641725253832728*^9}, {
   3.641733741323937*^9, 3.641734057796871*^9}, 3.641734115556962*^9, {
   3.641734149195422*^9, 3.641734156870914*^9}, {3.6417344817633457`*^9, 
   3.641734510879388*^9}, {3.641734555759768*^9, 3.641734581404046*^9}, {
   3.641734776742733*^9, 3.641734783542444*^9}, {3.641734815591385*^9, 
   3.641734856889599*^9}, {3.6417351014008713`*^9, 3.641735101971621*^9}, {
   3.641735306897727*^9, 3.64173532465406*^9}, {3.641736600789509*^9, 
   3.6417366090504208`*^9}, {3.641736655296012*^9, 3.6417367516309233`*^9}, {
   3.641736874681498*^9, 3.641736879651367*^9}, {3.641737188192699*^9, 
   3.641737234923259*^9}, 3.641737278051372*^9, {3.641738483816382*^9, 
   3.641738512905382*^9}, {3.6417385521799107`*^9, 3.6417386199189577`*^9}, {
   3.64173911562582*^9, 3.6417391535108633`*^9}, 3.641739206966405*^9, {
   3.641739241999197*^9, 3.641739254316986*^9}, {3.641739464721335*^9, 
   3.641739490311635*^9}, {3.641739713083626*^9, 3.641739739615719*^9}, {
   3.641742040726371*^9, 3.641742041361038*^9}, {3.6417420957607613`*^9, 
   3.6417421132902517`*^9}, {3.641742553168502*^9, 3.641742564841165*^9}, {
   3.6417427209254*^9, 3.641742721861452*^9}, {3.641785333385243*^9, 
   3.641785336354273*^9}, {3.641789382807558*^9, 3.641789386658765*^9}, {
   3.64179894474841*^9, 3.6417989479905357`*^9}, {3.6419168240932226`*^9, 
   3.6419168276306057`*^9}, {3.6419347181082053`*^9, 
   3.6419348009294004`*^9}, {3.6419662745525064`*^9, 
   3.6419662902925406`*^9}, {3.6419668020338774`*^9, 
   3.6419668030028043`*^9}, {3.641966855491995*^9, 3.6419668640802093`*^9}, {
   3.642220135305811*^9, 3.642220163689167*^9}, {3.642220200198804*^9, 
   3.6422202069611177`*^9}, {3.642220241650208*^9, 3.6422202490064363`*^9}, {
   3.6422202851840153`*^9, 3.642220397376347*^9}, {3.6422204394349937`*^9, 
   3.642220674221538*^9}, {3.6422207283885527`*^9, 3.64222119015739*^9}, {
   3.642221292900144*^9, 3.6422213425898657`*^9}, {3.642221385746621*^9, 
   3.642221419425007*^9}, {3.64222144978691*^9, 3.6422215691258917`*^9}, {
   3.642221603364484*^9, 3.642221644520832*^9}, {3.642221771652236*^9, 
   3.642221771810807*^9}, {3.642221902177826*^9, 3.64222190740036*^9}, {
   3.642222018075696*^9, 3.642222020661582*^9}, {3.6422220846814833`*^9, 
   3.642222085236856*^9}, {3.6422221617806053`*^9, 3.642222161979679*^9}, {
   3.642222201789584*^9, 3.642222209809001*^9}, {3.6422223237980947`*^9, 
   3.6422223278864613`*^9}, {3.642222778493572*^9, 3.642222810029683*^9}, {
   3.642222856410589*^9, 3.642222862921556*^9}, {3.64222356279036*^9, 
   3.642223600401258*^9}, {3.642233924248671*^9, 3.642233937538744*^9}, {
   3.642234076651273*^9, 3.642234089114963*^9}, {3.6422341894791*^9, 
   3.642234343253788*^9}, {3.642235351036282*^9, 3.6422353566753807`*^9}, {
   3.6422354363289967`*^9, 3.642235447663402*^9}, {3.642235487971697*^9, 
   3.642235617147526*^9}, {3.642235780552209*^9, 3.64223578658281*^9}, {
   3.6422358241834307`*^9, 3.642235825136785*^9}, {3.642235869153645*^9, 
   3.642235893895179*^9}, {3.642235985717312*^9, 3.642236010343199*^9}, {
   3.6422360990450974`*^9, 3.64223618450344*^9}, {3.642236272872877*^9, 
   3.642236274000699*^9}, {3.642236499445315*^9, 3.6422365299515457`*^9}, {
   3.642236686693132*^9, 3.6422366925750637`*^9}, {3.642236892579677*^9, 
   3.642236895041697*^9}, {3.642264342444788*^9, 3.6422643748968606`*^9}, {
   3.6422646060923405`*^9, 3.6422646330517764`*^9}, {3.642264691603381*^9, 
   3.642264701717244*^9}, {3.6422647405021744`*^9, 3.6422647799839616`*^9}, {
   3.642264831230102*^9, 3.6422648830766664`*^9}, {3.642265006286086*^9, 
   3.6422650296117287`*^9}, {3.6422650749312515`*^9, 3.642265099109856*^9}, 
   3.642265239829033*^9, {3.642265480716807*^9, 3.6422655588418856`*^9}, {
   3.6422657455231514`*^9, 3.6422657459138026`*^9}, {3.642265786483448*^9, 
   3.642265787014744*^9}, {3.6422658170356646`*^9, 3.642265829091877*^9}, 
   3.6422659111135955`*^9, {3.642266163498914*^9, 3.6422661664522605`*^9}, {
   3.64226623706247*^9, 3.642266251230856*^9}, {3.6422663075034456`*^9, 
   3.6422663246899104`*^9}, {3.642266358539937*^9, 3.642266395538813*^9}, {
   3.6422664425039806`*^9, 3.642266443425929*^9}, {3.642266576893429*^9, 
   3.642266577549734*^9}, {3.642266711738079*^9, 3.642266735897852*^9}, {
   3.6422667762493553`*^9, 3.6422668473235207`*^9}, {3.6422668830346437`*^9, 
   3.6422668841753592`*^9}, {3.6422669272288074`*^9, 
   3.6422670490657253`*^9}, {3.6422670892857475`*^9, 
   3.6422671253735895`*^9}, {3.6423162220296383`*^9, 
   3.6423162899038982`*^9}, {3.642316330101544*^9, 3.6423163714375477`*^9}, {
   3.642316423300577*^9, 3.64231642788002*^9}, {3.6423164683665333`*^9, 
   3.642316476699071*^9}, {3.642316745264617*^9, 3.642316748616613*^9}, {
   3.64231703449955*^9, 3.642317037791144*^9}, {3.6423170813351507`*^9, 
   3.642317122628808*^9}, {3.642317152744157*^9, 3.642317198117792*^9}, {
   3.642317762307637*^9, 3.6423177873905983`*^9}, {3.642317872906803*^9, 
   3.642317876852255*^9}, {3.642317954849264*^9, 3.6423180299568167`*^9}, {
   3.6423225680883417`*^9, 3.642322579731043*^9}, {3.642323271326427*^9, 
   3.642323274264368*^9}, {3.642323359087973*^9, 3.6423233813429003`*^9}, {
   3.642323707510421*^9, 3.642323761463826*^9}, {3.6423246195919313`*^9, 
   3.642324625305686*^9}, {3.642324672777011*^9, 3.642324688069563*^9}, {
   3.6423248895217533`*^9, 3.642324897286677*^9}, {3.6423408545707827`*^9, 
   3.64234085499916*^9}, {3.6423552710222335`*^9, 3.642355278396279*^9}, {
   3.642355364696804*^9, 3.642355365079153*^9}, {3.6423554463708854`*^9, 
   3.6423554487241545`*^9}, {3.6426045376326118`*^9, 3.642604539554474*^9}, {
   3.6426045866935134`*^9, 3.642604590474749*^9}, {3.642604781863065*^9, 
   3.642604782503687*^9}, {3.6426048353306923`*^9, 3.6426048383306756`*^9}, {
   3.642604946325974*^9, 3.642604950450621*^9}, {3.6426050386946955`*^9, 
   3.6426050532231083`*^9}, 3.6426051257575502`*^9, {3.642605170582509*^9, 
   3.6426051776709433`*^9}, {3.6426052904056187`*^9, 
   3.6426053066225233`*^9}, {3.642605390529076*^9, 3.6426054148127337`*^9}, 
   3.6426171241374507`*^9, {3.6426177715693617`*^9, 3.6426177726243525`*^9}, {
   3.6426207927650046`*^9, 3.6426207936712475`*^9}, {3.642826492092925*^9, 
   3.6428265087408514`*^9}, {3.642827685741941*^9, 3.6428277116667404`*^9}, {
   3.642827794023473*^9, 3.6428278749428024`*^9}, {3.6428289716311736`*^9, 
   3.64282900264581*^9}, {3.6428291120413885`*^9, 3.6428291148040285`*^9}, {
   3.6428292016310115`*^9, 3.6428292176873755`*^9}, {3.642829258333226*^9, 
   3.6428292632469287`*^9}, {3.6428295733013244`*^9, 
   3.6428296015913396`*^9}, {3.642913331750368*^9, 3.6429134959943724`*^9}, {
   3.642913526530565*^9, 3.6429137409545174`*^9}, {3.642913891202158*^9, 
   3.6429141237094183`*^9}, {3.6429141820081277`*^9, 
   3.6429143284581394`*^9}, {3.642914375448041*^9, 3.642914455353442*^9}, {
   3.642914497639847*^9, 3.6429145134699993`*^9}, {3.6429145521519747`*^9, 
   3.6429145815250616`*^9}, {3.6429146143844604`*^9, 3.6429147488880386`*^9}, 
   3.6429149940163584`*^9, {3.642915035798297*^9, 3.6429150371285563`*^9}, {
   3.6429150940750074`*^9, 3.642915100881514*^9}, {3.642915136590646*^9, 
   3.642915156027226*^9}, 3.642915278204021*^9, {3.6429154007071185`*^9, 
   3.64291540118458*^9}, 3.6429154514466095`*^9, {3.6429165001521063`*^9, 
   3.6429166871768804`*^9}, 3.6429168689406204`*^9, {3.64291704487982*^9, 
   3.6429170574118004`*^9}, {3.6429171804724197`*^9, 3.642917277509179*^9}, {
   3.64291745196795*^9, 3.6429174520130033`*^9}, {3.6429175876296473`*^9, 
   3.642917602729075*^9}, {3.6429176820038557`*^9, 3.6429177398521533`*^9}, {
   3.642919883583392*^9, 3.6429198906721687`*^9}, {3.6430041237339177`*^9, 
   3.643004134075781*^9}, {3.6430042136917915`*^9, 3.6430043824028606`*^9}, {
   3.6430073405500546`*^9, 3.643007358075817*^9}, {3.643007404871461*^9, 
   3.643007406166698*^9}, {3.643007460277358*^9, 3.6430074617787914`*^9}, {
   3.643008490063512*^9, 3.6430084988318825`*^9}, 3.643008661852522*^9, {
   3.6432744237490788`*^9, 3.6432744909589977`*^9}, {3.643278818168723*^9, 
   3.643278974758622*^9}, {3.6432790256938963`*^9, 3.643279245371554*^9}, {
   3.643279818465002*^9, 3.643279947453381*^9}, {3.643280021569706*^9, 
   3.643280024449258*^9}, {3.643280058385538*^9, 3.643280129226789*^9}, {
   3.643280426317721*^9, 3.643280462372478*^9}, {3.643280495723724*^9, 
   3.643280579130363*^9}, {3.6432806339200706`*^9, 3.6432806429547453`*^9}, {
   3.643281258193915*^9, 3.643281424033401*^9}, {3.643281455362446*^9, 
   3.6432814962857323`*^9}, {3.6432815655393476`*^9, 
   3.6432816042812862`*^9}, {3.6432816462295218`*^9, 3.643281733247305*^9}, {
   3.643281776103284*^9, 3.643281849333304*^9}, {3.643282242304041*^9, 
   3.6432822809841948`*^9}, {3.643282330330114*^9, 3.643282333329733*^9}, {
   3.643282429792975*^9, 3.643282467652124*^9}, {3.6432826166680117`*^9, 
   3.643282636410377*^9}, {3.6433933009527063`*^9, 3.6433933149420624`*^9}, 
   3.6433942476425257`*^9, {3.6433948038335466`*^9, 3.6433948191621656`*^9}, 
   3.6433961963700085`*^9, {3.64339787073355*^9, 3.643397874456115*^9}, {
   3.6433992510373616`*^9, 3.6433992515778666`*^9}, {3.643399308599305*^9, 
   3.6433993164147663`*^9}, {3.64340068005567*^9, 3.6434006806902623`*^9}, {
   3.643401042565751*^9, 3.6434010427489257`*^9}, {3.643401596286149*^9, 
   3.643401604628231*^9}, {3.6434016371470866`*^9, 3.6434016405379653`*^9}, {
   3.643437420865638*^9, 3.643437559804282*^9}, {3.643437598680398*^9, 
   3.6434376490725355`*^9}, {3.643437734077682*^9, 3.643437788524666*^9}, {
   3.6434378420697775`*^9, 3.6434378956889567`*^9}, 3.6434383188820066`*^9, {
   3.643438426708931*^9, 3.6434384436951466`*^9}, {3.6434385044361563`*^9, 
   3.643438505407065*^9}, {3.643438563876914*^9, 3.6434385692129965`*^9}, {
   3.6434386191416492`*^9, 3.643438701480274*^9}, {3.6434402458166723`*^9, 
   3.6434403256579146`*^9}, {3.643452230127803*^9, 3.64345226706807*^9}, {
   3.6434525191496477`*^9, 3.6434525192764587`*^9}, {3.6434525510806026`*^9, 
   3.6434527583342323`*^9}, {3.6434528413789883`*^9, 3.643452936255517*^9}, {
   3.643601065284012*^9, 3.643601071671856*^9}, {3.6436011071268473`*^9, 
   3.643601189461431*^9}, {3.643601261030801*^9, 3.6436013614408207`*^9}, {
   3.6436027906241837`*^9, 3.643602792338047*^9}, {3.643602872906403*^9, 
   3.643602876157844*^9}, {3.643602979058277*^9, 3.643602985014772*^9}, {
   3.643603015238907*^9, 3.6436030332221117`*^9}, {3.643603070271196*^9, 
   3.643603082705374*^9}, {3.643603171446746*^9, 3.6436032367692127`*^9}, 
   3.643603329253956*^9, {3.643603588969386*^9, 3.6436035939827747`*^9}, {
   3.6436037053963614`*^9, 3.643603705749178*^9}, {3.64360862759519*^9, 
   3.643608630761689*^9}, {3.643608799607388*^9, 3.6436088149911003`*^9}, {
   3.643609032689767*^9, 3.643609083624358*^9}, {3.6436091936600246`*^9, 
   3.643609206595776*^9}, {3.643609461665576*^9, 3.6436094794995613`*^9}, {
   3.643609512014452*^9, 3.643609522159059*^9}, {3.643609862533801*^9, 
   3.643609874235846*^9}, {3.643609940405233*^9, 3.6436099712487*^9}, {
   3.643610017666329*^9, 3.6436100331165533`*^9}, {3.643610152680159*^9, 
   3.6436101531085978`*^9}, {3.643612417493177*^9, 3.643612423486967*^9}, {
   3.6436131137745256`*^9, 3.643613166803978*^9}, {3.643613199258552*^9, 
   3.643613463069818*^9}, {3.6436135000020323`*^9, 3.643613511379401*^9}, {
   3.643613640506844*^9, 3.643613654942936*^9}, {3.643613808339711*^9, 
   3.643613823616836*^9}, {3.6436139264888153`*^9, 3.643613988775543*^9}, {
   3.643614034682186*^9, 3.643614149573162*^9}, {3.643614196526569*^9, 
   3.64361431312698*^9}, {3.643614381599687*^9, 3.643614390073867*^9}, {
   3.64361447733225*^9, 3.643614532774946*^9}, {3.6436148327583427`*^9, 
   3.643614891784687*^9}, {3.643615004093367*^9, 3.643615227847295*^9}, {
   3.643615867865267*^9, 3.64361595342802*^9}, {3.643616058622613*^9, 
   3.643616245297495*^9}, {3.643616850227507*^9, 3.6436168944010143`*^9}, {
   3.643616942132865*^9, 3.643616998238204*^9}, {3.6436170383471937`*^9, 
   3.643617051586295*^9}, {3.643617095602304*^9, 3.64361714235778*^9}, {
   3.643617177894513*^9, 3.643617223962594*^9}, {3.643617296326067*^9, 
   3.643617328003845*^9}, {3.643617401180484*^9, 3.64361742978386*^9}, {
   3.643617469137803*^9, 3.643617469885063*^9}, {3.643617516914568*^9, 
   3.643617547166313*^9}, 3.64361859022046*^9, {3.643618648206566*^9, 
   3.643618651202908*^9}, {3.643618887038813*^9, 3.64361888843113*^9}, {
   3.643628998053557*^9, 3.6436290533202887`*^9}, {3.643629211277439*^9, 
   3.643629333252438*^9}, {3.643629379986062*^9, 3.643629397756023*^9}, {
   3.643629672279976*^9, 3.643629750888543*^9}, {3.643717559187683*^9, 
   3.6437175595874043`*^9}, {3.643717897460123*^9, 3.643717920957369*^9}, {
   3.643718915717128*^9, 3.643718924966742*^9}, {3.643718975217691*^9, 
   3.6437189756838017`*^9}, {3.643719017033628*^9, 3.6437190410826693`*^9}, {
   3.643719145891008*^9, 3.643719174496398*^9}, {3.6437193310139313`*^9, 
   3.643719346523489*^9}, {3.643719420756669*^9, 3.643719422363002*^9}, {
   3.6437198836675863`*^9, 3.643719891958858*^9}, {3.643720236651655*^9, 
   3.643720261645958*^9}, {3.643728454660552*^9, 3.6437284649853363`*^9}, {
   3.6437320297883*^9, 3.64373204604541*^9}, 3.6438097906776233`*^9, {
   3.643810007658781*^9, 3.643810091054425*^9}, {3.643810134980362*^9, 
   3.6438101574648027`*^9}, {3.643864453648158*^9, 3.643864471912561*^9}, {
   3.643883346772253*^9, 3.6438833660242357`*^9}, {3.6438840203516417`*^9, 
   3.6438840210542307`*^9}, {3.643885656985855*^9, 3.6438858170177517`*^9}, {
   3.643885861121655*^9, 3.6438858657914762`*^9}, {3.6438859144119596`*^9, 
   3.6438859420597057`*^9}, {3.643886223853717*^9, 3.643886238363428*^9}, {
   3.643886290248255*^9, 3.643886305543077*^9}, {3.643886884628158*^9, 
   3.643886898971736*^9}, {3.643887001475625*^9, 3.643887023852682*^9}, {
   3.643887072088098*^9, 3.6438870899992113`*^9}, {3.643887182968079*^9, 
   3.64388719745569*^9}, {3.643887424918758*^9, 3.643887474290882*^9}, {
   3.6438877379457417`*^9, 3.643887739976124*^9}, {3.643887788738534*^9, 
   3.6438877911683817`*^9}, {3.6438880899477177`*^9, 3.643888090368896*^9}, {
   3.643890135150784*^9, 3.6438901630524187`*^9}, {3.6438901966373463`*^9, 
   3.643890289893293*^9}, {3.643891917797814*^9, 3.6438919338217297`*^9}, {
   3.6438919866310377`*^9, 3.6438919958413143`*^9}, {3.64389269408926*^9, 
   3.643892722208891*^9}, {3.643892770295574*^9, 3.64389279777678*^9}, {
   3.6438929118526697`*^9, 3.64389292370128*^9}, {3.643893868075057*^9, 
   3.643893901279786*^9}, {3.643950219385516*^9, 3.643950220454854*^9}, {
   3.643950259645132*^9, 3.643950276107362*^9}, {3.643955605110779*^9, 
   3.643955615466426*^9}, {3.6439567356825438`*^9, 3.643956738087406*^9}, {
   3.643958180684003*^9, 3.643958194365114*^9}, {3.6439582630054398`*^9, 
   3.6439582632303953`*^9}, 3.643958303663907*^9, {3.643958409410562*^9, 
   3.643958430834711*^9}, {3.643958547092039*^9, 3.64395855594982*^9}, {
   3.643958977277245*^9, 3.643958979513171*^9}, {3.64395901972762*^9, 
   3.64395905352111*^9}, {3.643967835853319*^9, 3.643967853917841*^9}, {
   3.643967906331963*^9, 3.643968072894681*^9}, {3.643968104347907*^9, 
   3.6439681137320347`*^9}, {3.643968291922023*^9, 3.6439683015044527`*^9}, {
   3.6439688227699413`*^9, 3.6439688849946823`*^9}, {3.643969003326602*^9, 
   3.643969177690201*^9}, {3.643969209131793*^9, 3.643969424545526*^9}, {
   3.643974189039023*^9, 3.643974246411429*^9}, {3.6439771554651327`*^9, 
   3.643977161865451*^9}, 3.643980105483325*^9, {3.6441488093143034`*^9, 
   3.6441488192087374`*^9}, {3.644150148729064*^9, 3.6441501742504177`*^9}, {
   3.64415211373709*^9, 3.6441521479527435`*^9}, {3.6442079826230187`*^9, 
   3.6442080005231047`*^9}, {3.6442080364674253`*^9, 
   3.6442080702646914`*^9}, {3.644208115960318*^9, 3.6442081369593687`*^9}, 
   3.644208342553633*^9, {3.644212398072503*^9, 3.6442123997981625`*^9}, {
   3.644212457239005*^9, 3.644212497077024*^9}, {3.6442125317020817`*^9, 
   3.6442125896704254`*^9}, {3.644214197427391*^9, 3.6442141999327817`*^9}, {
   3.6442142354937363`*^9, 3.6442142425374575`*^9}, {3.6442145251562834`*^9, 
   3.6442145285344996`*^9}, {3.644214760804265*^9, 3.644214786531804*^9}, {
   3.6442148434711657`*^9, 3.644214849343786*^9}, {3.6442412005667315`*^9, 
   3.644241209355123*^9}, {3.644330632299693*^9, 3.6443307028380356`*^9}, 
   3.644330744695984*^9, {3.6443307762971525`*^9, 3.6443307772150483`*^9}, {
   3.6443313317474613`*^9, 3.6443313447729*^9}, {3.64433168661725*^9, 
   3.644331689255769*^9}, {3.6443878240775366`*^9, 3.6443878564464374`*^9}, {
   3.644387943560607*^9, 3.6443879643084183`*^9}, 3.644406396903102*^9, {
   3.6444064307023516`*^9, 3.64440644209625*^9}, {3.644411041948559*^9, 
   3.644411079364266*^9}, {3.644411288482931*^9, 3.6444113637487717`*^9}, {
   3.6444114162859445`*^9, 3.644411424018329*^9}, {3.644422909522783*^9, 
   3.6444229199847775`*^9}, {3.6444229691236877`*^9, 3.644423013740288*^9}, {
   3.644423065414628*^9, 3.644423146251794*^9}, {3.644423195486802*^9, 
   3.6444232058847103`*^9}, {3.644424587903146*^9, 3.6444246369579954`*^9}, {
   3.6444246767980323`*^9, 3.6444246884030952`*^9}, {3.6444298562452955`*^9, 
   3.644429987296412*^9}, {3.6444301181463394`*^9, 3.644430146814698*^9}, 
   3.644430285792379*^9, {3.6444303187028008`*^9, 3.6444303189159875`*^9}, {
   3.6444305704875226`*^9, 3.644430585091466*^9}, {3.6444306539462023`*^9, 
   3.6444306862140093`*^9}, {3.644434283075033*^9, 3.64443432167188*^9}, {
   3.644434454427605*^9, 3.644434520215429*^9}, 3.6444347154888563`*^9, {
   3.6444399893529005`*^9, 3.6444399998669453`*^9}, {3.644440483164339*^9, 
   3.6444404978734083`*^9}, {3.644440615322524*^9, 3.644440620551504*^9}, 
   3.6444409443376465`*^9, {3.6444409758036833`*^9, 3.644441162697117*^9}, {
   3.6444423216109314`*^9, 3.644442383192705*^9}, {3.644442941364622*^9, 
   3.644442957062609*^9}, {3.6444435297434216`*^9, 3.6444435387420745`*^9}, {
   3.6444435843418517`*^9, 3.6444435940392885`*^9}, {3.6444703618422422`*^9, 
   3.6444703619533396`*^9}, {3.644472152334627*^9, 3.6444721711656237`*^9}, {
   3.6444722224325523`*^9, 3.6444722240140886`*^9}, {3.6444722652404385`*^9, 
   3.644472305121497*^9}, {3.644472344112749*^9, 3.644472380211203*^9}, {
   3.6444725934497952`*^9, 3.644472627295107*^9}, 3.644657380339628*^9, {
   3.64578351640895*^9, 3.645783523077777*^9}, {3.645783651603094*^9, 
   3.645783684062265*^9}, {3.645783746456579*^9, 3.64578379306667*^9}, {
   3.6457838306040277`*^9, 3.645783883060014*^9}, 3.645783990747098*^9, {
   3.645788105737102*^9, 3.645788125486713*^9}, {3.645788161977178*^9, 
   3.645788171852949*^9}, {3.6458063755010214`*^9, 3.645806380521799*^9}, {
   3.645806523187011*^9, 3.6458065494751177`*^9}, {3.645806688504825*^9, 
   3.645806720716604*^9}, {3.6458067858327436`*^9, 3.645806802745919*^9}, {
   3.6458068538416753`*^9, 3.645806936490607*^9}, {3.645806981959017*^9, 
   3.645807012315999*^9}, {3.645810758908917*^9, 3.6458107597116995`*^9}, {
   3.645810841823092*^9, 3.645810882575981*^9}, {3.6458109160018964`*^9, 
   3.6458110206978397`*^9}, 3.645811063691914*^9, {3.6458111363002186`*^9, 
   3.645811226576419*^9}, {3.645811301608041*^9, 3.6458113223378315`*^9}, {
   3.645856853438752*^9, 3.645856856436635*^9}, {3.645868385121836*^9, 
   3.6458684819573126`*^9}, {3.6458690226795335`*^9, 3.64586902979333*^9}, {
   3.6458700499883127`*^9, 3.6458701161835365`*^9}, {3.6459328283816967`*^9, 
   3.645932932022644*^9}, {3.645936554130917*^9, 3.6459365637511177`*^9}, {
   3.645936685461779*^9, 3.6459366889034863`*^9}, 3.645937164294818*^9, {
   3.6459372221081247`*^9, 3.6459372973974953`*^9}, {3.645937357408861*^9, 
   3.645937358338731*^9}, {3.6459392939227467`*^9, 3.645939296541953*^9}, {
   3.6459395301748943`*^9, 3.645939577782193*^9}, {3.645939831642295*^9, 
   3.645939840690673*^9}, {3.645940052110952*^9, 3.645940062080166*^9}, {
   3.645940954767096*^9, 3.645940974508026*^9}, {3.645941036446999*^9, 
   3.6459410512005787`*^9}, 3.645941097438088*^9, {3.645941149530751*^9, 
   3.645941156006247*^9}, {3.645941243656577*^9, 3.645941258313546*^9}, {
   3.645941306403179*^9, 3.6459413110774603`*^9}, {3.6459504239647827`*^9, 
   3.645950429830217*^9}, {3.645950490308631*^9, 3.645950491026726*^9}, {
   3.645950524559054*^9, 3.645950546882133*^9}, {3.645950873230734*^9, 
   3.645950874309485*^9}, {3.645951002651396*^9, 3.6459510709597273`*^9}, {
   3.645956053866474*^9, 3.6459560657963142`*^9}, {3.645956099475356*^9, 
   3.645956121800848*^9}, 3.6459562154960213`*^9, {3.64595634327831*^9, 
   3.645956355069021*^9}, {3.645959445991016*^9, 3.645959494630513*^9}, {
   3.646035439743806*^9, 3.6460354759975557`*^9}, {3.646036040683634*^9, 
   3.6460361450906973`*^9}, {3.646036218670682*^9, 3.64603623944097*^9}, {
   3.646043696524349*^9, 3.646043777590231*^9}, {3.646043820553862*^9, 
   3.646043821826457*^9}, 3.6460447146348457`*^9, {3.646045472967429*^9, 
   3.6460454731190853`*^9}, {3.64604561228378*^9, 3.646045613612577*^9}, {
   3.646046081816853*^9, 3.646046089014697*^9}, {3.6460461610470047`*^9, 
   3.646046217240243*^9}, {3.646055578587082*^9, 3.646055606695386*^9}, {
   3.646055670723599*^9, 3.6460556942870417`*^9}, {3.6464044725193806`*^9, 
   3.646404608563264*^9}, {3.646404640834073*^9, 3.646404795387628*^9}, {
   3.6464233559163218`*^9, 3.6464233688376536`*^9}, {3.646423444013419*^9, 
   3.6464234482664857`*^9}, {3.646426144262263*^9, 3.6464261525171485`*^9}, {
   3.646458534482952*^9, 3.646458539278524*^9}, 3.6464763220326953`*^9, {
   3.6464764210322123`*^9, 3.6464764413596334`*^9}, {3.64648000867805*^9, 
   3.646480012723919*^9}, {3.646480091647274*^9, 3.6464800955579967`*^9}, {
   3.646480292065623*^9, 3.6464803030170727`*^9}, {3.646480391595647*^9, 
   3.6464804059012957`*^9}, {3.648201867271482*^9, 3.648201872265234*^9}, {
   3.6482020514114428`*^9, 3.6482021519939117`*^9}, {3.6482022090286283`*^9, 
   3.6482022260278807`*^9}, {3.6482022968433857`*^9, 3.64820229820537*^9}, {
   3.648204012290613*^9, 3.648204020081736*^9}, {3.648204064988508*^9, 
   3.648204135601437*^9}, {3.648204166307589*^9, 3.648204193934905*^9}, {
   3.648204239633007*^9, 3.6482043330174103`*^9}, {3.64820594882827*^9, 
   3.6482060920984983`*^9}, {3.648206124608349*^9, 3.648206177877994*^9}, {
   3.648206514321357*^9, 3.648206526198449*^9}, {3.6482068071930513`*^9, 
   3.6482068134535913`*^9}, {3.648207381198009*^9, 3.648207388434411*^9}, {
   3.648893865878644*^9, 3.648894111226219*^9}, {3.648894141595066*^9, 
   3.648894151783036*^9}, {3.648894181879541*^9, 3.6488942698269663`*^9}, {
   3.648894355341289*^9, 3.648894469164793*^9}, {3.648894682034356*^9, 
   3.6488948458510017`*^9}, {3.648894900807988*^9, 3.648894919936821*^9}, {
   3.6488996999417686`*^9, 3.6488997750439053`*^9}, {3.648899835678734*^9, 
   3.6488999291401787`*^9}, {3.6489000345393057`*^9, 3.648900050800479*^9}, {
   3.6489001803481894`*^9, 3.648900195793962*^9}, {3.6489002594857407`*^9, 
   3.648900287934214*^9}, {3.648900993807992*^9, 3.648901088022231*^9}, {
   3.648901122619008*^9, 3.648901129454789*^9}, 3.648901793959942*^9, {
   3.648901861198586*^9, 3.648902018165866*^9}, 3.648903735171019*^9, {
   3.6489038121426497`*^9, 3.6489038750755167`*^9}, {3.648903905966433*^9, 
   3.6489039663713818`*^9}, {3.6489040537555532`*^9, 3.648904054019248*^9}, {
   3.648904748130352*^9, 3.648904748296476*^9}, {3.648970237713328*^9, 
   3.648970256883507*^9}, {3.648970909935775*^9, 3.648970910705058*^9}, 
   3.648971003497402*^9, {3.648971327377797*^9, 3.648971395575569*^9}, 
   3.648971547745226*^9, {3.6489718780679817`*^9, 3.6489719003669367`*^9}, {
   3.648972118038642*^9, 3.648972118622602*^9}, {3.648972925044311*^9, 
   3.648972926236676*^9}, {3.64897318249889*^9, 3.64897320020969*^9}, {
   3.648973383973586*^9, 3.648973438747617*^9}, {3.648973514920886*^9, 
   3.6489735177347*^9}, {3.648973781428336*^9, 3.648973809807279*^9}, {
   3.648973841781219*^9, 3.6489739827385406`*^9}, {3.648974083817412*^9, 
   3.648974093724288*^9}, {3.648974269074374*^9, 3.648974299562004*^9}, {
   3.648974421325494*^9, 3.648974440365237*^9}, {3.648974514094369*^9, 
   3.648974518356675*^9}, {3.648974665529825*^9, 3.648974685158559*^9}, {
   3.648974925507443*^9, 3.6489749401024837`*^9}, 3.6490039355634403`*^9, 
   3.6490042987388096`*^9, {3.6490043684830685`*^9, 3.6490043983518066`*^9}, {
   3.6490044931268544`*^9, 3.6490045494523787`*^9}, {3.649004616074893*^9, 
   3.649004774961812*^9}, {3.64900480542206*^9, 3.649004841848938*^9}, {
   3.6490048818904037`*^9, 3.6490048836229115`*^9}, {3.649004937515541*^9, 
   3.649004969880681*^9}, {3.64900501613622*^9, 3.649005229846773*^9}, {
   3.649005338149578*^9, 3.649005366513195*^9}, {3.6490054113637075`*^9, 
   3.6490054509950714`*^9}, {3.649005498922179*^9, 3.649005501127986*^9}, {
   3.6495282827281475`*^9, 3.6495283252092285`*^9}, {3.649568480218191*^9, 
   3.649568480667613*^9}, {3.64962572535006*^9, 3.6496257765495462`*^9}, {
   3.6496258689504294`*^9, 3.6496258850867767`*^9}, {3.649625921737838*^9, 
   3.6496259682184963`*^9}, {3.649626081205535*^9, 3.6496260877402954`*^9}, {
   3.649626144224702*^9, 3.649626181008315*^9}, {3.649626488031873*^9, 
   3.649626488890007*^9}, {3.650529235029439*^9, 3.650529314231358*^9}, {
   3.65052936320392*^9, 3.650529382789538*^9}, {3.66245977578183*^9, 
   3.662459784033568*^9}, {3.662815404635672*^9, 3.662815405954383*^9}, {
   3.662828676067593*^9, 3.662828714703841*^9}, {3.662828978361681*^9, 
   3.662828994304286*^9}, {3.662829066962365*^9, 3.6628290722307*^9}, {
   3.662829147015759*^9, 3.662829229427998*^9}, {3.662829358010397*^9, 
   3.662829376294224*^9}, 3.662830143266178*^9, {3.662830233445055*^9, 
   3.6628302345133743`*^9}, {3.66283112532263*^9, 3.662831134761631*^9}, {
   3.662831198173882*^9, 3.662831213534149*^9}, {3.662831648229557*^9, 
   3.662831691733026*^9}, {3.662831900641386*^9, 3.662831925889756*^9}, {
   3.662831983993763*^9, 3.662832032082837*^9}, {3.6628326060005283`*^9, 
   3.662832804315837*^9}, {3.662832878617484*^9, 3.662832949669649*^9}, {
   3.662832993005365*^9, 3.662833129456972*^9}, {3.662833394353513*^9, 
   3.662833415163028*^9}, {3.6628338685598993`*^9, 3.6628339552289*^9}, {
   3.662834043460401*^9, 3.662834146778687*^9}, {3.6628342185271053`*^9, 
   3.662834231187707*^9}, {3.662834312039481*^9, 3.662834327780772*^9}, {
   3.66283453609098*^9, 3.6628345615294037`*^9}, {3.66283534793087*^9, 
   3.662835356171307*^9}, {3.662835860342251*^9, 3.662835861256469*^9}, {
   3.662835950087852*^9, 3.662835950405267*^9}, {3.6628360140139837`*^9, 
   3.662836065877448*^9}, {3.662836111167667*^9, 3.662836138447804*^9}, {
   3.66283617039952*^9, 3.6628361711994953`*^9}, {3.662839227846031*^9, 
   3.662839261316236*^9}, {3.662839319613677*^9, 3.662839366274746*^9}, {
   3.66283942615913*^9, 3.662839451468112*^9}, {3.662879157652782*^9, 
   3.6628791840120897`*^9}, {3.6628792355617247`*^9, 3.662879245796732*^9}, {
   3.662880333328168*^9, 3.662880409084277*^9}, {3.662880456688815*^9, 
   3.662880458154943*^9}, {3.6628805110961227`*^9, 3.662880818878183*^9}, {
   3.662885486520589*^9, 3.662885530395755*^9}, {3.662885573503613*^9, 
   3.6628856194510937`*^9}, {3.662885649595826*^9, 3.6628857489235163`*^9}, {
   3.662885806418168*^9, 3.6628859063922377`*^9}, {3.66288814631079*^9, 
   3.6628882159790497`*^9}, {3.662888404103104*^9, 3.662888406161277*^9}, 
   3.6628915279045362`*^9, {3.6628923534087143`*^9, 3.662892353500264*^9}, 
   3.6628924389211493`*^9, {3.662892526558127*^9, 3.662892527197134*^9}, {
   3.662892805339221*^9, 3.6628928228274937`*^9}, {3.663142982751153*^9, 
   3.663142997848322*^9}, {3.663143032022612*^9, 3.663143036181469*^9}, {
   3.6631430877735357`*^9, 3.6631430901788073`*^9}, {3.663143146609219*^9, 
   3.663143161996004*^9}, {3.663162002863661*^9, 3.663162010408947*^9}, {
   3.6631623259115667`*^9, 3.6631623776890697`*^9}, {3.663162432696226*^9, 
   3.6631624532566223`*^9}, {3.663162579627595*^9, 3.66316257996701*^9}, {
   3.663162955066134*^9, 3.663162979309269*^9}, {3.663224403306305*^9, 
   3.663224412733457*^9}, {3.66322460592482*^9, 3.663224670717554*^9}, {
   3.6632247245972443`*^9, 3.663224846000696*^9}, {3.663224884880287*^9, 
   3.6632249136998568`*^9}, {3.663225180919924*^9, 3.663225181045598*^9}, {
   3.6634784359113607`*^9, 3.6634784623745937`*^9}, {3.6634786658725643`*^9, 
   3.663478718362184*^9}, {3.6634787697355223`*^9, 3.663478782961878*^9}, {
   3.663499066142645*^9, 3.663499150839582*^9}, {3.663499191434986*^9, 
   3.6634993513618307`*^9}, {3.6634993929797697`*^9, 3.66349944208594*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculation", "Chapter",
 CellChangeTimes->{{3.641151272725811*^9, 3.6411512765905027`*^9}, {
  3.642315150504609*^9, 3.642315152150401*^9}, {3.64897080356178*^9, 
  3.6489708051658993`*^9}, {3.662892132139271*^9, 3.662892133662709*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"j", "[", 
    RowBox[{"x", ",", "120", ",", "120", ",", 
     RowBox[{"0.9", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]]}], ",", 
     FractionBox["1", "3"], ",", 
     FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ModelDynamics", "[", 
     RowBox[{"x", ",", "120", ",", "11", ",", 
      RowBox[{"0.9", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "6"}]]}], ",", 
      FractionBox["1", "3"], ",", 
      FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6631689151114807`*^9, 3.663169043427374*^9}, {
  3.663224078411961*^9, 3.6632241167166843`*^9}, {3.663224151928227*^9, 
  3.663224175891199*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVknk01YkDxT3LkC2E8RoqRtlGmqKy5H7LUikthAgTQmmxN1lSkSVkyWNC
RJQhUzQaaeFZsozsu5T9ecu3h2wN4uf3xz33fM655/PXVXT2tHDl5eHhiV/L
/9vMldlGZ1kZRmRWafH3GhtOPLN2HqRqY8umHuqkhApkRbri/qYag/d6/eF3
EnuwXVf6cQb1FFRTRsSeSByEXuuuonvUc7gmf3JLtoQN6OnVOnepfijysbpY
JuGOsFsx16Kpt3GKZylth+TvOOc3Sb1DpeFJc0mM3IZICNEOZ09N5+ImY8n3
svR9lLbuPHhw03OcjFT5+a8v2TgdNtBfHVMC6/W7bIMr8uBZ7Kt5f7YMnHHj
rijFZ/ia0F1PoVSg1WmhYVrmBeoraytaDKqg4XD0lKLHS1wIOCxmS9agpeRY
qSD9FSrX7VwtvFyHxTy3pQfcN3iSU7Oyceu/MM0ZjXxzrQKE7LtHls8+4PnH
I940z0po1g28qlVvQb1fcfphlWp0EpbcfG4rXrTdv8qUfo9Lwhfbu3a0w1au
TPn711o09tq8E4/rwF696YPvxBtgaXp6eGysE42+8oqauo3YnRVjk6XcDRE+
snrauglDK0md52/0wCJf6OEEvQXjh1tyZKt70eR1iTUs0Yai1MGANsV+9LWt
V4+80o7HUXx31AI/Qqm1yv/6QAfmXOzYbm8GYCNqpEwe6oKIcYRF8Y+fEb4z
v+TpVDeCJcZFh+0HcYnCT+NJ74VouQZPj/kQAgsF9k069GPf1ePfqxeHQGj8
tZrrPYAHubE5Pz8YxkJmhpNgwmc4Wmk3rTsygmCLUrvzMUN42eWaVD4/gj1a
7zaIkcPQ/VDEy0gZhd3mi5cJu1FsMXGbSzIew5nCnJeb5caho62TWMIYA92p
vS9hkoHBr3cbcsLH0U7PaO1cZoLcdTKcupOBY+d+tafGcbCNo8mmdDBgEdur
8NWWC1GhlsdvuhiQjRsTkXLnYkbZy8m/l4HM5tq9+n5c0B1f9DI/MXC7N+Jq
fhwXdu2761qYDNCJQ6nz1VzElSE3Y2XNH/36nP2OScxFnnTUVZ9A618dWieE
plCj7N/udWsCf4t1Xav/NoWwvNenl8MmEH/9Iv82nmkcUOcZjIyYwBnKzFCU
4DQqtWI4mTETIFNGcxxlp1Gul83flDyBgbqAWTPtaZSeaNqtVjCBY51ucxre
0ygI3po+3D6BGn19pt7kNOI7u1wslJnYX/nfecGVr4gNuavcto0JeK3QKn6Y
QbSqyfhxNSYqFXwiQtbPIDy4xM18OxPi0rx9EoozCFJOunBoLxMUgcGNUcYz
cPc74Wl4lLn2E1P1+tgZQLoxUN2PicDyvL4GpVlMWtITeWuYOL548bcBtznM
54VfKq1lQuLQS1k/nzmsLJkdvNTAhEj0ZppsyBxEc7uWu5qZ0HiYKx+cPAfV
WbZ7ft/aXsR9XWPNHM7SZAxPTDIx7xvQEb51Hq2dHuyMjSzwX92gMjw5jx7V
He8tFFjIoMV4Ty3P43Pw3EPBLSykTb1OEhVeAKl808p7KwsKJVX5F5UXIOSf
TDfewcK2qlrNOtsF7Jehp3BMWNhKd/mDv24BL6xkjHS9WdBijY+oFn7DvfU3
mBW+LNTONccsl32DTwPzrulVFvZZ7S/4VPcNv+5722sZxELR8XJa/eg3FCm7
XLkSzkIet++Akfx/eDZTlJqTysJ2ou/ep/j/UJB4dEqsioUNZSE39EIXEX3k
n2RaDQvnMtRnxhIX4SGwRf+nOhZuR/8T9zB7EWoBM+GqH1gon1/KNKlcxJ9n
034y6mbBtCCtz4ayhCdaTNNrbBZ8zKz5n95eQk5TWMaIFBufTSzONNxfRuyv
S/YPZdgY+1RYqVG4jKvJPvL2cmxoq3RrPq5YxiEHp/QuBTbeX1cp/cRYBpc0
TK1XZcOoJmjlwu7v2Cu6SHtmyIZo4I0fpfu/o8nMKzbQgw0loW2Pmdqr+OfZ
xJE9l9kork3fdfPIKrKkfhOZ9WTDkZIRqu28Cp9+8+jL/mzcfDKzezZ+FXIe
GlFnb7LxMuTDeBe5Cuc7jDDTFDYOHjN/o2bNQyzU2QdJVbHBHJMr5ypSiE2W
pv5VNWwEVdYO8WhRCNPPWp4+dWy4cCyTlQ0oRMosr0v7BzaeJ1QaZFtTCG3F
fLN7PWzQ9GpP+cZSCJ/AOarUFzauhHCPpS1RCPKXuFeSchy8T+7w42fxEtKv
fn9RuZED/V69mcRvvIS+kVOhtwIHJT0fKbuF+IhoW+2sNiUODCRuxFap8BFq
Ef2RiZocPD+358FXdz7CbXCbjaQRB9wrCaH9JB8xlFgxJ3GFg3ldRV5TYQFi
KNT89T0vDvb8LhNf95MAMez7MUTal4N147YfnDUFiBGrBUG5axzE7lHaMXFC
gBilam3cHMrBqUFqnmaqAMHIzjTUTOFgc5ZK5uj2HwhO8fXIw+UcdPJ8wp9e
ggT5SORoI52DhDM6AZ3ha5yUKmFezYF82lkXpfQ19n+ZeqKeg6K/o4OVawUJ
ru6XpzbtHBwQ4lr+qyBETFXat7oyOHAcT1Mb6xAi5tv0qaHiJCpWjWoqHYQJ
nss9C7qSJBzv8jxZCRAmhIV8u6c3kJAfcCj2ShEmNhkWJDlRSdC6akLmW4QJ
kwI58f3KJLiRVbP3TUQIWugcL48eibb49csV+qJEpkLicKkBiaDmP1xTzogS
f776he4JEllUi+anQaLEW67L9UFjEg7uJ51S3ooSY3btC+XHSQjavPUP2S9G
7Nr1nLzuSkIm6p35gdPihEGzWaPOeRIRx+TFnILFCdMLjPwvHiROFfdJNWaJ
E3YPFdwdvEjcUTTyuM0WJ0JFYocNgkj0nRk//vjWeqJ99Hz3UgKJ7Ycqesp+
kyC8aEr0gLckwn4xDbChSxIWyc4X+CrWfHXOQTe7JQmdlEdSdytJ3Djt+KiP
lCQW/1ByzaolMZLrULhpoxRhHRUultRAwvdWwLycjhTxP1qvcms=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 1}, {0., 4.551853037992589}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6631689281912823`*^9, 3.663168942698778*^9}, {
   3.6631689790343237`*^9, 3.6631690139379168`*^9}, 3.6631690446993093`*^9, {
   3.663224121438188*^9, 3.6632241770200167`*^9}, 3.663224433302474*^9, 
   3.6632274578876123`*^9, 3.6634788590216*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV13k8VF8UAPBJC1G2SkiJkJIlUbacG6LJkiUia2XNEpHMI1ERJcmSiixJ
JGVJGwqRpAgpGsO8x5CQ6ZdQJL/bX/P5ft77vDn3vnPPOU/m8DFrDx4ajWax
gEb797vXY7i99qut/rIPPAP0GDH48sDuMFtCAxyFhLpPFf4EMYGPiQ8ljEBW
ZQlToXARUtFemX9TYj9EKN696l2wEum0bStNlnCHLP2jhjW35VBtRr3mJYkQ
iOA3v77vhgY6G30x7ILEOZC3tauLDjJCL6Q8H9tVnoPjwk1xiSK70a8n6Kes
Yww0+/ceNC3bjfzGJ49VZcZCgAZnUQvXGO13dPMak46HxO4rcc+86UhBU9PO
QiER1Jue2mTusUDuIVyJeIlUkFxwU76RaYO2LUwmygNToVn+qpPN5v2IJ1mj
p+d1KhiwagLTGPtRdgkjUyU0DYy2yoxqrrZFzJGF0p0dV0GrSyPls4Ud2ndI
XE464ToYifVs2ltij3Qsdqk8+psFYlIw1avujPh6BxL7bLOhjfY4zC7MGXX5
xnJ572eDqOdsf/hzZ1TZ4GF/XzkHRlIaM1qMXZB9f5EEjZUD1iJWVxNtXVHy
Ws3MfK1bUL3A3ratzA3xpdJzv/93GwTbDquW5B5Gs1rUbK5kPvRL/LHyeX4Y
jfeG2dkY5sMnW42lPJ8Pow8bCwUep+ZDhLhm9XuhIyiraklo+I474G79dYYd
fgRpDNTvXXKqAGLpxjBh7o7c1PV/ruErArvYMOY3pgey6fpo0aJWBPQ2h6q6
Hx7IOML/bqRDEbx+0zMaxu+JlBozXaiiIghb1tZzRdsTTTnMNt0xvwcHn/Qc
OH7VEyVEP725NaUYannePhA29UJP2tRNTNaVgAGbTn3K8UaJX8f2bDEugdDw
YWKmwht58hTsFQkogc2Gltt433gjMY01Fj3PS+DP+VsJrO/eqOptdNETlVJg
0rc8IMAHrVE9WmbaWgoHzswn3+r2QcxJnZrg5eXgsj7x4vnZo8iYRxx5ypTD
eHPkF6HlvqhccLLWXrMcjFtGQmLW+aILG0te7nQuh4bwZRlau3yRjsOGRt77
5TCy+PjelzG+6Hq1QEuG2UMQLpSwihDwQ/ZnWcz6ixXA0ZnJ28vvj4RJhS1e
uRUgV2dX+UfSH73RCzrF/6QCDutuKc5U8kc6U4vXW/VXwHDGrZt3zPzRGh9V
jz6tR5CkWss/dMkf9Vmc4f4afARm5VGjW5YHIHdJxUUq6AlEXe8PyZoPQMfK
gpWv/XwGG/58eFLvFIjG9agPb/gqoTLxnHHH4UDk12RBzEpVgsu3Tzd6vAOR
N3vTa5fdlUCclX7YFxKI3JaTbvJXK2Fe0y20ICEQWfqYpZbvqAJxvVNV9KpA
pCYjP/uOqIZ30VXKPKuC0I+kT00LFtSAteeO/ltVQajarww4YjXA2fhf8IK6
IHR+T8Ljxi018Onu9grHxiAkRTO4fdG+BvYvUHdY2B6Edh+7f3pVaQ3Qsrls
6aEg9E7BICNVtRYiuyZEU4SOo/WLJawL+2pB1EDWI971OGqqa6x5r/cSjGgr
RNp+Hkc+DPpyh7EG0Bf6eixqOhjVLVWfL/Z/DeuvPJg3bApBd/Ia/krKN8Ox
pca3V18+gZDY81s2D95BY8e6X8xtoUj5Netp4+b30CBswtnwKhR1Ipvxu+Nt
8ON64zNtm5PIj9+346NaB9wulpadbz6J3nYfeC6Y+AG6LXjirVAYsjG2pzic
Tgi5/CFysCAMbc+5eCBH7hPwuY3lt/4NQ+TflE7v013wcb18+rw1Aw3S3+eJ
1XfDlOBb3aPXGKj0OpvRLsOExGUNae2fGchvkxRTfSMT/B4qqr1gMpDiM3ud
1C1MiDD4q1zUw0DZ3e0zdjuYMHl82iaql4ESVzeEs8yY8G7T7B55ioH80wpP
fTnJhJH20o9Wwwy0+UpQ9FwLExIENb00pxgoP25h/CaiB/zWbmbICxNIlBMX
qXK6BzT2lWX0YkeBYMi2cz3AnzWlkSZCoINT4q47E/H9u3Lf8qwgkJC7iqbV
rR7Q4amM61pFIAY4UGHNPbB5tkPXaw2BzKceaDdJsuDHhLOltAKBKq00VFuk
WVDqFKTXiK14/5lchxwLss7uzfLbSCAe9wYhlgoLWL2b6p8oEuhJ++dBrgEL
kGFGkokSgWTuL0pe7cuCUM+5reZqBJo8cnDEs4oFZ54f3/Ndm0ChK2ZXdNey
wGZSxy9Zh0BTLzN20htZoDWxeGybLrZMb5JSOwtcOD7zIXoE+sV23fF9iAXN
jm+DufoEmnH0OMcQ7YVDKvdjXhkSiLY/cF2CTy/o+7j2TZrh/VgosmcuoBda
T1u6nzUn0IKHZUEBIb1QvAAZCVvg+EUnGixP90LJnw4RxX0EWth2wndVWi8o
KrVR+6wItMQs/GlWbS+sNBPcHWVLIAGjWOuy1X3gp5KafMSZQHo1x0QapfqA
xzVFqxM7QMehjSnTBzvf15kauRCoQ22LxaItfZAo4v1M1pVAN9Z20A+gPrjj
MF3S7Yb3c3rtrjnvPqg7/3ZG0Z1ARkWPVOmVfaBsVhR38CjeH/nsceeaPnCa
4C1/il2YE3f/eEMfRG8xNxbzxfGkOypltvZBsTUqeY/dcXbBRm5/HxhszIvS
9SeQm7P5ujQBNnQ5fBWaPkagCOHBZZQTG67J/7ScCyHQZmY5Yh1iwzv3jO0m
Jwj0OS8qpMuTDftqwy8kYW/fIcVqCWSDrmpahEwogb4729yrPMcGk4ec83on
CXTkXh09tZgNEafjFQ8wcD6euHzqchkb5MjxL+nYtfrOZRces+Fonc7Kbmyp
jl/i0bVsKP+i8tCOINCnX6rD/p1s4JmV5TMPJ9Be46xYkz9skI9vm1l7ikB/
eLc759JIcBoziLTF7hyTml63kAQjmR3+CdhnHo9sluQj4Yg9/dIv7D56bLKw
KAlzXpc/vIkk0LXA54fm5EkoPKntbhlFoGO2t2cJRRKehQ+mRmIb61xM+7WZ
hCqfTNVi7MmFDm8mVEkof918a3E0gazTf6qNaJPgS549VYa97IUSrcuchLb0
ufGxMwT6Zra+4oIlCR+p6ncrzxKotWelt74NCWbRKr90sS//nnufb09CxmjB
jjhsUc227JAjJGT+9LIVP0egifoGG0VPEqLkVW/qYHdaP+NleZPQfuj2Vifs
tMBbxwwDSAgZXYluYosXh4Aog4TfEn5csRgC/dbxmXgVTsKIOs/1bdjMN84F
jEgS+JJ0E/dhZ3wxFqLOkuBQL+wYgx0RqlufGkuC1wNv9Wxsp8VqJ/fEk6DP
y9r/FHvdBgl2SSIJEQIJxDD2fNnylCNXSKj9ffbUPDaJeExWp+LrPcvfrool
UK7L6IPI6yQwes12I2y5G88jzW+TgNoLyhOwF28qV19QgPdvqduSLOyhJ3eG
Ku6SQJon5z3ALvh42UKqhAQ34a5nLdhx7ud42spIMLa7pc7C9p4Ie3y2ggQJ
LYefX7E3ixxeN/qMhG/aM1YLz+P8z7HryKomwcos85sg9piKaax1Dc4X9vV2
Cex3z0FnyUv8Pu62zm3Avm+mMf6sgYTk3WLHlbETexRv+b8moVrDTGU7dsDR
tXYyzSSEsUzV9bH3/Rbh//iOhPPnv5/aja0Wt+RF3HsSKj1WiZhhi6yeDdLr
IKHvYtqoFfaPfK78904SXk+YLj+A3aHB+ZzXRcKOiBWhjtgP67svHWDi9Q83
yrtip1q37BLoJWF/P5I6jB1C1U2+YOP3N+Xo4I5tG/j47vF+EuDqD5YH9vb5
ImeFQRJ4Jdl3PLFXJ2aLML+QoPV89vE//5JKfXVphASXHNnl//z5Xhxj1ze8
viblu/+eV6lzSnmSS4Lu+ukL//4v400QVfgD58MJ+/J/8UTYe6Y5TZLgHa4k
7YTt9OUgXfgXCT/e0Nv/rWdn6L65+hkSdvUmNFljTx0dDqfPkWBL0/Y3xy51
jZ5pnSdBM3wkwATbZ78kYz8PBQq10S0IW5b+cPrzIgrObGHHaWOzdpqFuvJS
UMQ3kLMVO0198CdnKQV8cf6rNmHzSa3+wRWkgNV5dYUY9kvh0sATIhRMZ09m
CmCHL6ZzZ1ZQcHqp4xka9vg4MbZYggLBt0/dhnG+FA6s8L24hoJ3JwMderAP
dRd/FV5Hgavf/fv/8q2zrm9ozQYKdL5peJdiJz4+6ZErT0GUnH5rDrbJPWGO
giIF0b/pl5OwK1MNqK3KFOwaHpQJwA6J73F9okqBJ4/GhCO2cmRIn546BROV
NGk6do7XnR6THRRESF2JkcE+6AQHW7QpcJQUrV2GvcKqu9taD8fjlrB/Gp+v
WB3+T867KPgUPXShGdtveUBbsCkFhy9GbfLBVuDh3ffbnIIlHWvU/p1v9lR2
S6QlBeqFuZc1sK3J9uZ4Wwq28XPs53C90Hqo+SrblYIKoSjh89g/CloN5Q9T
kPqxmOmFfS/T62WROwXnaKV/TLDXxV6veeRDgf77+yZLsBc5zD17G0yBwenS
SQLXrxfmV7WsQiko3V5J2GGfNFB98imMgsiCKLut2CNKhyqoUxRc0n4kMojr
Y9vfhgfT5ylQ7OlINsLOvJ2QtyGTghvWRjkDuN66Gm7TY2dRIHNzb0wptmz/
584buRSsTm/LicAulN64RLSAgl8/swhR7Iobdd60cgoyf6yq0DiNz3fSlHLv
awoqb8WvtMH1/7LqzcZrzRQkL1QxXYFt3Wrour+Fgs1rrR51RBCoW+BK0tsO
CthMiw37sDmxShPPeimYXFrnpo/7z1yE29OrExS8DP+sORWG+9caXivrKQoM
0ZpLd7HPVd7/uvw3BTePV650wub/NSMZ85eCfWZGFS9wPxQLTjsVvLQfxh9z
VAjcL1V8mg0spfthvRPFeRNMIBdbjZalpv0gdEWSav7Xn9eY5zw174fEH/fq
PLAPUR7BXpb9EMr/6MO8H4Hc/dMlXtn2Q9t+p4tbsX1iZjyi3PrhUL+24UU8
D4Q8qv07daIfLC5du7Pai0AXVpmrcXL6Ic0XapPxvJHQ47EwJa8fLixP81qB
fSk38tOuO/2wSClZOwXPJ0nKpRHZ9/rBpDvbKQnPL2m7V7w5+Lgf9Pa+uxbl
iPP3xOdD7W9x/INCT7QOEOjRR4+UF1P90HlD8r/FeH5KWrBhK/zuh6H80S8n
8Hx1VJlsrZntB7VdL9YN4vlrXcxB/jraAFSa5ZrWmeL81tgXXc8/AKOM4cxA
OoHsUrSONa0bgChF3/+KjAg0bSlg2mE8AHUn380m4HmwI6Jp2Jo+AN75jkkc
PC8WF8bEfjAdgPeKkS662G402stOywHYkVdwZ2gHgZpKfmp1HRyANT0PyG2a
uP8L9imwAgZgXG/nu0JVAmm/K+UZujoAhY8DaLMb8DxyK7wy8/oALNL98lsR
mxZmfNwmcwDabckFdrL4eRtYVG3uAIjVq+rdX4/jDeetyygegJe12taWawl0
fLPLaauXA8CNF6v3FsPxxQn8qf42AMnpVgUkL4HW7/acTDHiQG9c5oGeLwzE
ivp4UsqEAw//HqplDTHQtWqjmdt0DiRYxu3uHWQgEY0N848sONBcSeX1DDAQ
zwaSr9ueAyc2K9xtYePvD9pBKSl/DgjqHbkW28VARdXmhrfTOHBp8dWVexsZ
SFND80rFEAfMlE0seHMZSC1dzELtKwfcbWkvP2Tj74mZaf7iUQ7Mr11Gz85i
oPW1lefyvnMgIGjs8rZMBuI3Q2HJMxwYvhrxyzKdgcgjpq6BgoMgSSv+z+US
A11IOaS8Zfsg7KyPOvQqjIHYPy69yYsZBPGsF7FFZgzEmY/IsY0bBKN48S8S
pgw0vMzvJO/FQYjIrRWPozPQd4W98r5Jg9DpojPuZsxANMcl0eoZg7B6xynb
RYiBZOsjtepKB+Hv4fQykW0M5JlyrKCvZxBY2Z7BhuIMNLbNKkZCfQjGKgSe
DPeFIYVR5ZEFH4agXl/BqdEjDDXInegIjP4CTaF9pey3J9Hlzo9HrOWGwTiP
EZEudxJxbWqv8DQMg4rx+3SWVygqt11lqB30FeYu7Znkhp9AeS1nb/aLjkCs
XtFccGQImn7tFC76cgRoA3+o37uCEXmlZlI4YBRa50a/rmcGoal2XYkzgmOQ
lH++ad4uEAWmytYyqsfgxVhHVSflh1a3yApzXL5BFztYqeOlN7L5WPxH6u83
sHjx6HXVKnf0wzXXj1U0DvZn/cUmDjmhGreSGEEzLigfPaure2IfqnzvZ9pn
wYVWS34L1TkL9Fh/s8gDKy74qNakfT1ngYql8jPND+Dr0inC5Snm6Eb3jYcJ
h7kgqRpuk/nAFJ2wjKX4GVyQY29rUWKaICXkvJP3DhcKHg3JnhNASKFEcmFX
IRe0tEvHlCQBya7rbrpzjwsJ21uP/ZHSR+J/rPcbl3FhibSqUpGMHlrydI9v
TDUXjhlLvPLYqIUoVY3rCz9wIUfUOe8/eTXEyvrP5cNHLuz5MPHbm66CupeX
yOV1c6HNQig6xngLah3dVGrQxwXqZ5tBOiii6gLp19FfuZC6fa3gU+X16KlY
b4LVGBe8JeKr1lhJoYcxN6xluFxICnszZmMsjoqOrOqr/cmFMr4uZqGqMMrv
6MhLmubCt9fwvN2ED+XsSvJxm+HClvZ65xlVGsosNVdVm+NCHJn/cFb1O6RL
C0zOz3OBqSbOFo8Xgv8BSXMP6A==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 1}, {0., 424.46257685027695`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6631689281912823`*^9, 3.663168942698778*^9}, {
   3.6631689790343237`*^9, 3.6631690139379168`*^9}, 3.6631690446993093`*^9, {
   3.663224121438188*^9, 3.6632241770200167`*^9}, 3.663224433302474*^9, 
   3.6632274578876123`*^9, 3.663478862296187*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"EMContribution", "[", 
       RowBox[{"x", ",", "120", ",", "111", ",", 
        RowBox[{"0.9", " ", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}], ",", 
        FractionBox["1", "3"], ",", 
        FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"EMContribution", "[", 
       RowBox[{"x", ",", "120", ",", "111", ",", 
        RowBox[{"0.9", " ", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}], ",", 
        FractionBox["1", "3"], ",", 
        FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"EMContribution", "[", 
       RowBox[{"x", ",", "120", ",", "111", ",", 
        RowBox[{"0.9", " ", 
         SuperscriptBox["10", 
          RowBox[{"-", "6"}]]}], ",", 
        FractionBox["1", "3"], ",", 
        FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*FractionBox[\(EM\), \(Centrifugal\)]\)\>\"", ",", 
      "\"\<\!\(\*FractionBox[\(EM\), \(Casimir\)]\)\>\"", ",", 
      "\"\<\!\(\*FractionBox[\(EM\), \(T\)]\)\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.663224950517358*^9, 3.663224968123755*^9}, 
   3.663478877850856*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVkGk81HkAhydCMdGxjtA6CytHog35f3OFUI5sZTM0PmyOCsWuo0SJNme1
irQpIZEjahUfhIiOKVYmCYORc37IOci2L57P8+J59ygxTzp5CdBoNIfv/O91
bHqk8Eo2arQ83NP2pYBrw8qSqmPj545i73zDZBSndYe+V+rAJyNhI+FVCciO
E7ykEfYJby2cTFmKf2La03XYu6ITktdkha7XxELM4qJTiXQX7Aov2MqGxSBi
LZfOOdKNxLLoxc7U86BXadLa7Xvg21llqjAWBZOQ/Ut1/B7IGMudEbI/h4x7
8VkqGRxwxrzcxT+dAcNF/81q2164jZCUhc3heNzmdbVqphdoIE+zn/4Bw9fF
AgOpfZCXq/qalB0CRUvv6asW/Ug7Qj9TnXwaBvoGKWUD/RBmZOs01AWhezKh
KSuGi1KL8ceDmwIxut0xZqPeACpElFZV9J3AlhGt4RWtA2hOT2gLmfFDvWpw
S0DUF1gxOTp0/jEk/dvm6aQ6COdt/ErnQ94gzjUpAvWDGFHUbQ7jeuKRi6S5
YeAQ1H0eWsS5H0XWm/O3etcP43Xqun4fcwZmG4+Er68dRlP0jsWlO4fRk1I9
vfbECMQezbHv2rtg5r3xxmjxUaTVryzgn3JEwDXlmtDKUeTsH2rI4++F9Bvl
tf2MMZjvN5ONXmkB57aCRflvY7hd2lCym2mMs7n+fBaNB0q/8pdxLWPcD906
Fy3IQ6Sud3T5vBEWNxV8HVzFQ1Jm/uKVFCPkeOcPl23g4ZuVfdjpWkPwZ/PY
dho8/O59o0VUYyfuyuaWRRzgwdfNTTZb1ACT7nf8Ox/w8NI6XMTtgDamrwsZ
HH3Ig9RUFb2Gpo05ls8St4gHj/jlMc+HWliGXiIp40G/w1IyQEQLdMW6IoFq
Hqy0vb7mVGlic0//pHorD10LtzQWDDVwyEM9NHjhe++OTR/5TRW/3og35S/x
EDChnO61SRWMd+OrI2kErwId67a1qsBr99P0OCGCJbEZnTqoIEhxb+VNCYJr
KmY7P8srI77Hb/m5CsFN4XlbaZYCqj2KYsTtCGRm99GS46TxjOVv27WP4Gjy
8+3ei1J4Qv20rtCRIOqDq9reQCkUyGdn2B8kkHs03LuHIYl0dnppPJNANydV
4JjlBgQ7XOSIhhLct+bctkoVR0C1eW5HOEEp07Ul9+4a+GuvOP7gLIH/h0NU
cgkdTHrEnM0FgndOIdJy7aJweBkocSmJQNHWNUvCTASau91MRHIIRLheEoqZ
NGwpkhVsv08gOe1/UKB0mVL+kf0yJ5/gsGVgodrWb5TMotOBPSUErOPzQRJ6
C5RwubVfTCXBSO2S/NukaUpATXibSzXBrn7WnLzhFLX0V92Mai1B0/YFZs/Q
JDV1ioqubyRIK+q7F8wcpzg6+mmCrQTPLivbvPb9QnX+PcFobSPAQnNeCbgU
e02Rahab4MnHrXJ0tT7q7YhGsVkXQVmriV2kexfV7PoleD2HoOi0X6Jedgf1
oumecW8fgXplon2fZDtVmavQGDVEUDH0UbP53DuqXOpzvOMowanzfpI+tFdU
aUy6kxIhiLccybvs+4IqnDooMzHx/fcGettJ6xrqgadkV80UQW5CBH/e5h8q
u6UlK3mWYE9j7FWDXYVUpmmyjwefoNzyXNrNoEwqo9heR3eJwOEKlz9IxVLX
FcSml5cJLv/wnhHnssPkP90JfRk=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV1Hk41dkfB3BLSXSlJsY2ttw7yVITphLeWtSUKPdaS3KvPVLKHpWtRhkS
mdINdaNJC9mzFn6WItml7Evo5qsGicrvzB/nOc/rn88553m/n6PCOcF0ERIQ
ELhF1n/7Ppex5mfjVkb57bT06Aom3j+25vTJ6kI41Mvcu4EJafH22FzZXTjl
fG/wPz8tP+sVwDBHvUnumxPE2lvXpN+StcS4cZyOD7HAT+MJi0p2yKcbTJ0i
buaXhbMZDsj8WrTSj9jCqb6IncQGI3fp1QBi/dc62VdlnbGhVCUgmHitYcq9
Kq4r1L1pFaHEKzJFU6eVPJCbUusRRjwtfTqJzvPEq+UHA6KIeyJ6/rJmeOMW
PeN9NLHTHK+yyvIkjtrVF8cSd2rbGdkn+WDuR9FUAvGzm1V6f8n6YqJ6PjKV
WLcl8An9sB9emJoOpRPfF9XWKuf6Q3uby92HxFf9rqtRSkHwtv1kXkIs8tAs
7SI7GBWJ7C1VxMGDQgrKvDNQ1v078uV/5x84/pMF4yxCZMxNeoi7olTjxt3O
IX6+4ekoMaPXc+lzy/MYD1oRP0WcvEYlzC4pDI/nat2WNjIREXY58JJsJKQe
iBboEJcruBZYF0fi/J/OxsbEc4XG06qHoxC94KtlRuw1OXOihHsBxrcfbnAn
tjzs6MZXioaS7M62O8Sxs/rpRc+i0ags6ZtDXBcvNRTJvoTPbuH+lcSGdS8c
fuFdxv8kzHlDxAw9PWtzRizUWDu4618x4fh6ZaJcbSzi98wfNCS+6TnRPOoW
B8U3u9wPEos2N2VUWF7Bjj8vlgcQhyyLUrVNiofVusDlL4mdfSnZaNlEbJuK
kI5sYkJH+GpwzslE7E7mS6QSC13Vffu2NhFzY1+Ci4lTs4K42v7XMKs88ugz
cfeEsFJbSxKCqrhn3V8zcYAto6YUcwNWRva1Hs1MKE4VR/4xdANZqPxymZh/
9siIj34yBvxDbz4mvsS9k1E9loyTT3sMZoirOzXVj5lwISZxf/RiC+mf+Xbt
/B8pKCjZ31zZSt7TMxTba5WKYDOWLp+40/MCtexRKjo7D4hJtzFRXO1i+0gr
DWW3JFd6EtsOZsoKvEtDeMxMsFw76csvetz0LXfgfX1LR2wHmZe49/bUp7v4
ku7j2viGiYUtAwu35dKRrFXiItjNxGRPoDVrZzrS6V51esStv/4jXpCYjuOS
Y4WpxCklIv5nNmcg9O5Zo8C3pK9DVftEQu9hp3/u0LYeks8mo2l50UycWiJq
SxtggtXZbt64MRNH7a/lmxHvDjl+/6xdJs7vifOLJdao4ToMZGbCfnOGwqpB
JmbtFuoyzB6gydtTRH6IiZiwolu/JTyEb0248fYRJgpfb9qzRzELd6be0zrH
SZ/G+X9o7s6CU301XXWCCVehe/tWeWdBV1/+5nFiaV1587dlWfDiSaQs/cBE
ycuwzELtbNwPFFyiz2dCfsOxJ6avsuF7ImJP3iTJd0a/4jQtB5+NdFwn/yX3
FZIxdlXJQZjRtKzJNBM5EjPPbPVyEPxiTJ1LfOnXrErDIzkolNruYDpD8rNb
W7PsUQ4GNEJ+fjzLxI1S8cab+3MRbelRGfmV5BPxrrvqch5u5EVl+i8yIdnP
0HS7nYey8mS1AeJ6A59QsULi8dDl+wVY0J9dqmwxmIfpbyd/WivIgrzHBpfe
LfnwqrFhdAix0GseTs2N5EO+xlP/oAgLznLrlmgbF+JjIx4k0Fg48eS01vXp
p+CaTi+x/IWFSYOB1nrRYkTrPWltIvaqMw9eUChGQnvdgqkiC+596rUOJsXI
zGuwMVFiwZHW70hPKkYnL9LQQIWFgx77E3M2l8C3NDpHn87CRhX6QkNwKYzp
wl1BWix8vtJRJyhYgYvX1O98N2Kh7nlNRZNBJdTOq+w968GCR9Bemh2/Ginr
btd/v87C8+WbFh8er4Xh3aAc+gsWMnjVP+ToL5C2UyrTdYkljKXL7rAeN2Be
om1OEZbQqn1XVLO+CZfOW4sHhFiizZg1eX/yNaLLaJr/VlrCS8yzpX1jC8TU
92xSFbXCyy6bMonYVhxInH8ab20F1m7bgeHhNjzqNl/akGGF39Mu26SpdeBb
mMbXfdNW6P+R0OZ+rhN2v68WWGVqjZG9TTzpqi6c07rE9U2xRvaNvqBmlW7M
HA/Q2L1gjfQ/haPVg9+ir+DMmSpbG8w4HZpwLXlH/h/p5B9PbCC+6wLzyc+9
WD270rF7jS1CJEdWDNj3oZIWLrDmtC1WlGsIdJr1Q1csLu33ZlsY+h/4XjXf
j2GRgosmW+3AvRvDW8sdwPAFqUUNrh0crHQbl5sOollI4eP+5YeQ3+6SUD47
iLjBrxrO/oewtSFbaDRpCGJrRBhDPYegbOI6k7BrGDXzbzRFDx6Gnq5efN7o
MH7jV5/hlB5G3+e/6nlRIygQYTPN1tmDr2MRJbtpFEUfn69mptqD8UFrQrB1
FFFuStnakkdQrebXcjLsPeoDB19ejDmCuLZ2J6baGCLcbzpdEnIAxXoWL1Q9
BocNAn2igQ7IsZLaudVnHNNlXL+Irw7gNUbcGlw9gTXKUjp7fY/iS639mdWV
E9B2N4jzXTiK/viKGUnvD9ilKVe/frsjZpu3yYZL8KH2fleJRJgjTiaqPgsq
5eNBQTntWK0jfm5UlRx2+IhPR31ilcTYYLU//Kbw4yPyGrRcQ/ez8fnoba93
mZOQeV5RlXSNjQrHrCiJ/RQOSP2r0NHNRnGTl2mvOYXk4fRk2js2CozWr3ps
QUHTOUjTpIeNhwrpXDMbCq7sqJi8PjaSu5JzYzgUWhtNjBKH2fA7eGFALIiC
kuAKD5tJNjSMjxguy6Cwo7+mny/IASNLTrjzHwqlLl+HGMIcqCp21WU8oLB5
xGnBcQkHMt+YlrufUBgsGHJtF+FApOgPz6hSCgmDdzZWiHMwsEH3hnArBe+V
z+OSpDh4l/LJobWdwlhffUezNAddtCw1XheFB3rSm2gyHLz6oJ69o5fCFYsQ
eqQcB6X3lGrDximUH7u6eEqJgyLpnhgLPoWRqJdjj5U5yI1KZqpQFO6NmI1O
qHCQ6STV+2yagq/Fb4pOahykt7TwrnyhEN2QYJtK5yBt+xUPx3kKJsd23HvL
4ICbbbZh43cKWoOGYjLrOPhbSXxmcZHC8Q8XwizVOfg/8IuoEg==
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV13k4lF0UAPBBIWsUGcmelEiypZojSiFiFqGyZKssUVIiUWizL8nySdnK
EpKSyFpEdkWMmXdmKISRkKzf9dc8v+eZ977nvffce86VO3eJ6MKJw+F8OHC4
tV8Tl5HOmlEK4SfPl6OCFUT4+dLqHB2vCboVZqSxT0QQ5/8aVYo/As92dlas
+d2HII9rSuYQf9DK7Rey2v7N2f/hySDMS7UeR8ZtGo1flbGBaFOn6AnkzvGq
245KdpA0P8bHRrZ0+lzu+MgRIscvt0wh63XsK47DO4Oi70LHNLLCofTc+jRX
8PgUsnUWWSCP98mMzAWYjuPJ/4s8I37l0fZMd0i++PDWAvLgncFIKyUv4E0Q
SF5GdprPrKsne4OHwYO/uEYi9KrZEM488gF8ElfqOuSa1HqtSLwvvLMfLhZA
1uy6XrL99FXwf2WqIIL8gldN9UOaH+THvegXQ467+liRLeMPutVGErLI3AVm
GXcdb4CY15307cg3mJxSspkBIG/26oIKstNJz02WSkEQEYW16SD3hclHj7rd
gpEq6nkCshLNfX0tORguvm04dhQ5ZbNciM2jENCmW/SQkO+EPLz+AB8KSYsK
yr7IH6Rc31hVhILi9PHRQOT5t/oz8qfDoC7WmB2G7DE5e+l9WjiQzvd8foxM
Pu3gNi5zH/x/N5fXIkfN6WWX19wHLel7GV+Qm2LFWKGOD2CXk0BrL/Khpma7
bZkP4Vua3czkWnxaWlbmSlGwWtMTINtEBIcO4QTJxiiI3eZ3XxU51X2s84db
NHgmfBzQQ+btbM+pJseAJKejuRVyIE+YvPWjWAi22e4eg+zsy8bfxydAAFf4
LZHPRNjHFXfjlXcCNOnVmSsic8ZpDgw0JoAVt4eXDvKTIv80Nb9E+If/nW6H
3D/GJdPT9QhKFfENxcgnHSUUZSKS4eY2S7xzMxGkpypCj7OS4ez6gPEA5PGg
s8M+eikQE5UnnID8IO1ZTsNICgQfWj76Ebmhd/fOi0fT4G5/uo9KC8o/88Nq
ZSvp0L04XcX9BX3PICuKRnkCL/l7IxWQe93D2TyFT8Dxs36hPnJFg4t1oWoG
fBO+3R+AbM3Mw+OoGbBhuHpiFjlum1Zatu4zmOddmpxvReMlGD+d+p0Fzbog
rtdBhEVdxuJTyWx4Jeyz1w55cvC6FckwG2aeDcTcRu7e8Zz/TUI2KHRpSn1B
Tn/P7RegkwNLxiNO5zpRvrLqTbhv5gJ177OXqV1ofTQIM1t582Cvh8mI/lci
kHq/mreq5wHrTpufJ7JRoOeLIJs8yF3QPZ6CrPIpzY6Rlwe1+nGlM8hzNotN
OWb5ICDDn1/wjQgRIeX/7Y0vAL20cNGdfUR426Fx7Jh0ESjKV7uTBlA+jY4f
321UBFPjR7TuIrty5pqIeBUB1+/YQ++RxTW3mg9UFQG+zYxPkUqE9y0heW/V
ikHhPS1uHnnrnoslpm3FYNNYTy6kofWd1au+IvgK6vdHHDjKRPN5h9pf//A1
vNYOcVEZI8JGTGm329PXYJ6vpOCL/Pmgz02+t6+hQoCiVIWsN7de1pL5Gp5T
5pdO/kLjX9jjQtMtA3MdntHr40Sgmd9mzw+XwRvhwBe9kygfJZXXqem/hReM
6r1Nf4hwqeSK6uOZd5AtftzKe4UI0zHfmjg4qsFWW/7w7GYSNNV+qm4/WAdi
jjhzpjoJLvgbC9qMN8BsmP6U20kS1G7QWC3wbAR/5ap4LS8S5GQ2rEhub4ZL
01I6ObEk0BevekZ6+QWumTlG7npNAtVGavmnXe0gdtRZhPWNBD36pMkXkx2g
vylgnGeZBB587l1f1buAlGH5JUGWDC19p6qEorpBfL/Q/btGZCAZWTOGhnqg
NGPBMPsiGbQzHp7KUPwGt7+x9vQ8IAO2Et9z/lYvxFZGjMblk2HYuD1TvL4P
+prOtac3kqE4me7fKdcP0XdFK8uYZPDYKdWvsaMfxCRSb0qwyKD8zlovYXc/
9Bb24gKQn/R1Lljp9IOm31dTGCJD1JaGAOqJfpDAfWA3DJPBM/H5zZ/XkFs5
zRtGyLAr1idkubUf0o9tsImbJEP2Pa77O28MgLAUr67TPzKIDt0LUrs1AK6S
6yqKkINByHdf6ABcrLJfXkS2nZOwPxQ1ALaqZY3xC6iuOKtpWT4bgP0zlm41
i2TwBxvG9eYBCBTgfSO4QgazuZf7mySpIGvwuvAaJwUqLDX3tMpQ4clos1Ql
snLhO8UuRSo031czxnFRgNO5QZiqRgXjOOvvd5Hfdn4fZhtQwetIcnf8OgrI
Fa6L2+JOhShCregTbgrMOtmOub6nwvo39Z0hfBTw27S4qa+GClMmH4vrkOfq
Ug8Zf6JCoov3QS5+ZLnBGJVOKrQwxWzuIM/T7XWmflAhNIz27JYABRZOu4T6
iw6CouVR4nkhCuDI3tIRFwaB4bQ4Pi9CgWAukePLXoOwYZ+zwB5RCnCUlvh4
+Q5CP8dclzMyp+ifBotbg5BizyC3I3N1XHUXSxyEtykTShmbKMB9IqA8vWYQ
Nra5UNXFKMB/JJxYsoUGSY2XzAUlKHCw+pLIJyka7E0/v1ML2UvPpqNfjgaf
whdKziB3qe82X7ebBvG6xJY85JRtXcan9GlAv5gvaYhH8/l32+Hl8zTI8ivl
c5akgO1lHpyoFw2IbRcLw5EjJqY+KF2hwdFR68XnyGxW/UGLmzSQNYfH48hv
Oi7oZsbSoPrxYuelrRQ4kle2x7iCBkKBBgquUmh+tz+ZPFtNA09hcLuD/Dzj
XuHlBhrkVq0jZyDzJ51WSWujQZ2z+Y7vyF13OHawmTQw3hxZbLSNAutWx4a5
Rmigwhum7YisfaMnS2KCBkWdfM4ByMneufIGf2mw5Yxc2Utkh7Nm0on8dLje
J6ciIk2BuD7twRcb6WBnoz6qjNxAkk37IEYHwdNRZvrIO0z+4Edk6OD5+TGv
F/KkdrLYAU06UH7dMfyIHLhxWIBxhg7aGl4vzslQYFf/K32qIx0m1ArsfZG/
Zwb79rrSoY1iUhWGrK0jRW31poOQgaBXLvLUWVJ+RSgdlj9dffoDOX2HHL3s
Ph3OpN2MmkU2+z0pWhJFB9e0Yrl1shTIC31wI/cxHZJKlvbLIjvl1xonFNBh
R+iYKhlZ9Gr0zegSOhBtNxx3QK4hnC158IYO1ENbeTyQpbrmJUJq6OCtGnDl
NnJz6qcTgR/pkJt8QzYS2d8lIfhaM5qf7nafJORv83tGPHvoEMAcxOUjh9Yt
b73wnQ4RxccIr5H3RbScdKbRgXnogkwVcoyM21vbETpkzmt+aUUmjGr+okzQ
wf9NdNJX5IlXnDKW03TYR+biHkQ2MUoPP7ZEB+XqxJYx5CUe7bNPcRjwlTrL
/0buGZf6K82FwZaegq1/kfM7uWLT1mNA2mz0dgn59puxXZK8GNha885yyFHA
JrWzIYkPgxPXWnq4kdWDy+3EBDHo13Oz4kfmcXkyHyeMgaJ9qb8wMs04PG6j
KAYNcXcJm5DL1Dx3R23G4L3f+yxx5IhN5E/8WzBwTFcqwCM7z+s53Mdj4Byd
QZZCPjAot8AthaG6gUuXRhat400Ilcag9In0PVnksRy2KqccBs/COkXlkWsf
fmu8pYCBUt3UIQXkx95VjsvbMeB4RNqgiHyJkrV4QxkDTs1O3zUb6T1MnN+F
XKsfvGZpmct7/FQxGCP5q6x5lsvm8589GETNWvqtjfdlBJx8NFA8GU8d1t6X
1aq0PKmJgbYBjK3FE/BKMMlDBwPvco5NMsjEpBn1sf0YfOyu7l/7np2BA81u
BzGwsbI4LImMc6xzHiZgIDBz32gLct/RFyvnDmNwgWg4tjZfRbtiHmOGGOTy
knZvRA4XvqZhZ4RB4pNoAQFku5mzXwaOY5AV2/6AB1nggwqu1wwDgnKpw/Ja
PpyQff3AAr3vRKTu2vq2DWw+TyBhED96Im0KOfrfcnu2NQaL7BxuJrL3vek7
NqfR+FbfBPqRLbb81BG0w2DdXrH0zrX81+p44uuEwR/bMYdq5D/1DSRlVww+
c4nFla3lE/EdD/U8BrNd18zW8jnR+9klQy8MJl8JnktElijwBVF/DJhREUtO
yP/0Lvz5GIDB3Y0P/a2Q+z+fzfUPQu/TEr51HDn1p5Ew4w7Kh/hWeRVkaQU8
vSgKA1EN+cYxtH9XSwTjnWIxUPlldvs7MqbPeWxLAgbDl481NCI/tfv1MigZ
gx/nPw08Q1ZMqQoyy0LxBmNEEvL6na80OHIxWOl1IxCQf7zN+fH6BQZby1df
KiPnfo02lyrCwLMlWHoJnUe7RM5J/3qHwbLDU/X/kPkzrLrSKzGoqgonhCKP
q5mGE6sx2N7yrv0icuEJzcl3DWh/ULcHaCOr3+P+cK8dgyn8ALsRnZciWxZ9
DnZhMN/3RyQfeTqbvX2qB4Pp97Flkcil9X2Rp/oxCJz0C7ZcO39X884qDWOw
42eSdDc6rw/5nVyuX8CA7eJp/AGd/3MXRwKMlzEw9fRipSIX24cstK1ikMGn
IOCPLG9c+vf7OgakHP/Jq4HMK7Vlmi3EAKl7yXnpqJ701NJ+bFVgwPlNFOdz
qD5Fvbnm8nQ7AyRPTHXpIh/L3zikpMyAnCSdViHkigQDxl5VBtSOrnd+h+pb
hlvOwDEdBmxvPiS2AdlD0KvjiikD+lIrbePEKaDEyXPynxkD7tePejgi0+ee
tAZZMMBa9jmPOjIR62y+T2HACV7hby2o3uqWan18Yo/+v2G1Y3kzqkc2y+9a
rjDAzXNK1BTV57SsiEyFNAbY/Ie3vy9MAXvDfQfp6QzofKlQbogsz/zek/KU
AWwNk5vLqD94LrODWzSXAVwZNJNLyK9Tas/jXjFA4UPlL1NBtL9j5lQHGxlQ
9i6HdxT1I8uBDuWP/jCg8G5kS/F6dN5v5bEkzjGg66SkgjVyaEXhqOA/Btyw
k6CtoH6Hb35BMmyFAdmBJjdNkMWvJN68soEJ9cUvrftR/6R2odnAQoYJBueO
H6GuksGOotm6wZQJeE6TSVfUrzlsNcsoN2OCImNEcWmeDI4MlytuFkwwfPf5
fQyys2cS/iOFCXYBGhvK/5LhQtiCS7ADEyJ/10iuzpLBt6xmZe4qEwZV3b57
TZPhgZiZ+lAGExz1LtZ1jZEhYsCFKz6TCWnJrVdIyJFPg74dzmGCiKJeYPco
GWJUiwOf5DNhr9lKTCfqPxOPbvps+4YJbcO9tR9/kCHj6nfHzhYmdPMGLUei
frfsq0v8hzkmBHMfq0j9jp7nUNgL/5gw9b6sbiPyRVWsrXqRCd+vZ+8J6yOD
dJgtXy2OhfKNQ9ujlwzhmidD6vlYwNt9bULjKxms4nUvNUmzYF/wqdZnHWT4
a8Fv2mXEgv5A6xt8qN/uCmwaIRqzoNI7INb9ExkKnoeFd5uy4PfB4nVfPqL5
w+HqeixYECe3f+VBAxmaimZ0e21Z4G24XZujjgyPhWhKVC8WnI1mBbRVkmH/
l2LOH49Y0Lo47z5WQgapZwEVacksGGr5d3gHMu660WVSGguMfLNOOBWj8RSo
jJqnLNDNCFrpe4niDeCpTS1gQSZz8nMFuh9c3mV3y7KOBTM6DgWnslF89/iX
KidYMMGns/AniQyyR11n448MwbVO8aGMG2SgBn+9JnVsCO6mKfqV+6P4Ko8s
ZBkPQUauwuH262QQ0VRYLTMfggOFScELfmTgVMB4+6yHwFm4KvXYFXQfwdlK
SXkOgbdH0ux7dzLkVZoZZiUOwYYFoXq+M2TQ0tSKff1jCOBBxt3demRQTxI3
Vx8dgmg9rx1i+9H9YuEvX8GvIZAfif29pIPiq6kIzZwagvRHzlzNWmTgO6F/
PW5hCPINJkVt96L7kJOpvbfQMFxSL4iyVEb5Fe+oult7GPD4h6dSxchAn478
nBk2DO9dQ4JCJ0gwtBqYQbk3DA4vPDZLjJNgRMDjGs/DYcgYOhWbN0aCKSWT
7e4xw/DCVJDw5ScJcKe5QzRShyGSZ4nEySSBfH2Qbm3xMNhr7fyni+53rvGX
cmkDw8DTc574pYoE4/ssw/AaP0DN1fOW+30SKP1SHePo/gFh31eV1SVJ0KB4
tcs75CfIdJTc++8hEaJ7vjoRFUfgbZqwkxzbEtikmljOhhGQXv8rf/SgJbyi
iBnu9xmFTzXkeckzFpDZeuc/pugY3GMY6QZ0msPfxjMBonVjUOSzufur1wnA
YqtnN3r9glaGt5xsuTHMdR7A3xYaB+5jjQVanUbgnSBf4185DphYMtP/gCFs
aZXfOGQ3AX3hldaRkwQgfS1YklqZgLvno3s0+7Vh2v6pBzVvEhoHd69Y26vA
bNJ6LcfCSbA4tDpH3qoC8+0XloeLJmHXXafn9r27YBU0otivJ+HwlENh5sld
ICBbX8RZPQk0o6jFv/o7YTs2NK3cPQnnDfyIrjt2gLWDsv/VxUl4gG8s8eVV
gNOPIw4vLE+CeOXNuWeN8mDXMbXhFo4NP8twy3/D5cFF/13KvfVs2MUXsITn
lofLsiaVqcJsuN4WuNOaWw4iMPfVWgU2pORbh2nJSEO1Q1GY0Ak2HJTcrFOZ
LA4V7R6mNHM24ERu6LtJiMMbwi6Rl5ZswHspeLcmiUGBVHaa2Sk2/JHXEhl4
vBlS+lJKI86xIffI+nHPLFG4ahHO4PNnw+lbAvnRzYLgXW2Y2x/Ahgm/Dekn
WQLgocbhmRfEhpptvuPiK/xwTiBw3jiUDd6X9n74sZ8PLJp8hO9Hs6G6/Wx1
Yws3qOifPcSTw4aY2etbrjvhQKlIkqv3ORvsoxdmyo6sEuSl+5py8tmwIn/t
7Z6mZYLEEpFsVMKGxqS4V03YAoG7/Lh7WCUbMmgdCtlnZgmcO7j3UqrZUCpR
pighMENYTqyfU6xjw+9EzrrAumnCzBXC7YZGNrRHG4gzj0wRGHs0k7m62aBy
eqQl+sRPAjX9t133Vzbc/K3H1aI0TOgTLFLM7GND7/KoVocoi9D2a2exAY0N
4v1NL/iNaIRm259XRRlskJUR8k6N7Sd8/Jx1gMliA3Vqk4EaTy+hMlemMWSU
DY+5pGuO+ncQysUHIyzH2TBVnrzFZq6ZUBqWQpRjs2HHRjlJHeePhJczpyR+
/2aD+aTE+sYjNYQ8JzFazQwbgneWNR8wekvI7urKjPnLRv1z1lah/S8JGYdj
LjgsoOcNmvMKfDIIacVme9SX2aCRpfLSh3CXkCTDP7u6yoayzFa7exTtQ/8D
r07Xsw==
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{0, 1}, {0., 0.016901394315977702`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*FractionBox[\\(EM\\), \\(Centrifugal\\)]\\)\"", 
       "\"\\!\\(\\*FractionBox[\\(EM\\), \\(Casimir\\)]\\)\"", 
       "\"\\!\\(\\*FractionBox[\\(EM\\), \\(T\\)]\\)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, 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]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.663224987952898*^9, 3.663225199380535*^9, 
  3.663227468297838*^9, 3.663478887577559*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"neutron", ",", "proton", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.662892183638926*^9, 3.662892193963152*^9}, {
  3.663163088805228*^9, 3.663163089269561*^9}, {3.663478893763652*^9, 
  3.663478893854226*^9}}],

Cell[BoxData["0.8516260785952454`"], "Output",
 CellChangeTimes->{3.662892215338866*^9, 3.663143226465056*^9, 
  3.6631486156960897`*^9, 3.663162607398425*^9, 3.663162668281734*^9, 
  3.663162805928109*^9, 3.663163011332659*^9, 3.6631630959292583`*^9, 
  3.663478897303917*^9, 3.663499004920166*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"neutron", ",", "proton", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.6634797367115793`*^9, 3.663479736908231*^9}}],

Cell[BoxData["0.7693774021486206`"], "Output",
 CellChangeTimes->{3.663479740346654*^9, 3.663499007779304*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6634790582957487`*^9, 3.663479065600124*^9}}],

Cell[BoxData["0.3726032656695679`"], "Output",
 CellChangeTimes->{3.663479067175228*^9, 3.6634796292273006`*^9, 
  3.6634796640511417`*^9, 3.6634989929935923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"\[CapitalSigma]n", ",", "\[CapitalSigma]p", ",", "3"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.663479749165265*^9, 3.6634797631944723`*^9}}],

Cell[BoxData["0.5081850501892404`"], "Output",
 CellChangeTimes->{{3.663479752571826*^9, 3.663479766768692*^9}, 
   3.6634989959410677`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{"(", 
   RowBox[{
    RowBox[{"GetStringLength", "[", 
     RowBox[{"neutron", ",", "1"}], "]"}], "-", 
    RowBox[{"GetStringLength", "[", 
     RowBox[{"proton", ",", "1"}], "]"}]}], ")"}], 
  RowBox[{"GetStringLength", "[", 
   RowBox[{"neutron", ",", "1"}], "]"}]]], "Input",
 CellChangeTimes->{{3.663499459809999*^9, 3.663499534869306*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.0018020354648782488`"}]], "Output",
 CellChangeTimes->{{3.663499512364746*^9, 3.663499539583845*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Decay Rates", "Title",
 CellChangeTimes->{{3.646561250785887*^9, 3.6465612549931793`*^9}, {
  3.655962511694084*^9, 3.65596251516504*^9}}],

Cell[TextData[{
 "Decay rates are calculated as ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalGamma]", "=", 
    SuperscriptBox["Le", 
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["m", "q"]}], "/", "T"}]]}], TraditionalForm]]],
 ". ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["m", "q"], TraditionalForm]]],
 " is the mass of each of the quarks created in the decay. T is the tension."
}], "Text",
 CellChangeTimes->{{3.6559628211024046`*^9, 3.6559629169997272`*^9}, {
  3.656586438120192*^9, 3.6565864381202602`*^9}}],

Cell[CellGroupData[{

Cell["Data", "Section",
 CellChangeTimes->{{3.646561298894452*^9, 3.646561299425159*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "mass", " ", "of", " ", "the", " ", "Ksp", " ", "is", " ", 
    "the", " ", "hadroproduced", " ", "one"}], "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "=", 
     RowBox[{"<|", " ", 
      RowBox[{
       RowBox[{"proton", " ", "\[Rule]", " ", "938.27204"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "939.56537"}], ",", 
       RowBox[{"Ksp", "\[Rule]", "889.11"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "  ", "895.81"}], ",", " ", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "2470.88"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "2467.8"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "2286.46"}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1864.84"}], " ", ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1896.61"}], "  ", ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "139.57"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", "134.97"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "2452.9"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "2453.74"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "1189.3"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "1192.6"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "775.26"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "775.96"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "5279.61"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "5279.29"}], " ", ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "1314.86"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "1321.71"}], ",", 
       RowBox[{"Kn", "\[Rule]", "497.614"}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", "493.677"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m1", "=", 
     RowBox[{"<|", " ", 
      RowBox[{
       RowBox[{"proton", " ", "\[Rule]", "mu"}], " ", ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", " ", 
       RowBox[{"Ksp", "\[Rule]", " ", "ms"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mc"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dp", "\[Rule]", "md"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "ms"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "mb"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mb"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", " ", "ms"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}], ",", 
       RowBox[{"Kn", "\[Rule]", "ms"}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", "ms"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m2", "=", 
     RowBox[{"<|", " ", 
      RowBox[{
       RowBox[{"proton", " ", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Ksp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"Ksn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", "mu"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dp", "\[Rule]", "mc"}], ",", 
       RowBox[{"Dn", "\[Rule]", "mc"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", " ", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "md"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "mu"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "md"}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        FractionBox[
         RowBox[{"mu", "+", "md"}], "2"]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "md"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "md"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "mu"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", "ms"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", "ms"}], ",", 
       RowBox[{"Kn", "\[Rule]", "md"}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", "mu"}]}], " ", "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Spin", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"neutron", " ", "\[Rule]", 
        FractionBox["1", "2"]}], " ", ",", 
       RowBox[{"\[CapitalXi]cn", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]cp", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", "1"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "1"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "1"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["1", "2"]}], ",", 
       RowBox[{"Kn", "\[Rule]", "0"}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", "0"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Q", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Ksn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], " ", ",", " ", 
       RowBox[{"proton", " ", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Dn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["4", "9"]}]}], ",", 
       RowBox[{"Dp", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"\[Rho]n", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["5", "18"]}]}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Bp", "\[Rule]", 
        FractionBox["2", "9"]}], " ", ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", 
        FractionBox[
         RowBox[{"-", "1"}], "9"]}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", 
        FractionBox["2", "9"]}], ",", 
       RowBox[{"Kn", "\[Rule]", 
        RowBox[{"-", 
         FractionBox["1", "9"]}]}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", 
        FractionBox["2", "9"]}]}], "|>"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"Ksp", "\[Rule]", "0.96"}], ",", 
       RowBox[{"Ksn", "\[Rule]", "0.96"}], ",", " ", 
       RowBox[{"proton", "\[Rule]", "0.94"}], ",", 
       RowBox[{"neutron", "\[Rule]", " ", "0.94"}], ",", 
       RowBox[{"\[CapitalLambda]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"Dp", "\[Rule]", "0.86"}], ",", 
       RowBox[{"Dn", "\[Rule]", "0.86"}], ",", 
       RowBox[{"\[Pi]p", "\[Rule]", "0.86"}], ",", 
       RowBox[{"\[Pi]n", "\[Rule]", "0.86"}], " ", ",", 
       RowBox[{"\[CapitalSigma]cn", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]cp", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]n", "\[Rule]", "0.95"}], ",", 
       RowBox[{"\[CapitalSigma]p", "\[Rule]", "0.95"}], " ", ",", 
       RowBox[{"\[Rho]n", "\[Rule]", "0.86"}], ",", 
       RowBox[{"\[Rho]p", "\[Rule]", "0.86"}], ",", 
       RowBox[{"Bn", "\[Rule]", " ", "0.86"}], ",", 
       RowBox[{"Bp", "\[Rule]", " ", "0.86"}], ",", " ", 
       RowBox[{"\[CapitalXi]n", "\[Rule]", ".94"}], ",", 
       RowBox[{"\[CapitalXi]m", "\[Rule]", " ", ".94"}], ",", 
       RowBox[{"Kn", "\[Rule]", "0.86"}], ",", 
       RowBox[{"Kp", "\[Rule]", " ", "0.86"}]}], "|>"}]}], ";"}]}]}]], "Input",\

 CellChangeTimes->{
  3.64656130474231*^9, {3.6465614105063972`*^9, 3.646561439949768*^9}, {
   3.646561544436187*^9, 3.646561791373547*^9}, {3.646562387195386*^9, 
   3.6465624495405893`*^9}, {3.646563308008388*^9, 3.646563339034477*^9}, {
   3.6465643883307123`*^9, 3.646564438362891*^9}, {3.646564523427993*^9, 
   3.646564531659615*^9}, {3.646565172008829*^9, 3.646565189774485*^9}, {
   3.6465652571408453`*^9, 3.646565297619082*^9}, {3.646565440618848*^9, 
   3.646565442966382*^9}, {3.6465655187825413`*^9, 3.6465655519625673`*^9}, {
   3.646569683610385*^9, 3.646569711476338*^9}, {3.646569745333887*^9, 
   3.646569804948608*^9}, {3.646570097779459*^9, 3.6465701286397123`*^9}, {
   3.6465702931487207`*^9, 3.6465703629585447`*^9}, {3.646571208169497*^9, 
   3.646571261288542*^9}, {3.6465713172032633`*^9, 3.646571424041997*^9}, {
   3.6465717759841833`*^9, 3.64657187309759*^9}, {3.646572097390493*^9, 
   3.6465721005828133`*^9}, {3.646572248070601*^9, 3.646572248524246*^9}, {
   3.646572352976904*^9, 3.646572359677041*^9}, {3.646572599107952*^9, 
   3.6465726030186872`*^9}, {3.6465727574935493`*^9, 3.6465728247439413`*^9}, 
   3.6465742725476*^9, {3.646574303753839*^9, 3.646574320639776*^9}, {
   3.6465743719085617`*^9, 3.6465743921554613`*^9}, {3.64657443953568*^9, 
   3.646574444989789*^9}, {3.646574909851776*^9, 3.646574960422141*^9}, {
   3.6465750675075073`*^9, 3.6465750776922607`*^9}, {3.646596301211706*^9, 
   3.646596329396631*^9}, {3.6465964185065317`*^9, 3.646596419697671*^9}, {
   3.6466262244328966`*^9, 3.6466262380398865`*^9}, 3.6466262787186966`*^9, {
   3.6466320148564043`*^9, 3.646632016049439*^9}, {3.6466370380403643`*^9, 
   3.6466370405270357`*^9}, {3.646640569518292*^9, 3.646640569573326*^9}, 
   3.646640633204032*^9, {3.646640695962365*^9, 3.646640698908504*^9}, {
   3.646640829559003*^9, 3.646640831139105*^9}, {3.646640873315838*^9, 
   3.646640875809078*^9}, {3.646641026758923*^9, 3.646641049376308*^9}, 
   3.6466411683998623`*^9, {3.646642294395362*^9, 3.646642356749967*^9}, 
   3.646642424406683*^9, {3.646642540934888*^9, 3.646642545424306*^9}, {
   3.646642589490847*^9, 3.646642619490926*^9}, {3.646642651140843*^9, 
   3.6466427739061117`*^9}, {3.646642859263681*^9, 3.6466429041879663`*^9}, {
   3.646643005242474*^9, 3.646643024559958*^9}, 3.646643096431348*^9, {
   3.646644092682734*^9, 3.646644172926103*^9}, {3.6466442179638023`*^9, 
   3.646644361387556*^9}, {3.646644400687332*^9, 3.646644401744419*^9}, {
   3.646644446371828*^9, 3.646644454049632*^9}, {3.646646108902524*^9, 
   3.6466461663527393`*^9}, {3.646646205771489*^9, 3.64664621499597*^9}, {
   3.64664657330294*^9, 3.6466466122009907`*^9}, {3.646646644377685*^9, 
   3.64664684061484*^9}, {3.646647934787189*^9, 3.646647946055029*^9}, {
   3.646652709733062*^9, 3.64665274744636*^9}, {3.6466528299607153`*^9, 
   3.6466528336676683`*^9}, {3.6466528742022943`*^9, 3.646652874560278*^9}, {
   3.646653165466844*^9, 3.646653169187812*^9}, {3.6466532050094957`*^9, 
   3.646653250066142*^9}, {3.6466532914081087`*^9, 3.646653297093574*^9}, {
   3.646653386784083*^9, 3.646653430996752*^9}, {3.646653487751977*^9, 
   3.646653556168942*^9}, {3.646653600047748*^9, 3.646653840237653*^9}, {
   3.646741136982576*^9, 3.646741138329921*^9}, {3.646775334973299*^9, 
   3.646775339369445*^9}, {3.646779096569219*^9, 3.646779096704954*^9}, 
   3.646779473801125*^9, {3.6467797268673277`*^9, 3.646779728858059*^9}, {
   3.6468012478165693`*^9, 3.646801274169689*^9}, {3.646801335280879*^9, 
   3.646801404173868*^9}, {3.646804495470277*^9, 3.6468045252756147`*^9}, {
   3.646804563366613*^9, 3.6468045728687983`*^9}, {3.646804715722632*^9, 
   3.646804796969486*^9}, {3.646804885326367*^9, 3.646804914113141*^9}, 
   3.646804981824039*^9, {3.646805078078404*^9, 3.64680521191813*^9}, {
   3.646805701362163*^9, 3.646805712658497*^9}, {3.646805786275255*^9, 
   3.646805847710248*^9}, {3.6468059110449333`*^9, 3.646805922583736*^9}, {
   3.646805964520049*^9, 3.64680596842838*^9}, {3.646806089359232*^9, 
   3.646806135665594*^9}, {3.6468064603258266`*^9, 3.64680646293678*^9}, {
   3.6468065059478903`*^9, 3.646806538288015*^9}, {3.646903134322679*^9, 
   3.646903164258093*^9}, {3.646903203334247*^9, 3.646903230399871*^9}, {
   3.646903600319491*^9, 3.646903643923533*^9}, {3.646903674934023*^9, 
   3.646903678733776*^9}, {3.6469038048955097`*^9, 3.6469038493760557`*^9}, {
   3.646903977130188*^9, 3.646903982711542*^9}, {3.646904259130526*^9, 
   3.646904262586117*^9}, {3.6469043196114597`*^9, 3.646904321988662*^9}, {
   3.6469074021984253`*^9, 3.646907404193143*^9}, 3.646907438474573*^9, {
   3.646908836255478*^9, 3.6469088714814873`*^9}, {3.646909007094862*^9, 
   3.646909053846573*^9}, {3.64690916699686*^9, 3.646909186251157*^9}, {
   3.646909964554543*^9, 3.646909972108692*^9}, {3.6469100552157173`*^9, 
   3.646910078811028*^9}, {3.646911983028267*^9, 3.646912028951136*^9}, {
   3.646912133722845*^9, 3.646912138949234*^9}, {3.6469122952134333`*^9, 
   3.6469122984842377`*^9}, {3.6469123320258904`*^9, 
   3.6469124276032763`*^9}, {3.646912478823106*^9, 3.646912493173712*^9}, {
   3.646912685755431*^9, 3.646912691238227*^9}, {3.6469149798031054`*^9, 
   3.646915028400242*^9}, {3.646915156872099*^9, 3.646915291282494*^9}, {
   3.646915324883978*^9, 3.6469154021045637`*^9}, {3.6469313946451397`*^9, 
   3.64693141091966*^9}, {3.646932216861123*^9, 3.6469323500312586`*^9}, {
   3.646971917472435*^9, 3.646971947226973*^9}, {3.6469719979595757`*^9, 
   3.646972006051154*^9}, {3.646972084233942*^9, 3.6469720895874023`*^9}, {
   3.6469721837442417`*^9, 3.6469721853537703`*^9}, {3.646972215880698*^9, 
   3.646972244659067*^9}, {3.646972535631114*^9, 3.64697256153014*^9}, {
   3.6469728610252247`*^9, 3.646972924738388*^9}, {3.6469730289600363`*^9, 
   3.646973036107087*^9}, 3.64697349432156*^9, {3.646974364443879*^9, 
   3.646974367970318*^9}, {3.64718323066405*^9, 3.647183314054035*^9}, {
   3.647248155835827*^9, 3.647248197979225*^9}, {3.6475044888152475`*^9, 
   3.647504500984384*^9}, {3.6475046059067135`*^9, 3.647504608359341*^9}, {
   3.647504873117288*^9, 3.6475049220851345`*^9}, {3.64750496201606*^9, 
   3.647504969317958*^9}, {3.647509615050374*^9, 3.647509772670514*^9}, {
   3.6475098612159696`*^9, 3.647509945910093*^9}, {3.647590452254952*^9, 
   3.6475904881379905`*^9}, {3.6475910864880853`*^9, 
   3.6475911227592463`*^9}, {3.647598908911371*^9, 3.647598935143151*^9}, {
   3.6475989773112135`*^9, 3.6475990089529257`*^9}, {3.6475991756951237`*^9, 
   3.647599198269082*^9}, {3.6475992807035465`*^9, 3.6475993060886145`*^9}, {
   3.647671408744645*^9, 3.647671409834181*^9}, {3.647673172068865*^9, 
   3.647673187951953*^9}, {3.647685404879972*^9, 3.647685502717764*^9}, {
   3.647687071984888*^9, 3.647687101643024*^9}, {3.647687214976473*^9, 
   3.647687222861485*^9}, {3.6480448544523544`*^9, 3.648044876969721*^9}, {
   3.6480449086785345`*^9, 3.648044929811305*^9}, {3.648106425808877*^9, 
   3.648106660777998*^9}, {3.648109786813809*^9, 3.648109801033676*^9}, 
   3.6494387533827496`*^9, {3.649439189660613*^9, 3.6494391952469764`*^9}, {
   3.649445590465287*^9, 3.6494456104289427`*^9}, {3.650537541408896*^9, 
   3.650537546958292*^9}, {3.650537602402877*^9, 3.6505376039479723`*^9}, {
   3.650538012073498*^9, 3.6505380152358103`*^9}, {3.650832921307974*^9, 
   3.6508329390944777`*^9}, 3.6508331315401287`*^9, {3.6513904661840396`*^9, 
   3.6513904959974785`*^9}, {3.651390847418784*^9, 3.651390849664742*^9}, {
   3.651392617824711*^9, 3.651392619505311*^9}, {3.6515211236703215`*^9, 
   3.651521127076396*^9}, {3.651644007743041*^9, 3.6516440376300855`*^9}, {
   3.6516442356118913`*^9, 3.6516442373293743`*^9}, {3.651760688061421*^9, 
   3.651760768383651*^9}, {3.6517617778035526`*^9, 3.65176183105686*^9}, 
   3.651765219367569*^9, {3.65176536040514*^9, 3.6517653616966834`*^9}, {
   3.6547032760443354`*^9, 3.654703280034713*^9}, {3.6556207659844832`*^9, 
   3.655620766113802*^9}, 3.655621140341138*^9, {3.655621325526847*^9, 
   3.6556213255926504`*^9}, {3.6556213793786125`*^9, 
   3.6556213794148855`*^9}, {3.655622188054433*^9, 3.6556221906339965`*^9}, {
   3.6556223422355766`*^9, 3.6556223460356255`*^9}, {3.655922990477105*^9, 
   3.655922997222724*^9}, {3.655923108502385*^9, 3.655923129845542*^9}, {
   3.6559250364762225`*^9, 3.6559250401002398`*^9}, {3.655926603803669*^9, 
   3.655926610130257*^9}, 3.657469405780224*^9}]
}, Closed]]
}, Closed]]
},
WindowSize->{670, 716},
WindowMargins->{{130, Automatic}, {Automatic, -10}},
FrontEndVersion->"10.0 for Linux x86 (64-bit) (June 27, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 101, 1, 96, "Title"],
Cell[684, 25, 326, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[1035, 35, 119, 1, 69, "Chapter"],
Cell[CellGroupData[{
Cell[1179, 40, 89, 1, 67, "Section"],
Cell[1271, 43, 19353, 373, 1087, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20661, 421, 147, 2, 67, "Section"],
Cell[20811, 425, 274, 6, 49, "Text"],
Cell[21088, 433, 2280, 71, 253, "Input"],
Cell[23371, 506, 508, 8, 82, "Text"],
Cell[CellGroupData[{
Cell[23904, 518, 6303, 163, 657, "Input"],
Cell[30210, 683, 14441, 257, 619, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44688, 945, 907, 23, 124, "Input"],
Cell[45598, 970, 2720, 55, 478, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48355, 1030, 450, 11, 91, "Input"],
Cell[48808, 1043, 158, 2, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49003, 1050, 142, 3, 91, "Input"],
Cell[49148, 1055, 91, 1, 48, "Output"]
}, Open  ]],
Cell[49254, 1059, 1467, 36, 313, "Text"],
Cell[CellGroupData[{
Cell[50746, 1099, 1936, 52, 204, "Input"],
Cell[52685, 1153, 297, 6, 48, "Output"],
Cell[52985, 1161, 242, 4, 48, "Output"]
}, Open  ]],
Cell[53242, 1168, 116, 1, 49, "Text"],
Cell[CellGroupData[{
Cell[53383, 1173, 293, 5, 91, "Input"],
Cell[53679, 1180, 193, 3, 48, "Output"]
}, Open  ]],
Cell[53887, 1186, 238, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[54150, 1194, 1537, 42, 175, "Input"],
Cell[55690, 1238, 313, 8, 48, "Output"]
}, Open  ]],
Cell[56018, 1249, 224, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[56267, 1257, 269, 5, 82, "Input"],
Cell[56539, 1264, 217, 4, 48, "Output"],
Cell[56759, 1270, 148, 2, 48, "Output"]
}, Open  ]],
Cell[56922, 1275, 893, 17, 115, "Text"],
Cell[CellGroupData[{
Cell[57840, 1296, 720, 19, 82, "Input"],
Cell[58563, 1317, 286, 7, 48, "Output"],
Cell[58852, 1326, 285, 7, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59174, 1338, 671, 19, 82, "Input"],
Cell[59848, 1359, 265, 7, 48, "Output"],
Cell[60116, 1368, 262, 7, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60415, 1380, 780, 20, 82, "Input"],
Cell[61198, 1402, 192, 6, 48, "Output"],
Cell[61393, 1410, 191, 6, 48, "Output"]
}, Open  ]],
Cell[61599, 1419, 271, 6, 49, "Text"],
Cell[CellGroupData[{
Cell[61895, 1429, 823, 20, 82, "Input"],
Cell[62721, 1451, 192, 6, 48, "Output"],
Cell[62916, 1459, 191, 6, 48, "Output"]
}, Open  ]],
Cell[63122, 1468, 677, 14, 81, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[63848, 1488, 163, 2, 58, "Chapter"],
Cell[CellGroupData[{
Cell[64036, 1494, 89, 1, 94, "Section"],
Cell[64128, 1497, 18505, 360, 690, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[82670, 1862, 147, 2, 73, "Section"],
Cell[82820, 1866, 274, 6, 45, "Text"],
Cell[83097, 1874, 2304, 71, 201, "Input"],
Cell[85404, 1947, 508, 8, 73, "Text"],
Cell[CellGroupData[{
Cell[85937, 1959, 6871, 180, 517, "Input"],
Cell[92811, 2141, 15594, 277, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108442, 2423, 1367, 39, 148, "Input"],
Cell[109812, 2464, 4359, 83, 373, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114208, 2552, 1480, 41, 135, "Input"],
Cell[115691, 2595, 2728, 55, 343, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118456, 2655, 428, 11, 69, "Input"],
Cell[118887, 2668, 111, 1, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119035, 2674, 423, 11, 69, "Input"],
Cell[119461, 2687, 163, 2, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119661, 2694, 501, 12, 69, "Input"],
Cell[120165, 2708, 249, 4, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120451, 2717, 363, 10, 84, "Input"],
Cell[120817, 2729, 87, 1, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120941, 2735, 142, 3, 84, "Input"],
Cell[121086, 2740, 91, 1, 48, "Output"]
}, Open  ]],
Cell[121192, 2744, 1467, 36, 313, "Text"],
Cell[CellGroupData[{
Cell[122684, 2784, 1936, 52, 189, "Input"],
Cell[124623, 2838, 297, 6, 48, "Output"],
Cell[124923, 2846, 242, 4, 48, "Output"]
}, Open  ]],
Cell[125180, 2853, 116, 1, 49, "Text"],
Cell[CellGroupData[{
Cell[125321, 2858, 293, 5, 84, "Input"],
Cell[125617, 2865, 193, 3, 48, "Output"]
}, Open  ]],
Cell[125825, 2871, 238, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[126088, 2879, 1537, 42, 168, "Input"],
Cell[127628, 2923, 313, 8, 48, "Output"]
}, Open  ]],
Cell[127956, 2934, 224, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[128205, 2942, 269, 5, 82, "Input"],
Cell[128477, 2949, 217, 4, 48, "Output"],
Cell[128697, 2955, 148, 2, 48, "Output"]
}, Open  ]],
Cell[128860, 2960, 893, 17, 115, "Text"],
Cell[CellGroupData[{
Cell[129778, 2981, 720, 19, 82, "Input"],
Cell[130501, 3002, 286, 7, 48, "Output"],
Cell[130790, 3011, 285, 7, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131112, 3023, 671, 19, 82, "Input"],
Cell[131786, 3044, 265, 7, 48, "Output"],
Cell[132054, 3053, 262, 7, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132353, 3065, 780, 20, 82, "Input"],
Cell[133136, 3087, 192, 6, 48, "Output"],
Cell[133331, 3095, 191, 6, 48, "Output"]
}, Open  ]],
Cell[133537, 3104, 271, 6, 49, "Text"],
Cell[CellGroupData[{
Cell[133833, 3114, 823, 20, 82, "Input"],
Cell[134659, 3136, 192, 6, 48, "Output"],
Cell[134854, 3144, 191, 6, 48, "Output"]
}, Open  ]],
Cell[135060, 3153, 677, 14, 81, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[135786, 3173, 218, 3, 58, "Chapter"],
Cell[136007, 3178, 242, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[136274, 3186, 89, 1, 100, "Section"],
Cell[136366, 3189, 15127, 302, 396, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[151530, 3496, 147, 2, 79, "Section"],
Cell[151680, 3500, 274, 6, 49, "Text"],
Cell[151957, 3508, 3262, 92, 286, "Input"],
Cell[155222, 3602, 508, 8, 82, "Text"],
Cell[CellGroupData[{
Cell[155755, 3614, 8166, 210, 816, "Input"],
Cell[163924, 3826, 21603, 352, 388, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185564, 4183, 199, 3, 46, "Input"],
Cell[185766, 4188, 167, 3, 46, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[185994, 4198, 101, 1, 58, "Chapter"],
Cell[186098, 4201, 160, 3, 33, "Text"],
Cell[186261, 4206, 15626, 278, 506, "Output"],
Cell[201890, 4486, 164, 3, 33, "Text"],
Cell[202057, 4491, 16097, 285, 249, "Output"],
Cell[218157, 4778, 127, 2, 33, "Text"],
Cell[218287, 4782, 21603, 352, 260, "Output"],
Cell[239893, 5136, 300, 11, 187, "Text"],
Cell[240196, 5149, 677, 14, 54, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[240910, 5168, 223, 3, 58, "Chapter"],
Cell[CellGroupData[{
Cell[241158, 5175, 89, 1, 94, "Section"],
Cell[241250, 5178, 17368, 340, 690, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[258655, 5523, 147, 2, 73, "Section"],
Cell[258805, 5527, 274, 6, 45, "Text"],
Cell[259082, 5535, 2232, 66, 193, "Input"],
Cell[261317, 5603, 508, 8, 73, "Text"],
Cell[CellGroupData[{
Cell[261850, 5615, 6868, 179, 559, "Input"],
Cell[268721, 5796, 15594, 277, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284352, 6078, 1367, 39, 148, "Input"],
Cell[285722, 6119, 4359, 83, 373, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290118, 6207, 407, 10, 69, "Input"],
Cell[290528, 6219, 112, 1, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290677, 6225, 142, 3, 69, "Input"],
Cell[290822, 6230, 91, 1, 46, "Output"]
}, Open  ]],
Cell[290928, 6234, 1467, 36, 244, "Text"],
Cell[CellGroupData[{
Cell[292420, 6274, 1936, 52, 153, "Input"],
Cell[294359, 6328, 297, 6, 48, "Output"],
Cell[294659, 6336, 242, 4, 48, "Output"]
}, Open  ]],
Cell[294916, 6343, 116, 1, 49, "Text"],
Cell[CellGroupData[{
Cell[295057, 6348, 293, 5, 91, "Input"],
Cell[295353, 6355, 193, 3, 48, "Output"]
}, Open  ]],
Cell[295561, 6361, 238, 4, 49, "Text"],
Cell[CellGroupData[{
Cell[295824, 6369, 1537, 42, 102, "Input"],
Cell[297364, 6413, 313, 8, 46, "Output"]
}, Open  ]],
Cell[297692, 6424, 224, 4, 45, "Text"],
Cell[CellGroupData[{
Cell[297941, 6432, 269, 5, 78, "Input"],
Cell[298213, 6439, 217, 4, 46, "Output"],
Cell[298433, 6445, 148, 2, 46, "Output"]
}, Open  ]],
Cell[298596, 6450, 893, 17, 102, "Text"],
Cell[CellGroupData[{
Cell[299514, 6471, 720, 19, 78, "Input"],
Cell[300237, 6492, 286, 7, 46, "Output"],
Cell[300526, 6501, 285, 7, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300848, 6513, 671, 19, 78, "Input"],
Cell[301522, 6534, 265, 7, 46, "Output"],
Cell[301790, 6543, 262, 7, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302089, 6555, 780, 20, 78, "Input"],
Cell[302872, 6577, 192, 6, 46, "Output"],
Cell[303067, 6585, 191, 6, 46, "Output"]
}, Open  ]],
Cell[303273, 6594, 271, 6, 45, "Text"],
Cell[CellGroupData[{
Cell[303569, 6604, 823, 20, 78, "Input"],
Cell[304395, 6626, 192, 6, 46, "Output"],
Cell[304590, 6634, 191, 6, 46, "Output"]
}, Open  ]],
Cell[304796, 6643, 677, 14, 81, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[305522, 6663, 277, 3, 106, "Chapter"],
Cell[305802, 6668, 823, 20, 132, "Text"],
Cell[CellGroupData[{
Cell[306650, 6692, 89, 1, 67, "Section"],
Cell[306742, 6695, 20180, 390, 567, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[326959, 7090, 147, 2, 53, "Section"],
Cell[CellGroupData[{
Cell[327131, 7096, 216, 3, 47, "Subsection"],
Cell[327350, 7101, 5509, 190, 446, "Text"],
Cell[332862, 7293, 4698, 128, 332, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[337597, 7426, 218, 3, 39, "Subsection"],
Cell[337818, 7431, 4741, 157, 477, "Text"],
Cell[342562, 7590, 1472, 47, 113, "Input"],
Cell[344037, 7639, 2736, 68, 150, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[346810, 7712, 160, 2, 39, "Subsection"],
Cell[CellGroupData[{
Cell[346995, 7718, 13129, 291, 960, "Input"],
Cell[360127, 8011, 2799, 66, 250, "Output"],
Cell[362929, 8079, 3271, 96, 387, "Output"],
Cell[366203, 8177, 19405, 373, 281, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[385645, 8555, 154, 2, 37, "Subsubsection"],
Cell[CellGroupData[{
Cell[385824, 8561, 3683, 68, 125, "Input"],
Cell[389510, 8631, 1289, 33, 260, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[390848, 8670, 208, 3, 31, "Subsubsection"],
Cell[CellGroupData[{
Cell[391081, 8677, 3764, 70, 103, "Input"],
Cell[394848, 8749, 1333, 33, 257, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[396230, 8788, 204, 3, 37, "Subsubsection"],
Cell[CellGroupData[{
Cell[396459, 8795, 3644, 68, 213, "Input"],
Cell[400106, 8865, 1315, 32, 257, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[401470, 8903, 146, 2, 37, "Subsubsection"],
Cell[CellGroupData[{
Cell[401641, 8909, 2490, 63, 124, "Input"],
Cell[404134, 8974, 88550, 1665, 371, "Output"]
}, Open  ]],
Cell[492699, 10642, 551, 16, 35, "Text"],
Cell[CellGroupData[{
Cell[493275, 10662, 186, 4, 32, "Input"],
Cell[493464, 10668, 114, 1, 32, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[493639, 10676, 148, 2, 47, "Subsection"],
Cell[493790, 10680, 373, 10, 33, "Text"],
Cell[CellGroupData[{
Cell[494188, 10694, 1657, 36, 55, "Input"],
Cell[495848, 10732, 2786, 55, 244, "Output"],
Cell[498637, 10789, 2771, 55, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[501445, 10849, 3782, 89, 147, "Input"],
Cell[505230, 10940, 850, 24, 242, "Output"]
}, Open  ]],
Cell[506095, 10967, 508, 8, 55, "Text"],
Cell[CellGroupData[{
Cell[506628, 10979, 6871, 180, 456, "Input"],
Cell[513502, 11161, 10315, 187, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[523854, 11353, 1367, 39, 125, "Input"],
Cell[525224, 11394, 4136, 79, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[529397, 11478, 1480, 41, 112, "Input"],
Cell[530880, 11521, 2659, 53, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[533576, 11579, 428, 11, 56, "Input"],
Cell[534007, 11592, 137, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[534181, 11599, 423, 11, 56, "Input"],
Cell[534607, 11612, 185, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[534829, 11619, 501, 12, 56, "Input"],
Cell[535333, 11633, 253, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[535623, 11641, 363, 10, 56, "Input"],
Cell[535989, 11653, 110, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[536136, 11659, 142, 3, 56, "Input"],
Cell[536281, 11664, 113, 1, 32, "Output"]
}, Open  ]],
Cell[536409, 11668, 1467, 36, 209, "Text"],
Cell[CellGroupData[{
Cell[537901, 11708, 1936, 52, 126, "Input"],
Cell[539840, 11762, 337, 7, 32, "Output"],
Cell[540180, 11771, 1678, 49, 101, "Output"]
}, Open  ]],
Cell[541873, 11823, 116, 1, 33, "Text"],
Cell[CellGroupData[{
Cell[542014, 11828, 293, 5, 56, "Input"],
Cell[542310, 11835, 217, 3, 32, "Output"]
}, Open  ]],
Cell[542542, 11841, 238, 4, 33, "Text"],
Cell[CellGroupData[{
Cell[542805, 11849, 1537, 42, 112, "Input"],
Cell[544345, 11893, 335, 8, 32, "Output"]
}, Open  ]],
Cell[544695, 11904, 224, 4, 33, "Text"],
Cell[CellGroupData[{
Cell[544944, 11912, 269, 5, 55, "Input"],
Cell[545216, 11919, 240, 4, 32, "Output"],
Cell[545459, 11925, 172, 2, 32, "Output"]
}, Open  ]],
Cell[545646, 11930, 893, 17, 77, "Text"],
Cell[CellGroupData[{
Cell[546564, 11951, 720, 19, 55, "Input"],
Cell[547287, 11972, 1962, 48, 70, "Output"],
Cell[549252, 12022, 1724, 42, 103, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[551013, 12069, 671, 19, 55, "Input"],
Cell[551687, 12090, 288, 7, 32, "Output"],
Cell[551978, 12099, 286, 7, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[552301, 12111, 780, 20, 55, "Input"],
Cell[553084, 12133, 216, 6, 32, "Output"],
Cell[553303, 12141, 213, 6, 32, "Output"]
}, Open  ]],
Cell[553531, 12150, 271, 6, 33, "Text"],
Cell[CellGroupData[{
Cell[553827, 12160, 823, 20, 55, "Input"],
Cell[554653, 12182, 213, 6, 32, "Output"],
Cell[554869, 12190, 214, 6, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[555120, 12201, 1999, 39, 62, "Input"],
Cell[557122, 12242, 396, 7, 32, "Output"],
Cell[557521, 12251, 419, 7, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[557977, 12263, 316, 8, 37, "Input"],
Cell[558296, 12273, 141, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[558474, 12280, 334, 8, 32, "Input"],
Cell[558811, 12290, 235, 4, 32, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[559131, 12303, 170, 2, 156, "Title"],
Cell[CellGroupData[{
Cell[559326, 12309, 285, 4, 69, "Chapter"],
Cell[559614, 12315, 17768, 331, 849, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[577419, 12651, 197, 3, 58, "Chapter"],
Cell[577619, 12656, 58051, 1133, 3569, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[635707, 13794, 243, 3, 58, "Chapter"],
Cell[CellGroupData[{
Cell[635975, 13801, 1020, 28, 138, "Input"],
Cell[636998, 13831, 4168, 78, 241, "Output"],
Cell[641169, 13911, 7930, 140, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[649136, 14056, 1588, 42, 236, "Input"],
Cell[650727, 14100, 26672, 506, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[677436, 14611, 276, 5, 32, "Input"],
Cell[677715, 14618, 299, 4, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[678051, 14627, 180, 3, 32, "Input"],
Cell[678234, 14632, 110, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[678381, 14638, 202, 4, 32, "Input"],
Cell[678586, 14644, 163, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[678786, 14651, 202, 4, 32, "Input"],
Cell[678991, 14657, 140, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[679168, 14664, 383, 10, 59, "Input"],
Cell[679554, 14676, 132, 2, 32, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[679747, 14685, 144, 2, 96, "Title"],
Cell[679894, 14689, 531, 16, 38, "Text"],
Cell[CellGroupData[{
Cell[680450, 14709, 89, 1, 67, "Section"],
Cell[680542, 14712, 18224, 335, 479, "Input"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)