MassDifferences.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[    580270,      12661]
NotebookOptionsPosition[    570583,      12340]
NotebookOutlinePosition[    571122,      12359]
CellTagsIndexPosition[    571079,      12356]
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["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", ",", 
     "\[CapitalSigma]m", ",", "\[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[{"\[CapitalSigma]m", "\[Rule]", "1197.449"}], "  ", ",", 
     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[{"\[CapitalSigma]m", "\[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[{"\[CapitalSigma]m", "\[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[{"\[CapitalSigma]m", "\[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[{"\[CapitalSigma]m", "\[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"]}], ",", 
     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.86"}], ",", 
      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[{"\[CapitalSigma]m", "\[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.77", ",", "0.9"}], "}"}]}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.9", ",", "0.94"}], "}"}]}], ",", " ", 
     RowBox[{"proton", " ", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.657"}], ",", "0.2"}], "}"}]}], ",", 
     RowBox[{"neutron", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.657"}], ",", "0.2"}], "}"}]}], ",", 
     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[{"\[CapitalSigma]m", "\[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}, {3.6635033597544813`*^9, 
   3.663503399122521*^9}, {3.6635034612337933`*^9, 3.663503595429904*^9}, {
   3.663503676371716*^9, 3.663503692759062*^9}, {3.668929939957568*^9, 
   3.66892994760765*^9}, 3.6689300042182503`*^9, {3.6758605966067753`*^9, 
   3.6758606299413624`*^9}}]
}, Open  ]],

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]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}}]
}, Open  ]],

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[{"-", "1.157"}]}], "]"}], "+", "0.000021"}]}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{"neutron", ",", "proton", ",", 
            RowBox[{"-", "0.3"}]}], "]"}], "-", "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"}]}], "}"}], ",", "\[IndentingNewLine]", 
       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"}]}], "}"}], ",", "\[IndentingNewLine]", 
       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"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"9", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{
           "\[CapitalSigma]m", ",", "\[CapitalSigma]p", ",", "0.306487"}], 
           "]"}], "-", "0.035"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9", ",", 
         RowBox[{
          RowBox[{"Implicit\[CapitalDelta]m", "[", 
           RowBox[{
           "\[CapitalSigma]m", ",", "\[CapitalSigma]p", ",", "0.371938"}], 
           "]"}], "+", "0.035"}]}], "}"}], ",", "\[IndentingNewLine]", 
       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]\), \(0, +\)]\)\>\""}],
            "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "7", ",", 
            "\"\<\!\(\*SuperscriptBox[\(K\), \(\[PlusMinus]\)]\)\>\""}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "9", ",", 
            "\"\<\!\(\*SuperscriptBox[\(\[CapitalSigma]\), \
\(\[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}, {3.663503735876649*^9, 
   3.663503736062497*^9}, 3.6635037695268784`*^9, 3.663503802477373*^9, {
   3.663504026730144*^9, 3.663504062612018*^9}, {3.663504137060885*^9, 
   3.6635041578699713`*^9}, {3.668929847494882*^9, 3.668929858660305*^9}, {
   3.668930148276396*^9, 3.668930156771541*^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.071011350211218}}, {{1., 
      2.4123587804601283`}}, {{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}}, {{9., 8.114000000000114}}, {{9., 
      8.184000000000115}}}]}, {}}, {}},
  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, 9.}, {-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]\\), \\(0, +\\)]\\)\"", 
       TraditionalForm]}, {7, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(K\\), \\(\[PlusMinus]\\)]\\)\"", 
       TraditionalForm]}, {9, 
      FormBox[
      "\"\\!\\(\\*SuperscriptBox[\\(\[CapitalSigma]\\), \
\\(\[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, 3.66350411334021*^9, 
   3.663504159991151*^9, 3.6689298605838747`*^9, 3.668929894440607*^9, {
   3.6689299555678787`*^9, 3.6689299622115173`*^9}, {3.668930157993019*^9, 
   3.6689301641000853`*^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.157`"}], ",", 
       RowBox[{"-", "0.3`"}]}], "}"}], 
     FractionBox["1", "2"]},
    {"neutron", "0.94`", "939.56537`", 
     RowBox[{"-", 
      FractionBox["1", "9"]}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.157`"}], ",", 
       RowBox[{"-", "0.3`"}]}], "}"}], 
     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"]},
    {"\[CapitalSigma]m", "0.95`", "1197.449`", 
     FractionBox["2", "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.65972529678913*^9, 3.66350411334021*^9, 
   3.663504159991151*^9, 3.6689298605838747`*^9, 3.668929894440607*^9, {
   3.6689299555678787`*^9, 3.6689299622115173`*^9}, {3.668930157993019*^9, 
   3.6689301641085453`*^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.65972529678913*^9, 3.66350411334021*^9, 
   3.663504159991151*^9, 3.6689298605838747`*^9, 3.668929894440607*^9, {
   3.6689299555678787`*^9, 3.6689299622115173`*^9}, {3.668930157993019*^9, 
   3.668930164189563*^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, {
   3.668929955851581*^9, 3.668929962510269*^9}, 3.668930164423045*^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, {3.66892995588326*^9, 
   3.668929962541232*^9}, 3.6689301644508467`*^9}]
}, Open  ]]
}, Closed]],

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., -0.9412961934751592}}}]}, {}}, {}},
  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.9412961934751592, 4.494584243856765}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.6559260872580347`*^9, 3.6559261015147166`*^9}, 
   3.656223430205843*^9, 3.6574608302502193`*^9, 3.657461105688714*^9, {
   3.6689299559165373`*^9, 3.6689299625718393`*^9}, 3.668930164481472*^9}]
}, Open  ]]
}, Closed]],

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:eJx1fQc81t37P6WiRKKlYWU1RbTUhYqKJApJGlakjJRUKiNlJBFRFFJpqSSy
+thE9t7bvW9Kyva/fzznPt94/Z/X9/W9n7ezz+da5zrnuh6xM7a65jM4ODgk
53Bw/N/v5D+9RE3C+QbW/6Bx4pfGxqjcf/X+gNX729nlCH+dqNbNxg8nf9m4
ZbIfNg6e+C1nY9R//GQ/7P4RRv0jjPpHGPWPMOof4ccTOJONJ8f7mIqw92Q5
TC2vnZwHuxxhv8n+2dhtAseBesD//QsFKib+XsjGqP7UctQ+bmLcajZG+27z
f/+fwGD3P3W+qL/CifopMDr+f/+QIHaiXi7cn6hHhajJ9gSqj9aH8J6J3zoQ
/79qAXQQnfitZLdHGJWj+U6tP3U/EL4wuQ5iZGJ+LXBgclw2lppo38nGkzTZ
ysao/eR4nez2CKP2CKP2CCdPzpeNOyb3n43R/iCMxkP7g8ZDGI2HMBoPYTQe
wmi8qd8L7e/AxDpL2Hh4AteAxkR9BjhM/D2K/X0RRvXR90bliN6m9o/GR/XR
90H0iOqj74f6Q+UII/pD9dF6pvaP8CR9NMKDifpMWDGBs/+jZyobW0/sOwVU
Jtp9Z5dP/r2J3X5yffXs/UH7NTk/zD+oHNVH9DpZXsHu32qi/6ppGPWH+kft
Eb9MHR/tJypH7RF/oP4RPU2Vt4jekTxEGMk/hJH8m8ovSJ4iepsqrxF9o/4R
Rv0jjPqfyl9T5S0qR/IWYSRvp/LbVPk6lf9QOaKnqfrgX/nVy8Zo/gij+SOM
5oswmi/CaL4Ix03yF4HoHc13Kv0jjPhrqn5A9IL49dwEXXXBy4npJPxXTmbT
O6J/RH9T9QOiH4QRfSH6RvoC8dtU/YHG751oR/zXP4mN0Xxok/vPXj/6Pgij
csT/aL8QRvs1tRztL+I/NH+0XlQfYcRfaL0Io/Kp/Iz2C/Ebm38n/v6WQOtD
80H1Eb0h3DTx20Gg/fo2Kc/YGLWfup+T/NYN5RO/AQT6Xqgc4b0T6yhjY/T9
0fwsJvotYuPJ9db91z+djSfbI3mE9oPKxqg++v5ofzknvg+ZQHJVc6J+GzG5
v21gO7ku9vpQed3kvoDDZDs25pror5SN0X5NLUf9IfqZyg9o/9D4iN7Q90AY
9YcwGg9h1B/iJ7T/CKNytP9ov1E5+j4Io/Kp+grRF/p+CKP2CKP2/+qDWvb3
q55YXw0bT/JzM0ySEZPdP+JXND6iDyRvptIX+t5ofMR/SF6h9gij9aL+ET8g
fY76/9fewPbD1P1C46NyNN6/9jbez6n2BKqP8FT7YKq9gcoRZvP7BK6HsYn5
MmBSbzZA/US/GKPyyf1rYuPJ+Wf9Nx6NjRG/oe+HytF4qH/Erwij8qnff3L+
mD4QRuWIn5HdMLW/f+UjtueRfkDjTdYvZ88XyQuEJ+tXs9eHMJoPwmg+qD0q
R/bQv/IJyys0PzRftD5Eb6g96g/ZN0ieIHsCYWSfIHmCMJIHSL9PlefI/kDy
BNkbqH9UH+Gp9gAqR/oRYUSvU/XBVPqfKu/R+hE/Iv5A+F/7toL9fdH4U/Un
2j+kP9H3Qvs91X5A9ITsB0T/k/NqgYnuzvew9SniN7Q+hFE52175T19O1b+o
/iT/VbDn+69+x/rsX/lY/f/Rf3R2+3/1ZdW0+mj9aD5ovki/IX2IMLKnkT5C
9PJve+xvQPSC9meq/Eb4X3sS248Io/Mo4nuE0XzQeQJhRP8Io/Mowqg9mi9q
jzDiN4RRe4QdJtfLlr9InyKcMvn92fJ4cn0F/60X23+oHOkHtP//njexvJkq
n6bax//KXyyv0L4hekbyEtnHSP4jjNYz9ftMtSfQehFG39t8ol4Om36RvkL8
iewf1B7xC8K5k+Oz+UN3kn5gKr9NtadR/4if0PgII35A+F99UD2NvxA/IXmB
MGqP9hvhqfY3KkcYfY/EiXGYbP4KnJz3NPsTYa1J/cHGqD2S/5KT82JjVI7k
MeoflSP7F2FUjuqj8VE54neEkT2M6qP5oXKZyfWyMSpH9dH8EL2g+SOM5oMw
mi/CaHy2P+g/+TS1HNEDGh+Vo/khjMpRfaQPEUb8jvgf0SPiD8TvCKNyJO9R
e0S/yP5A9Inao/rovIIw4kc033/9R91T/Fm4/F9/axZb/iD+RBiVT9IxZYq9
TWPLL0TPfyfq5bExKkfr+Vc/U9nrRfIN2XeIH5G98689hc97qP5Uf9JU/kb9
I3pC/IL8J1P5B53/EEb+JERvqD7yryCM+AFh5G9BGPlbEEb6BGE0P8QPaH4I
I//OVH5G9hqaH6qP5ocwmg/CiD8QRvObWo76R/yBypG/CGEkrxG9/Xue7J7i
TyCx1zP1PIv4C80XYcS/iH7R/FA5mj/CaL4Io/kijOxdhJF9MrUcjYf0C5pv
3CT/Ev+uB/nvyFPOw5j/kf2L+BvhrRPjJP2HyWw8uX9kNn8hfkT8hTCy3xBG
9t1U+wDxw7/3N6Qp/phuMJlon/ZfexIbo/moTvw9gz1fpL9Re+6J/Uhn7w/S
3wijcrRfqBzhf+8fyGz6QvuJ2k+Vn0g+IPyvvYP187/2FpYfqD2iH8Sf1RP9
vSTQehFG+4HoGckpxL+IX1H5VP5E5YjeEUb0jDCiX4RR/2g/UH8Io/4QRv0h
jPqben5D3wd9X/T9/z3vY/2M7Gckf6aeBxBG+4kwao/oBbVn29P/8TfCqD3C
iH8m59M1BVNAaKJ+PJte0fkB0QvSp4j//r2fI7H9HZNsy2TTP/r+iB+RvkH0
i8ZfMLmfU+jjYyoaH+kvdL5E9hXSP2j/EEb8hb4/0o//nk9rp92PIX2N5A/i
f4SRvHsyUe8JW36g/fzXv17OLkcYtUfzRPuF9u/f+6lmmCRDJnye+G2GfRP1
ev6TXxX/+eOxPfDv/Wrtf+cVOpuf0LiIXpC+RutD9IHkCfq+yycU6JP/2pOm
nF+wvELrR98PYWT//+uPx/ffiL7R/JBc+Nc/hewdBpvf0HxQe3ROQ+Vo/l4G
Mxy4efB9GeL/Mjv/Nw82N7L5P27+Yf7mhc2wwrlD7qxZPpv/kL67KfJW2Tih
nb2+yKAzK7bepIH6vKJnWcM0YgbfB93ww/XgWbD4JufxDqJ7QQSz7jgVPmqd
zTsh30T0nrMzN/Whglf+Q795DyuIlk6NE7vzqdAX+PvMvaAsYkaD2qswYRq8
FlU97ZdXBaR4SiZtHQP6l3uHbiC/hV+FakXUFV3g3iy5l5Y+/T1Agu3beX8f
kKB/rRSfKzTByCLBO+nPmGx6i7M6+MpJkMk+zzokLT3ISKbDqrtnv4fwNbDp
pzZS+cK8n/g+BX2PwNyguz9iWefb1eZJXR9rp91XPnhrpCjyBN/fLxaPooZ9
pYHZXX2OGZ6txNYe3fHhvmboWmTYt8+ohWia/IVHNz+3HOSqJejcNkJ2D1uB
L/pVudCJGKLk6cWW/uIOOFildfrJy2R48neo8VtJF7wfEx9/4skkbn/xr9f9
TYGzlXnhMcJUwmzyF0J4AnWG4ruIr7qSl3ZrUOFy25nVtO54cGJ+fG+bQQPf
c1HHxBfkQCj3noOXReiw0f+4j8rWfHBVcbAV2kGHK6Y33ndylYLZkoqi6vt0
KFcJWWryswQMj319E+FHB7pQRnuQfjP06+hf9/dhguBnnxm6XTnTzhPq4ePC
NoPd0D/vOKErXsy2b9Su1w/xVNdDwhWO5k8zmHD1xqMX7gaN8PhvJHe/KgP0
utPD15s1wkDVp6Pyp5iwy33NLUeeFli8LvfyZ/0euKBl3pei1AI38mTS+FV6
QORAkHF4J5YfN3vcZfLSpssPxROxlz5RmdCl9FJkRlINgC73K/oYFUYzD60q
Wdw47b47q9vt3DtJfL5otnjP37CMBjOUT5+5Tsf308j/E3pdwbLhdANbf5o0
3kmXk24F6QZlW+v0Rra8Qf5Q5UURVmoz2+Hz6sxwiSvegOxnpK/lBPNN7vJR
2fxas/N3ZsN2Kls/VTvFS4Sk0EF93em/F4RLp/kzG+Tz1+zXo0HBuYN7l6yt
gm2BNNe0EQrbX3FhdG7mnwgqDM2w3/TNuIYtv7cprJPlP1DH9ueg/YgLKqnd
1cmAnNMJpSdnN027L30ooKR35QQDUmPT07ouYH8n4gf3PRvfBOl1Qfb9eTrF
+V/Z96mr7o7e3bM+g0gqEa77JkUDWGdZIJZdDsNakel5Jdj/GGUS01m4kQo/
H4paHH9XBe5ferTKZfH9ZrHrHCkDbQbIRVPlmRXmxNXIiO/e7tgfulL6WUfX
GgbQG/w739c8Z99fIvtc0HVc1cwW32f2zavVdKihgfuzefGKnmngFlKwjzbY
BRXJBukudulQp6ggPmt9N/CnO3PHGZXA3/ttLnqyZFCwXHj8jkg9vDV58qRY
iMU/wYP7VBVIxDyeN+MnVjaChXRfYVBsFrH7xefWW1HtkORaaPFgVTrcEzn4
8vgADZT0HxEVHwjIpf5yGuqnwZ+GAKk2uWzQaLg5fmwpHb40r1WsMCsA4QrO
HQt06FBZvzzJat0PEE+XOh92hg6t86tj7Yub4FqlZnBUCRM+CZpfnefB4geV
iJDUD0ywqjyRoeWRBamqi98+9+0Gx7C522o8v4PmZsdnkkdJMLzWROJJfR5o
rBwR2LacBBt+ta//a1wGS5x/Bl+LJcPlLNWr55eUgdfHmb4NIfj+qyM+WpOi
QoagDOdeeY4ytv8ByYPXV4dOP9pAZ58nNpT+OvTSvBuKU//S83Qy2PbVso5T
PLPJLHpLVpPVms0E82uUGZsiG+CAms8Ny41MOCPr8fKRSRPYbtY5PNrOgL9j
/Aa211ug8ztPfUZsD2RSx3My3Vog/k5gjvrbHlD3/V0hKFcH55q1Y4Q/MeCE
r4n0L9UGONkcemNtDB02exImfj9roVU5onTrHRpolEfwvrxcDXsdLCzvXqOC
TvL3UL15NIJIkzTsjamHLnPxmLC1FCKC32Fl1MkGkNY5Z7qgppQw3F5/Vdi/
DbbXy1bUkX8QycuNKo9T29j0FDrri9zj+i42/25ut/BzHsT756zlfVH3/v/c
x48l/rnaht+HufEPcF7jYsDPT5T1Us74fn9XbcCAPqUFhJZ1ihuW9UDwH1f7
Xhb+Euqy4XlJD5hvPGfGexO9A+sBSpyH/k1PjHMERCKc12J+RfcVtT46bSrm
GCupiu8Xd+2BUrpkXV/QJ6L50P5sHQMaZD1cc9EwsxIu2dRGevMy4G1JnceJ
9w2EGW/CkQqRVhZ/ZebmeOdCH9EW96gHv7/b5eWz3pWHDvXlVpdCB9Kn+evL
B9YVtz2vY/vPG89U7lH/2MouD+e7eulhPX5fNndYcOe+Ufy+LG1oxqCWFJXt
P6kK33OszIDK7o9/l+rQziAqWx7TiebfuztZ8jZMjC+gpgKuko0rGa7YP/yh
QXnpuePY3rg4K63tnBG+T9xHen3SRJwJvja3hDiqKsBmy5N3jF46VHd4ti7c
UwlRLauknUbpEOCyYUNnL5MY/lSw5eahOhBT354cmsYk7Nos1LafqgM5055z
rbMaiCpZYgtNoRV2e6Qd/qTYQ8zks/zbyqTAnDHhPaLXqMRyTadWmSUseW3j
WUX62kXkBDqvWcrS96LXYr6/ONBGmM0vWrjVlgqNxTkStsOtxBjpVaKGAxWE
M8zMzUvriD87rET5nlHhRQavw0HLWqKDt2o09xUVDA88c00ULyOSvi/Vu1VP
hcL8HbOe2RQRJvJDpSMM/J6xvIcu2ptFgWONGz34rCrZ5yXkzyiSdjs7N7Yb
duz8rr6jjk44yy20k59BhfK9vxf/PEQnlMXeevyYTYUHBpt2iiwnE+M/lhyd
tYEKg21vrXu6ScSd2f0jgnJUiOU8+17mZgdxyna3WbAR9vcQLXo/X5iz7G3V
kDhruWZCvyZpM/029u+IHJX3P8P6vgHZdsdELlcRe858fcefgv07Z4Y6Hjwu
Y+mTorqVWz58J8JSuemLx7B/JyZu0X2SKA26JJzVbgxUQtG+NyP9FApcl/ky
V/BaORzyZ/I+mUcBQUpkdd4wnRAr3/3+/l98nr/qreFn4lEPTe7B32qqKgm6
o/hIwYw2UHk+UBdiU0noETUSyQJt7PloF5RZk4+3wfuAZw/WMyrY/gR0frlm
8SmE/LsWzs9NSdV36mH7D1D5HK1PXXFkCttecaXJCLS6MODF5j1d+ZdqoM/J
rfq9FQNaOhRnq5rUgElRWe+wOT7/bYmXFD5W2wnVgt+Stbe+gaUhy/J2CHSx
9fvRBzo12y2YsHXHdWr4yiZ449itlxXEhLWk1pyoeXXQOmvRO9M3rPPplq0Z
L/VrIY4Qnn/Xh8Hmx5cZRjTXpU3Q6Oqh4mXYTfj7Lc+/ebERiGAl7hHNLmKu
bkLUirZGEOd6HZdh3UH0X1q/4ufHJujf1734tEMHsT0x54/n+yY2PwefAKMg
6RYo0o0fenC3jbhgXF1af6OZbf8sdrgu99ypA16U8D+rnkMQmRcH2x2G2mH5
+tnBOR+TiGc56XFLlTrgqI5c5+xRN6LjDifPUfVOWHN1Pa31Hj4vRzzz0l0b
YAVXVdJn72fpB7RfKc6Hhy3Dafg8m7/rKTWbCS9XyigRF5shdZHi3z38PbDh
+rzZpj+a4YrFbv6+dib4a6y1Myc3se1TdN79XWk9T38Q26t9TZR6/y09EPnl
aZ9IOD7/RkrPj1zK18LG6DxLLjP+5preAh5mV/prFjyFvUvnxR7J7YRQV/0k
91n4/Si6r1NcVP/GSoMJslcTfE7MqYenchw/v9UwgLd6t2lbLn7vgfwJ4hru
P4e30sDVfHvq8VWfiVS/jX/4Wfbl+gPSjaGzkgkViseOzyr4vcWI+5UyvbMM
4FHny6kVoRD6q1Qrdps1gHvY69GbLwuIgZW19fpL2qHp4TWFeqcfcPXuiKxT
GgmUW2aS9jU2QUxUVNV5JSYcPSr/5EJxA3DvVrNS+s06n1Wc4FKNqweXn3do
ySfooN37+tQ9Fr19+LZ0rZ0aDf6ueWlO86qD5wqEvV4RjX1e7fhmN7rUrBME
asPLbJ7bwr636YkvHDpB6oJZ70BjI1Dyi+64P2CA04lTomJG8aD1u68hxbGL
fb4WCLeVq1pez/a3XLEXfbzhOL7vXsATduTy3f/xJwstXL04A/uHoVdqQ/pc
Gox+Ds0Kq/oAsiouka5JNFhtI5Z1hOMl6O241iz7msaWH26w4oBLI37f7959
uUN7FPsD9S2qK2RMsf+vVM2Ja1M0fq+a+szxquAt7O+7dHumVWMu9vcly2c4
rxvG71EjgnRXXz+D/X1q0QWKJZ34/ce9i4o1O+2w/2/nlw16c9Xx/e4wY2nT
nJf4/r3aYjXneBkNjlwPF/5c206U/vjNE5zUBktt9sy3mk8nrnzlup2yoxu2
S63muSlKIuS/BJgZB3eDu/X6e1n8TUR74PAJy7ndUDOsJJThVU4IuXVeEknp
Bq/Ax6+O+ecQAwJ37CN4uuGY7YmMM9ZexErVszrzuWnQcfrJ2gaVDNignuka
vZYGGQ7t8UG7y+HXiWSbHmsa5MtmH1knHwt6H6Wv+38jwyqJK8PdivFwMW5s
eLCbDO/MnQTvLo+FaypKRmM+FADrBFp4zw84Z77w9tJsMqwuFzfY/qwAHDS3
WG8yxPZA2pwRY0XF/3kPfpFP62M0vk93Tf96oF8a4wTrhuBjofh+/bHF3UgS
y55F+GJE8LpZBAM6C3QPWmrj+3XuxHTltpzp8Q0r9nI+X5CO7auU7b8vPbCh
gNuxQKXlzrnwWPa4fNJpKvCpSfoxbuXBq9Dldz1Y9sCR7Jurdht/IXS+hTtt
yCSDmYLvz/uLPxKrfvN+gWYytC7le6MX8oUoklu57oofjn8gfH8ZmSuwzpPD
Wc/NMj3Z/swCmQtHQ6zroMXl/Cp1Wzr4zmFa8l2pg9yZfxXmpNLh7+MLnjOs
KyF62KhN4wQVSOvWax0yq4RZKSe3al2jQ8bW48duv6kE3bL1c9d60mGOusYS
T5EqiC3Y8vaNJh2UXGe5vVCuhCXva/uF0/D9+2HVUe3Rp3Tg6UgTswrG9+9b
JFpo3d6V0+7X3+63y1Sxxf4a50j+tSf1MW4qrbVVLMPv+VU5ouLnaVFBmTO2
aKyKQfyQ/HtSgmXf8nP9eGFYRCGy7F8Z58a0wsELdxztUxkEZ+OZtS2POqHe
om3f+E0KEbfy0OoERifcPhd841BYF5El5VegdrcDQo4tL+xL7yAeTv7C6eBG
FVudLuLE5C84nRm8l3uilXjfHRLstrkT2lQLXqxwbCEWWDs5GWh1gq1e8lwD
1xpiNMW1eGdXJxiF/VUMbSsiskt67un0d4DUFkudLvp3QuF1aYaQfCfEqw9b
6NiWEIvfX7rzIaAL+hvU4pLzEgjeWw/Iy8W7QEzDkuFzjUkESjl+bztJBtv2
KqF6TgahEbq719+WDK6zZ5d9qGEQx9IuvrPYSwGP6hdxjp8pBK/285YPQWRY
u0R1f28UmZCe/IXmr4tPPLehEPWTv8AXLyv7vLWTMJG+t2drNRlahPP9PbU6
iXFToy8lLHrz5aK4a9l3EO8OXosJmkkGU86Wu2LcXYT7Afv31o9Z9n3Aq5A9
A62EOIfLx4PrWOWbc+bLHm4mLq2bUyp1kAzVbTMXr3zXSgg7ypz8UEqBlECO
fTUse2FcUvKBlSQFulsuFr/lqSXkjhnuvHiPDPau3M8/NVcRYit2wOaXZHhk
XrqhIKGWUOQTua2ykApB47PUIs1qiM0NSXzrrChAYoxsWpheSNzOvnVxmJ8C
tz3duZNrSgiTVS0uAnPJMKQRKx+xrpDwTfj9VEuIAo9Wc/k8780jPq+fe+ng
XjLE/PmwnLesiNgirhhqmUaBTmKjrrdCIsSZi3G2ZFCAKUm8F1H4Bm/+jDk5
9VJgnbe6Bgd3MkjMLTZruERlne9nexg/KIXwleo6lzmoUCObSXt7rASWPDZ8
lMTiZ0NTO7fYBbUQcoo+Z8cKBuj1Xx5qMK2FJ0somtG/6ND1mIBPbrWQdpKL
QmXZfy3SDc2VtTWwTSrg68gCBtCPtpVFR72CruuzRyzfkED7o+/bcecgyFyX
r5l5hQxzL689kzM7FKSOG3+89YIKv2VK3e82h8N9wd33PAWpYDDuAOf6XsOu
zOWj+Vks+9v7ZppBRC5kD+jfyOHD9ytn6J6Fr02pEOH3bg2zAL+3LY3cfeLj
II63Qefj2833z2mwvt/xi0UlGkW5097XPuxb8sGjD7+v5RLjLOSrxOWWTZfo
By5g+az4MUwxewUV5JZ4qhw0xe9t1bJcdaLH4qfF68Rwrly5KQG/rz1WzzBP
EaWAerA3xf9C/rT3tF2JdUfoo2S4X5y7W3B/I+yz7Ij0Ws2EhdcKLU0jGyHE
553dI1UmnCTp7jXPaAT7KrJr8CYmvNOrF7dk2cEHRCQDg8SYMESc5rDibAIJ
q9PRDwWYoLGO0mQt1gSjceFfAjmZ0P63/O0xt0aQK4rRXnGYCXE7MpxDL2fD
sTXSP1wrqfA08uvA3M4s8LFPb9dk6bPDzoqN4b+y4QR/MeQ+pcC9uH20WMt8
iDTX9XvJsk/2eL4LqFtSAJ/tnDufPMX3NamHrYL2uGB/erKPr0uVBcZfcz6Y
W+gw4W/7il6PHdgfa2DgJv/YDuOEQpLjhxcYq4617dX9jrFPmK7FIZZ9p64t
+1n6GAMuGcftuc2ogyN/enpO6zLgDUhfHtxYD0keijXSm1j2KRF3oPViPYRk
99hs5mfABdM0gddf66HawZqnlE6H4tdDH2LTa6D7yKiBQSsNKEpGFyPm14Jn
p27uxkEa2DIfrDpysxYyuRN7j6bT4E5m3MCRpzWQ+PSle5UcPt/3HWyJMbDC
+tlB72vuQiUGrFhbuCZ5F46X2vZxpWrjR4wFZUefhHyf/p5Y+vCH32+dMFan
vJJ0SqfDE1+tH4cGyqF8hs0uscU0WLzp8Avy+ipoUuNbThKhQfMD4bri0ipw
DpDldCymgof2pmtZK6vBNldt0OcHDY6vdtzsOVAFl6NNTKtEsf86M+kTqSEE
Y15KkOI2Lfxe5pz8HH8NUQYbR7qE1LzupMOjbcpSUpvxe+OzpgKJWU+nvzf+
uf+O9bf7+D6kxuSnQiYHHZbPqd5nK4795Xo55yp4ZXE8F7JXtd1CCisutLLt
3eLkwoYln3D8ln/oiI+cMH4PU3q/0Xx4O7Z3hascvWbm4Pgsu2CyHocVjs8y
Pl0pw7cGv29Zl6Fn9D4Kv3dWzfmxxOhHNxvPDDn4TKwH34fHDRisyX3cCZL8
RWZi1OnxWzeS5i0pPtLFtpfXLyvZZBXbCbs8leIF12RPi+cy16nkysjC76ND
T5b0jQrieCErzZyOggT8HqbEU1TbQ5bEXi816ZS2gBGO5+JNG95+RYfMXu+D
Tt84M08cz/VuR+W8Qyk4nitk4/AbjhGMdasDH3tp4PiunXM+vJMMxfFdvFnl
f8O5sH8k1+ocSUqHAgbL8qLu20YQn0UHtENX4vvroXBNu1ZdMjRwGhpmE8XT
3mfn75mtGsqDsen7ee4G3RjnWd2KDrxFAw/yN5XNdTgeLEpzbmfL2EM4ujwl
8bJCN6zJLxxydMqHnvkHM8Tb8XuWn4evVDbswf7/kvkP9WI+06CtMWvb8y4c
/9Xm3bEnRbB+2n1HhXd8w0gwxj4lTabG6Qw4Z6hWZfy9cdr9h/nf71d2NGO8
a1PtzGPJGKcWLPnh4MuAehFJRxuRdGi5YPatwZwEJxfo+t2yI6B7YAsj9zgJ
bPbSZ7tfToecLTVnYhzJLPsqbASSvxFzV9Q3XAgmQbhziYDvqiRCb+uPl8IJ
JBCuqPV0HyQId9PzQc4PyMC8W9e/0+0bUfI0+NKXtyz7fmPneODjVMLtaDLj
rgQVyJU3f6RaJhKlrVKVHd9Z5S2R/OWDQcSuyMi6U5UU6OMrvujCG00oXDwt
amSO77PrYSDxoA9+j+4muGlWCgcFepetjd81WAF22pGCysk0uPx+tkpARznE
enw+uHAvHciLcsO4rSvgUqmeSA0nHRRFvF9dkK2CdZv5uhua6LBppM4iZHY1
dHAG/vg8wpJHEgfFezlqpsWr3axz01O0wPdB5s+Oaed9wP5yM/K14ykb/uf9
zo7ihR7PsL3f5Fw2tlmezp5/34B4z+J+lr7XJGSfciay6RPx21JFfolzY1jf
XzertVR1xli7Nz8j4joNUseyxc/GdBC+gSel1lzvAo3lF86d39VBVEHi6IM7
XdBuWCZr79FJ2LkIpwYVdYNjQWu/TnQmESJ/ZafQ606wNz3d/zMlj6g1NHQZ
YXaB6exNL3znRRM6J+7S4x93gb6a5fjck5HE3rS7ldtiuqCnVPnmmlOfiF0d
zo7a37pB7e7HrO0LIwj9WPmNgTYse6wkqPvzVRdivc7ioWUeVDCqG5m/piaY
MJyX1N40ToWYBBFrun0a+JiJ7HnrRQWljVxBn5vSofP04zKOaCqoL2aGerLs
T8qb8I4RIRoY23imv/1UCoSRr8NQJBWKx3Tb1xuUge2WPVSRTJZ9vDfjb6FE
OfAK3WspPU6FrETeEYGQUug3smx6L0aDhCTDRHWbPBjXFVFRWk2GgvCyHSIl
3wFmk0gvLMnQn/28dK1mHjhej8uM4qaAGXeT6O/sOhDkS9i6VI0OaoHqNkfW
1cF1jgcCbTPpwCF3inf5mjqwyvIkFYkxYP8RrStDl+tgzyf/TSbDdBjYOdt0
N6v9+VSF1KRKOnC2p9ECWPxtRa35K/CeDpdoDia8UAXJl7Zt9HxGhWfvoxIv
r6oCxx16DP0gKgz9SS0celIFm3+N6NjNp8NXz/miHRuqoOBp2qiWNo4HTMkZ
Cw8LocDW0kJm+dNPbPuxbyyt82xHG9Ez+QsBjYoyJwVaCY59gtY5W9rB4Wbi
WveIbuLC5C8kNJ628FboJlbXz7u0bnsX2PHr78qK6iSsXy0J7yvoht8nH64v
Tm4j3DyaiF8zO0FxLMC4YE4jsSO/QXdDcDuUNK0K6HhTShCSLtEyWazzXuvY
ucBl5cR1zQSJF1ndcMtt+aoC61JivfBrk8uuXVBayVCVEEknMkOzzzB0WOMb
q0nuj8sglg9XjI8ndsLZa5uYW/M/Ew1nTNb6vO2Gua9vRV4kx4GEy+9K97xu
WLd68/xZLV2ESqLbqeoaEtTSDvU2BHYRFgtC3TiaSODuvW+B1+VuQuDDg6j3
BBk2BriffGLRThxqWOTROdANHqv+1P6ybyf0Q5xmZA+zzluiAn2vrTqI3cHG
ZF4uFh71+bN08w/i9HjUztnzSZC4NTnlZHwZYbCiqWljPRkW1EWcll5QSrjb
lH4U5CaDDTlnR9C+bCLm6fa2/Sz52SqhacN3KYe4tDC6/NExMjy7mPtwkWkB
cXvXbe7Fq0ggo+39xSgiAYzGW4t2fqOARaazY5l5BpRYhyywPEGBM4Hx+63O
Z8BejtXpiqzzX/lCr9Lg1jjgS3oRmG9Eg5jaumpflQQ4EtFQ/p1JhRZl3ZU2
lnHwROONO0OLCk6FR+eveJMIF5LeuO5myRfur+u/rVUtgsCASldblj71Y9rO
kiAVQURw/p3vbyhQS5/7fd5YCfDVtOnzs84337TU7pb3FoLQuOCrEzJUmHOg
4NtD1zLwGu+QN7pLgdXPdY5UzCiF+g6tvmFW/WfHLHsuif0ASW3bxXkqNKhV
sFtgFlMEj5as95vXQgVxe8O1+0qLQKJid3d+GxW8e2TN3XSzIIQiqcP3kQaz
H9+OC76WA5lr3cPe5dDASfvtB7u6XHj5bdtKJdZ5yWtXzdz3p74D7UjgocFe
Ggifijzi/6UAPH+IuqQ/ocEsJwW9/UX5sCHJPXM9lQYnI0rGdjbngkeWNcOa
1Z6rw7JyY2wZhBuYbN+UQgNuPz0rs8Xl0OKyZAHlCh0Mh4YvW0EZzImnBZ9j
8dvCrx2h4gql0BFwUmbfHRpE7Znduun2D9CqDwwLYunvg2P3h244F8PuxO8r
DEpooPMqn9qTWQIz7qW0DrHk8Wyyp6/uniKoGtHcGrWCDlp7f+ULJNXCU9u3
Zjz5dJZe3kmtXVAHLwZnVUqG0YHXPe3aauFaeDPX/szxZ3Sgmq18JDi7Br7t
+SwU9ooOGS0HbpqF1ADU0TsX59IhUN/rOeVPDVSHF+lWBtPB9JPdoc0se8K2
t24kVoTB0kMuH4131gDziN6Px30s+/5T35qsliaInrGzdjCXCcpHBV4J/WyC
IrkNwoe/MYE6sEHCYkYz/DERMY75woSQMK1niYLNIHJvwdPxd0xQV7FeziPZ
DPtSOFv1o5nwu+POIyOlZrCn/BKLfcKE53deCL7TaIbHSzpNZwUyofHczP6K
rc1QaNNTJerNhBthPyQOULJgf3xW591UMmwO3SjjR88BmXBn83oyPo+nxO/W
pJ/D/lvVgORDc35SYXZngPzjEhxvjeJjo9WkFrqKYty7O+2pSyKOl33pJsMz
owHH5/msf11/8gU+z6/2KvUvb6XAlpqQ64W6xdPuD52v+5z0PExj47t0nyHx
VHyeX3tnldkTC5Z9cmvxK+e+7GnxTymL82/PtMbxtCmD88/cOvQ/8bT+prmJ
j8gQdDqlv2rb9PhaxdhHuyuVaNCw6ve6mHYcX4vms2y139mMKoyP9PYaftyN
7YMto2kGn3fg+FvS9yXnVZpwfETKlc7MPwrYX2CxQqjsSiYFnpdd0dgrNz0e
9wxnztFnQiz9+XLo6nMu1vnTtHelOY0BqkHiz0oUGkDJpnFeSQUDktwPZA2f
aYBhx/zBrakM8Nh202fduXogdR22bsljwELtrU25gQ1Qcr/MpuI5AxYf2y/D
m9MAB+fuz5PzYYCwmdHFw38aoNAjXczPgQFbraoqP4c2QHi8NbXuBwPWf16m
YbCIZe9KXTQ+0s8A3pPVZ2J3NsLl0ofFMm2s8/jcwBuzLBrB82qCyiirfmHC
ocfGfo3waHVtXNlXBnyx+mV7P68BxAtn79u6gglchsONDEYDDOm5CfDwMCFc
U3upkEoT6EqcWwq/GPDBVHNrxEgm8Eszftaw5Bv1l3VeF182aLVJcDVr0aDE
g/elXHomPA+ifnqTRoWx9iWZn9bXgPz1kqqHLPu/aCThUIJDPWj1jPstjGLA
swt/MlXf1oOp0qmqH7cZUDmWulessx72M0cET7DO9/KJLhadqxpAOCDMfViT
Af62u+68OtYANEXlvtANDFAbNekePF8HjBfLnkkHMGDXhe8DLW/rwPZ8Z9Dm
iwwIb/wNWhV14Jjou6fnGgMu7WluOjZaD7ozjJ47FdBB8ogf8aemBrJ8X15L
caWBQlRPsmRLNaR29Y9KjNGg/q4nnDCqgbMOb3bcTWfJS12fd8ObauCvfrLs
DEvsjzh0VF/ZJIgBF5SWWZf04PjTk6cP7HJwwvHNL5Z9qgugYLx9n/GB1bH1
U96j1oOL0BYO/0E6G8fNNz4mYoHL5QQVnerlcXx04DH7oUfeOB75Y8BKmZYS
7M8ooxZ/uTtOB6i0b8ytxvHLnV25B1S9cDx1gu2ZTdGa5bBHoG2ekw0NXM4W
tjoElcPb+yuaH3LSYIfWSOYNripQs13geZdlj16mjysuiq6Gy04Ny029aOAZ
OWOrfEk1kEIDVdoHaXDp4v0Vz/9UwYpRyYPmDqzzRNUe12tnq0FRq1DYeRsd
Shb8tmx5VAkfH68adbWjsfaxfnaSYRV0DTbw5YfRYM6ug5GhPyrB63ZURk07
9m/k7Od3Dl+K89UMP4xIH2+kg97FgaCev9PjtcsOLhF9GUmH2N+vhULHcL6C
XE7O5884p8eb2+sIRnrvxvh+06wvf3lxfPep9bflGozwfBp7H2ac+U0DW3vp
zzZmON4d+Ue4PdwLalWxvyE933IXeRnOR7M82XPEyxT7PxqlVRe8YdlXP1dk
coS+x/ki0Hm/vW5OhQTrvI3uMwtmxh+3Me2ERQfOhZrTcfw3in9LOnE0soPa
DbNMBxQrw39MiwfXXay4Q2chzu+0+0Zty/w12H9QVRN4Lm2wCz5cdFHedzic
mBovzrmGX3r+AZa9POr0dsvpCKL8ZuJVwdkUiL62oSdM1pWgJqVefLkHy/Mg
+eEF4Y/J0OTn1zCrIWNa/Pj7eGZ3sxHON6EQYE4bbMH67NyKyzKtWdg/4TLA
HZdwC8eXL2o/QdXdSYebg4U877NKp8WbB47dOvQ9Ep9XN6Yckdh1BONCHZnH
u2bg95tXUh35uvbh/GPypvPHzj+kgOmxvgOHtuN4dYkQS/pA5vR49ZvUbtd1
enQI4srbYvx2evy69zItjpkSGK/4vNZKMBfHswcnDHGpncP+j0WpFeKjWxjw
NercfabO9Hj3ZTPTA1x3MNlY50DVzCerML7zgOoYz8kET335sBQ5HB/v3yc+
UOeL8e6ZbY55VRh3GMPvWytxPgm3+p8ehxXxezV4nm0lCxiPnHukzbkf46TN
1gp1uhhfHlVe+skYY4Vc/tG7FtPfv4nzbbxBOYdxq5ihB9zA2GeGH2F8DWPF
jqwh5ysYt2QNKj66hLF39Eb7eAeMN982f1dm2wOv3T/kKdW+JZ59+3VB4SMF
8mddl2pf+ZYwSLcUb/5EgZP39xHXNeIIkgDlUQ+LHm7pBufvunmMON90l3x4
E+s88VVQbWeJNxFbpRJOYtkXDscOmsquekc0WB5rceymgvzpOYk/Qt8QAhVi
x96Rsf+mfUvW2twlOJ8At09/cmQ2BZYEz41YOx7Djpdq0qIsXulfCUOb1dp/
sOx5fpcvW1/yVcLvUAHvDd+wfy317JYmtxwqFAx9mVHtVQX2SQvrC2NY8tBy
mDNVjHWenmlXX8uSl5qqgn1ks2rQP3nZ06eIhU/e9GrIr4ajOio7Ap7QIUT5
adfvvGpIHrzdWiXMgOXRHzZW81fDtfd+t3O/0eGR+uDQ4n6cTw/Fs2X9Xv/q
uhbGh0T8zJaEYn/Rk731sd8WYrx226+G4V46XDguokM2wPkMUHv+YjHBxN/4
ffC18ojRy2epcOo4d4EWuYXYpXvw74Gd7QA318VmXWhhx0uw8x0UPX85fKEd
ZE52tXNScL4D9H5kQQFH5+1O1vn71t5TVnFv2eVovIGUkGUHR3E+BIGVS70s
HMkwI9YpPFD5NmGtdXjWKTkSdCrHV/YOPyWWmhg5i3KToLyiw/nl2SxYe2SZ
p8hXnM+uo7z7BeMGnY1vnk1ewVxHh3fzfP1nnKiY9v6SK+c4f48ofm9ZFslY
3/IY50uQfxcTVfillY11PVbb3ePD+USInPfn083b2HhI6kft/kcd7PeX3Boh
y3fP7WD3L1Xas6BoQTcbL7S3u5D7COcTbPa1fh2hR2Zj+99eYWd1SezxuY5K
ma23wPkYevtfZkgxcL7D4U6+1JZ7ZDb209rw4ZUvia0v/x4kqXYWdrHxQPW4
T/hqMhv77BK5aS5BYs9f31jz+wxTnN9BbbRQaoSC8yWuCOxMSPAhs/HHoZlv
bnjj/IN/HnlzL7WksPFFoeV/BH1xvHY17XrgriGWva/s/XLuj2jgEZy16Q/r
vHV5m77UfNtXEGxqXt57mQIpRhfmi3l/BzOuLUP9OynQ90uvOGiwHI6n7f5N
68XvU6Jtbvipx1MhSEk+RsGuaNp5ie+Jv6ENNx2W2i2vOhhcwKYHHSLqjj+V
ZR9lO2k36tGAb77gpvBb1TD7KTFYxU0D2aPNlHe7cT4JFD/6gWTjKmNLg3vz
755IK52eX+L3wppdgqM0iK9awRWytWZavombG4hSp1lM+Hz7xOp3ejj/RPNr
g5dQgDHXEWvVmHTsv0f2auxu2s4XARhvS7/77mUrxguHgrdks85HmkevtG5e
j/35R36dVdbzapyW3+Jy1mZpLgbGh0bV4sS+Y/xBqOBgUCTGpe83PdpxmQFG
X8sd/Z4ngVtRbFacEAn0h74vvE6PA7WuHv4gGr5fVpYXcB9bRYXY1mXG2fUp
0/JjyMU7ct3dizHpNEfGbysyXLrE57I+OhuenkmN+F2N82X8qioXjmTg8+bY
w7LCZB+cPyNb+RO/iiTGNzr2j+fbUdhY9cvJfRZPcTxt0qXr9/XJGHsOdoI4
Sz8JNWUKd1xLJo58VxCmrmHRl03wPaubXwn/ay2/jrtRgHD4NrZLM44ovJq8
p42lvwwDaXs1u09Dg4v1wytKFFhs+Mc/7W44/LDPeNFsTAF511vr1Dk94K74
I2eRQRxPzfGGfvOkMAXceITCPovh/KrIfrrSteEVzwIquC5ofxL/vgJaVCKr
L6RQoS/g+o53jhUw78Kcj1dn0mHRwMJtezUqwT2G6HeVpIOxnq+H1vcKaB2a
oXPDjA4cJiS7X6EVkLDiUI9FDH5flHe1kda/EsebjOacVzBsZ51n3BzO6H+c
nv8jKiZUU9YN4zsW+iK2+XTw/0mPftBeMy0/yBLtK/F+qRjvM9eHOEc6HAtZ
KTQntwKW5C4i/FRpsOXcwjB520qIMV4+PEDH+QsstxWdph7E9x2PYkw8iX78
XlsrqLR5rJoGjTNmx25lUImxz5brb9xqhVCHiE01FV2EvSzffD/VNmhomC2e
cr+LaHhQ+TBOsw2CyuJ59zf2EMO6D2832LTDuyw5g5bZTKKYN+uaTGg7rNTc
9LS4roeAh1mZS2w6ofTWOkv5PhrhwZyzKqK4HTLe/uC2OMogdh5R+Bv6hqU/
Wk7IKm/oIca0trW+5ukG9UDNUZ4bTKLxi7o0CHVDVLEJ0yOfShTwGt7UZ7aD
q7YmjauDQuS12m5+NKcD9i7wj42tJhEr80a9zPd0APki/xLvzWTil5pJ9rpt
HbB07kbOVe1Uojc9rLHyUDesrHlV76ZEI9pkDCVdvndCj4xozfJQCsFf0yLT
ydIX+RI5PH2FXYT8+DWnYrcO8FPSNvWY0UHIbLmnR6ntgGiZDTsVN7YR2fbp
p29kdMHs5+F3vJe0ER8Ldm7syOoCiUiXVbK+9cSFjRl2tKR2GPUoUXygUEvI
y2UdVupvh4ft3WmqtpXE/ZlLZRSMOyCyz5/s/L2SCDt9wXmVbgfYGVZyKK6u
J1y++X1/p9QNXl/dzjYfayAO5s8xUQzrBKG3rnXN9TXEnEN3Jb8c74YdsrPK
bQJ6COc91Z0c+0lgsmG78DdFJhGdbmKqY0SCMQOlbppCD7GHarTxhiEZ7jPq
Yqt56IRltIb3PScSlNQ+oEYvpRN6dhzbo53J8FB1MafsGgbhN+e6hOhZEtww
fqkuTVCJhflRmqNeJKCvfRXB20oh9OeY8JGDScB9u7vVsYxKOJwK19a5S4YR
B8HNEV9JxMDkLyzdV9j2RJNEdCduXmUWTwZ7OVvPfh0yca/E33nuBxKI1yrl
B0m1E1LJjFsjLPvm+tO53nsOtBIbeLtV4iRJcFDhyKiyZDsxHrEx/g0HBUIX
Xo9Q12wjNG8ZGMRLkcEh4oi1mlkjcaNd+8ZnfRKsW97w0GVmEyHaep4ee4wM
V8s3+n3WbiGcPbJ6BDeTwGfV6LVDb9qIQyF2Jy2zKGARwWOyRrWe6L1yr/+z
PQkco+RdI3fWEgLcc8LusOyBbqE1xy8J1hMHMmZ42TuR4fth3bKV4pWENtcp
fWoeCXT/Rjj6jZcT5JgBgxPfyTDPZOu2C6JVhG//u0sM1vr5S9zK3kfWEetn
CxcHz6VC2YkrC3glGoiiXc9iSftZ+tjAkPpAupS4rHPpDsOYCofFIzLkNMuI
s4LOm3yfs+yBcB4FlZclxOY0z9sPT+L8Ma3ixoLh+jh/lCilmvz0HgkWnRNv
ubojAPhcK+/tP0+CBfmFg1SdAEiO3BRzhYWzR4vO2a34BJJP5K5Z1ZNAaS/3
je0e3iAkNkBZYI3zyygw+HW3ClPh4cEBbo3P5SCYFFGkeIN1Xji5ZnwXpRzE
S61vnWLpjws38pl5sa/hVZix4NZYnG/GW6fDf2M1tl/KVaoW3liA81s4LFpK
jQ7G/t2qZx4nDxWQYeV8erbM2ixQF+M7bXSDAnMpRlfe/cgE28/ZIWoyVAhp
NPl7+HI2XNg/kiulhvXboY1eNtSFOH+k5bzhED4mxoV5tskH7tLAS6S8mjhS
ALPL1IWdpWkgaLv2RIlqAUSPnwu2lKLBb6W/41HGeTDrlDhPyjAVBJpa7wc+
LYA9WwY6ol9h/fLcv/jijrdUeCvxRleZa3p+mldyK8Jr+WlgGnz/eFdaLTBd
Ci7rK9AhMXimzAeJOshy8fe356BDHpd4fvixWkhVd1W5ak6HzKgwt6q+6flr
5mglnpLTp0NEgIGczjDOd0McW7Tnr+jUfDa1cAlME2bmYXxM9nlJvQSOHzt/
04ND3IoKHy5tLpgrVDUt/41ex9obe0qpsJfbsqbEj0FIVxwKnifTCgXCTz89
LqERdFO56o7TrbA44vF9saYeQlZFUWR3Muuc+/7Z002VOP8NyjcTpu9XNXus
BeK/mSvnq5KJhxXfeAvaW+EgjfvuwxISEeiyvkzqdysoKm1sffME58ehr/yr
WlrbQegPvv/w9j7Oj1MZSiq8V9YGAgd0Sk9/ZBA36wcyMkM6wVB8sXVuGI14
Gr/9s2FGJ1y2+JQ/PptBpA5UCQSsxfmPbfZ2GKmpd7Pfy/z53DbobdXO0ldm
Gvk8OD8Omr/Z4czR2FudYNbSsroxkUxwj1TvGx/rhOL1+XXnLUjEVp6bGvtX
dsEO2g2/eoJMvMhVHPlyGefbz8020E1+0g3zhUIf2D/B+a58wseFXl1vIK4o
H1fNCO2EG8VCZiuVm4mflV1nrw/i/DpfLq57eEcc57fg7d4+/O18J/iOXnZ8
96eK2OaanfOaqwuOrVLdcfZhBcGlzjdI3dIFXsczH69eWk2EdRbLfHfG+fwX
Xmi520F0AzWsyu8ZZzSxRTHaov9PNwy7BIbb2HwiZDStOK06SSB28vB7DXY+
jG42P+trlZD0f+P9s55z1DVmN+v8tOlo3H6BTsL6zemUBy8o4LH4Fw+ltp1Q
8ihK14+nAHW819RtAc7vjvLzRP9kam0twHhb8NantwQwXjPWoLZLlgzrlhZ0
ed5sJuQ9obq4kyU/T48vFRlrIU62Rae6SbL0wxavvzu5mojnuvI1VT0UUN6Y
djLuQwPhqK01z59lL+fKJfa1fa0k0j8mrKlVpML+n42XY3dWEzdKJSj2F1n9
dc69wWFfSZg5zIJbW1nnof2f9yeJVRCd0XXRjf74PVSe7PtqOy0qCP75GTGY
hvMDba7T6KT55RNxPMzZexsp8GNFrhHtUg6hW7p7OIs1H7sTHWk7SZnENdF5
D5dqUSCmLMDNPC2P8B5Vuh3lit9T8bY3V6Q9ocK2N6KjWku+s/cL+VtntXS8
yzxIZmP5BFfOkG5cTjcW/ikqj+3l8I9m+fc3k+HMcWH1dfNyp+X/EhZcHe5Q
TQLfa/cMCqq8wFhg0SP5Vd1gKMh95vHfj3Bfs8JO+VM3jLXriMqpxcCPn0Oj
jddY5/O+eedO/0kCq628sdQNZJhzpW75n7BE2J/xjHfTUjIsbvI+Yrs3Bfi3
7DP0EmHtn9/CsXXtiSATu/NU8kwKzCj7NaYgmgcQnzrOm0+Bt+5yj0wcCiC7
ZpurNktfRumv3h6sUACXFXiCTWex9nvzBS/qTpyfSC9NsefyH5xvHtnXXQxv
66h+nK9o4EZXSOVjEhQaOr0M/pkKIW687dt3kuDeYu0ZW2+ngLbnvtVRYvi8
c89wrvgCh242Zj7b+9komgR3dBu3X7+YTlwpXE0NYp3fDQtj93vf/0xIaQru
V6ghQQfHIh9LrnSCxl2kuvEBGWbQj3qc/JtIUEJUTfK+4PxE884861laxtKP
4mIGMtvesP3r6DzVqHxm/vAwCYQeHYpRvJRBvOqPmul3jAKbFTTyK+LTiJIM
ovvSeQowpBPXG53KIMxerB78yUeF4AglldsW5bDK50lRiDsdLi50z2/+UQ4/
/6xY3qRKB5Hmd7PDV1fAZoninN0BNFBuLvdZ41sOUhI7Zro000Bxr+7+T9tx
vqPZHVJvOLqn5zsa451bu511nklMaZAe48f5Qa9quL8I8n9OrIlSEHASIsNn
+ccnRtujCQtX29TfQ2SQK930kV8jhqivsKuW/kWGRRdvnft5d3o+o7SOpMSk
Xpy/yN1xfFghuANmhB1a719bMS2fEb282EnWFb93/FP7OlQxmczub2uy2Y9D
YxjLinPbz19MZstXa3UnbR3W+RmN1/rhqrNhORmEVsdvNXuN82Oj+K+Ob6nL
hL/h/EUFkr+v6gPObzhn5Bznl4g2dvwX17gqVdQQ51c0r1+uMSjfzcZNi30f
C9vh/ITDOjUGYx44v5H9rbeHueNxfsJvtcHpmRxYH+hpV3t4qON8hMt7slcl
P8T5jyJFhVYuyMD5BVPfUPKV3XG+HvsdHqGHWPY5p0NfwGLZL1Ae8MpMg4nf
AxTZiSTyEhTYw/Fg6RPp6fmQcjJCnh/oIsGL11qOAWWNUHlEavv3s0wINWvr
t1JsgqEWBe0mLybYK5cmJR9sAj5HZXq8CxP2CxEu8yyaQJx7r7evPRPE6O9V
jW80gVLYQRkzcyYMZoXNeh/cBAfk9HN3HGNC2ROf76OxTWCSbWImeJAJydHO
VQJbvkGKi+rJtSx7v9YtIGLrxTSI/MCghRwmw5sfzo83HciH/qq+tNSbON8S
oR7kIOCF84OqCSx6RWPRi1tm2P3TmR8Iv8i2cI0WfP80evyFpjiDApTzRXbz
Q1n21WqdL0es8f3fyLdSst9BBkjbiHqv2YLzKSH7S/nKA/n4EZx/8PXGmF/l
Z3G5tKLrAj9FHH/Leaaz6OoGHF9q/uD9wsOvqfCRb8uCDF8PCKtfV+O+nAZ9
xvOZX0bcYJYRp/WSICpUyla6PNULg9acLZ4Za3H+JlH5l4PST3H+ptDY/hXz
Z1LhgIa986+oUHDq4JfQZ8mPp4pfSyTcP8FIyPKsP0do0KXlJXbQ6wUcjnfW
jd9Gg8viEY8tPN/BgDo5uf07FXgWG1xeqxAHJhZ5Xzo0qSBrIBBuYlsOib+F
Lw58x/meht/v4q65g+MHeP82yZrG43iB35IuXxqeY9xwZIXqkUAmkJd8W2Sw
H+eH0vCVMLS5gfErDq/Hrp8xPl3Us6GnFuPRZwdStEcxDnV4oRErhvPBK+7l
qJyvjvHcnsgR0XgcH/tmH8f1+mGMUX6q8vSANS+VMebhjnlCiGCsciiNt24G
xh2NA8KEG8bti1fM1LHBuFUHaK1HmbBO2HMkmxfnq8mnt95dval5Wnyw8rUX
WsVVGK9+s6dWPQfjeXUdpkQ8xn1z3Hu2RGNcryR+7WMgxgd9bLyXMDF+oXqB
p64dxx+/Pj5vF1muh41P1q2LhDU9UCjbtudvHI5H7g+XCC7Ox7h3R49MWyPG
77ky5yd1Y2xd9PCXfy/G0sGWNWeHMO402Z6qwoXjm10uCI/d06yAQ4wdgSee
U2GGW1/hdQbO94X4SYUnZOfWNIx31Y07Olyiw1Ou/TM9herAsVBJyncFA2xO
i69dl1cLYp6NOaJzGdD222fB3yV1YJEqrZfShu9fS6o+2jObcb4v2UNcfAln
SHDhcSKfxNkEYn9f9WmuIvw+WoQMa/0W4vjna16He/gU8f395v1ZJqIsefDz
avd2fV2c/wvxy236YOC4B46feCTNvU/qCAMMJBNtnPxxPjA1oVHet69xPrgT
uXvl1rXWwvaBwKM56gxQXBp05k5JLZQNSp7dtJsBz10TKMbZGRBwMiCH7EeC
1uBsn8bz6TA1f1/ZhW9pq26SYPe1PQ41VTnEhrYLEt7emH/DN0YUXFPA+bMS
kw79fjpEB86QjxmezvVT7uPqIP7kaJmDOwNyTTwaNXxLIW2ZjpKkFh0Ejbzn
vRUsg8Urip5e5KaDZzOHhIdxMeTc0l1vLUuHLatvHBqVaoTU6FiFrUYMMGt8
cGElfwu43wwYb9brAW/FQeNcoRboLTe5O/dwD3z0O6VpK9wCJ6TWCihp90A1
KW/bUtEWKHD+G3paswdGVDbKZEi2wJaiLPF7+3pA/HHwYuu1LRAt6v/2694e
2Nc3yiW4qQUEHI03d6r1QOybLQEBOpj/aldd7bCywHhGYOpm1esYr5szfntp
AMZHr6nW9Lyann/qatGLIYo45qcK91fOb5dgvG776wEbXow9et84beDEuOnl
uz89/Uw2fcKZB7YixVTQvOFy8u//5Je/+GfIIdA9A0zUVCWWP6MBb5QmxXlO
Kqg4yu7suUUDuxFG9jaXFnjKec1JN7YHKIOF8lw3WsBwG12o430PnPn7OqKY
hRfan4i7yMKNv+/whd5sgR8xxYe4WFj/l/l101st4NkKjIfveqCkZzd1vWsL
qCz95C3JwvsYYoYDLDx0SFwm4W0P237cyZ9h9D2bDjypH6WtKS0sO8XAQ6ys
ByqfFeu7sLCyc0EXtbQHnrnTb/uzsM7rnRrxLGxtOffLcxY2q/sY48LCipoy
nQksfIVn9VwNFubYqC5YwMK+2x6dW8DChQvN1JpYONJqblFdCYseTsZmDv1P
/ht1/5+ilFsYJ6RvvlnjirH0T6emHDeMQ8RSdsS7Y8ytOxYa5YHxFTfVAf/b
GKP7SVXd3TuPquL8NLG7mrh4zHB+mtO7fqTPv4f/+2fObfPFAr5hvFKyhqwr
if97aJ9d52aODWNskFPhRZzB72f8Z8akcmnifDabNew9cj5R4Ij0hxW1PT3E
L+tL65I3U6CvSr9+lxKN2Hhxx4G5xhRI6PXZon2pm9jH75j/yZsCbWsHi6sC
GUSFajvpkQYFFoPCevtIGnFLmPpYy5AC93yrI6uqycTMEIdebQcKOHs9mH15
G4mYE1sf8tgNxyOl/9pftYM13ibXcuWQzBp4fzhljfpu/F6kdcP1FfJ6THDy
Wv2x4gaLH1qUkpN5WPTTL7qG7NUMtNdbXeS4emDZ6ZXRIw+bYYbjdpWXY0yg
/li2SiCiGYR3Kc9cMciElK2LQyTfNoM8967cB31M8I1euHB7QjOwTFivOSz9
dmIBv692RjOcDlPVciEz4fkqjUVRp6fnw7Ax7lnuvgbj58+57oXNZ4Kwi9VH
kx31IPXhpcm3NJwPw/OyllL5ZyqM732f25/TBOo9Reb/F8/5rjwpbdXDBjD2
GDMwEWDAm2xZie4z9SA0KGZ89jYd3KsTdb5+aYQUoegaiRcM9vn9uUivQ/Bt
Kvw/g681JQ==
      "], {{{
         EdgeForm[], 
         RGBColor[0.148, 0.33, 0.54], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtkj9IVmEUxl/Pe+9dXOpLjE8TsqGl3BxcoiZJ0ESRykyhlhyk0EE3HSQ0
RXGwCMTla0vdjAgXbQoRShdp6c/kYIpBNSn0OzzvcHjOfe45z/n3Nj5+1v3U
QgitWMTKRQhLVSFcBG/zYxTuLjiNzeDfB9sS7/+NpGXia5wvxF/LQ+jIQljH
HwNr4AeI2YB/hf8TfwS8Qs5VjwePsc/4zWAvNou/Y6rndfvAFmrdInccnSwq
1zV+YEfwOdzlQv00gPtR/XhfDYmvB5+YersO3sykcyOqV+fbwTvUeIffif+8
kP4LsCpqPxfIfYCViDkHnsIv4Ffnmt/r9mRa6mviS8T8jZrlEv+nM83bl6u2
9zCH/kviysQvgmeJ9x49x3P/wJUKaZ4H7+XScb1Vch7Br4GT/DvAHyJ+z+Tv
gtWZ+vR+N0w78RvOpxl91m/wh/jb4FahGcvEvDXdcQXc9F2Av+AHoup+zLUv
39tX/KmU6xoj6e4V8FPqbQL8bdI5Me3CZ5lF471pRt/fF1NunWnXrvnd9CZ8
J7Wmel63i9yK6Z288RtF9exvsDm9sVHwoWkP/b6zTO9tAo0mk86g6dv5WvCD
6e5+/0qaZbjQDD6L7/tfVLzr/QeoWmWG
            "]], 
           PolygonBox[CompressedData["
1:eJwtlMtLlkEUxscz7/tG2c3vK+GDwoIMiy67+g8KIu1GRUJCRUkitXAR1qZN
iEll5CK7QC2iC1JBGtFtIRKlUWBEq7AiM0wJukDQon6P5108zDMzZ87lmTOz
eO/hrYcshFAHEvCQyaWyEPaAHvjOGMJyxptg1rQQZoN78PPA4ONZCPvhB8A3
+LM0hDvw22AAvo3zy+A3wEzsB5mvh98HFcyLjBfLPKZib2a/hvE6KGd/Dug1
j6nY/annJvuX0X3K9zrwPHqOylUxFEs+5OsFKMDbWVujXMEC5kvI+Qn8MpjO
vJr5U/h88ArexVgiVi/aNMKL2Awx/gD97I/jb7v5GZ0tSBvsu8EDeBX2k4x1
4D22WxC5D18D4Gh0jaTVY9lmfkZnG8CtXCNp1Qfmwu9iMwb/pByZj6gufE1i
/wHew/4o42dwDb6PeE3wj+Ac83dgLfyL7ijzO9PdNZg3wCJ8fjevSbVJU2mr
O9BdlKLH6wTl2A9KS2KPgWH4o9RzVw1D2FYy78D2JPgdvQbV0g0ivB4fB+FX
QG3qmkv7iG01+2+Yr2J+QjVg22KunTRcCf/FfjtjB/gL/4PNKfMaVas0l/bH
FIO9SvNclNOuXENpOZpr9w+bM+Y+pnyxtjTX9zR8IfYT7B0BXewXyfksvA38
zFxzaS/Npb16VL2qHi+xl0b3JZ8J/C1rq801kBbz8P/avEfVqyvMe081t+R3
prtTD6gXmqNrrzs4Li0y9687aoNvTPy8ergiuobSUjEVe7f5Xcq+Hj7BWqu5
BtJCNarWq2BH6hpKyyownPkb0luSJtJmBjad8A3ga+Z/hP6KmvxtT/V88Jxq
E39zenv6M/R3qGfUO3pDBc4n7F8w/4P0F6ln1Dv6U/S36M5196157iOsbTJ/
c3p76iH1kt643vp/MFukgg==
            "]], 
           PolygonBox[CompressedData["
1:eJwl0E8opXEUxvHffd3rFitRxljca2OjZm1pSzEl3SnpFqWsyMZSVsjdXGk0
MVMzLDVLTWIhK0X5t7AjzYIQhslO+bz9Ft/e8zznnOf8ettGJvrHkxDCB+RQ
yYZw5PvA/IzLGn4+hFX1BsqZEAZ5zbU89VYSe+nMPT+j/odHFHlBXlndgXby
zUwDWux+5Y3iVlYDvvH+0CvI2q33oKqdIbqKOvqvvFl1CVN657Ju7PbQT0m8
v0ufoqA+wbXcffoFc/Q6uniddgeyMaeb9wlnZmZwp39BH6DRW0pu/0pvJvH/
fKH/219Qz/MW0zlewe6Ougk/ZBTpPTzTh6iYf7XXWhv727zvyLsxybviHac3
0gzeUuqpPyaxt0xP5+L715L4L9J/0sv7qR7Dpht9uZiZZv/GsPmyu++Df0Bf

            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.4109375, 0.448125, 0.5775], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlEtIVVEUhnfuc/Yhr1l5e0qgVkI0Ccwe1KxJEaVlj3t1KEFQV8uCaJIk
CmVR0aSi6EHDaBANalBQSJkaFQjSqIKKEI3AXpMy+n7WHmzWv/+91trrrH/t
U9d+qKWzzDm3n+VZrxLnGrG72TxLnWuf4dwg9iP8H/gx+HesE+CazLlrieH3
cPPYbwZ3BefaWJ3gRs6XRL4fnxbWavBGcm7B5xb53yiWfQW4F/sCPlDUILbA
fhX8XuwZ9t/Ap4PFK89OYheBl4HXgn1m/BxsGasBXIldlxpuwmeC1Qeuhc/g
p8FfEvsGfctt8FRiNffCfQL/BXfj2xzsrjXe4pXnKzgPf5Xa5mO/s38M3gpO
MuvnXPCHmP8s+Zazv4lPPedF8EH4u+SfAOflj+9bb/fq/lb4DvB9fKqIKYFz
2AvwU+Q54q2/qlk6/FYv6OEA5+ejzzns02DfO4515L2ImQTXsm7gU4Nt4o6V
4O3YPLk24HMS/jg5B8DHEtuLL8Ed9qaL9KkiJgeuxvZEnwOcXw9WW596FX1+
gnui7tJf+qm36vGd1L5x2Js2qvkoXFdqPS+l1iP1ahvn62PsD2J3eNNa+jdH
LP1bU+u/ZnZXnEPNSzHOWD3cL2/1LFD+zHo+Arc06rUi2F78LM5fepvzR/jv
8aa13lAp1jkJ989bnzfBD3nTuoLYqvhGlKMhsZzSWe9KdWpeivAPhbH3UovV
vBTiXZqvB6nl0Ztri/5j4KH4jkax5fCX4GdiZ2eWR7UMc5bhMxJMV+l7JTHN
pN0TcGWcE33HqfgG+4P1Qj2pC1af7i1guxPTpRr/fd7+Ic/V+9Tm+TPnl6OP
fHOxtsXe5kNzovc3HnXXG+2Nc7IQW84K4Fxq9anODuKmY58113pXqu01tf0H
l9ONJw==
            "]], 
           PolygonBox[CompressedData["
1:eJwtlF9Mj1EYx4/O+56XSqn8qZSGucFVspnNn0s2/ZFarYyJO8rowsbIhU0u
TcpcYIwLS+KCCy4ojE25oIU7m4tWYaO2rCyf75734vP7Pc95nvOcc54/7+qW
47VtGc65RoiggZ+n/K9f4Nwa71xncO4ncgZOv9D3YC/APgCnkOuhDj7i9wkG
Y2zwHt8h6GLtCnRDDyxMnEvgALaD0I7vP2JdgBPIvXAUuRyqsQd8Y2hCboYK
zmrDVgH16NmJ+W+CfegTnHHZ2R3HkRdjb039G7B/Jf4X2EucWqiB6sjWZHsc
m7/i1eLfQYyEtwd4i7yceMugF/kBZCEfS+9bg/891u7CYWIegRY4BB3EPQ8/
sE3CvJKNfon/TmhG3g9vgp2lM98Fy5FypZwqt63IW9nqsQ9iX8FaNvXJhRls
u1l7jjyHz6i3N+qtp5HPQBb+AXuefNCntJbuL8FW5y1XykE5+75HFksxf2Pb
DGudrZ3F/zPnjUIfPFSveIuvmo6xd8JbbW+xtgv7I+gPlkPl8lxssRRzC75V
3nKpnN5XnbzVQjXuRy+O7b7yL5ROrCLlAQphFZTCSiiRzhml0MVdrsK1yHpX
/dETWQ6Ui270LPSy2HS9QW9pJ8ZJuA130h7uTtdk++DtbTc1L+gvg82KZuZi
sJoot7pzfmw5lq6aTXvrod60Z9Q7mjHt130yuc8I+qyzmWxE/xPs7YpXQKxp
9CmYhbk0B8qFZkazU5LmQjOn2XvNnhb23oBhbzXrS2ui2hR7y41mKIfz/sJM
ZDVWrSfTeqq+L9CfxTaP14m3FH0j+obYvgn6NgwE61X1bIFmJ5iv9jyJrSfV
m5X4VkX2htl0RjQrY8HOUj0y8R8Jlgvl5Bv+lbF9q7TWhJ4XrH8VPx95XbD6
6M7jnLMksX5Sf+cl9o3St0o9pF7KSaz/1G+5yMPBaqsYiqWZnU9zotzshB2w
jRjbvc28Zl/fPH37irzVUjVVb5QFy71q8IpYiyKzq+fUe/8B+Yukwg==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0bsrxWEcx/GHc5wT2YjFEWJB2ZVLFlEuGdwXJ6PcFhYdcslJSLEo93/D
RFEGA1YDf4CyWKS8fv3O8O77eT7fz/e59NRnF0bmi0MI1SjBWyqEV3wkQ/i1
/lTvrRNCP4kQZqyzuOFdYwm9cmdqWTqEUjzYKFsUwqz8Dn8beXzxFnmD5gew
gjuzq7xnnOvXyWVQi3X75FCFcr0NdVnumz4o7Bvt/4S0++XUTWyhU64D+6k4
f6j2OO/IeX/8Lro7GWejmTleu94G3UA3mxl03pDMME5wjFFem964Wi97QTem
4ndH729KxP0x/V35PPr1b3l9agu/FVNyk6jknepVqNORjz0za+4yQV8X9Lvs
JX1VINIvZlLe/Ri9IRH/Q407ZFCLf2OoNig=
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.6065625, 0.516875, 0.4625], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlEtIVlEQx6+de+6XkS5skXxEoovaFFlggkSpi7QIM7Py8ZUhUrQoH0VU
Xw+tlCijNmIta9HbfASBGWKIvSAhFArKFrUJqs8WkUWbfsPMYu787//MzJlz
ZubkNjZXHZoXBMEJxCGTfFrQEz4ItodB8Bi8E13K/1pwgvVi/gfApej18AXg
Gvh2/svBF8GfzXc6CoIKcDE4Cf+U/+9pQXAWfRrpgk8nxu5I9x0DvwJXg58L
h886cBd4v9N9S4hXBC6VONgviAVBIXwuNgmkGTwMfxW7t+AG8Cf439jfRn+F
74RPESOKaf7Z8EstB7mDX+YrMabQLwM9m5xHzrUDvhI8Rsx/2L/xmmcreBBc
D7+P9RfIO/gb2H+Eb4N/j65yajMErmQtG5s8uGfgYckZXeM1hx5wbqjxy+BW
InF8txB7Kz614Adwx+3+D4AjJIRvQd/3atOE/RNsurGZw2/W6f1fgP8Jn4ZN
Cv3D6f1k4NfpNZ898Dle+XTwJJICj2K7HMnHt471FZbbZmI2Oq3LNLbjkcY5
CJfBfy94oZzL6dk/4PfHaW6LwZvsTmQ9ZfnI/nlmv4v1W1bTvkjPKef16EyL
H8e2wWnfzo/pfUluWXB9TntsROoe03s+57RXBF8JNW/Jf6/U12lfjbOeHaqv
xLiMHCHmDPwQsebAXyKtk9RL+uJ6qP1zBttjTmdBZqLW670lJCaSAY57rZPU
q89rD0mfPAKvxucevvnofstfcklazCrwGrOphmuy+5f56MC/hDjtXntLaiG1
ncLmL3hG/PivwaYC7q7hOzJfofaJ9MtRr1hmtxuZxeYSOokUgdtYP4lsACdl
ru3+5f04ZXyB0x6VXpU3ox9cB/8QXRjqDMp7ELdZlrsf9YplvhdFOrP18Kuc
7iv7L4v0vNJ3Um/Zd4n0oZ1XejDLa49Jr7V69T2MHrTa9aPLkRHwN6fvjtSx
DXze3q7X6A7DwpWZ/Ub0gJ1lm9MZk71y2D/T+lPmssfeFuk7eRfkfbgpPWtv
zbVQzyZnlPep16nNRKi9Jm+I1LvWbOQN/g91u68k
            "]], 
           PolygonBox[CompressedData["
1:eJwtlF9ozmEUx5/X7/n9tOmVVpg3ESLKBTJLyb8rrjDD3s2/1txQNraWlRAm
XsQFvXNhF7jQyL+LaWhWGuZPlDB/xg3lwiZEDSufb+e5+NQ5zznPOec5z3me
SdW1ZduHOedWgYdpkXNT4QhKDi7HzmVTzj2GisS5RtaW4bcYduG3Bb0GTmE7
DZ+RP8EPbD+hi/11+M6DDeh74SFyHtL4XWDPeTgLrZDC38Egtj9wlLVv5D7E
ciPr+2AJegd6NfaL6BXoeRiF7w7iL3C25xj6GBgN7fjdhBtQhe0JZFlPozfr
7OgjkR+x9hW5nLUe5BJyzIU1xF0LvfjsxN4Ax9FbsL1w1hP1pjWc5SC2Zvir
HuC7CHazd3hsuZTzC/4DkEJ/rZ7guxlKnfWsFFsG/7TOgl6E3B36KZ8afDvQ
a5FLIIu+DbbCXfZ2qW5ox5Yhxkx8z3nLpZwf8Kui1srEzqiz3gvxdF+bsN9P
rBfa8wB5j7f705nzyH0wiFwMy5HLvM2GevSWWCWRnV09WJFYT9Sb75oRKIqs
NtW4Gn0In3/QDwPQFFk89bcJ+0RvvVBPxhH/cGKzofvOhT3aqxnSLK3zVptq
/OitJtWmtZXor4j/EiqQs3AFe2WY98LIZkSz0ob/HG8zrlnPQwv0xTYLqlG1
asY0a+qpeqsYiqU3dCm2NyRdOa6hj43tPEvRDyCPiCyfZvQ6eiayt6Keq/fr
I7sb3VEn9vGJ6ZqJCci/4Vfo4VCoUbXWQwPsjy2Xct7ytlYf3qDeYneYD935
VXIVJzZbypdBLoit35rffuzvYuulevoe+XaYF72hO8i5yO5O9Z8hdnlkvRyA
p+gF3mIpZiHyLG929UC9yIX3rzddp1mChXCC9ZPQGVks7ZnN3ufoz2AytikB
ydNhBvRE9lfoz2iL7Y/RX9OL7Q1s9Pa36I+Zj+9/7Gqnkg==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0b1LllEYx/FjPt4u1ZKWtT2EVkPYUpZJpkOFQ5aQPE86RRGUL2ijNKhT
Lbo51Jw4iJUgiEP2B/RGFLkoZC9DEmWRuFSfw32GL9fv/K6X+7rPKV4b7BrY
EUI4iCpsFkL4ifHKEN44/6YnCrkuKajnN6Cf7sM3eqkihPOZfucCXS1+0fMV
0/w/vEfidecbeIgHWNVbIfeDHtbTTA+luXH+CFp5d8VPaj7jPu6hl3dM7pAZ
++lddJ14wrmpMv923OFOmtvIm7TDBIbpFv9TlC+jhDVs897KXU2zy1X5nnHf
c1n+nxfEV2peYyd/Ss9u8a/zP8zr6VHXRZ+mW1Cij6vbo7cWe/GLt4kO+oD6
o+r2VcthNt3ZqriOLfpJludizQr9AXMp91QcwwY9Kt4y9za6cQUv7Pfd91+K
R+QPo4gmXkOW7x33b5d/zLtJz9qnbF5nvE/6ZCLqi7yS3AzdlnrOimf4rajl
12Ac7eqaeafQFvdLuVizrOcZ+uUWzXhOd2OB/ii+479P7xnftdOuy2ZcyvJ7
jfd7Ob4Xb47+D100Vw0=
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.8021875, 0.5856250000000001, 0.3475], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlWtoz2EUx39/vws2tDQKuSxrszKXJMYil5BJslpuQ8RkjdxzSy6Z3BNC
Q0q5ZUsIY2PNlDcoa8jljTupFd5sL/h8O+fF6Xx/3+c85znPcy6/rCWrZ6/q
EATBESREsqIgOI8+mgRBMTgT3J2FRvBd8Hx0Gd+jwf/QB+IgOAzOQI9GBqSC
4Dq6H2s54HL8bOR7LPgAuEJ24LXo5e5nd2QivAzuMfgb+Am6ELss7G+ii5A8
8Aedid10bMrBO7F7Cn4FrgK3gOeBc5E14DFwh9z+NVxP4liAnzlwtax9gt8F
34JMVgzoa0gaOA2bqYnFrNjnYr8BvkX3g78An4d+x9o68Ft0gcdchV7J2mJw
A3gzexvZu5m9xfAF8KvhT4H/gE+gi5A6cBP6TmxxKl7dW/51hwL2Z6MXRrZf
frZj0wFJh+/Bek1ob9iEzQr4Umxqse2FnIPvD/8dmzvwE1jPAfdWHcA/jC1m
xb4/Ml7rw8FLwfXgS5HF8AN90G0uo2d4jpSr0tD8PAJ393drhjsNbgbvB78I
LUdTOOsc8hf7i+i7scWs2Fs9p1WeZ+2d7PWnmukCf9/zeBUuZl8npJLvG7G9
STr8qNDurjcI/S51cLe9zivQqcRypxxWON8Hm4Gx2Wtfm9f5SPRZj60aPSsx
/zqna2Qx7gD3xS4D+37oGq8N1fVQ1vpj8xXbuaHd9x78+NB6cEJkZ+isE+gN
3kfr0be9Nm65b5172ONQPCfVR4nFr/sVpuxdKv3OuksO/HH2dwZ31B0Ty4Vy
8gDchv199BbkI3iwcue1egR8xc/SG7yJzHcr/KTE7pUPro8sLs2J4aHFsQm8
w3Op3p3vs+Ue+xrAX8CPIptBege9xwi+r4Gz2XvF30TzRr2knnof2zvq3Bhc
hyzC5gG6W2z10BX90+tE9VLos25AZHEr/tmJzSzNrmnY94itztVzZXCtKcvB
EM+d7qoe0nzQ233G1z70VvbVewwLsC0JLf6R6pfE/KxRH0dWn+rdiT5nVsU2
dzR/qsH5sfn8HZrs83N0748+EzSP1F8l8Lney+pd1b38DwO/dBvNsIWc9Zy9
3eDKQ3v/XYnNPtXtOGz2gCdhsxd9xudhO3qQ+1ffK2faWwrOSKyWLmPzzPOl
e2uePUxZ3M0eQxHr2/zf0Q43xmea3rvdz8qEOxbaTDiP71/e251Zn5mYzza4
/+Tyx7A=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlVuMSFcUhs+xzz6l7UgjFUUMExMTKUqkNS6RKKlLm0ZI+oCpqWEmIkEv
aEtpmtCmVCrRFBHSJ8OEptXEJYwmePCAF7ep24PJJCVMLy7JCPH9/v3wn6y1
115r77XWv/apWrBs1tJuWZatBAX4n89/4D54ABbHLHsrz7KT2L5Ia7L9CLaA
P0EHtsNgSciyp2WWPQH3QCcYiH0Xtp7EeIR9HZiCfgFsx9YM+iFfAnuRXw8+
7wz6OvSvC8ta013eIebH6LXoU5EXgsvIL7LWgn0VmID+LXobvpXor6BvRm9F
H1fY/xfWavC9jV6N3g7uIM8q7TsW+2zk5dGy1krkjayNR/8HbELuxloOuvB9
DEaCl9jbAEYhfx+cq3JQLn3Ba2A/6wdAJ/I98DPyNrCBWJNz32kP6z+hD0Lv
gb4V+QPWViC/CmYj72StKuW/A/kmd7oB9oBm8Fn0fTvASOJH9IEpP+XWwNoC
3ZFYF8G+4FqoX/2xtxPjFujzAvcGj5Afph6r18pZubch/wUW4V+L/24wgfUN
6OuDOSVu9Qq++3Hiv6f94EruHPLSa7J9x57hnD8NDEFvAlOQ3yRGC7az6HPZ
O6RwrVXzauS6wlwUJ1s4a23p3FWDlfg3pvO0/zf07iDm5syo4B6r193ReyJX
R5+nMwYjr46+m/i0BnlONHfF4Rr8K6J9FfMu+g3ucx1MBzPAEuwz2HsL+5fc
pSHxVz3uwvZJNLfbwWpsB8HvqQfqxelUH9XwFPKHib/izHp8hwf3V/5rSs+c
eqmeHi28JpvOeLv0GdLl8wZ7jxCjDv0cmIft88Kzr/nTbB5MfFMNVUtxRPE1
45WFOdCW7qy79w6utfar18dBV+4endQcJH6rBgsTZ8XdRdgaC3O2I9VTvZqE
7VDuGa5Bn1j4PRHnGtn7EagHY1ivTZwWt+uTrTO9TZpZze7LhX0Vo0JvQ/Bs
i29nsfdI/NAdxKVhwb1TTVSbb0rnopyOla6ZajcftKo27D+PXA9O6Lxg7opT
o+Uf3Rv1cBy2f4P5dYI97xOrIjieenKYvdejzxaHfsD2VelZVv9GBPdAvdCb
N0C1LTyLmqFKzV7wW6F6i3uaac223oznbwc+Q3PH38zeoaXfStV7MPKBaH9x
4Ffk5ui3ST3cGz2Tym8eOKR3MTgXcfZdbMeia6OclNukdD/1oAn9j2hfxVCt
HgfPmnKaWfoNaErzvCK6R9KV39RoSFbMKv2fomuvHtThvzTNlzj0N7Fbg2db
/TjH/v7pfdIb2wv9SprXT9l/Tf+S6PuoR+rV5ei3Xfy5FP1P1L9xvs4FV6N9
VdMq9j8D3bHpbg==
            "]], 
           PolygonBox[CompressedData["
1:eJwt0D0vBFEUxvHLMl9Ag24bL5+AisRWXioVyc7OZIWSxn4Dq91EgtUQiU5Q
aYhiE7QKiY5SVChoVH43M8U/57nPc86Ze6fa3Fre7A8hDGEQ+UAIGdoOtb4Q
dtTLSggXuE1C+OPdqTX+HOr8LHp0i7+NM/zy9mQHeLH3285PfOFGbypflc3Q
szgpZ47VNn8XC3rnUaUnZUv6Hp0/7LviDdMjyPkZOvSobELWwY+ZbnmneLdF
eUv+LHul39Azl+tLK8V74ru69CEeym/dq+PmT/WNqU3ZGs7xLu+V/yz+u2lM
IdX3pL+hbjivYz8p7nSUFG+Ob1+xo867pv8Boj40Pw==
            "]]}]}, {
         EdgeForm[], 
         RGBColor[0.915625, 0.6590625, 0.33843749999999995`], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlWuIV1UUxe+de8+1hy9CjUwHyynjX0Y1ZeWj0eZBpQWNfTXGxImKHISG
okaKDCs0o6iYSirER02TYlaMwzhRml/0gxYqpUhCYlYQET1GSPst1v5w/nud
dfc5Z5999tr/Kx7qal9Rl2XZFkbBeI6fVuxNVZaNYawGD2N3llm2ATwZ+z0+
fXmW3Qx/G/N++KVwa+HuY3Qwn8G3T7Cz+b6XsQjci08jeDR4NPhQyrKJ4CnC
8GPBNezr2PW5/f5iXgf+E7sOv7vhvmPdHMUJ/zJ4IWe9An8WrlLc4EngovI+
Q+B61rfDX45/Br8O/jx4eeCJ+DyFTz2fr5N/4dim6b6Mf8BP4t8F34n/AfCL
yeeOwG3KzU9j/mzsc23hfOyLnOzmrNPYbfAtrG2Avwv7NPyt4MfA/ZGrt/E5
yfxH8Bel76y7r4XfU3of7fdfct7PYXfDn4IfwvbgtwB8Cz6zYv9H8XmBsRi+
A5/54OnwW7Hr8e8GnwDvxb+kKL7BzmN+JfwHyW+mN/kMvKzw++qdxxTO+RD8
3Mr1ozr6O97upPIAfyH4j8I1NQB+HruENTeCl2LPFOZWgH8OfAfrjoN7wJvZ
7xj2fOb5CeY7sQuxlzB69b6F32pTvMUg9mvGq+DF7LUH3I4dlRuLvyDZ94bC
Z2jvB+B6Ksc5s7Dfrtyx1yqfcQh+ZZw7rvRZ8lsddaZ668PnesYpvq1i3YOV
9SLdKBfKyXh828Ab4a8qfWfd/TTca8m1MwjeUrgeVBcfF37HJfhfXFk7l8Ld
GTEr9l9L5+oX7COFc/UM+J7Im/I3NeKUPs4wzoGPFa4jYX2bGlqQXpex70vs
PwGuCTwJPA48ksz/q7oufZerS+dUuX0C/qeovX64HdFPGsHbdO/cddMV+Rxf
WgPSwqfgg6GXVtV51G0ztqVy3luxZyMGxXhN4brqgNucXJ/qDbXoM8pZb+z/
O9yq0EsbeFb0tG9La1haVm9Qz5OONO8OrDVvJOv8TWwn/ttVt/jPK40fhh8O
bdaDFyXnX++g87SH9PoR+Dj4Q2yqrDvpb2vU/ZrkGhyIOhzAZwQ8iL2ock6k
6eHo2/OxefQ39Tn1p4bQxUDkRNrdn/kNlP/3Cp/1G2c2Vn6XtuR+obdT3fVF
nO+DP4/+0IRdiW3M3afqoo/n2C+Tcz5WdZW8v865vXQPmRN52h8xNMWeg8m6
2RW6mls6zuWsfYdv98NvwF4WtbSvtNZHhX9zYZ93U+hZGsZnTekY9X9yb2VN
SVszkut5QeU76+6Pgyfkvot6n/5zpFn1/e6oyZbwVWzSSWfyPdQLm6NWv0qu
M9XbW5x1JPJ1VP0vNKI+dDg5hzW4H+J/pxb9WHHq3OnJMTUk60R6UR+aHHmQ
tv4HgTjneg==
            "]], 
           PolygonBox[CompressedData["
1:eJwtlVmIl1UYxr///5zzDYo2EWoKKaZjQWhQU0Zpy1iTxVjgeF200JhLDkFT
UEm0jcmklnWRZilRuGAjuICjM0ZuN3mRkcos5Fw4mC004IVN1tjv4TkXD9/z
nvOec979u/m51uZV1aIo3gURXBcA393g6bIoupHXV4piI3IVhXrkLfCL4Cjy
3eg0wO9BZy78fdamIT8O2uGT0B8P72V/KfvtqSj6kZeA9+Cfg8XsrQVd6NaC
SfBv2b+X8zXIJ5GfBJ+i283aEHsLkeez18idhyq2fzz8BXTqkV8GZ+HPBvty
GZzh7DA6f4EqewG8Bq6wNx3cge5edBYV9nEf/GQ019px+H3RtsnGWzn7drSv
8vkt+Kvc3QY2ctcnoCN4XzadQf8j5A3BOtJ9KjoWI/IfuR/0gX1gP5gdfLfi
+zryuWTfdKfe7gJvwpvBTnRPoBNJ6DrkJvgE1j7I8b3K2e/BTHgfWM7+TrAD
tHDPUuUuOb66byp8OmsT4Z1gPvwudHdVbJNy/Qs6bRXXQBP8EJhRcb5fRPdf
dK5G+yTfDsAHC9t4HPnGXG+yZxnyY5yvgw+AFcpn8Ns/qEY5e4210ZzD4Rwj
xeoCGAI3Bdur8yuRT3HmT+SvwKPBMVAsVHObk+/U3XtAS3AM5fsouMTeKXRa
0P0a/BQMcdVMH/v/BMd6jGqU9w7nfFwDv8N/i+aq+e3w3cH5ljzE3ReR38n1
9CDnR/J9itETyMuTc6+Y97K3K9unN/TWoGxQrYJl7J0Otq0G/XGcvT7ZNvVL
B3xerl/1w4lco6rVrby1rXQNqBY2wTeDn4Pv/wzcEH3mcp4Pc5HvRKcRPov7
6+EhelZMQJ7Je405n4phq+IXfVY5Pw3/EnwBOsEeMCs6V+vQP4z+tlxP41jb
Cu8Jzqfe0FuyUbaqp9RbtdG2ymbFZlVyfA9yxwL05gTzLvCw/E3OvXxogVdL
vy0b6qJ1pDsEbufs/mRbZNMB+BvRsVf9r2a/Kct6X7HrD64l9VQPe1NqimIy
OM+9g2B77kfNyG+Sfdb7H4KC/c7gWasZNIXzlRxfxUC1rZmmfCinz6PbnXyX
7uyBv1Q6N+qJqcE92ZvfO5jcc+o96Y+Ft7K2gb1jyEtKx1z+6h8QkBcEz+IO
8F/yTNd9ikeCPxAdT807zeK/WbuSe1a9q5pUbR5VDyLXJdeK3qiP7ln1rmrm
R/YaSveGcngpuMfV64qhYnlb8Ft68/7of4j6WzNvJHkmNeT+WJQ88+Sv6u+7
5BkzkOMzjbOrS+daMVAsRpN9fQb5Y3ht7qdGMC/4H6J/iWacZt1wsH/qwd7o
HJ/PM1azdm3yWfX4Gvgtud6VT9X2itzvmqnrkf+InhXq9wHkh0r/6xSPX4Nj
qFjqH/gI/JXkf5ni16Z5XPrfoplzIfmfqVkgH+SLZoJk1ecR3mounXv5IF8m
BteiarKaZ4RmRTvra8D/EUsSfQ==
            "]], 
           
           PolygonBox[{{1206, 224, 1205, 1133, 1134}, {1377, 305, 808, 1164, 
            1165}, {927, 220, 1193, 1181, 1182}, {1535, 396, 1537, 1337, 
            1338}, {1165, 1164, 1192, 220, 1194}, {1134, 1133, 795, 152, 
            1135}, {903, 902, 1267, 258, 1270}, {993, 258, 1269, 1169, 
            1170}, {1199, 1198, 918, 76, 1196}, {1338, 1337, 1436, 337, 
            835}, {1334, 1333, 1429, 334, 834}, {1528, 392, 1530, 1333, 
            1334}, {1116, 1115, 1721, 505, 1720}, {1170, 1169, 1376, 305, 
            1373}, {1218, 231, 1219, 1115, 1116}}]}]}, {
         EdgeForm[], 
         RGBColor[0.946875, 0.7371875, 0.4353125], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlV9okFUYxr/P850vi2JXZRcGCQ0rbZRbC1tR6LYSHFNRugkqGenMNmlJ
0zBIqIguyhX9wejfsBUZ5VqmpRKRZsuaGl2klto/Leqiu3mR6/fwvBeH9/me
857znfc9z/ueWSv7l/VNK4piByMxdpZFMcboBf+EXcMY1FxdFMvBr+eiWAde
APcNeDn4K/jpyVwvuA27An4l9jV8TmM3MhoZk8w/wljNmME4zBiAfyu+hY9V
tkeT53uCPwH/OPYP+Fb2fw/+RuyPfG+AX5M9J5/V4P2FfTQ3u/S38Dx8Zmkf
fJay/iHwxeB38BkvHO+S0nHdB+7SWsY94BbsaOl/rK0d78zkde9GroZqx/cd
e87lzA1wE9hO/K4DHwJvYf5ZRhPfU6Xj1zlewA4HvjN5fhz/+bFPA9ygYmJ0
RY6Um0P8a0Ptc2xWnuA7wZeCr0i+yweZf5Lvb+GfwO5Ojmkra3vB88Gn4L+o
nJ9muNXBPwzXXDvGedj/WDMHfgHzDzA3E3y8cn61v/69qnaMl+HzL98j4hif
Jee1Ef8DoT39Qznujjx3sXYf+By+tyRrZw/+7XCdpb8nIieXM/8n+FfdAXgj
Z1sCPok9WDlPWxVr7bt8Hv7e2nf8Snb+h0N/jdnan866TaX/p70eC333MN8W
52kA9zHfXzr+j1hzEjta+f6l8718/5Dt8wzrlmbXQnd2ntaVzpViOh01Iq4v
eGlFmimxY7H/Nva5qbb/SHK9flw6FyvYtwl8Ffxz4MXSWbYuVcuK4Wx2Tl5N
HsLKU0voWrHcVnvPM8m1JH6wdj72RU42h8bWsvZ86d6h3PUn94AO5SfwwWxt
6Z4bor57oldI39L5HfjuT9ZIW2UdSA9zsQuT7c3ZeVeepIuOqKlmuJey/V/E
jmfv/3W2RqXV1uw6V20dgTuQfN4m/nUhsQ2pj2G/r6zVxcy3V9bnQOX+p56m
s16Z3FMWsd+Ryvo+ij2c3RPUG3LoX3Vwdba+rsFeFP/qxW6JOzqPPaEGDP67
8px8ZsA9lZ33p7G/ZNf/X9k1LA21hK6VL8U5Gn1Md/Z5cq+5AJ/7s+94Vbb2
VYPK6ZvqD9j32a+ozatGt1fmP6jcn6aiRsaSa+Of7H51Pu5dep8MbZzLPo96
zOzKedObMBz76A5+i1g+rZ1r5XwOvtPCfw/cmfBR3N1RO8fgd0W9L4O7O/qV
+tYwcz+DP6zcC+SzG7wevE+1Bd5V21/rVD+qo0/A/ZXrtQ/7e3aP3c78NvBd
4JFsnUlv7cm9QPWk97Av1u7EXl/7Lbmh9nsp3byBvaR2vjqwm5J736P4D+W4
P2mmsv6/TK7X3qjZl+PO1Ldaw0e1ciq710xkD2G9P4uSz/x2ds3onqey+5ru
StpfH9qWxlujn09i91bO83HpP95HvZO3Rp+/Fv5scr3fXvuN6Yx+MBB7LsT+
DysCA0w=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlllslkUUhufnm/mqUYNXokYTSawoIMgihtSqkbZqIhFJE6/Q2BgpqC0q
WlrFiDGCaKW0xK2xikYU9EIMmwSqJtYFl1DACykqVVk0ksiN0oTF5807F2/+
c+Y9c76ZM2f5xza1zm0ZFULoBBHsSSEs4fdm8FQRwnfojyLXgFb0/zD6Fwwj
/waGyxAOgvVgA9gOllRCGIv9NuQhbDqQfwd/sq8h+1+PzTT4s+C/Qp4DXoW7
lrUPkAeweRLuDdbuDbZphDsO/gEF6xGU2AzAzQbd6AtBe7CPGdidD78beQy4
Em4za5vAIXAYfJt8V92vBdu30BuxnYReizy19Fl3oT8NP1pA3szajTord9oA
3tReMAgegX8bfjz89eBj5OngfvwdKbx3E7gBro+1JuyvBvVwk/C1IJivhV8B
X4e8VHvgG+A3wn8JlqL3YvM66EJeDfZi34LtIvAiehvc46AHeQ34FX4Oe0/A
b2X9DPrE4BgH9BPoExDvASPItxSOhc44jm/3JnPaMwtuXWF//XoD9u/P7z0M
rkO/Avt34NaAc9HrCt9V39PbRtZWwa0Gn8GNFPalOy+Hr4621Z4GuIurQrio
yjmn3KtEczrfKORno9+/ASzD/gswH/k9sBdua/TZGvC/Ev9/JefrbNaOIgd8
n8k5plxTDuj+OmNCvyo5l3Qn3a1J+Qk68fsSWMH3lheuEdVKb2HfAftjMdcM
6EbuARcU9t0FSvx/WljWmmKjHFeun8T2FLgEfgHcQjDI+jfgvopzXLn+ETa/
BNff1MLf0LfmYXe37orPZcH53I78A2vN7N2Jvhj7F0BrxTmkXBofHbvjYDD6
m/r2z+BSbL9Orh2dYRdyfdZ1xt3IQzpz8DcPIF+ufKq4H2yLvrPuexd4F/st
0WdpQx9GvzDXm94wwW1HXwl3u3IGfkfht1fNFvhal+xLPhVL1ZhqaQs4ij4h
36cH/XP0D0F7xTnwB3sPJ8dO+pEcs3n5jfXWffk9tecQ+rTC9or5xmif8t0N
zi7dE9Qb+tQjwFqtlc4R5coO1qqDa2Yn8jml9+uMiv2IarJ0Tio3lQPKhSH0
A2BM4W9pj/YqBztzT1Jvuqn03U+DfuRPomOvN2jU+xZ+H735j+jHknuNaroD
uSe5t6onTE7umeqdqkHVYm2Or95oIr4fKp0b6vHq9dPRvw+uyZ/41oPRtan8
2gc/Bf79bK/ZMzf5fIrHnch/R9eOYq7Y6w6ncz85T3JyLuh8p5BfS54l6k9T
kmM0lHu+er9yqi3fT71rX+6XisEDfKsmOtd0n5nIz+f+qzeqyT1UvVRvqLds
ln10D1Yvvg37cRXfV71ofnLvl/9a9D3RtaRvzEB+IrqXz1TN4HcRen/Wmwv3
aPVq1ejB5J7VkPujZsMz0bWsGF6D7eLovZoRj0XPBM0GzQDNAs0w2WsmaTat
yvFTTZ1Mjplidwf6K8kzXbNdd9RdX07mNHM1eyfneSEfXciz8nzS/O6InkGa
RcqB59CrSvd69dRbC89IzUr9x9gPX1/6bTVD65BH5/soJg9H+5RvxfiywjNF
9pqZ1cn/GQby/TUr/weljyDV
            "]], 
           
           PolygonBox[{{884, 189, 1135, 1040, 1041}, {922, 921, 1202, 223, 
            1204}, {933, 223, 1203, 1050, 1051}, {1345, 1344, 1447, 343, 
            841}, {1041, 1040, 1137, 190, 885}, {1183, 1182, 1199, 221, 
            929}, {1544, 402, 1546, 1344, 1345}, {1051, 1050, 1201, 222, 
            931}, {1261, 256, 988, 1189, 1190}, {1197, 221, 1196, 921, 922}, {
            1190, 1189, 1364, 302, 1365}}]}]}, {
         EdgeForm[], 
         RGBColor[0.978125, 0.8153125, 0.5321874999999999], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJwtlmto11UYx3//fuccDaIUzQpnuVbm2nQ6kG4oSIWX6KI2hcBebAlRoRHT
1Gym9SIiLFutVLrM6RBCsJTmi2BJgdqslheyCzTsOpddZqUvKvp8+R74H57v
7znP85znPLfzr25esXD5BUVRHGCVrEHWl6wrWK/FouBXjGTjQ9bv4P5QFK+A
7wBXjyiKI6kongJ/D2876y7w1fDngRvAszFwDp2j4Gdlg+/7wO+B7wHXVYri
JmxMBC+Fvx/+lfAWVnz2ZHR3yCYfDwWfq/NlY27FPnexDoExUzRG62+Cfg7j
bng1+HMSwW74U+Cth85jBdkobX8E/KPoPAx/OvjvbEf2liOzDNwH7iptczzK
+4PjdA28E+wvqlhnF98L4I9GfiTBnVFxjBqw2wI+CH8n9H14rayXon1J6LWV
9kG+/MZqA/8KfZFVBW6IzkM7axrrGRSPQOdF70mmHTpQsc/j2bu9tG9vKJ/B
upfDOxOc6235fi1Zfh/fS5Qv5LfmO9bAqwUvAy/mHuPA28CXQQfkt+JAnOsr
zql02oP5p3LsZX8U328G18lb8N8G94M3QVs4rxGZS5Jjdoo1gb3a0n5NTd4f
yH6uSZZZDX0QmXfhPYqdWfBWsWZWnCfla2dp/rqK77YEncXgLs7czmoCd0L3
lO6Bg+i9nOv8cWT38X0SvBVeT7L9b5HvS87xJ9Bfou0PRctJfjd6nbkvdO+6
5NzXJ9fsoly3r0fX/G3I1iO3C97M5P5RH40EN2efd0Trnci6d5aWn4Jed86p
cqsYyjfVWGPpfO2BPxE8DrwWvBGZ44oz67no2PQE192xiutpTnBs50J7c7//
UJrOyDnaWzHWWWehwzn+quXGLKM+Owx+ADqqdC0cjp4dsiXb0pP+rNy3yt0O
9geiY67YXwu+FHxR8gyoynPgC+VMvRxcg7sr7kPFUfGZCv/C5Bo+UNqXpuzP
DcnyX8G/MVlPffwvOqVmBWf+E33OC9HzY0KeIZOj76I7TY/mb4nuB9X/d+rp
4H4/Hu23/J8UnU/5oxyfz3FUDPei8wR4MFrvfJ4Vf/C9QfGFXh/Nuzm5f9RH
zdEzVLO0Bt4x1jD4I3izS/v9fHRNq7Y3w+sLniXzweeia2oMeH50PjYnn6lY
a+6ujs7tmuhZMpxn0droHjsD/TO6ts5G19fGPM9Fn874r2jcw1nfBN/xa2hH
npeqmUX5jdBbofoZKny3kJy3XuURndPgd8D3JveR+ml0cB21wv85Op6nodOS
bW8MfqvUm/3JuVGsHxE/OA6KR0PwvNEc0punuH3G5nXBb88czYnSMVAsVe8d
ueZXwe+FPhY8T9Vf6rOm6D5Vv34cPRsPQQeT6+2/3IPrc439xN5a8I/QBdFz
dmH0m6H9DvCTgC3gsdANpd8FvQ+Tcr/UQm9J9u1g6f5uy/aX5ndUd5as+kg1
/UHpOCveY7P9MdCVpWOrGKuXVMN14IuTY6WY6b3Xu98Jrzq/73rn9S6qv6qQ
uT+6R9rzOyb7mk1duTeac57Vp+qRV3N/qc+Gss+ye1WeaeuC+1/+p+D6kH53
9LyTzK3BNSH/P4W/Mvj/Tyt0RfKs08z7HwKQCFw=
            "]], 
           PolygonBox[CompressedData["
1:eJwtlllsVlUUhc/vPfdQXpSEgANUBTSCLaUixik2GjUyKaFYSEycGJIaTCGK
CgSr4AMvjkDqUGMsLWgkJIiiPpg4xpZBWsGhKsaCsUZRgSJOT37LdR7Wn7Xu
3mfaZ+99/nELlzW2nBZCWA8iuDuF8EUlhHPBn2UI9xchvMv3LegabFvQc9D9
4E0G3Btt3w/WYethzCJ8l4AW9CWMWQqvxl4P78I+Hz0FPQ3eDC5DvwEG8V+F
vgY+BGbCdzB/e/Candi3McdroJnv94Da5L2twH5x6T1oL8+DUdjXR2vtUWe5
Hj0a/p40fDLjtzJ+BPpL9ArwAXwnaMZ/A/aTFe+pl/mHwFr4bdiPw7vxaUNP
BYvQn6BPYdsEqpirP1q/Cm7G9i3677yfpfDZfKuHD4GD6D3gKLwLTMd2ATgb
/jVoYv72wvwX0IPvGclrj0GfDn+9sE0+Xdiv5FsN9rnoK5Jjpti1w18EHxde
eyMo+f4h+ljWEd0brbX/Wngje6iteE/voLvzfSuG/YxdF33XR9CrmH9O6fU1
Zi78N9AAX6D8wX986bPeDsbBO0AT9t1gOPYxw0I4BxxmriNgQo6H5pyH7wyw
L/hOz8e2PPruGsAD6KuSc6OKJN8Lvy/67uV/Hva65NjpDFPgb0fvTfF6BfsN
oDHXw6Ws9RY+u8Ag+An8gL0V3z7lD7oXzIIfAG3M9SP2R4Nz5GpsTzEHn8JY
9NPwttJ1V41+Fr67dC5qP3vgE6Jjw9AwHl7FYD7/v6dbk2tItaSYbYZvj67N
W0AHvhtLr3UQ3Il/R/LetMdN2I9iX1PxnUxDb0UvDp5zBvp79IPZvhr+HeMP
5RgoFt2s93PwnbwQXSOqFY0ZgPfx7Xhwjs8qHDPFTnequ9WaDbm+VuJ/LXp6
xTV2Ar2wdGwV4zvgJ1XjFcerHl5hjgBOMOeQ7o/xj1Xs8wf26nyfOuOv6F3Y
H4G3gmPo30tzxagOPiw5HxWD9/GtYfySvH/V6iA+qyvuSVML5+Th3JPUm54s
nSu6oyf4mQRG5f4ysfQ32bTHU6VzXLmuNSey1k3ozuAeoF7Qlfut1hsdXdOq
bcV8B7aXC9+1YrQN29jo3NWZdfYzc//UnnfiOz/5POrBC5J7pHqlamgt9snR
ta6aVy+oSs4FjRkO/zS5lpTT++CPqwYrjqli+xJ6HrwHNGGvy/OpB6o3Li7d
r/QmtOquc72q5z6keOZ6Uo7+FV1ziqfmvLFwTep829GXJ78ZejvUUw9F54Ry
Q3u6rvCd6m6VU8qtbwqPVf9Qb5qZ+6/ON4nxLcm9Q3taltwD1QuVwx8V7unq
7brTCxl/Fz6f5/t+rnSNqdZU0xvQK5N7od44vXV9yfelGu3EaWSOv94ovVWK
mWKnHLgouqf05XreXLinHMj1MIBek98zzfEw/F/8/0muCdXGcvhAfp8U+/2l
z6c3TW9bZ+4XyrHPkt/AEfn9+kp7y/HUGXXWvaXfds2puUcW7k36z6D/DmcV
jpfyR2/HM8lvudZUbFOOn/JBb+N/KW4P0Q==
            "]], 
           
           PolygonBox[{{887, 193, 1141, 1092, 1093}, {1513, 379, 1512, 924, 
            925}, {1778, 1777, 1284, 259, 1769}, {1278, 259, 1277, 1756, 
            1757}, {1507, 1506, 1514, 379, 947}, {925, 924, 1224, 234, 
            1225}, {1093, 1092, 1139, 191, 886}, {946, 378, 1511, 1506, 
            1507}, {1692, 1691, 913, 75, 1130}}]}]}, {
         EdgeForm[], 
         RGBColor[1., 0.9, 0.65625], 
         GraphicsGroupBox[{
           PolygonBox[CompressedData["
1:eJw1lm1olmUUx+/7ep77Xltk2D7MsFrbKpc1U/JDL4SKCbHll8yXKMoKomxt
ZC8WFa6YjqCCPqwPkpXhlDDaVCSoD7m5Wu+0yLm0EoogS3pzCuWKfn/+pw/n
+Z/7uq9zXeflf879NN3VfVNXyrJsH1JBNuVZ1ovchn5pNcsGwHZefMCmYdZH
wTpkHH0QuR/9HfbMBzuRmegPgw/w7l3065Dl2C8AJznvUfRF6MvQH6r4fR/6
FDa3o18Pfp18/1ngjFjX+6kiy25Ffxu7I5y/EX0D0o/+BrgO6UT/Mrcfy7F5
ArwxzlAsZyD/JtuuUODIbvYPIa083uKl7E2enwWbkSr+3QOOcO9R1nfG3YNx
1yxkLUb9rN2RfJZ0+XDs/1wir2X2X/e059a1PozNbJ5fAucR4xzWfgWPI1vR
z+f+uty6fNrO80pwN/6cxGYp+rlgT+5zZL8t871ztY93ray/Av6VbLsIXBM+
tca5WyNe3Sf9PLAv91k6p5XnGrCWe38rnKt96FvA/Znr+hb7v8+c97sL12Ss
Yi4sDT6ciLuXBKcmkEZkbuFcXl5m2e+F4/kTXMa+e9k/nVzno5H/gzz/hP4V
2I3Nd+hdpWOV3pD5jNNIHtwSD55Jvls+9ICLkVXof4Pthe0fBy9J5u3h5Pr/
nPv5m2T9SHJOtf9V8MLIrXJ8ZpyvWC9Izu9q8Mqol+p2MdKB7Q71S3KO1IwX
Jed7MpkjilE8uTl4K/4uSOb6nmTeqO4DYIHUJnN4Cvknd49MVP3cRn6aiK2e
9WbwVOF+v5P15qpr3QL+UDgne6jdwsL12Q5OJHP6ELiu6t5/GdvG4MF61hqS
+/NzxYpMox9Lzq/ObAKfL9wDL4jj2B5WrxSOQzHMiV4sIhbNmyx663Tw4Vvw
o6ptdcZ0rOv9FtYPinvgfeHnLvzsYN8O9C+qnkHi7AbWOpJ7/j3wkejltZFP
+SF/1kSvyJ+nsB0DnwQPVMwPzYnNuWtaE7lXzuWTeHsqZtTJiF050EwUp0qw
N5mz3cl9oBmqflHMmlGyHY2eOQDuj/2yW8FZbay34Mu1pff/WHEcQ2E7HnNO
c+mT0vPrmtJz8ePcs1G9WxezbyTiaotc6nz1dVf02ovgY4VnxkL2DlXMf82n
p5PPez/qf05uTm+Meo7wcyg4KW7OKD3Hzy79PVDc9VVzS7VTDevjnJq4T/f+
wv1LKq7L/MIcHItZs7jiummmqubHM/f/6tLxrio9vwcjJx/i0yj6WPI9m+Mu
6X3h/2WlfdO3a7Li3horfPZAnK9eUk/V8/6q0jPx6sj3eNwlX+XzicK86A9u
rE+epQ+Cr0ffqf8mYya0JPNVvL2h6lksH7cVnve9MSvUx5vi26OZsTPmwKzg
jLij2Dvj+1UbXJ8d83g4+DAS9ZrJzxWlz5lXmuONkR/Z9MSM1bxQjzfg26el
/yt8Bu6Ndc2VP+Ibp/ro+6H+eo61/wD6/wFp
            "]], 
           PolygonBox[CompressedData["
1:eJwtlXmIllUUxu9332XUTLGJVKx0ZlxmslE0AtfEJIpRwVwLRXGUiNAmpcVW
l8woRKiwQAjTRkuQdApU6I8SyymXVNKx1FSsyGXQMlOxxX6Pz/vH833Pufe+
995zznPOrahvGP9kDCEsBSn4DuNoKYTn4HvhzZn5R4z1z0M4zNgZeA1j34uD
f7Dvwu4Jr2dNC3Yb7A/5tiYJ4QT2Buz+HLCF+dOsGwR+gq/mv5r5zsx3gb8H
umOPBr3gZ8G/8MeZfwCuy34On8vYQPgQ9tgE76I7cN4+7G6MXwYVZSFMxt7F
3Dq+qdH53Odv7EXgd9b/xvzQ6DvpbntBu+g9d8N/ZX0TPDD2RW6f5Jv2nIJ9
Bfs1+BrGKtl/M+sqg31qgl8HbUE37O3FHtrrAPYv7P00vBNDK8Eziifz4/l/
AVyEnwJD4D9rD/x5J9rXOWAAvCsYFYqYwEeASfBDYBh8AlgYnNPO8IboWI8A
TylGYDL8CHi5OENnKSaKTXv+pzL3AZgFvxlMC9ZAC3x9dK6Wgfvh6wpfFbJG
eEfwGHw9mA2fAt6Ab1SO4WPAi9inwCvwbcTkdeZuAT0y+yBftGZs9Bqt1R53
wl9VroP11Sca4vJ5Inw/PtzO/xXlpcx30F2mgw7wqmjtyqcfo3Oi3EgDe/j2
wdTxOs5YA/bb0XeT5kepPlj/RLBGhuaOkWL1CLgpOsaK9ZdgvvLI+oeladCT
+zRi3we/qrtgz+R/VXBO74H3y117qiHV0rzovbRGa2dEa0cxUCyUQ+VSGugR
XSNzi/qQdlYQ07qifgfC7849Nxy7r/SNvy9Fx0yx0x1113HgJOe/y/yC6BpT
reXYA4Lrswz+J3tWB2vmUuYcKl7loAK+NfGc7vBXZp/l+x2qidw9RXc7zfwh
+MForm/aFzlULoeDtex1nj36MPcouAC/jTvUR8dUsS1P7ZvieSu8hTPujc6B
clGLfSm4x/2AvSRaG6rxxepR0b7Jx97w5ZnPko8jWf9Q6vxKI9JKc2q9Kv6b
mX8rt3bUD+r4dn9q/akmdiSuEdXKV/x8o3ph/cqSNTWL9bWp1+r8sawfzPwn
JdfDOOYXRWtNPXwhP59G9wb1lDnqN9G1pp6k3nQxc+9TzP6An8msF/WAzxLX
8LKi/qT1HWB7yT1ZvflI9F3OYh+D1yXura1gd+oer/qTDx1Ue9jvY7fTnThr
DSCFN/Zbm9kH+VKLPQH+ceL6lo+D+L4ce2nJPVa9VjlULpvVr1JrRtqRZm9o
N/Wc6qN7Ys1Ku9KstFvi8OXwN8G13G+Q3qIV4D/mn8+cK8VrQWaNSWvSjLTT
lDi3itm3qWtIetUdL2eOQWvR70az9mh0rJRD9UK9qdKa3jS9bZ2ic6c3Qm9F
Veq3RD1QvVBvmN6ywapz7KrEsZLGVrH2XOa7Ksat8K+jtauc7YyOuWKvmCq2
qlHpWZo/DJ+fOlbS8LPMV2auVeWoOvUbpLdIMVPsGjPnTm+83nrFTLHTm6W3
63+MkgK3
            "]], 
           
           PolygonBox[{{1707, 186, 619, 570, 1762}, {1047, 86, 576, 610, 
            1046}, {917, 569, 560, 186, 1130}}]}]}}, {{}, 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0E9I03EYx/HvaDm8FLKwg0Zt82ClU8KD1UUPUUyEKNBz82SHDQysoM5d
SvCwDlGH1g6Cl/7Q9CboYcQK10W9COIUkaL8UwkdotcOb97P5/M8vy9siWz+
Vi4SQiigfCyEveMhHGAfA3Kaf+AnPspPeZB7+RC/MCf/5meYwiX8wZ2mEOJ2
R+ZkNIQU5uVzcqLRoVPXrHttLqIPJWR9+4ZHeQTn3WXcVXmIa7zEUV7kbh7m
NW5CDKtYQbfv1+wq3usxpxvvyT12J8wnMWZX0V01b/MCb/Fn/oIqruCCuy6+
iHv2T7wRxyk8xiOc1U/wJF/j+3yDryPvuxymkfHWQzxo/G433/g7zrhrR4t5
Rt/v9jJuyreR0r2wr+CtucTv+BO/4l03H7jO7/m0vhUlcyoWwtfGfyvXOCkX
9SvmOnfIG/zcflmXkAvyXfmlPM6zvIk2ux0uYx3/7Hb5ABG7v/wfFLZPMw==

            "]]}, "0.6`"], Annotation[#, 0.6, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0j9I1HEYx/FveHonNNQQhC0FaoZhpUNTQ3higiBKriVHw0FigoV6g+DR
cDTkn0RNLRPJQBEaFN0siDCDhGrKA+2GksChKQSFXr/hzft5Ps/z/f5+v+Mu
pB60dZ0IIcziqDiEIQzjCp7hbkkIo1xSFMI4T+AanqPDbJITZrfVL9RJdR03
8Etul1+MhdCo3+JbHJe94xhv8IK9Jr4Z3SUrxXt9tf1m/sYfuJjP8jZfxg17
NfxRluAK50/KKvkSqnDK7BNvYRNd+s/cbe8eD+i/Rt+kv4qse/q5D2n5L/O8
bAf38V3WyVn5GR7kx9wkP6/OqOvRgyQe4SHSZt1Rz6ejjL84M+o527yHNfUu
Z3CAFTs5fhLNnHmjv27nB7fIWtGGdbNyWbt6QX2Aaf0mz/C+/A8K+B19E2rl
b83n+Ry/5hWe4mWe41l+xUv8FCnn7kT/C3VB/o9zPOedxriXR3g6+u3MFvkn
yuKeyavI49gs5p6/6mB2yP8B7hhU3w==
            "]]}, "0.4`"], 
         Annotation[#, 0.4, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0T9I1HEYx/GvXadgik2FkYNDy41ZB6mlZHdbg9GYQw0eF3WHS0sKLSpS
gX8mC/QQTjGESEXSzEFwc/CMhrLhBEWDhqZQsOz1G968n8/zfL8P3x+/xkf5
e7mKEMIUVmIhjMRD+Ie/uC0n+QjHWJbfcgc38ylCZQif5CtnQ0jzJlfgDFbl
mPmkcwXcRFzO4IJZJRf1ZtCOajmLi2bnOGFHCdtIYkO/hW+gTt3mzAHf4kNu
5zXUIoU76ESN3SXzhPp7tC96p16eU7yFJ2aX5ZK6gZ/KaXUTX8ULvVbu1stE
32JPQu+r+iV/4Vc8oN+Pa85+kx/rJ9XX0Sunzfr4OWe5HH0LenAeeeSwhF13
p5256+4xD8pDaFHXcSuvOvcZO+qfPMvLfN+8yD/kXzzB+3pzvMcrdn7EA7N1
NOl/4EtYwDzG9eb4fXQfk/I7fo2HdnRhNHqn/h8e5IKdY/yMh/lN9L+jd3EZ
9VXewYvYwYlZzJ7f6lMc4T8nlVdl
            "]]}, "0.2`"], 
         Annotation[#, 0.2, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0c1LlFEYhvEzjjYuSiISDHEwEg00KSQoEaVsEY20GJdSjA1KJOpGKaKI
KNwYRVJRUszSPsCNCWqphOZfoIUudOPGWkwhESiIv3dxcd3nfs5z3sV7/EZ/
ui8WQsghEQ/hRVEIL3EWO8geCOGoflcexVucR0zfhVKzAq4qDKEas85xPuFO
FRrkg7rP8iRaMIObdqb4kNlXnkUrvuGW2TyXmF2Xz3mjU17hLNfoGuUady7I
W7o++aJ8D6ecW7me73O/WTun8Ue3ave27oxczKd5gAdxCZfR425SX+luE7rk
R9zNzdHZnR/4iYfOD1Brdofr+K79HrOn8jqn0IYr5utIYdnsCJdzL09i0d53
pLCjv8p/+bDdYcy5k+QKJKNd/mj+Rf6NXxjDkP4xMvIn82s87a0OXoj+kzyu
PyYvRd/Fa+c8v+JxfocPeI8nOKnPePO5/A/b0Xd0OW+N8CA/4zfcHe3xBsoS
IWzyBNawa1bgnby8h//YB/wPUN4=
            "]]}, "0"], 
         Annotation[#, 0, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0EtIlFEYxvEz6IxkKRGYuoohMFqIuog0wrCFIrgIhSG7jQymRJQXJBCj
QmjjBd1IGeJKsAgVaxFdkGnRshAUSco2Ea4UqVBIon7f4s//eZ/3nPPBl8x0
Nd+OhRCe4HAihKfxEJ6hGnNo1z3n/JwQ5nkBZ/ESHXaLfNCuMjeEKizJnzjF
p/iyM6+cOcoXdbVyK7/mK7qlyObzfJWzkfWn3W0zr3KGy3QncRzL5npuwC3n
ezEgV+g3nY+bu5FAIQqwZXeA7zl3h4d5BD36j+YGJN0d153T1cmd/A+H5ALc
lyd5iB/wDXf6ud+8IY/yZ/6KL9F75kb7DazIrbzGKW7BEbnJ98qd/SX/0A3I
d7FvvhD9By41H7Pbk9/woPmMXMQ1fE33UE7ze2RxUz/o/ju8xZy5RL/AH/gR
b/MOpnDJ/RO6IbmMxzitG+ff+Bl9Qz/trRn04TEmcN1ulr+hOC+E7/wC6/hj
F/POtvwXu/gP48FQEg==
            "]]}, 
          RowBox[{"-", "0.2`"}]], Annotation[#, -0.2, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwN0D9I1HEYx/Gv5P/BQU2PQ04UAocm0RyECCdxuLND8cwgEKfIPyWIIEbi
Ieqgi3KCOKTQEIp/BlcHSVHQFoNoSAgRQVQUAoOIXsOb9/P5PM/3d3BV3f3J
vqwQwgwOHoTwOSeEODdwglc5lRvCBj+XGznJW9ypr80OoU0+4nau4xf6bfuH
XIIufW5eCBFzFEfyrv0rztdX6GI4lr/oe7hQX6WrQTW+6pr5kt+4eYtBnPu9
PL7ga7tKc4G5EDfypDfTGDBP8Due5af8zE0T/pmLOMrvOYMFDGFYF+cRTvIP
32/larmDT5HCN/kXn/h2Oz9212K+05/Jo3K9OaF7whE5imLcy+U8jlKM4QO6
vdt132u/Y37NY3IahzjAHvbx0X4ZP90scqf3LzFlfqRLmefNMf/ruHxrTvOS
tysYRAZz6LH7xGsoc7/J6/iOP3bBt67Mf/Eb/wFGxEe6
            "]]}, 
          RowBox[{"-", "0.4`"}]], Annotation[#, -0.4, "Tooltip"]& ], 
        TagBox[
         TooltipBox[{
           Directive[
            GrayLevel[0], 
            Opacity[0.5]], 
           LineBox[CompressedData["
1:eJwV0LsrxmEYh/HHOV7nY0IoJv+ARWblTBSlsIpYlAH1JiQWMkvZJLsFSUIG
kgySLMLmkEJ8fsPVdX/v+36e36F6aKxzNCGEEEd+WggxtCeFkMjZyMGJnMld
nMS5yMOpnMW9nBz1Ut2BM3kvJYRCdZ86xaxEXYpz+dBsgNP0y/QqUIVKHJkd
I92sRq7li8h4dqZKfuV9+QkZdmP40YslewYf6M9jEXNYwTIazBrt/HLgl+hO
5MnN8iRaMCV38K1727iVW9Cnvrb/wFfczXX6TeobZx7lable/aZXoH5Xl/MH
F/MMBu19Rv8h2vE9szwix3kGJ7jEhr07/Uo797wk9zu/wL3cgzV1hXk5Fu0U
8rizm5jAOlYxbG+Lt1FkZ5d3ovfGl9kfXtXfeMc/VY8/kw==
            "]]}, 
          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, {
   3.66892995637183*^9, 3.6689299629791594`*^9}, 3.668930164879278*^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.412379780460128`"], "Output",
 CellChangeTimes->{
  3.6480454206666703`*^9, 3.6574608329164057`*^9, {3.668929956387631*^9, 
   3.66892996299711*^9}, 3.668930164898576*^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]", "-", 
      FractionBox[
       RowBox[{"398.9422804014327`", " ", 
        RowBox[{"(", 
         RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.0072992700729927005`", " ", 
           RowBox[{"Missing", "[", 
            RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}]}], 
         ")"}]}], 
       SqrtBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1.2342619923973397`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.0072992700729927005`", " ", 
            RowBox[{"Missing", "[", 
             RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}]}], 
          ")"}], " ", 
         RowBox[{"Missing", "[", 
          RowBox[{"\<\"KeyAbsent\"\>", ",", "\[CapitalXi]cn"}], "]"}]}]]], 
      "-", 
      FractionBox[
       RowBox[{"398.9422804014327`", " ", 
        SqrtBox[
         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", ",", "Ksn", ",", "Ksp"}], "}"}]}], 
  ";"}], "\[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[{"Ksn", "\[Rule]", "ms"}], ",", 
     RowBox[{"Ksp", "\[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"}], " ", ",", 
     RowBox[{"Ksn", "\[Rule]", "md"}], ",", 
     RowBox[{"Ksp", "\[Rule]", " ", "mu"}]}], "|>"}]}], 
  ";"}], "\[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"]}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", "1"}], ",", 
     RowBox[{"Ksp", "\[Rule]", "1"}]}], "|>"}]}], 
  ";"}], "\[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"}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", 
      FractionBox["1", "3"]}], ",", 
     RowBox[{"Ksp", "\[Rule]", 
      FractionBox["1", "3"]}]}], "|>"}]}], ";"}], "\[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"}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", 
      RowBox[{"-", 
       FractionBox["1", "3"]}]}], ",", 
     RowBox[{"Ksp", "\[Rule]", 
      FractionBox["2", "3"]}]}], "|>"}]}], ";"}], "\[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"}]]}]}], ",", 
      RowBox[{"Ksn", "\[Rule]", 
       RowBox[{"0.96", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}]}], ",", 
      RowBox[{"Ksp", "\[Rule]", " ", 
       RowBox[{"0.96", " ", 
        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"}], " ", ",", 
     RowBox[{"Ksp", "\[Rule]", " ", "0.87"}], ",", 
     RowBox[{"Ksn", "\[Rule]", " ", "0.87"}]}], " ", "|>"}]}], 
  ";"}]}], "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}, {
   3.664521716748043*^9, 3.664521720550377*^9}, {3.664521781005949*^9, 
   3.664521797989893*^9}, {3.664522029305674*^9, 3.664522062892531*^9}, {
   3.664522102935545*^9, 3.664522141765819*^9}, {3.664522197746861*^9, 
   3.66452220881958*^9}, {3.6645226395354223`*^9, 3.6645226733751*^9}, 
   3.664522730711494*^9, {3.664522844187087*^9, 3.664522850214559*^9}, {
   3.6645333744665937`*^9, 3.664533409299241*^9}, {3.664535117115972*^9, 
   3.664535131065667*^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]", " ", 
      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[{"Block", "[", 
     RowBox[{
      RowBox[{"{", "\[Beta]2", "}"}], ",", 
      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[{"Feq", "[", 
    RowBox[{
    "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "q1_", ",", "q2_", ",", "T_", 
     ",", "\[Omega]_", ",", "a_", ",", "Spin_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Beta]2", ",", "\[CapitalDelta]\[Theta]"}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"T", " ", 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Beta]1", "2"]}]]}], "-", 
       FractionBox[
        RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]"}], 
        SqrtBox[
         RowBox[{"1", "-", 
          SuperscriptBox["\[Beta]1", "2"]}]]], "+", 
       FractionBox[
        RowBox[{"\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{"a", "-", "Spin"}], ")"}], " ", 
         SuperscriptBox["\[Omega]", "2"]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]}]], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"q1", " ", "q2"}], "137"], " ", 
          SuperscriptBox["\[Omega]", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[Beta]1", "2"], " ", 
                RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"2", "+", 
                  SuperscriptBox["\[Beta]1", "2"], "-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[CapitalDelta]\[Theta]", "2"]}]}], ")"}], 
                " ", 
                RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
               RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
                RowBox[{"Cos", "[", 
                 RowBox[{"2", " ", "\[CapitalDelta]\[Theta]"}], "]"}]}], "+", 
               
               RowBox[{"2", " ", "\[CapitalDelta]\[Theta]", " ", 
                RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
              ")"}]}], "+", 
            RowBox[{"\[Beta]1", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Beta]2", "2"]}], "+", 
               RowBox[{"2", " ", 
                SuperscriptBox["\[Beta]1", "2"], " ", 
                SuperscriptBox["\[Beta]2", "2"]}], "+", 
               RowBox[{"2", " ", "\[Beta]1", " ", "\[Beta]2", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  SuperscriptBox["\[Beta]2", "2"]}], ")"}], " ", 
                RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
               RowBox[{
               "2", " ", "\[Beta]1", " ", "\[Beta]2", " ", 
                "\[CapitalDelta]\[Theta]", " ", 
                RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
              ")"}]}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[CapitalDelta]\[Theta]", "+", 
             RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
              RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], ")"}],
            "3"]}], ")"}]}]}], "/.", 
      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[{"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]", 
 RowBox[{
  RowBox[{
   RowBox[{"EMContributionVelocity", "[", 
    RowBox[{
    "\[Beta]1_", ",", "m1_", ",", "m2_", ",", "\[Alpha]_", ",", "q1_", ",", 
     "q2_", ",", "a_", ",", "Spin_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Beta]2", ",", "\[Omega]", ",", "\[CapitalDelta]\[Theta]"}],
         "}"}], "=", 
       RowBox[{"ModelDynamics", "[", 
        RowBox[{
        "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", 
         "q2", ",", "a", ",", "Spin"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"2", " ", "m1", " ", "\[Beta]1"}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Beta]1", "2"]}]], "-", 
         FractionBox[
          RowBox[{"2", " ", "m2", " ", "\[Beta]2"}], 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Beta]2", "2"]}]], "+", 
         FractionBox[
          RowBox[{"a", " ", "\[Pi]", " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]}]], "-", 
         FractionBox[
          RowBox[{"\[Pi]", " ", "Spin", " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]}]], "-", 
         FractionBox[
          RowBox[{"a", " ", "\[Pi]", " ", "\[Omega]"}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"], " ", 
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]]}]], "+", 
         FractionBox[
          RowBox[{"\[Pi]", " ", "Spin", " ", "\[Omega]"}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"], " ", 
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]]}]], "-", 
         FractionBox[
          RowBox[{
          "2", " ", "q1", " ", "q2", " ", "\[Beta]1", " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "-", 
         FractionBox[
          RowBox[{"4", " ", "q1", " ", "q2", " ", "\[Beta]1", " ", 
           SuperscriptBox["\[Beta]2", "2"], " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "-", 
         FractionBox[
          RowBox[{"2", " ", "q1", " ", "q2", " ", 
           SuperscriptBox["\[Beta]1", "3"], " ", 
           SuperscriptBox["\[Beta]2", "2"], " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "+", 
         FractionBox[
          RowBox[{
          "2", " ", "q1", " ", "q2", " ", "\[Beta]2", " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "+", 
         FractionBox[
          RowBox[{"4", " ", "q1", " ", "q2", " ", 
           SuperscriptBox["\[Beta]1", "2"], " ", "\[Beta]2", " ", 
           "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", "q1", " ", "q2", " ", 
           SuperscriptBox["\[Beta]1", "2"], " ", 
           SuperscriptBox["\[Beta]2", "3"], " ", "\[Omega]"}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", "q1", " ", "q2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[Beta]1", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]1", "2"]}]], " ", 
              SuperscriptBox["\[Beta]2", "2"]}], "-", 
             RowBox[{"\[Beta]2", " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]2", "2"]}]]}], "-", 
             RowBox[{
              SuperscriptBox["\[Beta]1", "2"], " ", "\[Beta]2", " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]2", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                SuperscriptBox["\[Beta]2", "2"]}], ")"}]}], "+", 
             RowBox[{"\[Beta]1", " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]1", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Beta]2", "2"]}]}], ")"}]}]}], ")"}], " ", 
           "\[Omega]", " ", 
           RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}]}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]], "+", 
         FractionBox[
          RowBox[{"2", " ", "q1", " ", "q2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[Beta]2"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]2", "2"]}]]}], "-", 
             RowBox[{
              SuperscriptBox["\[Beta]1", "2"], " ", "\[Beta]2", " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]2", "2"]}]]}], "+", 
             RowBox[{"\[Beta]1", " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                SuperscriptBox["\[Beta]1", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["\[Beta]2", "2"]}], ")"}]}]}], ")"}], " ", 
           "\[CapitalDelta]\[Theta]", " ", "\[Omega]", " ", 
           RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}], 
          RowBox[{
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]1", "2"]}]], " ", 
           SqrtBox[
            RowBox[{"1", "-", 
             SuperscriptBox["\[Beta]2", "2"]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[CapitalDelta]\[Theta]", "+", 
              RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
               RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
             ")"}], "3"]}]]}], ")"}], 
       RowBox[{"Abs", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox["\[Beta]1", "2"]}], 
         RowBox[{"2", " ", "m1", " ", "\[Beta]1"}]], "]"}]}]}]}], "]"}]}], 
  "\[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}, {
   3.663779981349094*^9, 3.663779998239159*^9}, {3.663780647260788*^9, 
   3.663780787666442*^9}, {3.663780964557969*^9, 3.663780977611397*^9}, 
   3.663781068839143*^9, {3.663782077441378*^9, 3.663782086784046*^9}, {
   3.663782289095337*^9, 3.663782297435837*^9}, {3.66378240639018*^9, 
   3.6637824311085167`*^9}, {3.663782462207903*^9, 3.663782717520465*^9}, {
   3.663782759561348*^9, 3.663782792442678*^9}, {3.6637829144120197`*^9, 
   3.663782915270488*^9}, {3.6640091821540728`*^9, 3.664009186866746*^9}, {
   3.664009286666278*^9, 3.664009314969372*^9}, {3.6641923586459293`*^9, 
   3.664192381517376*^9}, 3.664201151994526*^9, {3.664201663355062*^9, 
   3.6642016804224577`*^9}, {3.664525362872836*^9, 3.664525434599123*^9}, 
   3.6645362970470543`*^9, {3.667715419543313*^9, 3.667715443090032*^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:eJwVjnk41IkDxgc5YmJYZJQWqaRLIanW+20NRbWJlVi1lZy/5LboZkmuyLGk
pIYO20onXe4zhClHaokYM/P9NohxDrbfH+/zPp/n8zzv8+oc87Vzk6TRaJe/
5/9t48ZrLeM7mEdnV2xY0MkyHyw4cKyHaYy3UnXMIcYqqCu0JT5msmCrFm/9
mmGK9WaqedeZv+LW9DD9NmMntrYYFV5hHkdoUezSmwxHlGVVmiQwg2DI3O7y
nOGByAtxobHMPyGZlnHYUPkPHA8aYl5ipkLGzenq4h8uQi7V+ubwSC4KKw2M
vFQzUNSyaefOZQ8wJkEzuv31Jg5GfuqqjHuCnBNNp06U3oHvw8B1GWPPId5f
uMpLpwDfktrrJCRKYaD0Sq1D7RHqymtKm7dXoIpu5zfu9RReYdaLnKgqVPYv
HKotLUb5wk3z931qUZyX1MESvsRtdtWc5oo3YPU1/WIRWgpC/fUt+4JGJLhq
JFn5lmNd7afiGoNm2Cb+lTm4shLvCXvhPWELSu+VXfBRrcYJ+f9x2gw5+K0w
eMTjWw0aOh1fKya+Q5/Ov4fkFOthb3Wwt7//PXaFzZU5bGnA5pw4xxy9dgxN
2LImHJrweS7lvee5Dryx8SyvLG3GgHUzW72yE1GPftDexmhFYWZPWKtOF9YU
pKrU+XCQFyN1aXX4Rwwdly3J/fgOIldngfvLTyBzbw5M7WyDAiva7uHibtQY
p37LGmrHacYAvdelB/5Pnga+y+wEvWQNrWPvZzxZ0xLJdunCTyH7ZiunP8M1
q3HQxO8TruXGs5df68X2zXqKwYndOOxg3LRwdx/MjwSUx8Z+xtM2t5SS8T6w
2jL7mWQvzBoLJbnpX2Bw1zPZ1OkLtC3dRSmsfgQ107xn1QdgYmyS/ITbDzX/
289+FXLR8y2hnh01AEbOZYUzMzxQRvujmJu4ULOLvZwTT2IluU4g8Y6LYVux
quNBIehyzXkv27hQcfnVPcRNiFE9v6PBnVwwM0zHswOEKDv8qJP3LxdbAhdP
KSQI4czZXNvM46J3JObWgQohEp8j9/ocF53s/hNF64cgurj/sJnBIOyzp1ND
ZYdRpRfM8bswiKh4oTZ3YhiRd14cFEcOYmt5lpPF/DB+NqD1XIwehKG78pc8
mRGUb4gjs+MGofnGdT5cbQQlW28uaEobxD+0Fpq70QiKbJs2r84fhLpU6m8s
vxHkn16R1csZxKZvlb17hSO4/L7N1U6PB/nn/vOKs98QfzZBr3UlDy0f1Jpr
pEcRq285sG/1d39y0jVKcRRRp5+4713Pw43+d2J17VGc0kvx2rWFh4i+qbp4
i1F4BNn6mu/hQVY37Ut93Cig2hBuEMTDzyJ2RLXOGIbsy5Ilq3hwXaX7c4Ob
CON3ok4U1fDQExUSfcxfhLkZm50n6nkQyuQmLTgjAj23Tdz2lodd4vaNXqki
6I8JPO594CH9dOyeZ5UiHElVM7cd4sHfI/m4j944Wt57C65r8pEyt0GzXDiO
Dn3DajstPk7/psNrnhlH92nRDVltPuKUQhNIuQlQeucd/Ffwcd+346718gnI
BaeVsQz5OHAn14h9cAI71MrSSUs+xAupq5+qJ/DIQc3CzJ8P3T2xNybzJ3FF
6RyvNJAPZ7rsm4biSQTU8xKsQvjIdXjpdb9mEht/etVpf4oPLd9qh/S+SRTq
uZ48GcWH5ay6lNKSKRSMFmayM/loPMfekZc4hfzkPcOLKr7v6brWT52fRuzu
Z2mpVXzIa754zE6ahre09rYltXyM5qVUH8qZxuqw0Sj9Rj5UnZzLJcumcffI
1SUW7Xy884t5q0Kbwe0NPKtQAR/NjWbxRyNnwG6KvN6nIsCmC2GvQ/4SI37j
jMsNNQHES/wvdOaLEZIWsNRFQwCh2XOb/SVi7Dp0NKtNS4C5nxriYwbEEFLm
mXX6AvydnQUVk1lsoU+nFpgL0JI5pl7UOYsmG7/4cG8BONPKL84bzeNZweBu
Ux8Bli1fmrbYZh45Kr8rjPkKYElbZthwZB4BXXtjfYIFeHClKPxS4jw0vNfE
HDkvgFWy7D5Pch7HLnEjrdIFeKP0VcbPgUZM1LqcUqkQ4EcXuZn1OhLEMnur
4IoqAcbuvX1JrJcgrLo3+AbUCvB4rbbi8W0SRPqYpCunUQDtYI3hHgcJwljn
ns2VDgFsMteFFcZJEAHhIqbKVwGOe4pZ76clCGptYrGyBokM+e46U54koVr8
x6NyTRKTlkMfqiYkiW0WR+/7a5GQOdge7ikrRcQ6Gee06pLIrO/QH1spRayO
7rqYvI7EQ7WocF0PKcK9Z6WjsgWJESv9VhlKivicXCpinCThMxvR7b1Qmvgc
sffFFT8SlTIVk6SmNNEb+PGsaiAJdTGvInqtNNHnMCGrEfr9D2sb5G2liS/M
DZo/RpB4rW/T90uGNMG9mW2+Lp2EU+4iLYn1MgT58MxF6xISUs3/Dr32lSWo
Wwp7GspIHLa2usv/8zunZDL2VpL4+maBsunV7xz8NNO2jsQdwccVW6plCaHZ
178dOSRiUrKFH5fKEcPlLi1uXBK+0UGJIxw5Yrx1GzNCkYJMq69DjYs8QfPp
mDBTplDRXpEhGSZPyMsFto/8QGFn8QLpoDR5Ypl5fspRJoVrTppXJt/KE5b5
Goo79CiU6PPPZrAUiNQIkSRtK4U043jbF1vpRLZWcm/Rdgrm0eNKSc504m7x
2jJfUOgLamzKDacTr4SuZ3pYFDzX5MslvqQT/c6ciZJ9FB7UW7kGEosII6MH
1Bk3CsUik5yNjorE9rc2DSaeFHSaj97dd0qRsPLi3vvqTcFdvGi8+IYi4XxD
y+OQH4Xb/zzu8uMrEhEK8b3bT1Go7tJsSTyvRHC+eLbPJFFgdP6RvOZ3BuGX
qlsW9opC94fltRWlyoRd2jEvqVIKnH9Wu5FtyoRJ+i2VhHIKZ01TVrEoZWL6
L123nBoKB+hT7jFMFaKWIfcqrp5CCPv8DhirEP8BG5dz8g==
     "]]}},
  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.551022551990959}},
  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, 3.6641923991706743`*^9, 
   3.6677154785029535`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV13k8VF8UAHCUpUSoREmIkoQsLVLnUrYsWSLJlhDZs84jIqRIKipLUSJJ
9i27CBWKVJYx894gLTL9FIrU7/bXfL6fe+e++87cOedcaWdfC1cuDg4OU04O
jn+fh1w/9jZ/stov+IZr1DBWFCaKrJ2Z4uow5R8+dDb/B4jyv00qFz8INYp1
o5vzlyKlPatzb4sfgaVUSIP7g9VI87VayTVxF+CRsWE03ZdFzRmtGpfFA8HY
wYTDIl0dnY9KCL0kHgNdO9NWJ/gfRI0SblXWtTFw9o59/S1hXfSzGv2QOR4L
ER2dYdalushrasa3LjMOrvFlyQ+x9dCR406nJjdeBCGbkmMv3Q3RZg0Na9PN
SSCzwc2s1sAUuQSyxS+Kp8BAzq2QiSFLpLbkGlHmlwKSQQ/3BiscQVzX1IeH
O1Igc5PgxBPaEZRVTMtUCk6F9skDRfZrrdDQ5yUb+/tuQBw35c532BodPiEm
uzExDfJczf7GF9sgTVNtpco/d8D+dHbtATV7xDcymsSwygIDa6kfjaH26L1n
HJv3cRbc6dXdMNFgj2rbXG0eb8+GyXnm6f36DsiGVSDOQc8GMcfZieXWjuja
Bo3M3N33QNOHM3ddmRPiSzG8++2/+2CjqsRedc8ZLeymFu6uywXV13uKXzU4
o6mRUGvLA7nQeOwO9+lBZ/RmSz5/VUou0K1mFjSFTqI7dTzBYbvywO343zfm
4SeR+mjrIZ6zD0DM7kbCGVMX5KS6/8d6vgKQ3URrix92RZbv35p2qxTA5/03
XRy+uyK9cO+HEccK4Gluy5G1/G5oW3umA1VQACaVW56pabqh2WMLnXkmj6DT
r0J3/U03lBhVc3vH9UIYsDV93GF0ClW/VtXXlywGMieU/fCuO0r6NGmgqFcM
WqqD+19VuiM3rgeHhH2KgSs0s3DkuTsSVV9vOtxQDKvGHX2r/nNHdS+jCqqV
SiDbcrfDceSB1iufLjXqKQFFhabW5EEPNDSj2RQgUAYWasf2Jf8+jfS4xJCb
dBmw9rzXXCfoicoEZ5ptNMqgbtmi+9WNnujSluKn++zLQClbsEdfxxNpHtvU
zvu4DNqUl/33Ps4TpdXzd2cYlwP90WL5nRVeyOY8fag1oQLiHASex/J7IyFy
s+KpuxXAMpw+v0fCGz3X8j+7vLoCJHokxYcVvZHmLLeUOasCTss/Mvlo4o3W
eyi7MnZXAnc2oap0xRsxTKPZP8expwQ6owR9kMs6+aVKqBp+iF7p5uf0Rb6l
Adtv/XgCPI0VS6/a+6EpLerNc75akOCcU80+6Ye8Ok2JBYlaMCix2lzg4Yfc
mVs7HHRr4V7PlrCiID/kJEA6yd2ohdM39Uppl/2QmYdxStmuOkjccqlVqt4P
qUjLLXQR9cB5aNCXtcYfTSe/6+TkbAJJQ0GFlHp/VO9VCmOiTdDpoqH/vcUf
XTBIrGpXbIJgYxcR0w5/JMGhcz/BpgkUTuW/nO31R7q+jyPXlDTB/r30wDUT
/qhrs05GinIziC5p708UOoOkuMUt8hnNEN3cuynB6QzqbGlveqX1FAQ3XPUh
Z84gD5qhwLHJNmjJ3Pst/2cAalmm+rfQuwOi65PjIp4Horyctj/r5F6Axxp4
eyI5CCHRhnuWRV0w+Tz1vYpGMNreQa9pV3gFgc90f0S3B6N+ZDn1cOo19LRp
3M8+EoK8lnv2vVXpg1CxC8WeXSHo5cDRBsGkN9Aul5jxVDsUWerZUGNj/fBR
sfDmsYehaGd2wtFs2XfwwjLE7yAHDZF/rve7R76HOyZG64KP0NC44asc0dYB
SNl9IYBMo6GSNCatV3oI2qZTI/WGachrq8SQ6pYhUNk6JqJGpyH5JzaaKYpD
EG+bsmzjCA1lDfTOW+8aAtNVotIzDBpKWtsWRjceAknN0J9pLBryTs0/OxEy
BAbVMvrtn2hI4ap/1GL3EEwS580fztFQbvySi1uJYSiiXdp6S5hAImPxEUqR
wzAVLaBjJkKgcyAYqBYzDGinTi/vKgLZzoo57ksaBjezPMug1QRa6aKkYX5v
GGTHMycM1xKIBseo0BfD4H5VUm9QgkAms0V7OtfRIUVLMz95C4FqzdWVuzfS
wQUa43fJE0j+8RPZPlk6VDQtMEawuVzaVtKV6OAsFDkpr0Cg6t7BcbYOHUTS
ci/VKBJI+vHSa2s96dC2Sv5lww4CzZy0/exWR4f4oiZRp70ECl61sGqgmQ5C
kTaKXFoEmn2asc+wnQ4S5PjtnH+WHkne1kuH8d85KWP7CPST6bjr2wc60C+t
fOWACDR/3DWGJjICzd32p9V1CcRxxE8y0WMEYu5ZvjxpiuOxRNhg0WcE/BzM
tf/D5iwv9fcJHIGKMBCOOIz3L/K9zSxyBMJSchtTzQi05HWQ55rUEXCqyzZp
sCAQj3FYzZ3mEahq0VT8ak0g/oNxFqVrGUB0/3V95UAgrSZf4XYJBhhE0xbA
kUA+msdeD0kzwOyo6J9i7D4VRdOligyY5Q06lOREoPQNfYZHEQO4+kcXDzjj
eM5t0F50Z0D/QdXm664EOlhQqWxYi9dbOafW5onjI5c1Zd/EgIzbxkYyXgTK
z45/fKaNAXzlZ7sjsflvHt+W2cMA0wBZkT3e+HnnObewWQyYFnJIv+9DICd7
E8lUfiYM3hJKdfQnULjQ+ArKjgmBBtM5LsEEUhgqQ/QTTFgwDQguwh7MORf4
3o0JHpPS1XPYO3dJ0Lv9mKBtVhkdH0Kgb/aWj2pjmCCT4INyQgl08lGLYUoh
E4b3NB5oIPB5DLpy9kopE5Yp67IXsZv325deqmLCt00PePeHEUii76dYVDMT
6tn3I+qx3/1U/ujdzwRbE5nzZeEEOqR3J07/N56fXtsXHUGg37w77e9ykFB6
+4Z2LXb/pMSc5BISnH98XP8fdnTVZ4V1fCR4zaaI2EcSiGEYd01IhASphhhu
pXMEuuXXcGJRjoS1w7Zfy6MI5Gt1f4GQJ+FraQ0fC1tPMyH1pwIJT2fXJK2M
xudzybHn35VJ6EnyeeeObXHzh8rnPSQsOzxtu/o8gVY0buN4b0JCyrahDYdj
CPTVWKrikhkJavcrRoOxe4ZXu++3JOHtlNrcbewrvxZf5dqQICSXzfMZW0Tj
dVbgSRKIjJxWWiyBvre2Wcq7kXCPIf49A7vf4gkv3Z2EgIcqvg3YqX73fA/4
kHCprc74D7ZYYSCI0Eg4OZ6bFhJHoF+aHt+fhZGw81uEQgr20HP7B7QIEipq
v/KUYGdM6K2kzpPQrsl9bxw7PHhva0ocfv+lp53+Yttxq4QYXCThTTXdQ+wC
gSQ3iTOLk0gIJJ3tDbD/lgpcP3mVhLpbO/QdsUnEpb82hYQXjTFhQdh3Hb4U
RaSRkF+9vTULWza9IcLkPgk1xrUvvmBzby1T5XxAgojEyNJF7A/VeR8qHuLf
y88rXiCeQA/eXjGVKCbhY52OpyJ2vEsM1+tSPE7ovNDEdv8eWnW+goRbxlJn
DLAVhJ0lvzwhwTr1Q8YJbP5s67479SQ0L8Zt8MaeVDKKs2giIdw+aCIEu6sB
NHmekhBz+vKvKOzHxupTT9pImG8qsEzAThqWv+fdQYIcI3/mOrbP6Q3W0i9w
fBVOMjOwD/8SXv62C4+zK4RysFXieRrjX+H9HqddfIgtvHbBX6uPhB2xCYbF
2NO5bLlv/SQEubSbVWD3qY8N5rzH3x9YmlWDXd46cPnoEAmZOdLq9dgpFt3a
/CMkrPSdW9mEHUi1zDQySUjvcFJtwbbyq3p4hkWC7MbdGU+xd/4tsN88ToJ9
19FDrdhrk7KEhyZIaFyeDv/8UyLl2eXPJPjODxD/5g8+iqdpfyXBPHtqoRm7
VvPs9hk2CZ/GK542Ymc896fyp0mwS+N+VYcdbuOWajdDwmnvWql/+7WbsDUU
+onHfxVWl2PvCz682DpPwpInVdeLsGdPfwwzXCRBizkl+S8eJY5R8z1/SfiT
IMX7L14eR9bRjnBRsHOHonEmtoxh+dzgUgqobdNfU7Dp+4yDHXkp4GqzmEzE
TlUd/zG2jIJ7ikr6Mdh8Emun2YIUnOh7K+yP/VSoxC9ImAL7Fc5Rbthh3Ibs
+VUUXBL6ZHwce2qKmOQWp0DsotucDnb+6CrPhPUUuJhLvNPAPjFQ+ElIkoKi
BCMheez+FsaH9ZsoaF+dcmP5v/NQFeJ6V46CegEv1jw+r/qPhMY2y1Mw3qV5
8TN2bYoOtWM7BQW8eyY6sAMvDjtWK1PQEb35TiX29ohAhpYqBdytccX3sLNP
5Q3r76JAN28dRWDb2oFt9x4K0G1+TjfsVeYDAxZaFOhwfibMsOM0l7+z16Yg
5OXHsE3YXgI+rwOM8Hpd+4pb8P91Mxfv4V8mFDjJfU5/gM2czeqOMKNgv3IQ
MxHbgux9cdGKgsRjd85YYe8u13iW5UhBmwutgYHzx/SDngNyzhTU7LTxasJ+
lHnqaYELBXGXOAOysCXj0poqPSiQ+bvlgj320mOLT14GUMCh9bW9F+evRpMb
u82DKdB6Z6jyGDtER7n6XSgF0jpHv13A/rztRAV1lgKW0GzAXuzXf9qK5i5Q
YK1xLDYd58/M+4k5mzIp8D0sXrob51fHA2pazDsU/LQ1D+HGlmEN9qffpUBb
cCGgF+fn/I1beEQeUGDX9mHlKeyK9BZ3jjIKPn1jd8Xj/N6VPLt9pIOCQvXx
HXm4HlxRvt1+6wUF4QFDBm7YFj0HHI90U6Bqha7LYQ/wX01+2UfBsH1ay92z
BBqL2/b9yQgFi9Nikcm4/iyGO9Xc+E4B/Uaeuf6/+rWe19xiloLSU0fj52kE
iql9/EngFwWt546yC7GX/5xfF/uHgi9loSYrsUUDUs8GLGPB0pHbB1/geqnk
8ULHbCMLLh9a+CYWRCAHK/XuZUYsED9u9GqtL67P602ya0xYUJ8il1SG6/UJ
yjXglBkLNJs8IoyxXbxvij+zYoH/oP30WVzfPWLnXc85scA6WVnmPe4PAiub
/8wGsWAwj3nG2Z1Al9aYqIxl4/m8z+yGcb+ROOy65HoOC3765pPHsS/fjXin
nceC/W5yV4Zxf5K8vSQ86xELnGb5PAdwP5Oqu+q5bRULFrv2iHXa4fMbNHii
9yULmMETayJtCFT51vV64ywLAl21lx7C/VMy56Yd8IsFfpTTwBPcX53eTvY0
LbAg/UHQpDy2ZKzt8haOUXi5o+bNUhN8vtUPR7UuH4VJukJa+SECWV/f7dsp
OQr7fCrfTOL+bc6M36hPbxSi+ajsLtwf9oV3frQwHAULDzVhWezC/Ni4N0aj
sKJkRR2hiePHwfG03wzbLqJWbg+BOot/7H5vOwpK4eecz+zE9V+QsZnuMwr9
8Y+3fFAh0J6uEq4PN/Dzaiu5d8rhfuReWG1m2ij4DSi9OymL+8dQvTOWmaNw
okq8MnkTXm8TnWq+OwrrJaVuT0jj/YbxtmQUjsLGR+MClyQJdEbBIdL86Sgc
1PXZcRf304Xx/L/rv46CSuUzX9FlBJLSdZu5fnAMpEwm8vhxP08/9zZEQn8M
+E+wxld8pKFb9Qfn7xuOwZGvKtoCEzQkrL7pb6XpGAillxnxj9MQ1yaSb8Bm
DPKT8/J/k/j+wWErIeE9BvSVDQcrBmiooN7kwP3UMXjxJEIoqIOGNNQ1rlZ8
GANrI9NmxXs0pHJT1FTl0xjYtdbw/srG94n5ueWFX8agL9rduS2LhqSaa2Ny
vo1BeYm7mc1tGlpujEKvzY+BNvctnqBb+P5z0sjRT3AciMmoW1FJNHTp+ont
ijvHYaD4sfI4jYaY05ef58SOw+SVAqLNhIbG/oZnW8WPQwonPFAzpqGPK7xC
eBPGIVtfOPfuIRr6tvmQnGfyOCgaFYkQ+jTEcZwnSjVjHD7wBTyU0KYhmdaI
3S0l4yD2PuyEvDoNuV33fcAYHocIgaYea3EamlQzjxVX/QBaBYs7Z5ihaPOX
7Z8533wAd08nm2duoahNNqjPL2oCmDM7vvbg+96V/rcnLWQ/gmJ+JDtYLgSx
LZuvcrV9hHrJ4OhH7sGozGrNgT3+n2DljYrqR+FBKKf7/G2WyGdYp2VTJhEZ
iOY67MJEnn6Gd730gkSdAERebZoR8vkCzrr5s5lD/mi2d694tOAktJUvVrse
9UN+KTLNtPpJOPfbONKX5YXWdssIjTl8hWS7FaHQ6o4s3xb+lvjzFTh7BQ79
XeOCph3vetELpuD1jcfnlZztUJNTcaygMRsMFEPOHg06jGpfeRkxTNlAdmpe
PLRoiqr2KwgXmbNBacfRV0tiTVGhRG6myVE8vi/C+sV1E5Q+kF6e6MwGRr7c
t5IiIxRkFkctp7GhSo1npeaQPtqG7Pfx5rGBo6Qs8CI/QpuL1y15n88GlVbR
No11gGQkBzrzHrEhW0UxhnvDfiT22+KIXikbCoeu9JdKayGeGgPP2Ho2sBgV
nJ5bdiNKWT1tyRs2BHuHXv4up4Lod/5zePOWDVR4kZaXoRIaECiWzRlgw/26
BYjXU0Q9X7aW6DDYcNHgjHQayKP6Bxs7oj6xwcmOp75muxSqER1JNJ9kw425
ggoJcwlUHptuIc1mg5QVunFETwwVnFzDaP7BButMC7GHykIot68vJ3mODed0
ZX716vOhbO1kD6d5NmS+CQ+YV+ZAmSUmyiqLbLgwZ1G3oPwNbm7kn/n7lw2m
O8SYYhdXwv9YuQ//
     "]]}},
  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.54767832084855`}},
  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, 3.6641923991706743`*^9, 
   3.6677154810878763`*^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\), \(Tension\)]\)\>\""}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Beta]1\>\"", ",", "\"\<Force Ratios\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.663224950517358*^9, 3.663224968123755*^9}, 
   3.663478877850856*^9, {3.663502255717922*^9, 3.663502293905611*^9}, {
   3.66350233966066*^9, 3.66350234387945*^9}, {3.663502638918652*^9, 
   3.6635026394319487`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwVjWk0lXkAhy/ayFaiEukikdAUc8J4fynNtFCIKYXEoSxTmK5jbSwjam7h
UMbWkDXkKpo2ubIUIlvmOuLar7X3jyHOtY358Jzn03MepvN1a1dRBoNhucr/
zrX/XMcX60DfLdlJ8zNxGDrRlKlQ1QHO3sgGplEsipN6AlqYnei5/7Z5aMNd
ZEeL3dYK/IKLU/lLGcw7mHW5MOb2pgvna2TGHN5FYaPZLeunW/kAXyLmc2Ak
gmWHJPvse+Duqlb8R2IEJMu1GTyLXqy4y/Arv4bBxO/MUpWwF9IR6Q5pFqFI
zWJnqqX2IU8rrE2zKwSOtvqN4qf68Vz7n79WNILwvN01vvxbP5KsS8ITXvvD
sKFYVPBgAMVPUu555vhh1zG32XizQcSsqVsXFXcDBvoGcaWCQVyZ4nOCqn3R
M323LjNyCFcXovTu7vTBxEGryO0HBMj6eCy8d/AaNMZ1xkTaBHgXGpISPOeJ
anVWq3fYMNp8BDunhFcR87ndxVp9BP7Lr1g77NxAzlbEiVaPILHf7sgegQue
2cofNfQZhbrJ9ffbnC4jszEirX/zGN7q6fLszBwx98E+aHPlGIyCAtzKHtmh
N447K3ttHJPOjzP1T9viW4vx9nDpCbyvD+e53bCCd4JqRUDZBNqNtsQZLZzE
1kZV2UHHr1CitZlf1pjhbHvhotLyV4jIedSlORvjZq6XsIlBw1Pe9ZC5rjHy
AvbNh4vRKOSq7JcTGmFRufDfkQ00xLsLjo/HGSHHrWCsVI5GvMKdHbWVhhDO
Pe4w16JRrtwcZqt1CI8Uc0uDbWhIJE/690gYYPpShldXPo2fxq9bpdnoYjZx
rcHlJzQ8NszJrjB0Md/kvjTEobHYoFec8UQHKzhwj5TSeBgS6liwXgeSu6o4
olwavB2Lft3l2tjdOzit2UZDk93YommkhfNOmgGsBRoq5g9NJK6q4+KfbFPh
Eg1iWeYRoawOx+ZJ8d8YBLy07urTbWpwPfwqOXotAf/g4zQ+1OC762RZigyB
+6XenFklVbB7PVfeqRFYvcjwMGlSAdeJEyltTlAzMGKTHb0Vr5u8TvFPE8gz
eQmBiwr4m9q7qciKQJIeSnHwUUChUnaqxTmCojci8ecd5ZHckVzCdiagDJUC
/Y7JgWV5q08igMBU1FTiwgNpeHOP5nYGEfjqhDBfPZKCl67IL/k3CTROBYWk
P5WEs2Tw/InfV3+dUee0eBKwrPWRuR1DcHjY30XxyHpoH3YwWZ9DUF5UkrQ7
nQENjqIYL49g2XfRU7JkhVLd2VGbU0DQO5jTun/fMrVt0drmx6cEnPrnAwoH
Fqh1L497RpYRNHC8P7XGzFKie9Z9Z8slaC2KUWQazlBL96u+qVcSsMcEjMHR
aWrmVyq8+gNBU3Otvb/zJNWnp58k1kYg3lG5qcljmOp6OOXY1r76KxDMlGCI
6pDiqGd2ECizvOal9gxQn8a1io/wCcakhFlhl/hU/YVh1uY+giqHWXv97E6q
pi7LuH9gtW8fyRuU51FluSofwkYJXhSHdNeHNlMvFbrZVhMEIayjYh6Mj1RJ
ZLI1kxDMxSaA7VFDFc2c2zY1RfDzgwRt7+MVVL6LPL9ihuDZFdGzwhMvqOzW
1szYOQIuV41v8EMRlW4a6+4kJDBOT+Ck+KZTqcUWevuXCFjL42tHqSgqUWXj
7MoKQdeWFsdo2+9N/gMzyYkT
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV0nk81dkfBnBbskRqYpBsYZKtCTMlPEypKRH3Wktyry0RmeylyVaRIUum
dCOJJmTfsoefpUi2SPYtJF8JFZXf6Y/z+rze/5zzOa/nkWF60Bw52NjY7pLz
Yx5xnGqvmTbXLeoWSAuvpuFttgVzSEwDXIFuxu4tNIjwd0cViB3AXw4PR3/4
SdUlN18FYzwzKHjtQay6d0vaXTEzTOtFq3sSs/00HbcmZY0iee35v4jbZyuD
GQq2yPxSutGb2NS+uZSRwMAvBetifYm1Xqrnxoo5QK1CxjeAeLtO0sM6lhMU
3QWqA4k3ZPAkL0q5oDCp0SWIeFHkfIJ8qitaeU18w4gHQgb+sVBwR5J8+ttw
YvvPqbV1Zudwyrq5LIq4R9Va1ybBE5+/l87HEdfcqdP8R8wL0/UrocnEGh1+
efInvPHM0HAsjfgRj6pKFcsHavscH2QRx3rfkqOk/OFh9cG4nJg7y+jeVUYA
quMZe+qIA0Y5JKRTL0BK49/Q5z/eP3b2J1OFSwgUNTYYIO4Nk42edv4bMSst
TyaJFQZd1z01u4wZ/w0x88SJW2SCrBOCkP250XldKw0hQdf9IsRCIZzJU6xO
XCXhVGxRForL1xz09Ig/l+gtyp4IQ/iql4oRsdvckkc56wr0UrLUThObnbBz
npUKxzax/V33iaOWtdJKa8LxQlrIK5+4KUZ4LJQRgQXnYJ9aYp2mZ7bbUq/j
f4LGqWPECpqaFsYKUZCj/8Ha+YIGu5cb48UboxB7aMVEh/iO60z7pHM0JF8f
OG1CzNPell5tdgP6165W+RJfXB8ma5UQA7MdfrzPiR28KLFwsXjsmw8RCW2j
QZ0zNiD/XDwOJs4KJhNzxGq8edMYj+WpTwFlxMk5/ixVn5tYlp54vEDcN8Mp
1dWRAP861qXTL2k4xhCVk4q8DXNdm0aXdhok58tC/xy7jTzUfrpOPHvp5ISn
ViJGfQLvZBNHsO6n108lwuPJgPYScX2PsuIZAxZ4BR9NXu0g/TPWVy36noSS
8qPttZ3kPwNjUYPmyfA3omvMEve4XqHWP05GT88xPpEuGsrqHa0eq9xD5V2h
ja7EVqMZYmz99xASuRQg3k36sk2TlbbnPtxv7XkV9YrcF384Zf7DAyyneTq1
vqZhdc/Iaop4GhJVyh3Z+2iYG/CzoO9PQ7q8W5Mmcecv//EXx6fBTWiqJJk4
qZzb58Lv6Qh8cEnX7w3p61jdEe7AhzDwKRjbN0Dy2a27uJUnA+e5eKwERmig
93Qbt+7KgK3NzSIj4oMXzz66ZJ2BkEPR3lHESg0s25GMDNj8ni6xaZSGZevV
pnSjTLS7u3JvHaMhMqj07q9xWfBqCNbTn6Ch5OXuQ4ckc5Ay/1agZ5r0aXr2
T+WDObBvrpeXnaHBiePhkU3uOVDX2nrnLLGIxlbjN5U5cE8VTFr3joby50EZ
Jaq5eOTHzqU1S8NWtTN5hi9y4e0RcqhwjuS7pFV9XiAfC7rqTnMfyb4conpO
MvkI1l0UM1ikIV9wqcZKMx8Bz6YUWcQRv+TU6pzMR4mwvq3hEsnPenvD+sf5
GFW6+HP2Mg23K/hb7xwtQLiZS23oF5JPSH9f3fVC3C4My/BZo0FoWEHZOaUQ
FVWJciPEzdqegXwlhaicDuQ9ykaH1vI6adPRQix9PffTdnY6trqoOQ7uKYJr
g6XCKw46Bo2Dqc8TRZBocNUy4abDQXwHl6peCd63IjNOgA6PvPMqtxaf4K7h
IpfZNjrmtEc6m3nKEK6Z19lG7NZkHLAqUYbY7qZVQ0k6Tg8pNtoalCGzsMXS
QIoOO4FhO/mEMrxODdXRlqHDxOVofP7v5fCuCM/Xkqdjl4z8aktABSDP2euv
QsfCjVdN7OzVuHZT8f43XTqanjZUt2nXQu6yzOFLLnS4+B8WsJ6tR9KOlOZv
t+h4yrt7LetsI3Qe+OfLP6MjPbX+u7j8M6TsF85w4jKDnkjlfXp2C1YEuz5L
wgwqjf2lDTvbEHHZgt/3ohm69Ohzj+Ze4lqlgPLHWjO48bl2dO/qAJ/iod2y
POZ43mtZKRjVCeP4lScxFuagH7QaGR/vwuM+43Ut6eb47d51y3tyr/A1SOnL
kUVzDH+P6zr9dw8sf9vMtsnQAhOH21JF6npxWSWC5ZVkgdzbQ/7tMn34eNZX
6eCqBdKucYYrBrzBQPGFC3VWlliyPz7jVN6P/ddEEr/nWYL/wBVa3s+D2Ly8
0a5vixUuCk1sGLEZQq1AMNuW81bYUKXE1mM0DA2+6Hu/tVtBx+fYt7qVYUxw
F1812GsN1oPI1O2sEYxfEV5TYlnD1lyjlddwFC85JN4f5T2Oom7HuKrlUUSN
flFy8DmOvS25HJMJY+Ddwq0wNnAc0gZOS3EHxtGw8lqZx+QENDU0Ywonx/Hr
bP0FZsUJDC3805waNoFibgbNaIcNZtVNw8R2T6L0/dPNtGQbKLxTmWHvnESY
s1SuqtBJ1Mt5d5wLeosWv9HnVyNPIrqr254mN4XLp+/YR3DYgqLXxHDUT+GU
GtsQj58t8s2F9+/1nMZCJcs75IstUltD7o5unsEWaWH1w16n8KnR5sLm2hmo
nNaO9lo9heGY6iUh93fYryzevFPfDsvt+8SCBWex/e2BcsEgO5yLl63xr5hF
RnGVwJlGO/zcKis0bvseH055RknxMUDvzvoq8f098ltUnAKPMrBwKsWtP2MO
ok+r6xJuMlBtlxMmeJSCifBHiVd9DJS1uRkOGlNIHE9LFOhnoFh356ZsUwo7
HfyVDQYYyJJIYxlZUnBkhEUWDjGQ2JtYEMmk0NlqoBs/zoC3yZURPn8KUuwb
XCznGFDSO6mzPp2C/nDD8Cw7Ewo54pw9/1GocPwypsDJhKxkb1N6JoU9E/ar
dlxMiH6lmR3MozBWPObUzc0Ed+mfrmEVFG6O3t9Vzc/EiJrGbc5OCh4bn0Yn
CDPRn/TBtrObwuRQ86t2ESZ6BXLkUnspZGqK7BYQZeLFO8XcPwYpRJlelA8V
Z6LioVRj0DSFqjOxa39JMVEqMhBpOkthIuz5VLY0EwVhiTQZisJ/E0aTMzJM
ZNgLD9YsUvAy/VXSXo6JtI6O1BufKFxtibNKlmfinv4NF7sVCgfO/PHwjQIT
rFwjtV3fKCiP6vCJ7mDiXyn+pbU1Cm7vrgSZKTLxf0DKqBA=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV13k41E8YAHBHoUQRifzcV4UkV9K+KpGK2CNHuUKlA4XkSCmE5JYzdxS5
Iym3kMida+1+d93CSkIKv/HXPp9nn5nvzDvvzLwjfsUJb8/CxMR0h5mJafP3
rP1kZ80UCTfB3nqaqwIPE/kXr1AFVUD2rA1huhEPezh7Q0sEdYDpuujHTX+o
8rnlLmMI3/XYrv9AVjzK9+qlIBFerPOZzyAz7Z6K2hA1g5hz5yNmkTtnKh/b
yFiCmlguFwPZ2PZLuc0LG8g0O9w+j6zZcaQwUtAOLHQovQvIkseTs+uTroKS
QLH4b+QdORwpi6IOYOqbW7yMvLjH5YV0xk24srslcBV5+Mnw84syjhC9mytz
Ddl2JaOunugMFe9ctjA34aFP0Qx3+cUdeCew9mYLck1ivepzQVd4YeDasANZ
pet+kfQlN8CtWx3lQX7DoahQlXQP6kk3fvEjR7rFSTFEPaCwoldNDJntrUHq
UxtP0N+vUiON7ElnERbL8IJmSm7oQWTbC7d3G8v4gCY3bVUdud9fImzq2kMI
ICTG4ZBlKDe31hIfgdu9616nkRP4xH3NXvjClKzKLiLyE99n94MF/QAvcOme
K3KV8NWyixV+cDfzntYD5JX32osSl/xhYixaLwD51txvp49JAXDivw75eGTi
JetrM6JBMFv+V7kOOXRJ81V5TRDYlEyItSE3R/CP+NkEA72xltCPfLy5xfK/
jGeglaASyNgcn6rqRUOZUOgvrz4o3owH646d0UJNofC5qklbETnx5nTn+LUw
2N2dmXAMmaOzPauaGA7Mxh3CJsje7P4Spi8iQObHU/MIZDtXhmCQYDTwzQqW
837BwxHWSM9i52h4nM0UKY3MEqkyNNQUDR5xjz9pIKcUeCQp3ouBrk5tVmvk
wWlW0Z6uFyCFW79YjHzBZq+UaEg8sPlM81xtwYPIfIXfmZF4CA6PXXiAPONj
MXZHMwEKi9wlXyAHJ6VnNUwmQPKXErcm5IY++f03TidBS9GZIYWvKP8MTyiW
rieDQBtz5rZWNJ/hkVAKKQWWWHF+Msh9NwMY7Hkp0MKn8O4UckWDvWmeQioM
uzCxPkQ2pecIMpFTQbn+4aU/yJH/qSa90kiH890FjH9tqL9o/bT5n5mgiHla
Qgce/mrQ/qYJvQLxlQOhtshzw/cvEk69Ap+XmiyByN2yrznLol9BsBH+fSdy
8ke2e17qWcDWQCBe70T5OlJ/lu1BNlRvTBqld6H1UcYt7uPIgX80UU79XjwQ
+noN25RyIE1rodgNWdf79hsfsxzgEOp8mY58sDHJkpaTA2aP/LXWkJfM/jZn
GeQC64kHSaXf8RDiW/7ycNRbKHu5m6zcj4f3Hcp6eiIFcEDoC7PVEMqnqZkz
8roFsONI1WQk8lWW7LM8jgXAZp/M3YS8R2Wf4VBlAbyXmNmjRMbDx6++Oe8V
CwEna7h36zAe9h26UXTuWyFc/ejXVUFB6/tbs9qFqxgCt3g3EOkonk/Ig/XP
3kFZnMltmMbDLkxG/lraOwhsuk4MRP6idefB9vfvoHHwgG8nsubSVjFj+js4
d/J2rt0P1L/DIXuKRim8EYjTDp3BA8XwMWNlrBTMJ4rM5+ZQPgrJbVHUfg8h
zzJKaL/w4FTkohC3+AFy9V1nwtbxsBD+vZmZuRriwp3LxPkJ0FzbWN2uVQcG
2zM+ixwmgIOHPpfZTANwGGkulV4gQO025Y23t5vgaaK5TYwjAbIyGtaFpFsg
ki//uVAkAbT3VKYT8lshU3n0T/E7Aig0kcsbD7RDRI5Oy8M+AvRoE+bezHWA
VbsF78c1AtzafrOrV6kLLLjV1y+LE+Frv0kld2g3XL1OunpVjwgEXVPa6GgP
tNxfXIm/SQS11GcmqVLf4RQl4i35GRGw9aie6w/7IPYu37+Ct0QY02/P2FPf
Dzu2Bgl8ayZCYTzVo1N8EHy4i92WR4hwa7/woLLsIAw1VnqbjxJB7oOpZrT8
IGxZsz9diZzS37l6UX0QVE4vCj0eI0KoQIMX+fwgNKTRujgmiHA75vWDCfdB
2C9TRtw+TYQDEXd819oG4YZPbjSZQYRXgaxB+z2HgFU8NLJ0lQi8o4E+ig+H
oLAu8QLLXyI8Am7XI35DEGyx0GaIbL601+p46BCkJv7hmkDeaaeoapw+BGpp
k7F8a0TwADPa/ZYhMOZeLrPdIILBUv7RZiEy5NnMHe9kJUGFscqhNlEyuDxS
HuPfQgK5vA9SXVJk0Pmbq2+OzGLXsJOsSIbBzxX6dOT3nQNjjJNk+HzltQRj
KwnE87ZECtwkQ/PdIqF/7CT4bWs+ffUjGXjGrY/SOUlwb/ff3f01ZNh4xI6X
3EGCpbrE4/qNZEjt0hSw27T4cPjBTjKIKCRkjSKvUK3U58fJkG3k1UPjIsHq
JXs/D95hOBycrNu6kwRMRGeREIdhkI+oMrLeTYJHrDxn1hyHYTRDPOsFMnNJ
0R1H12EQ6Q5Lb0Vm4f3VYPRwGD7KDIap85GAtcPtJn/MMKyoa6lv4ycB23mv
8uSaYaj1KY9I3EMCTp0AfJEABZ6MLah5CZJAq9qJp1GYAnIujdoZyI6aZh2D
4hSoEd+70oLcpSRvuEWeAkV3kx0FhUiQ8F+Xvok2BRy8drkXI8st/3di7ToF
ZFaVe3r2kcD8LjsTryMFUpZ4M5eRQ2bnq2RcKCBqxS0qJEwCxki9ltEDChzU
ruS3RC7rcNDIiKDAA5NaZjqyTk7pIf0KCuTm3S4e+A/FVzplzqKaAkmPB8WX
kV+nBubdbaDAlfeLR/lE0HxiLx1M+kYBJoloWwPkrifMsgw6BTQClOI+Im/Z
mB5jnaRAvXrFme/Iap49mXtnKbDQVZo6jxzvnC1xcpkCF6XsdKVESWBtYSAS
w0mF4N06dk+RI/vVht/sooLqmS3nU5AbCGJJVfxU0KItD5Qhy579JTgpSoWV
XQMTo8hzavH8x1SoYGIq2qQlRgLvXWM7aJep8PD4Hech5AODxdpkGyoUTXYb
zCIPZDxy7btKhb2WXl3ryGrqwuQ2ZyqQitY7xMRJMG9ByK3wo8L9iORka+Rk
WXFqaRAVZjwZRU7IBj/neItCqfCHxeimD3KOX7BndhwVdjhmticg2+bW6ke/
pQJ2w8S8HZnXLexBWBEVfC7R44eQa3AWRcFlVGhK0/GZQBbuWtnrW0MFdqEF
lXXklsTG896fqUBMm2PbJkECD/voR+4tVBiVk36wG/n7yqHJ2z1UqCKlk2SR
/erW9jkMUEF8Kv69EvKRkK8X7ChUGDNVqDyKHC567b35JBUshIKKzyLjplR+
kGap0PCTOR2PPFvMImq8gFzormKOfFY3OUDvH5qvVcWJ68j/2NUs0pgwELil
/skRuWdGeFmEFYNvsTwDrsi5nawRSVsxqG0Xi/NEflw2fUCIA4MTv7T+PEQ2
S+xsiN2OgXDP8X9+yEqPyi35uTCoUfubGoTMbp+yErkTg/XO8xPPkSn6AZG7
eDHYf2F7ewRyqeJt+VA+DJjOcprGIIfsJjZyCmAQYST7OA7ZbkXTOkgQA8KI
qkEi8rFh8VU2YQw2XLk/vETmreOI9hPBwPtG4OcU5OkshgKLOAa79nndTUOu
ffa96aEkBjs7KqvTkeOcK23WpDH40yCbl4HsRMr86ymHgbNsuGYmsq7ms5iV
AxhwCXy7tmkR0buH7ilg8OxVucqmf7Oaffl1CIOA7zJpm+1bJ8H2jjIGWSmM
t5v9Z7bJrM2pYGAxOWWy+X2vYq7YW+qov+CZtM3x4WMXlaaPYjB84Vvw5vj3
ew+1XNPC4POSPe/m/Jhs6uzGcBi4KwRrbM6///Sb9SsnUH/RPGvRyAUHwuOw
Uxh4VXZZbcYvYKe7sqUuBkHymdab8bVctGgdOoNB48XLG4HIO6oOMvUZYODp
MMi/uV6z58XeBRthcPh+2C4P5G9DfNdxBLR+6hyxd5HD/qy1vzLFQGGHk64d
snPgwhOzSxgU8S44XkY2EphQ57LEgD/nigRxM/6qHSmuthhIPVPdfxL5V30D
Qe4qai8u762xmU/4D+zk6xjkYRpmisgxzulOpxwxGAv/VLgXee9bV+D1QO0F
fNo398sfTYdfn70wiJpWvz2IPPjFItvDB8VbiRTVipw4obuT9gQDRVmqewGy
iKQgtSAUA734Q0mb+3ejiCvKNgKDXMct7pbImDaLnkA0BpcK/PrPI6dZ/sj3
icdgrvuNohyyVEKlj0EmBtbBd8UH0HmxdX+xMnM2Wi/lsIMNyOPvs8bfvcGg
oTW+Ih85uzfMULgAA3/PuKuPN88fnisiPz5g4HSAb14SmTP1YlfyJwx2e3js
40SeUTwXgK/G4Hrhtpaf6DzLO68y96EBA4lXTQWVyEqBbFWB7RgMqPnEXkDm
Efh7R6sL5cefjV5l5IVXDOn5HgzUJkZi+JFL6vufmwxi0Cw3Ezewef5u5FjI
jKH4eee/uoR8/N6FtfpVDORPKmbrofN96cakl/4a2r+pWWbSyIVWvqvfNjBo
bSlJYEGW0C9ZHthCg/X81qaP6L7gEBZYYHDTIH6ktFkOuaeWMr5PkgbLb3mO
zaL7KbTM3T5NmgZRp1Vr6pH1cneNysjRYLBvrCMeuSL6JO2wAg0um+6P1kFO
vZY1pKdOg+7w3qRodP/d4nLscDlHA/cq62cie0kgw8J+4Y8BDVRvShTPCpCA
upTS5mNEA9lxks0nZDzW2RJEosG1ujOmpsgaJaqfU6xoYL21Lz0Y3b9bzNY+
fHWhwew+IZ9+dF8nZYZkSCbR4O+s4JgADwmsTh3RoibT4JG3tFHXLjRf+kBP
QhoNIsdlZUOQX4vKsvFm0+DISda966heeJdQe52pmAZ40dy1QW60v8OXFIab
aOBD4X15H9Uba97W5S9+0aDAxvXMCVS/1OxjN8Yv0UBJWidvkg2d1xV5U1x/
aJDfb+kWhrx9ZVXIf50G8tImikOo/tnjEvPAZRsdbNM9j91E9ZGiQ8tJI1E6
/Ltm9uQ2M9q/JJW2befoENne27yC6jnrfQap5QZ0OG1ewR6KbEOzd7lmRAeS
yscsCWS727GCn0l0II8vsJ79QwQH/1X7R9Z0+E0wPxKxTATX0pr1JTc69C3F
yzAvEiGY30BpNBV9r1L3sv0MEUKG7FmjMujA2nyIZ/wHEZ6n+Xw/kUWHm2l/
ha8ihysUeqfk0tG9xqlhh+rPmNO7v5iX0YHjQb6L6SQRUt0GbDq/0sGcJb9S
DNWzpb32UVVLdBCS2+epOITaM0sehj902Cpl7JsxSIQbCti36r90qFIYnxFA
FvE3317LNAJBfTLz6/1ECFC54Fu/fQRkyW0pn78T4WKUhlOzyAiUCLxxUO0i
wrIR57ku3RHY6JzqSEL1dpd38yRefwRonCH0tSYivH3tH9B9Dv0f+Z+RJbI1
E1Ndj9EIzBxdOf5fIxGaCxY1+sxHQD9y8nJUPRHiuCkyZMcRCORVvGFdRYSj
rYUs4y9G4MqMfLtXCRGE070qkuJHIJzHO6G8mAhM93XvEpJGQKDuXMJiEepP
kkyrSRuBgY1fqjcK0Xi92GsT36LvN+7sPpdHhLsHLB8a143AqYe7jCez0PgC
Of99mh0BJaaqsifxRBA7ffV3lM4onFAjGyt6E4H8qNddWG8UqmLEOk57ofF9
0lnN1B9F56HS08ueROBRkdwoNRyFrDCT5Kf3icAiiXH0m45CSa/4tR5X9B5h
MhcWvj0KtCPa/GduEyHnk8GpzJhR2JO31SnGggiqKqoR78ZHgd9OabDkGBGU
YvcYKk2NgoCloUWSJnpfrC5vf/tjFK6febnd7ygaX02FX8b8KMipmdCN1Imw
/bz2/cjVUZhl/PTClNF7yPaclTP3GOgs9m3p24/yK8pGQV5tDI43/vsqIkAE
6sLzLxn+Y+CpetKHlUGA0Q3vVFLgGHiJ9Ey/mCXA5I5b7uzPxkB3RgO3f4YA
8zJnpW+Gj4GRpHns2SkCMF1i81VOHIMmd5Ytj0YIIFHvo1FbOAaiItKGpeh9
dzXKKZsyNAayPQfbT1cTYOaIsb+g8jjA8udaSjABZH4oTDN3j4MO58PvMfsI
0CDl1uXsOwHJA/0BP0PwENbTa4uXmoRnrS5MV+aNgUGoiWBpQHbyCebDGUMx
if/U0TtTMMARJHXQwggy2p68pPNOQ77O+IJttyEsN1324q2bhq+Lq3rezucB
i6j+vcvxB2hEfJd/9EEfljqPCT7mnoEZM2F/oy5dcI6WqPH4NANOIdn4M1qn
QKBNYteo5SwcfJnwIJWBA0Lv23/C67OQ5JWs2jGoBgtWabfIOXOg4m64rc3q
IPyO3apqkzcHmhZOvY37DsJKu8PaWMEcZNMCrdr7DsAGKIcy3s3B6+8qMjuN
DsAOsfoCluo5cH6pcfTSif0gjY0uyHXPwf3WEIkKWVkwtZbzcPs7B6fJtf15
HJJwKS7kxOraHPQtlKUPNkmAZcf8todMDPiwTUBF8akE2Gt/SAjcyoCpUglz
AzYJuCt29lPiTgac+OgmEMAmDiHYzY1aSQY03yp5/0BUBKqtC/y5zzMgN8rh
0Fj8Hqhov3WOYsgAmwZHx9C9e6AMd4An35gBNd5q2EIsP7wVfpVkYMIAY7vE
A2txfJDQn1AScoWB3t8OU0GZvOBmFEDb7sEAo4DA4JIWLnCuPpU96MUAA/+e
y3dGdsAtRebbOT4McA33S1Fb54QrO7xX9P0YECLsGMuiuR2Mmu/sDApjQESy
Xhf5Kxt6N1kcZ89iwArhDesTWyaQKRBi7XvNgOcuS31fdDZwEiL9zVm5DNBu
NK4/0byG2/sPT9QtYkCKdfS1PmwVx1Z+5qb/JwaUG991zr/8G8ciy3aYVM2A
UMUOktiORdxaTP2SVB0DRPha5p7ULeAWXXCPG5oYID2h5T2hM4+jHVKJZ+1m
QND6Cinm/ASOnPzTsruXAU6BvNHtMmO4fq4CqYx+BgSs35/p5h3Bffuxv/Ak
hQG0QrzJLl0KrsV8wo2XxoAXMx7bUyIGcZ+/ZB6jjzDgfibXshJ7H+5TtmiT
7xQDftfXS+h5dODK9wyHGM8wYMkqbsF8qQVX4p+AF2cwwPTwvtMadp9x+Ysm
e3/+RPHlYS1u0qnB5djyU2oWGZB1I9NLS/c97lVXV0b4MgNeLrUWch/Nx6We
CHewXmVAq9v897d3UnFJhQaHlNYYYM6p0XAH9xQXK8r5e2ODARcz2ywDSWrH
/wf+eOmo
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"\[Beta]1\"", TraditionalForm], 
       FormBox["\"Force Ratios\"", 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 -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{0, 1}, {0., 0.016904070045831502`}}, 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\\), \\(Tension\\)]\\)\""}, "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, 3.6635023213175373`*^9, 
  3.6635023525625668`*^9, 3.663502656200741*^9, 3.664192413096826*^9, 
  3.667715492496076*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"EMContributionVelocity", "[", 
      RowBox[{"x", ",", "120", ",", "120", ",", 
       RowBox[{"0.9", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}], ",", 
       FractionBox["1", "3"], ",", 
       FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], ",", 
     RowBox[{"EMContributionVelocity", "[", 
      RowBox[{"x", ",", "120", ",", "240", ",", 
       RowBox[{"0.9", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}], ",", 
       FractionBox["1", "3"], ",", 
       FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}], ",", 
     RowBox[{"EMContributionVelocity", "[", 
      RowBox[{"x", ",", "150", ",", "500", ",", 
       RowBox[{"0.9", " ", 
        SuperscriptBox["10", 
         RowBox[{"-", "6"}]]}], ",", 
       FractionBox["1", "3"], ",", 
       FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Beta]1\>\"", ",", "\"\<Velocity equation error\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\!\(\*FractionBox[\(m2\), \(m1\)]\)=1\>\"", ",", 
      "\"\<\!\(\*FractionBox[\(m2\), \(m1\)]\)=2\>\"", ",", 
      "\"\<\!\(\*FractionBox[\(m2\), \(m1\)]\)=3.3\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.663781200875825*^9, 3.6637812588543673`*^9}, {
  3.6638551062357492`*^9, 3.663855120888235*^9}, {3.663855186480088*^9, 
  3.663855191411722*^9}, {3.6638552565617533`*^9, 3.6638552637053967`*^9}, {
  3.6638553156238747`*^9, 3.6638553516120653`*^9}, {3.6638554043765297`*^9, 
  3.663855420317174*^9}, {3.663855490157905*^9, 3.663855492909959*^9}, {
  3.663855538687344*^9, 3.663855623567493*^9}, {3.66385568392308*^9, 
  3.6638557040998917`*^9}, {3.6641924757621717`*^9, 3.664192476321315*^9}, {
  3.664213735722248*^9, 3.6642137371151323`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{}, {}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.368417, 0.506779, 0.709798], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJxEWnc81f/3NyNKsiJCsspMNPS6jobyKUmSKGSVIrJSKSWpRGQlu2RkJXu+
3/ae1x32JntmRvHzfTx+j9x/7uM8zjnPcV7v8Xpd9ps+0L5NR0ND07yNhuZ/
3xdujzYXj11T0bl27ZrSZDyMpOia9vIpQvXIvv6bUvwqPKxUnwy+s0BsV1tK
NV4g5BU+v/9IXBOenGL/wb+PRJA9wRUbwacDH+KEldOlCnAazrGADSF9SLtV
077BQMabJ3E3E3EjcLN1pYrtSydcMavJNQkyAZr//ygTj6T685lD1pnnG7lS
XvgBQuS3svA7YLnsrfC/+h2JzJ8XhO6BlJnEdJZUEmGBxyFILNoK/CbucqeV
RuPdr7q9dcVtoPuU7k3hff4Es5Xo0jIdW5Cy3/nWMvcLoVVWX8UgyA4UGHPT
r+58QdC4zZa/0GoP2r2qC6+wj4TisDIlbz5HOBT19ah05SdckfQ4TezmQ7Bm
uDfq4P+OkMAsK1MY7gSrPOrfP0qFEQRhMF635xF4v3v3+o/kS9z/YbDojNAT
MKyS9tW+5ErYlnzpy1sTZ4hmsqSn29TjPEAnIBz9FLrerlR5lJoRpnlzP+UO
PYP957PoA4ftCWaXrTmviD8HV8+ou/MC9njba5EPYxYvgKNvdsTBzI4g3mPF
WKLjCu//BnOcyLUlGD85d8Z70RWqhLPYvvPZEkK59r/UD3oJqTV1v0d2PCBQ
fqwVih1zA9uh4UWOZ04Etostf+Za3eCc9fFEaewhrj6cqlz4+BVY8MV4fmN+
SHj10uuxJ587VP+Se3rD2BwvFLiTrZvv/m99VnJUF0RuvoZLnuR+exkzXOEq
v8LM2mvQ+rbPjxZ7SLg/vfigIPwNiG08EpUXVyfEvSN+f0t4C7wTB4J2vTiP
94kmTVzteQvFOSKTXpImhL3Frw8Kv/D4h69z09hiUugdHKXMp19jcCD4LCnH
5ha/g/dEfc4P3vZ4tR/3oLuJJ4QKuf6V2XELp5OZFb5C5wXUO/axt9Xu4YTq
WqN90V6wVFF3VSv9Lv7YLDZ87Mx7YBt0+CK4aoCnr7/oyBp6D1LMrwa7fp7G
J0Nu8Lq99gY+LqO7g89PE8SVlHQ1xX1Ai0teTPPQTdyYuCtwb5XPP31hVuPN
wxYfoFT9QjQd1w3c6tXAW30GX+D9IqtoyHqFwNzcFFek4wtr8vS293JUCbGC
eIVYrC+ckzN2/nJHFT99P3HIa9EXlCg5EyCmR+jN+0T/S83vH/4zptciekF+
IGnYJynJegvnu2Z/qnDYD4LL4xzjXmgSsr/eMhY95g+tJ9Hg/MolwtVZjRee
b/2hfp2us9mJQJglKEfOtvpDMBWbZvytQfD2ksB1JQOApnrltf4LRDjUztWF
PQ6AuMKnh44wXcOrxOnWRGoCgHt+0CpaVI9g7jjD944v8J+eI/T+zum2gXAf
OZlNMOngdP6KnZ1VgRCjtkdCwUoLJwq3nmQU+ghDpx7JRrQdJHz+8SRc1ukj
3H+5QPB5cAK3URH4e73hI3hss1yo3H4QRw2Fhi9FgyDJPstWz+U0zmpgUpj4
dDP+E17sdF6d0DFOL0QhBYGkvRb6Nn4dj38S9+LvwU9w3mXulnXyFcIj5v/6
xF9+gtOeNEq8J67j5z5NqGq1fYKDaiHMoZv6uMR9op7IBcNuuvonb/3O4YOZ
8nTRb4Jhksmv/+QpcUL6GbJpfXcwjDLRS9xw0iK4kh6WLSqGQFKxRKzYt2uE
yya8okLvQwBX51oZYNQiCM7mu6sPhvybx+Rzw592yqHQobdNSkRJm1Cwk+Zc
mF8o8Hh+Mlhr0iR4hn+NKx8NBf2JksNM6oq4npQa0zSEQbkhbbzsmyu4RP6I
xZ5PYbBDnPFJZtUZwpK6Z7XqdNg//PJW6YOWauEgrPtK9MOlA3jAnaZ3AeHh
UDrHeCyR4wzBdNFuHJsPh597hT9LtIsQ5N25Lg5fiIBa9nratS8K+AZHTtKu
rxHQ5mL6kddShNAYpb/jxO+If/jh8n/um2pFgq2kTyMjjQLBqiiywetbJJxR
47ctrt9PUNY8JZu1Hglrh8Olw0IP48zdgz491z7DM5ueGW1BZbzV6s0M0/fP
//CuunDF89J9ga7vDuJtH07g+eW39b7LfAH5nNlzfl3yBJEdOcyn9b+A8uL7
C/c6z+LvrjLntbh/AdKT2+uWr+QJs6H696xSv0CYSHWaop4wrjeQyEfT9QUY
5v7z7ZYRJhQd/FMTyBQFSkT/USMGYYK43SXng0eiIOcWhJrnCBF8ciMPFRpF
wXNDC/1872OExY2ZDm3PKOgwLvew5pMjGJw/5TWSFQWsbu/Mc+sF8XIf/5PP
+qNAdt3Ha2//UYJUy+AE+86v4BoEq/kJR3H/fUrhsce/ArfoiyUzh6OEVfM3
GsrmX//5NUlu/dP4YSuunpf8blbwFVbG6cVy9+3D5U86G64Mb+U/udXt9OaI
hnjw1NYIFiCs1wgU7leJhm0CZjtvXpfG7+y2scm+Fw2pp08svt8jjTfoFQle
/BgNOJcvNXpAkaD4hb2ptzh6a/1GTF44TkbDuMCxPUlGrAR6uQy57bwxcOM1
h+LCojzB0omhL+JMDKwF8i0+kFXESfg1X4UHMWDHeijxNL0ifoLxm2pVaAwM
WOreCJY4RviisTJ7szIGKi55+maoKBOYA/+Lmp2LgRF/Mc8xpkP42vH+tai9
sYA5Ts29p27Hp7sf6149E/tPT58bexrD/Vg4RhT/pMFzgECWiGfNDtzKV9bD
HQs8FkqzZXFHTj5Crl1rMe9wLDzyVYjdW61ESOJ5wF/LFgccNELHYEgWjyzY
5vT0WByESrAXHXwnSfAzjiRKG8cB/zI55LyaCO7OeFSqxyMOnj8WdCYcPYk7
JTa8/pAWB6m0y7dOMZ4k3Lt8u0+1I+4fv8HCH+VfdN9AkDns5+VYZYJmSODH
aKlvUBai9/jzaybCKRXpWR2db3BBK67/vsExXHGw7MI2l2+wcpHz2+VLigQJ
j5uxObHfwDu6WT6VdQ++V2Z+427jN9j3zs1KeGgbvoPkeWPv8rd/fBtOIll1
QvFwp27ikem9E/gv/vxdLurxMP5get7Tdhs+VHzFUtYuHqa4qhvpL4oTWm+P
lfeGxMN2Py2PFbGjeC3LSyG/0nj4G1iH36E9iuM/eJ1PT8RDvziHgEa3GJ6q
k0qZ50wA7AjXrbg8Rvzr7/NysSgBuEeNrjgEcRM+Rva+072dAERXv/Vw4iHc
48yjISafBCBw3sw0uMJNcB5lg7zsBBhiPLzhKMdIsPaOC7HsTQBHbqmc4/cV
CMYKKgv8zImge+1Q7cCkKOFqK1WzQT7xn79zz6wTnusnAosvY8V4Ehfh+H5G
Bnm3RDBZqFimf89FkKoMN+pPTIRC11Nnn9/nIghaKeb5kxPhT3fw7PVLDAR2
9nrOs38S4SGN7qUPsgwE+iwzm0XRJOiV/r5LkVcQX9Jfq467lAR5fu3OjQ6H
8bF1/wN6TknQn13c71Yog3dFH3q+/XMS1IwkXFjMpscb1Uvb8quSwDX7N32y
+GG8ZEr/yP3ZJNAReXb7sMsBQqb/nPc+vmRwUDvhV298AI879m608VQyMHCx
jnGPSOMhXcJnXC2T//l7/zI34nBAMpR1uLS/3ElPeCGutTJQkAx7BSxSdwXK
4/Z1I9qBQ8mwjbPlnWsrHW5u++K72s7vYPHcbH0Wo8Ovc+9hXlb6DtwkmmNJ
X+nwC/kppvFG3+FuUzAtYwM/Ad06h+u//Q4cFz/Ir9jQ4XIMPXtYU7/D87n2
GQ1XfoJIwkN7rO37Pz1cmjsbrGlTYM2gr/LRAQ6caT5GQuhQChjsmb9CYaHD
Vz8hN6J2CiwctSmz/0VLmESUrpdPU0Cx/zandsduQm+/1bEjMSngf+wu2JXu
xklv6P2H6lNA+pD+haZEWkK5VNjkx8UU+ML/qEPYcC+eQ1Q4f17wxz9+n7FJ
delzW/Edum8Xdtv8gB0dle1el3fjKvwmGksff0D7ideC7idoCTyK/Jqd+Fb9
tAb1cvHPH/CmyeYGH9t+wmB6VTxpWyrMR3/JyVxhJ1wuijlYsTcV7vrN9bgP
0uAFdS8Tc2RTQZtcHNCgxEeQaDOSSjyd+g8vYOhkcrhuKtiT97kfihUmbMzy
ynyw3Mpb/V38/vJ5KmBEBo2AZ+x463ayrKN/KhyffZ7se5cGP8OT+uNOXCoQ
KXIwdU+U8EPEW14/PxXidkvT7D0ljPPLWaZdbEwFFr/JLzEy7IQ3J88rqAyk
goNi13bDveyEX+dFM+SXUmHI6WHIaSZ23EiHVvEASxrUaWuaJozuItQa92Ry
C6aBzuM3lmJlQvhR6wIlZoU02LHRybcSsYF9fRKcvaqWBo4VXEfaQvcQ2N48
PDalnwY0zU6l4TpCuLO/dm6vdRo0K5k73JffRRiOlDtBepn2z5920o788o9p
sNL0hIZ2bB0V5owp5yRs5Q+VVxYk4GnwvG7/WepXQUIQMRqFN6eByN8bSYqu
64iu2xX3+blVbzNmqPLydxookE0zBpJ5CB2LykUOO9OB5UYGkX8vG36Ojlf1
zv50uClF9Ytf+YvS2RaL9ZTS//UL8pNOXfxvMz8wPRGW/Rd5SvwoJRimA6Nx
fBJN0E7C0pH3Z+Tt0uG0rGq6Ki8PwVT1XrnI63R4evloU9i1v6hR45wad0g6
0FnSXjMY5SYo6x+oZPqeDl3ckc7ZRG487jbN+dXidLjdw+FDv7wD57Dvrpqk
pEMdT6MazVduwvPn+eq9o+lQyL8MKnkC+Ljnp5rmP+ng6Iou73TkJuh+crxQ
zp4B7H/Ov79pyE0ojb5Sly2aAfo2KdZORjsIsqmyGgnHM/75CcFYG8I0MoC3
R/G05IEdBIaa0Us+xhlgk6qDuhh34LbUikZXxwwYDsr9VTfKinf1f73s4JEB
ITxVdL/bGAjq0y+It8M38agBCufFhAiZqwZX9FIzwGvviMWqPytBmEmZdKE8
A7T/cm8jOU2g95x7rhLatvhXhBbIcpMZYG5Iw37rAQPBXLpZR4QmE/ri0Bh+
g4tAPJ5C5eLKhBgp8SQDZlYcqXnpMklmAm2+xKnID3sI8Vfutv4+mQnix7W2
NexjwLmM1PQmL2fCrFkVc/12LtzVUqS9xywTNtJrPp6OGEeTThv6zY8yIU0g
O++v2zim96qro8wr858e9j5xaYuorbgG2bmw5GTC56SK4BgjdoJbSEHj9/pM
2D5/bMyKexwpLzEKXxnIBI7vfJe2r24n/NLWsltYzoRndLlrdNE8hMQfoaWf
dmZBJtGibaJsO2664yfnyQNZ4L5ytnBQhZ7Af0/uds/xLBCILY1M8NlOoFQ8
yX6pmQXBQ1E8+o5j2HuRciYx86x/es6+YNOvfpIFKU2mZy7y8uB/OvUSrT5k
QaNK1CuniwJ45vHoNbbYrXrrj1Ma6flZYFHue5A8v4KJ/zoWeY2YBRIeqqnZ
HaOoR9NtZuVnFrBdawvX8+PAg5LqVcPXsoAlfRtW/5yOcJl5jz/szv6Hx3zb
ZHBAPBtI38n9wjfo8OKSJMU3KBvWS6b20RivoMeCS68PamfDbY9bI3TqK0j+
qWprvUU2BLDqfT8iv4KNtnpK2rps4UUpUp9wBmRD6s+JfftoR9ENP6G67Phs
WL78t5wytgfnmL4ncKMwG2TbbExySSOo9kKm9V/yVr/bt/XCL2PZcDH6mHhJ
wW6CMsN/7Gc3soGhMS6oPnE3Pm8cYDLClQMSTVq+yyG0eDLene55KGdz/96a
f+odLW6+V5JBVjUHimqT3wmYcuECj+yvNV/LgVXlE7eClUYwKhmLc7TKgRRF
q4RaISbcR55pZc/LHIgz91z4Xr8DP+d95b+CoBxg37ikGrewhNbHwkKNknNg
2zfbDM3eYSz73PAEbWkOiL4OTN9Xuw23iZYnxLbmwGh6JYUjawmToHnqoz6V
A4mTH9JlvgyjPoOK3gm6XNC1tL/vP8qOB+ftOvyBNxe+7qVPWPnGiWvx3HBT
kM2FC/aumIHpMGJ2iCFTz+SC/36L8/+5cxKKm6ZFn+jnQhop5GzXCR7CE+kT
TgIPcmHH/AkGw3B2gsK7V1VF7rnAwc2RKk7hxcd/NvCahebC75iT1t9dWPGv
p3ktt6XmgoZl1uuX49yEG59NCxIqcqHzYbW7qgk7zvEnecelzlx44x3lGlXG
jdfpLRvOzubC8c8H3J8JsOLuWad+BGzLg1was5vBDKwExPGe5phAHngmNfHQ
tnPgCzYtVzoO58H+0aVafz52PLlOONrlfB48qag2Sjfnxs0lrRaEDfNAMaiB
bv/aLsK+11lq5fZ50Knh+CcYFlFL/0aQhUceqNV3rivLMOI+KhdGWSLzwGDv
909P4jewc2GBJ1Iy8sBS0OZ1kQUHvr7c43mlZpNvqvDkWfsNlK1zsGuhJw+E
J+UH7l/fRXiQ5iATvJAHCcE/qSVoA5tG/eQa5nz40o3HpZQuoPvVms5rAvnw
xO/N2gPWXYTxq5iwzOF8sMzxcdv4tY7u9h6sMlLLB7lit0NMonvwYctP1r76
+SBbZlHtXcpGMF9i4Cq1zgfVkpcB6XYM+MBL+/z5l/lg+EfOusZkCBnv7DMW
C8qHNKvn/y04sxF6gi8xXU/Mh4XGZJc3tTy4gWjBd4/CzZj5cmS4wgLq+CGp
k0/Kh+Xfn+pCFdcxvZNBqxPD+ZDx5r58JOcC1lJJH7VvLX/r9yVtu/OXdxVA
7En2H6EOPDipu2fK9UABOI/He6n0MuNa9zQC048VQHKTs3p6yyBqXMhTHrpY
AM1OtaJ5mrtxDVeJfm7jArAP2JZQkjuP1bJ+fHveseAfvvonOtknHgVw/cn2
QYkwekKliC0lMbwAtExe7H36fh6dTel27kotANtxQX0DQ2ZC6YmL+9kqCmBG
pI9i/GAQU63IrYL2AtBJ2Vj7ZTyIFWqJ29hNFUBqk80RVQlmAuoK4IqmxcAl
/uUfnbPzWL4FbQGFG4Ook1Iuokc5CcfnbUy2HcJgP50gH7MkPSH7eRfTcRUM
niwdj93goycoslxIuaeNQRNXyxLLDk5C+sccnbA7GATFVg8eXKfD5feLrdU7
Y+D34eZpg1kOPCXZP2rdB4NL75a7f139g6SP06jLR2Mgt9yjf9OZHU8ss542
ycFgn2y09Z0qDoLk5c7AgDoM1iPKVofyBrC4DvWTFb0Y5JhmFQRcZyKI3snu
X5rH4KpA+E++zwPo69wBD0lmHExcUhab/H5hwi5+sjcE8H/zjGTeoHjJb8UC
gfef4mdx6JC8U2Vk+QuFCnXsn9HDN5/PPpUGhgMYb9L5amFrHCTDdt6+rzWA
BR3NstF+iUP7dMZz7zMDiKtUhNv9Iw5yr7Jmio7SEfwv+RZkJWzh727/azKC
4+DRKWSYErON4GtuxcxHwuFxmP80zj6A2GbbUi4Mb9W/f3ru2rNVHDy13j8u
WO5HLEyZa9/ZCqHfe2Lv1Yl+5OG//2uvSCHsNXcQXevpx7YJflDffawQ4h+o
OmaQ+pF7wp/p0xcLwWy9cuxpJS2BTsnyo+OtQtg92Wyuk0+Luxa3noxzKIRb
r15WoBRafP2i2kDr20K4aXZhUvErLf6sNd1je3ghjEVM89w0WUWrpsJyJ1ML
ITMyZJeO5xz2eNqber+8ELqlYhudn/ejpSdrTyPbCmGPJqkt1X4Oc2S8J0Kc
LAQTbSn2pTtz2C/flmpa2iIYDGC+fuFmP8Lup8EQTxEsswTqZ2n2o7fq77Mr
pYvAmEJ/tNCfkaAtaiGTcLoIGP5KORYp9SMBmtMxXnpFYJRFuL2z8Dca7hTg
t7EpgqzwUv8r5oyE1JxlPy33IshZ1sloZJ9DzgEk5iOhRfCX8GjnFwZaXO3B
9xfcqUXggtWsvlzpw9gveiwtVxQBNX6HvuPkLNYhbmbd0VkELS7e79K1fqMY
OpUhbK4IHo+c6H9HmcWOPXj/vYm+GPgPOlUnV/chge7fo8VsxfDTdPjuZf7f
GN1FC9F0vmJ47SV7QiRtFhvJpdyKFi2GaJM9bo6xfahe/HRYoFzxv/VNC/zR
8lq5GFhPCAWd9+lDQXT7OB6pFUN2ZKpItVsfembreemuVjG07DvQff3RLDLp
WfbQv1kMD1lpvi1ZzWLnNG6XX7hTDOu7jgQs+a5g0vmkjZN2xcC2njFrfG0W
2y2pelLmWTHY/5VTkr4wiy19/O4k+HaLv5OeP32X/1ZcbOcxRRNRDJFjDgd+
SvahuN5FyV/fiuF94j3B8X19yOuSmflgejH0FUmr/uXoQ7YFxM8UvBg63v29
L8g8i3QPqnRWVBeDq2cNR9jqBjr5KYknh1wMIqq3F7h+9mLCjHza8T3FkBS9
pp7Y1IsYHd54h4wVQ5uNWueN/A1svG++2nOhGKKG3J3EY2cwoqYJw7ONYnjF
4z68w3cGy8IawZqlBFzlA5Z3Pu1FoYfQUyPukn/6XYMTsi8Ll0DbuWz5W1d6
0e1te36pSpWAvfjqfArqRRcc3WUUjm7Vyw3M3T1wqgRmzkY0hXH2Ii6tWzFc
GiWQkhtmbgnLaBWv72W8XgKUdja36fF11CulzL9sshkHRwXgLdOoPOSb7uj9
Elisz5T8s3sZS2Ti9m9/VAJrRxROxqWsow8P3Rpq3TbxR9gci0J7kOPgDDPm
XQIW6peZ595MI/0rhme/B5eA8ahbrbLDOqZSVPsiMroE5PgTvcNv9SBRmeMF
H1JKoMxuJIw9bwltD4tdcs0rAQ3eYi+XxCVsmplTwb68BCLkr+/XEpvGKE6u
1mZNJWCbMiPLzrGO5Q1Nxet0bPmN1L45pPazBNQd9sr22S5hr4qrhY7NlsAI
r3dgR1s3uit79KbkWgnY0T9XWaqYwjTDo4P4tpWCVKGBhWTGFDrCspvEsrsU
nlz5b9j2y1/E+/j5zj/8pfDZt9K/yXsKrf+cUJ8SL4WxmdyzZ592o8Gr+u49
h0vhxK3blMa73Vh1SWVRE9rsl7Td+0B3Cour/zPkfb4U2jucRZzPTqHXrQos
Gtql//SaD9yVYzEshXR/o5UG4Sl0eipSp9qiFO54BPZo1S0i4RXKkzf2pXDt
8quTDn//YBt0rJ/PupSCUQgdy0TqIurZeaqczmOz/++r8MboRYTxPhor9i8F
CnHKlLamC4Ue+M72IqIUGq9eO1H6bhF7Ijt4hBBfCkzxYGUd14X0TvDpr6WX
wimThAjVj13o6NnLz/PwUrgrXGkTTKIlcF1+Hf2ouhSOjHF46ukuonn9gmol
cinsbD5lJGPahUjmc1Pz3aWwKHnsx2+0+Xx6IMGZPrqZn1g78UJ1Evk4Gx63
nS8FrsfWcuVyXZj16wBD2fVSIP2nlcgvNIk0fGvcJpnLts7fYRvfEjnL4OvR
hLESlw3EHKfUcFewDPLeWdL7TtWhkVSrX+IHy6A9Q9lQvnsNVRZE7fl5pAx0
y4i/E9qHsJjKVhStUgZvzDEml4YhzK15p6nJf2XAXnvw0bPkTsyk68xbIZ0y
MI4Oa7uQtYCpjjxJ7jYqg8u33B+oJQxhgr9+NIfdKwOClCHzpYgF9OfPzyV9
xzJ4ekyEw+3+BOpkEhDgfVEGUeLHeaf45rB8Du1TLe/K4Bb6zZT2ZAEL3udx
JzCwDPZvC7RRJnRiTpKFXtqfy6ByeFLpiOkQunZkIZU9sQyIM5xPtwt2IkWV
Qy2NmWXwcJ00+Y5tDXH8Z7z2vqgMcmSsWvdurKLZq0HCF2vL4Oqt7cLYTAdq
MqpX204tA+kHu05pSy5gKfforKp6y8D9soyJXHMt9t7xuO/r8TJQX5MWoy0d
xyxf2GSdWSwDt8tiPQPpteg/z5gOWppyEK6vuta7Oo8kP3ZsFLGUw68QNd0v
M4PYti/sYs+5y8GjQJDbemgeG0o8dwEJl4PpzTQdpke1WFnWswerh8qB9jGv
/rG7HdjX4vTAXKVyGD7vsYOvbB651o3mOamWw9inyyxcm/s7oxbBXsWL5fDG
d4kYubCEEfp1GOavlQP77YX9vjK1mMCk58E043Korzm2fYdQLba6VKz5wKoc
ktj2tASx12JttMsOMk7l4OTFbydPV4vl7JAJmXAtBxsy+A84DWJBe8wKE7zK
/10/jiIhgxZB5VCd60n4KD6LtGWamMWjyqFGhFXgYM1vdPg4o+xQUjmovXIx
Zy1oR+xnTl79ml0Oc3oZi9ipQTR9ye6xcUk5fHNz+25AP4sa9L5FCNaXw+Oa
G6+Z/GqwZLPu0q6WcujUZuQs1F7CPG04R0P7N/FDDolffFiD7j35b6f+ZDmI
fS+peGlRgyXy7zY0WiqH5nb3l4wM82gSb0s2o6mAnKMe4tOX2pGM8Zc/d1kq
IDuMkvjKbwbZ0N3VsOGqgA9uVobJL2ew1Bi5cAfBCpBrfCY/SbeEzZ1bnngs
WfHPr8JY4cnnChWgKadwi7duADl6vfF6hSrAG481ukT3G8uW0ez0OFcBft5O
TJ2L1dhyE7eUj1YFPMsd5HQcq0bH7budA25UwPWQIQfe7lHkzBVbG2xeAV0f
ffZUE6tRQfb9vZE2FaDO1pEYvTiN/ugpWkY/roCI7dXj6rmjSGVtLS/erQLE
mx4rR5SsoRcRZdtT3ldAAP6OfenzCioGL/2MoAogx9XydwdUY3QD2gm5Xyog
rzJ8Z9PbUXTGfe9vPLEC4Jhkf5vBL8xdfEC9LLMCzoRnna72mkaV1QnB1YUV
0OBTlfHTbBQxWdmNNlRXALtmdgKd3gpS33niOJlUAUOzxclCJ35hnj9oPNq6
KmAa233TQLUNq79S3do9vDWvnQsfJAZnK+Dn00tM5QcWMc2g649GVyugOMHo
ghffIuZ7XKhqiqESCtfLhgs511BzxzDPPFslEHZmP3JiGMA4XFLurPBWwvPY
PG+z1RFMR8gp+69IJfCI31zrnq5CH0sI2+hlKkFaP1dxaXjz/GTGqMt8rBIU
702dmiGtYrzbGmJ3nqqEN9asFyza5zD9+MBFjouVQDMepiZd0opCLxio8V6r
BKvZu3ltWVVY1+SBj/tuVYJbp+S2D4kj2L4PE0Mi9yrhv5d/dJ/mzGFGhzMU
JR0q4UHBlVyOH3PoC9nZXcalErx3P3o+6VGFBh6epii83dTr36t6PXIOHeBl
ET3uVwlM7XR2qfbLmHl+swMhrBJWvaHki8UyijMIKTsdWwl5BYMEJrsFNLJu
zKn+o/Lf/CSjJM0u5W3Flmdm07XLKmHp05vrxPtzWNLPHDq9hkpoVpsu6pVv
xSbfvtA2bK2Eb29dLzKLtyLZQ+e/mvZXQp9cRw3p2AL2oJ7tl8VEJTzJ2j/v
yN6Kpdq0nLJerAShMuHlXMZW7Bd7pJ/9RiXsPnidddvaMHYk43b/o+1V0NG6
sFdNcQ45XpM57MJZBfRWckoFP4dR9vKCq9u+KuCXsThyoLMSWwnBiG8lqoCn
gJYzkLiEnUDuwt6Hq2DnhtfLpsjfyLnnoq3/yap/fjBXzuJPalXwJELtnqnh
JPor0rkr4nIVhD15de/109+YSsXXW1/1t+pdLSx/fDOrgrr095pzfpVYyXaF
jWTrrbykjnyO5+MqUEhwj370bBjzjZR9cPdVFfQOR4nfsFvCVkalJc75VIGJ
787ZzPpZZHxEqvdAyFZ/tcvBT7QxVfDq8ZENpDWMyVVLXO5NqYJMrqGg4JYJ
LIhDnAnPq4K9HbqtZUl9aN1AtCi0vAqMQq0rQqJn0Z1vIo8eN236tVvOZTGe
Rw1zwnK6HVUgSbZLPv1lAlNEQiNHflbB7W0Krcy7KlH4m32fd89WgXjjzlxq
+QpiaOa/PrNaBX7Zt+eDf//ErPj37mpgrIbQNvFdM9M/MdJt3qpE9mp4jWt1
KFv1IeVUnhce/NUQ03R+QlRrAvu6ynXsjng1eOguFBvd7EPb1ThnzhyuBq/U
FcanVzf31x92f9uPqmH/ReNDkvkVWFv7rlsb56pBTuVmxlf+CaQqyran+0o1
2ApPP4xkm8DibXY05RtUwzx5T+F4aAViz2N5G2xRvbl/X6D6+y6iR/Tbwcm+
Gm4fITSceUNFPZeYlq+6VG/9/S2Y8cdhj2oYPO4l5lH2C0sZoLfYFVAN526M
P/GyqEA8MnRCUxHVYMpl7pmR9gs9f0TTWhtfDeZYgkzHnxn0s2TdJz5jC09j
x99zbwqrQahK6NAuqMAyddfWzWqq4Vm9kTOjUgUSiPqdfYpSDfaPZs3eFPei
VxPLNkK91eC3v3xYumIZG1daEv87tom/y4fUbzCOtF0XejoWquHGAeofhZ0/
sf3cc5pBLDXA8Otw+tPfQ9hswlThFeEa8N+v6G8kNI7pLUw4yUnVgKy7lMmJ
C72oSGVcdufRGpiEQN0HJAom/m50eFy1Bj6u5jwurqYgH/JwZPXFGnAoI4fz
FQ2hpX0/deN0a8DJdoTrOPsMMro7yOZuUgM2vWfSu1rGUGV6f6XJ/Rog7X3J
y8L2C8n87X0Oj2pA4++sQ0MwBQWe7zm6z60G/JgwZs0Pm/slv67p1fc1W/vb
ro64tk81EHxw6dGdZ0Ob58N2o+yvNcB8gMbIJbkHU7Rr5Qn8XgP5DR9f3Y/s
QWEF1Ea73Bqwq7bOO2tMwei2Ud5cLquB9xJiN+Z1y5GlFklFprEGZt5FvU64
VI6RQolLLO01IDLDqdFRMIdO/GxMGR2sAdMRM7dSvWnsi1zDncrpzXrD4bGV
w0OI2blOMOZ3DTjnLvfXS1Iw2/KalpcMtVB6r1spXqgca2Wr9rm1qxb+rpp2
efIsIBX9ynOEvbXQMxWoIMfVg8VFl6/vFasF3WDpteBtPcj2tU4/yNWCwtHV
zMXVUeykxVCZ+YlasCCNNHyYJ6Nt/znGvTtTC8XNQpu3zygiHmJ4l3KpFszn
rMknKd1Y6I5AK/L1WvCdTT/i0jGPzKcPaK6Y1ILdRwPV0etzSJaYIb/vfi3w
YPSTQzXz6HfaGc7TTrUwzKcwYv91CpUHkBfvuNZC3N3Y13uCujGfh2ZtXp61
INO2uF82rQzTuz6fnxpYCyUfDpz5Gz+IiZx4FUGNrAWpu9bGpC9laHIvp+tq
fC20CRQ2tT0fxXL+fDUVyqgFv0s7HH18yZhbj4LaWbwWsKVTrKkaU5hGcanE
vapaELe6kupsPIp4vmqz+DTXwsavt3/v6Y5i/a8GJtM7a0GxMuf0Jdt5LPm2
fVPrz1q4GIO/vXh3Hjmdp0v/M1ML89yTX9QWZpHqQf/A/aub/LEv2N4wTCFW
VpFH5xjqwHuUMHRXqwy1TKbpW7HVgf7MF4Hn6mXoS+Mp5MtbB5LvFU4XsY9i
lqnNglkidRC3dsY77zgZKfmb0HZI10HhdnJur3wZRuM4N7h+tA5sbx4j+OFd
qPbay8oDp+rA/rfj6c60Lizw2O4E9Yt14HjRIJnYO4IZ8UV5WV+rg0ZHrUOp
u+cxyTV5G/9bdZCvUSI64TOJzXcVa+Xcq4Ph2On+qtIRrLBQ60iXQx1YGCkt
S+SNII8vfdy0zzf1qEwltf0qxbTdbFfEPOrgoftxE/mJX0jAnKbzgn8dKJsJ
1vK/nUXDar74g/A6QNMqP0f+m0RpEsJfAuPqoOX977zrlF/Ys+2pbnmpdSBd
5r1j6cUIdm4Cbvfk18F1lhmVYxWliL2h6Tx9RR18E0gyfSPQhXWm3Dok2VQH
3Urh7VLZpSjOd2bHpfZNf+JpNCkpA5it/YsZu8E68Li3tp242omUdXaRgqbq
/t2vjEc/ZxYs14FGtH/w1eBSRNwj96mPth7+u6DGIqY0goX+LnzCuKN+6/7u
1DQ4xLMVy+E9KpeF64H9lU6ng9Qsthpps9/xUD30RBTnPnb4hZW7rtOHKNZD
Bd3FScn7A8jH1GcYV6mH18Mnjlz61In0zgrWDKjXg88Hixfm7zsxEfGUJKar
9ZC+LHBramIYm2JS8ZE2rAerywNh/JdLUe5Yg+0Viy1+tzrDq0529SDbGhmU
rkpCGt+nlMKe1kP2LhMhdd1OjOeDC2/x63qYVN/Lb6hQivXZ7lwb+lAP+21X
e2LqZrAk7Yju7aH18HyieGOvaCnmpChTLBtTD35Pzx2k3TeAqfLgX6+m1INg
oiP/JHcpYvjI/UAttx56R07pbbCVompOm5PHSjf5m55OCXgOY+/9K5kO1teD
rljK8QbaTuzybiHK3pZ6SGlMtx57PIw4fB992dFXD3ySUVlP5ktQCxvx/vpY
PVz9s9ex3mIYC/WWPDE7Xw9RTMXk/LYOzGjHS8aBv/WQpHY+nqG3BD2lU7tr
e6kBSg0bZo4nlKDs6XoZ78kGGInbdbVZtQQ5W4utPl9qgPVXsXXWyiVIZdKl
0pamEb7GHlNnUyxBFWOyt3S4GmHQ2JRwU6IEedx9K3VOsHHr/TbSu3xMshEM
oqP23DH5ibHfOV5+UKER3kSsW9znKsEoQ76+/KgRJJSk149+bEfBZmMGO89t
4r26Q+5jasYMBk4d3LjcCCuBtFft3NoxYZPQxVn9TfxKm2bztWJssPdXyYBZ
I1R7NU+WPmjH4owu+lCsG8HjoM+ZlWkiZtkdfaPyUSNs2KcVVo0SkazBH/Hc
l41wKErLb/RqO/rVoTOf4NUI8eLG4vZdRIy9mVf3eGcjdB9ZUU5PImIyVV25
lYeawDj0wuP6vDaMZ9pqylepCQQ7zmbaPyxGNNxr+2+qNkHM0b5xv7g2bPyk
p67YxSYwUxK7kXCXiFFM+bxmrjX9m0fhu/iiPOMmSJISD5m9WYzFpx5beGXV
BExjphah14jIv7VSUtOpCfCHo6Z7zYbQs/Vrhrwvm2DiqKTGqnoxuiP202/A
qwlg4L8bqaeJmJaGY2VyUBO0HErjeH1xCFN2oF9zimoCQzqlEMmjfZhoqL/c
qeQmeNGQVzIuR0RsJfvNWXOaIJqhaTz1YB+2MpIaTC1pgiPXjNmfHiBiA2yq
DZ/rm4B+yUj2v31ErF6pidaytQlGI0pU+fcQsWwDo6OKA1t+vryaslyfbIJk
8QSFOpZizDPx2efq5SaYjTrKksBQjPJHGS3/oyUCjF87SPzbiuSeXXJP2UaE
6+6vK/pmi1DMro+RnDuIwMlFyckYKkJ80V25j3cToT0h6KZPWxPyOSpK7uYh
Qv1+9gTb+iKMvtZq6rQAEYhZ3sE3ipvQY8MMpvj9RBA63MB3oqoVTc2u7t8p
Qfynz9T9NLKXJkLlA3xYLbwXa93jqdt6mAiG3wU4NH2bkEZSsy06tlVfrMLn
FYU2+ThCGf9LGkRKJOPYbaeJ4BkveSvgfhNKvB1fZHV+q17w90w7UYMI6ULS
4cM6RVjA+2MLStpEeHiuw5bi1IqYhV+whV0nAvJ4c5fWphVzyaiUpDEkglJ0
lEPo4SLs1zm2M7dNiXCJUvBrSKwJs+i4ZlhrQQQZjgO0CVdbUZd1xCM5ayKY
a3UGf2BrQldof/oF2hPhQHZS2gxdE6oMlE7+/YgIccEpR16eaMVOSjpWGrls
6UstKOgrcyNC/77YQuW+QiR2mX5N0oMIGXOWdu+EWrHQgQvcPt6b86gya1Su
6cF2OfnLzfsTQTRPzbACL8Tct3f8pxe86R/PGNFNb8R+h+83xyM2/blLeh/5
24LZyN97LhJNhBpVZopPWCMaLEsNfhu/xa93fSV98vtW3DAODVcytuLTz9+O
ZOcSoWPiouYVm0KUs7uJVqCQCLnfmP9ymBVi0rE8Ai/LiFAof/vjUEkLFnXc
6OhwNRFawlXiEjUaMZ76WK2LjVt4XremLFPJm/NprB2uiG9BNPOKr7nbt/IP
3zz77NxDBIeNbrtDwo1onK88r3dw8/q7pEjPz92I3frOSjk7RoSl7Z9kOFga
EUX16nTCNBGY83PGd23gaPXzYET6PBHUNRUFwh+1oP0bDpcKVojguKTmNfug
BVM3Yvhb9nez3m8uyqQPRzZ4YHI9XfM//kABMQMqUzM05oqlbq9vQPlPs1h7
djSD7QPH/cMlDaivQ61geHczGEqpS1bnNGBMyi2WMzzN4JSSVvTjO45kQ+7s
XeFvhsvvqgbCoxuQzspSDc3+Zvjj/SxB6kgL5nz97ZPt4s0wYvQg9+2HbvQl
e89BDqlmoNxbYRYVbUFTjsc9Dig1A8nzeLM0dwtSPqI/ogjN8Lz52tt0w25k
7D8WRDjbDJ/weP26qzh6O/fk3Ln/muFhb9XyYc0BlKLFsqSp2Qz3/E9Tts9S
EeVHaOz1q80gWezmGj9KxVbZpK4Z6zXDhHXDcXPpBkzYpoDhnmEz0JKLCj+J
4Ohcw8VMO9NmGHV5YBlOoiJr6S4zZ4tmCMnLimLbhWPbEvaJRDxtBsGLh8+e
HK3Hvojd6iv60AzbKqWq8kswrNJ95kN1YDOcePP5iURuPZoafAHNIc3w2+FJ
rdBUP8Z1hn2mPbIZVBUN+OqfUpHy1y+RA9HNwACtbO/D6pEx7WHNifhmyOvP
3rbTvwu9MS75O/+9GQI8hRkDPDCUXHTl+5/0Zgjqvu6ue4uKkQUHDBhzm4Gu
8wFDysN6bNXFfgcbvrWewt10GE/pVnwOBVgJVTVDz62umqf6ydj9sAP8kvXN
YHFJKEhIC8P8VzNq5Zub4a1Ujk5UUy+Wp3/W+URLM0QXqPx8SOjC+nIpB093
NsPB9023JBW70Dbe2+0X+prhF09/du8hDEk/WvS4+rMZ4JKoWVNsL7ra8vq4
wXgzvJIUGTfgxTBnJZ5R85lmcMu4fUfFuw3b3Ax+sl5ohicvLIymGJOxyvmj
551+N8Nnr0UZMZc2bFK7aun5ejN8/Hpr3ne+AONIvx73lp4EKjUcd5tmKNiJ
3aPXfJlJ4HaW9t35/jrM2PYxY8hOEpzxvSMhd7UXvWlizoriIIFg17cijc5y
lCwbYp64hwR3nv8OcKFQMJL3Qa4MARLErnzwvazWhq1M5pUV7CfBp2HQHsio
w4Q0LjiUi5PAQy15d1diEnYuqUOkQYoEY3Jjdh1RSeg+ixWJKk/6N984nCf7
wlESmAz33xP90Il6bUtDik6S4Eix3EeuGArGK2rjoniKBMHnWfubwymYdiuf
ScK5rf73nhVnBTVIIHDSee3h3QJUQbCTDLhCAiaqZ1qrUR22Piuwg/n6Vv3x
mOqZZwYk0LvLoFz8uBzZX3ckz5mQIHxj2wuB00koiUU4547FVv0QXhfaeZ8E
XK3w5t5fIhK0e/Rcy54EwyXcVr5iBUhP9IBpxSMS6FgGI585IvJrbVRTdiHB
wFVT29gJIqr1dD74w40EzywyVxS21yEGFfGdoh4kqH3/vbx6oxapzDXPBnuT
ID6YVmO9nYg9inGh7AzY4k+9fjDXLZgEWLxPUfxgPjbOQg1bjiDByhTHa+YX
rZhooeuL+9EkiCts0hSR6kGGdtJm/fEkUH0wr5JdlY8Fibad000hQd7n0VdR
d1oxYuurQ3UZJHD3OzT91qgVsXjJsanmkYCB/kndbFIidkalcy6zcIv/2dwb
6sFyEkReUl56HVKLsmMU8iJrSNC73W5OQ6UVzV7vCeds2lwfxfkm2beJ6CCr
p6sHhQQl63XTb3vKkGmhkvnfdhIUuzoenXDMx8Lt+s/b95JA89BIBtEqH7WI
ekuNDJHAe7GbqcC0Fu1qO77LYHyLX91r6BdxhgQR1hEikVq1mJuKb4vaIgmi
Epok07LICJs7mZ+/urn+q9a3A1VqscWYkQg5GjLoux2Tem5CxGT1Al7GMJLh
BuP1HxHS+dhdVrjNx0oGQnbB/YQDtehr4bi6DzsZRKXqpDK1iKjTLkianoe8
9f/CYqfZH/OTIWqAuWWUuRbTbJuanxQmQ/8d2ytMNImYh1dIq4k4GQridO0P
LeehEhW1ghYpMiQt+3/D7clodW428uJhMuyTqAh8/rMGU4wNdys+SobaD1Y+
P7oSMBs99TtKaIvvG+vCf4mnyPA07fSD63pkrK/ws4zQeTJsu3xXnsOzBe21
v7g7UIMMdFYPJKLyEpCO2PICs/amHqaZ4dHUPMy77Wuby3UyKGTPN5zs7sIq
vTSxXwZk0D1rMPb6cwJGA6ufLUzJwK2WItoZlICUf8W+6rLYjIGpVdGnHTnE
XrG4Yk2GPdufEmRFyViy3t8LlfZkGC+s8Ft8locNsybInnxMhg4lRhu1PWQk
VKTDkepChhi+tLUqqwSkZ0+zJPqKDAdP6xYwYk3IXyy5PcSDDI7Vqo915VpQ
Xdt1nM1ny69bxwi3ZQAZBGk0DegcurDjXY9sKoLJUPPWm8f+VB423c1UJRxJ
hpTXjwlru1uwmN5PQs+iyWDhFXiVKN+O3eiXeNwaTwbN8BgV857N8+9gDlEh
ZQu/cuj8QZ8MMpiNs6T+2VODPRtufTmWS4bdZqy/vl/txRRGLTrOFpLhtaSx
gDtTDRodW1b4UkYG6fW9js5FpShy4q3XWjUZvA8xVQ8o9mI6U3uGdBvJkFte
eEUhg4RYZr6hdDIZFm5H1XF8J2HFs8c+7mwng/bpFzkRPfHI6VfV1N0eMjgo
suY8bYnHZBaunysfJEPGkYAsw8Z4bGhxJFJobEtv6PKjZedpMjDwZn6VKaxG
Wr+ZtFrmyZvn4yFP/ux4bNvap/jDv8ng5TLN6ulWimF/JGi918mw83pZ9Wk/
Kma/nqM/Sk8BdWrZ4J+IakySRj39zHYK9FVaHz75ior10LaxfGajgKVsHb2L
JQkLpL9rtspJAUGGw+wvzUuxC4wrBdf4KP/00DB5cKUJUuDMLoNWHQsqymbm
td4hSoFIf4GQSO1S7D5LfIXFQQqk27AyNLxoRCI7jguWyW71t+2sdhJUpMDO
GCWmFtVS9GGXXtOTExR4vby04K8Zj87tHpWgqlAgiz4DtiuVYn84HrvKn6VA
ueSAgIRcKUrnYm73+o8C2oM9fAflqeguT/DhEU0KLOu6SzOfbMQEeSU9T+tQ
YLLjQoTfvlKMwpc7EKFPgZzbQjI/+KnIk1/95G8jCsjKzUv27MnFVPe1BeiY
U2BMRU+DewcJLQnenfxxjwLNn4d0jJjbULLwylnWB5t6R18uOdOUIlMRj4g7
jpv4n0BlaqVq833Eu1TyhAIJ3/IUlOeqsEaxeM19LyggMT/c4DlWhdwljn97
7E4BNyVxom5HA1I+WL1BfkeBAFevWhdqB5o7pKcn94ECjxi1iVPdzVi89Giq
ZyAF1GTtDii1NWNGso+3D4dszY9Lntn01GcKGN/TeZ5f8A2rPRycHx6zlXc9
Ism5kkCB+ptUbeuSEuyoUq7V1R8UCL03X0AXW4Umj6qXp2RSAJ0pVHkUUYW+
Hm8TYMmnwPNvJ40PR1MwPeW7D28XUeCvnfsHRvsGjA2tNBSXU+ALBNjKxTaj
coKHuEDtpv6/N1zub75vnIH3xaMmClxlPf/+16McJH8qvpVEoUA+uHE/s/2G
DZ8+Li/bQQEuzqWbF880YOFnqz3e9VLgwlHRg0feNaOr5/T6h4YosDTXJuKg
1oHyOQ83DY5R4Oat3y/PXq3CRPq34wPTFPB4MXpzXKkDeaYMJPbPU+CQNP2D
Dp4G7NfTguC+FQrILwi5h6m0Yjf+C3zT+3dzPteJtoXHqrASHmvHHjoq1DKt
XB6Sz8Ekh9RMu5mo/+blmyao1bWDCj+dl2ItbzRjK8+XCZ27qbCscPathcA3
dEuDKNXBs1VfyZfA185PhZOqLz41sH1DsiMvmdqEqcCmFPGbgTkHC8q8sdgi
RoW3evEAtK3o78sjg9RDVEgsC7R4thqHzC/vaKbIUYEuQtYrKbUeqxf4WUhW
pMKNJxM6G5NxSHEcTyadoMLrgPM8asOVKCwnKLRZhQrCmaX77D7VI7rXDzyI
Z6ggwnGi86tIM7LUVndqUqdCcc7cfQlSC0YS2m/eeIkKLp033j2uq0Qnpn5f
adCmAu4YMqowSca+5JOg/joVtFnE7oayNSNmjySZOoNNf4o0fhHbm5HtNXf+
WhMqrJ3tW8Q7yKhVxHB7zZ0t/yqzSstVVlRw12QPy1gtxuJwtp+Vtpv8om4e
KmfrMTavEVLFQyowGiucvxMUhx7qFReXO1NBNi7NsGuiGHWJhaSUvaDCUYmg
pvdS9djZebvwUncqqPUISHx3a8GSiy94lryjAulI0eaDPQ7j9DnwuNiHCoK/
xP3l2oox55t/bhcFUGHdYvbZf+RibECSerUwmAqN9/v1nMLI2IWl76fwCCqY
ntTKfL1ah9LK3shhX6nQpUS1ji4nYrx+t/YVfKNCcrTYnv/G65Cr0XHW/GQq
fN5Qin+vmY1GpXb/zk2jQlrW7lwu9Up0+ffYcE42FW7W2Dl8PlWJZVeWUrIL
qODX87xN+mQcJhgYVppVvDnPC2Y/McU47I2JY2pmBRUS2C8GX5atxKZlL0Vm
1FKBOGA2MySRjen+EXuf3kQFhX3do8/2xyG8Zv1JGmVzPhSZr1cCiZjop1aL
1HYq8LzLLsjkasHem6de+9FDBcpFQesiTyJaOPzuTMogFVaetpz6/ZqIGWyY
HP4+SgVfRiWvu6fIqLxeWSh5igrz32pSzqxlIalQzp1Jv6jwIqH2oNZRMuZv
MbmasEyFPxXv0kOns7BVxYrR+D9UmAmvYb8wGotM6SJbvtG2gNV0wgtMjIxq
mpzK47a1gMjhSGtlYTImH3E5PZa1BczimT7l7yVjwZaSX2LYW+DzTgnB/U2x
GM1xWp9o7haomB0hdFdnIQvGjqdf97aA/Iz/z7DSWNRISr8XJdQCzAJ2nIZY
LDr6xev6F9EW8OZpqBDOrsBSS148YT3UAriOh7zHGSKSGnQIc5JrAcHb4d+/
xmdhcQx38X7FFshl0GcZjaIiYXGDXg3lFtBVW773h7YOhZ3Xos2Fln/XK8+9
swcOqLWAOueBxBrvWOTreVzN50ILLGqQUve+pSLWZGmL35c39V3mqzEmktCb
BuF35tdaIGnydeXRtlpEM8OV1HSjBQrPvOEXcqhAT9m3Nygbt4BrekGRwW4i
tnT473Ts7RYQXRni7rxNRbZX59h3W7XAWeYjBoRbFWjC8afCM9sW0LeVfPpV
j4rdCWrXGXm42d+SZcuiXYH6chqctJ+2wFidYpvcXBN2s70kGHdtAdn9t1sH
zsailtWsfMk3LRB6JWn4WXcRpiWQ2BXg1QJ34qZeVB7LQnWEyPV13xbov1uZ
4OVSi5275S9sGdQCyY/5b2QdikXFrm9OU8NaQCi6ekFeNBad/OpsrhrVAmsZ
7dd+7MvCssts3iTFtQBbl9ZT+T0VSP6naTxPcgucvlQXyBbShCVtu177Mq0F
/HJesZ5kqcDEJS9OTma3wLNJh6S410XYl/+ATQ9rAbu44I9af8sRv9UR+bKS
FpiwtXPoXYrBgt5LaMtWba0Hewq/Y0h9C3CGutMx3yrCvJp2BTGQWkDmXpde
+GAM2jZHn/ugtQV8pN13Hu3OxFw5Vto7urb6na717UsbaQGvu1L/cdbGIOPO
1FjDv1v5zj8xVdV0rbAtyHvy40YjpisYMnaEuRX8M2TvCS8VYkTwZv28sxWO
WTUN1kRkoosmL2VYOFvB2Uu11vVTOVbp9vDyQ95WYD42q6HsF4Opxtyz69vX
CuFvmC2XPDNRQYVhwMUDrSBwMUsoyz0THR25kpUtudnPJsPEFVmDUpnPte6X
bYVRhnOO1zMLMalDyr/fH2kFm29vf7n61KC4i7L8K/9XpHUHUv294dK0NTSk
jKTIqijl6G1qIYqGZM++lBEVsrIrKSNkz4bs7dizZI/rDuNeI7mumz2ifvev
nz/P5/2c532e533PZx5FAoAeNVCjrw0LW4sqG58mgN0Yuh9qmoQ/BO7Qbz5P
gJA75r+v07vxjkwOj5NXCDB1+cUn7uY2FNT2NyFJnQDmB+KcUxraEOf0VA2v
FgF+PTWX7FXNxT7bf4443SWsPq8dJ28e0SPAS78/+j0Gzcj5doukpgkBdI8Y
BFmf6sRzT6tVsSUBHr+FbY/Vy7BNZMHDg48IYNgpWWr5sQ3TS74EvXtMgOVw
z5p9qAyZ9cZmrzwjQGp/RPMfkVw88De408KNAO67dtMswtsw13jryydeBDB2
jjQ7uaMTKxK5z/v4E2CI11zvDV8uNqm7uhQSSACBl9lOPzk6cVCOb1ZiMAE6
mQmH3m38hnBcjUV2OMsPl/N7Yv4lotHXa4Urowlwzv971PJiDtrufJrQkkCA
2NSbyvdnqvEZC+fAvlQCPAny/FM+kYOstAsvMtIIcEt8uUvsVw4OPze7/CeL
AB+SFzUFzNtwjezRXI4CAuC10ZeYP5rwb8FH/+3GBGArdGcLqinFghxpoocq
CXDqPgGa2qvx5flR4vE6ArhNvw9GTdXo8dCBtxcbCRD5z2TR60spim8zuqzV
SgBk6uMoUpWDm8ti/xl1sfC4bAcl5Lvx0hdKvi2JAB1baLE8BdVIPGL3Q/d+
Arw3ybjml5WIbvjcOvBmiACmhXjTRs9S5GofTIn+RQDtsnJl0aAG9NmgNTht
YrWe3Wrc10qmCXAsa+jIRcsmzKZ0le37AgGUcl4+VNnfhmQO+Rb1rBDgEef+
C6+DOpAOf43NT7Ye8Oiykud/mYN82NYemtvUA69GNpU9vNyEs5nK/eu5e/6P
30dxCtu2tQfuH97ymV+xCXN8L1AT3dkDU/d23v9wowEfL5hZf0SwB3Zs2LaV
/CgHGyUdwSDSAzbV34JShJrw8JWWxB3VPTBR/FrZVOQHFnt58M3bhh4oKzod
e6MkAZv8cHPiau6B7KOfyaF8GCdy95j6dvSAIo/8WtHMBExTl9NkI/YA38eD
+h3/SrBB28DBhcEeqB1dzt/LbMR9N9/+ZUz0AInRd9fwZD3eG/rrl8VMD5jE
XbCuDqzCut1nuwYXe8BH5wG/kn8VjtoZWaH3rwc+MV715L5ox+Q7U1+I64lw
xna6ca6pEwtEXn2vxUGEYcGzn9OfJiAdcoJnCy8RKla25MvYV6EIwT/WV/mJ
cKBZgXsvez3uuX/zbq0AEWw9GrgULBLQztgvF84IEyE8YkarxCgB3xpYJ1dy
gAja4fmKH7a0olAR3T3HDxP/72+nUe7GLDkijPZEyk+O1OFtSVxTh48TYaOs
9I5fqgnoxrBJb4oSETJrqBSLoE78Try0QeQsETTeqV/gOpeA2sz5c6NUiKCo
Jqw/qdOI+T5Zx+5UJcIN/qGAfa6dSGOsNuCdJhGyum1VW49U4TeH9zly32bp
e3vEfMG2EzdbORr66RKBLe1TystTJYg7vVl1nRERSDtPWw4Wt2BVpriiqzkR
eGOiLl0SrMIv5dz2L1oRwfCwPK++aAn+bkvgeWxHBGd/e9ep0DrMniO7NPGE
CEl6EQEKXAno8ozvsOVzIuhcn7/Yt7EK+SkMtA55svzSclKie9ThekdFrO9H
hCHpgp3nnevQxsKgVNJrIhjMnNcemotHKouj77SDiTD3/chsyGQ88j511rU1
nAgJ3bteXhqPRzXOEZbXYohQOJ3PvzySxbq/Le04kcs6/8qzt+3FxajU+16N
6HcW/su60yM4Hi3X5WREtxChhmPocFpBG0abuT7s6iKC1TMutvSX37HzFROf
YBIRuNuXS5W/xqPiAGzLM7Bar8XG7ff9h4nw+/mP+FecdUiR2/ryejoRJB/+
dX5m9R0/Ua895vabCHu522OfsK5/+W/2Ci3NEsE4YV/z1eAsNNvqwOHwhwhe
43oUocB4JL+1eZa5hgR7TvDL2Kl9R49vilMfbCTBUeJKcMuLSpwT4vpjmJME
4WFrlD67ZqHMiP5nbSIk8JN7w64kVIysJARJRw+SVvePFd05FSJFgsMC7+IP
FdaiocuhkbNHSGB/JqdI6F4bju1pW7p1ggQ1us9yhW9VYh0LnnuFiAQWC642
+zXj8Y6FqyW7z5FgE3XToNLUN9Tu67vH+RIJ3idO1wahZhy4s8aZokqCEFv6
Ec3Bb2jjCWUUe5sEUzx7BfV8apHrrfxlQyMS6Go8G5Tf0oxOjUzpVpuTwMln
53KXfS2ec5AtFbNm5Zv6ezNArBJlb7Da62O3yt869OPzn09IUMVgP5ArkIUO
HRjuvfycBGnP+qMa+aloKFfk9GdPEtz8d3ppr3YtjrugF8PpR4L9lYvJ/zjj
kW5n5F+r1yTgtJVWENwUj1S3vXabSiDBo8jsa7HTmWhz4rf+mx9J4OCdeq5m
ohXVHN14Ju8rCQpCfg2N/YpD7lXn4nbkkMDMwfHItuEKrHTDbc3TQpZfSaoH
lQcq0By1xIBYysp3rW7u3NZalG27UHGqmgQzzHaOsO4K/HCtgkhUAwnO8HrN
1bRVIMm3th4rTSQI9HT3nf1RgUeE06l6HSRQbvyODzbEoYTMsbMVPSQYVjAL
vVfdivXOHEwQ6WON31hpKUzUYIFWY7YXgyy/lr+dODVag7v144yGRkngKTp1
34O3CL9jUqouTrD4mRgVmcs3YXW33ftTp0mwj3XsyZc4xM5768XmRVa9SvLO
8y41oJqYd4OWf0mQrXyGayaepVem5XzjOjKwv791tYXegFEZZ5IUOxkUz9Sq
PAnPRAtql9cH8pCBSmVcLQmOw7m9XibMbWQYl4q959FdiG2sK2s0dpMhJkBF
8HJAJh59dcp7mxgZflt8uUx2z8RJgk+GH0uQ4YBQyumDLpnIIC3nYrcMGe5r
9UjJ5hRiQfQ7+YQ8GeS5T/QcSGtAhEapjREnyXB5Jr1vX3IhenfP0mzpNBmk
ut52mllmYnV6ct29C2TwlBxKKjaJQxzONPHSK2T4Neq6ns8gDtVxCPnuu05e
/X4Yee+nmxYZRO/3WZffqsCnJcMvUe+SwZGaIyfu3ICXijpTz+mTIUQ041q7
QQ3Kv7Jlc5IJGa6eCD/YfjkT2RHVLDY8IIN4Q0KL3IUKLGMZ0GD2iAw8RkT3
u/oNaGyh7lDDY5beYJJ5xpUalOy3zl/CiQwK2GVR+3gr3jrk5yrjRoZTocnt
7EcrkDvwPD7mRYY6vjWuMRcaECMy2FLRnwyJLe0uDhKtSGdul75yIBlk95iq
Sh+Iw/WaMVrngsng9rVjk7BEDZb/uv/qpXAyCGbcuzYpWYgSNn8C1Wgy6Ctb
RunuysS8JjIKmglk4PbMdhPf14BdynMkb6WSwUVAiLN4zw80JnBS+F4aGZ4t
8fgab2nAtx3L+A2yyLB2W0vSnU1xuKbtPKdpPhlQ4OywwLo4dET625oHJSy/
rikP4ZVyHOOnPvewggwqe2njM/MFiGuog25fS4Yje9fsjZkswM/gLvXpdzL8
EdBINByKxSORfd3PW8hwTbJowzS5HGvNGf/w7CRDr4v0vE9HBqrU/FXpSyRD
rZ9HfVFbI5L5+rDgVR8ZZGSdsvS/s97fNs+kvR0kw+PTKztvFGegzSbPEsJG
ybBk1yOXXdKIHcv/vv/AIEPqv95UqfJ6NCjg9Tpuigxs0bE88vEZWMOR/UXy
PBnAtLeKGN6CytoCn35eJoOY41+kWVyND0tvf5ixlgIhHhl+Iin1KNwvwjh3
IwUKf65zHIwtQBuG9t0t4qT8v5/sIEm9jI8C0idvjSk9ysADkRIXqvkpMNH3
3fRWXDVSm0s/2SBAgWsEV0q7XSMu1pSXbRKiwP60wzPLodXo0NcisXYxCiSe
v5qxV70ch24GAYIEBXhvLGR9elmN2UxqeCkyFHjPY1X8S7sRPSq/soF6jAKC
s6Hhuh7VmCLQsjSsSAFTr82z4tKx+Kqj1u8xZQrk7g8IzLlXjwraiMPMcxSY
lhpSKxZswWLS+uSZSxRQD3tUbHq9Hr3zG2pdVKXAxUOBTj8kG7EVMEvW3aZA
qqG/jatgIyZGPs7arEsBzaG4M13T6VhlbjGF25ACeae8c9Lp6ThX0y1qqxkF
zmZejTiuXo1Fvq5/t/M/CvAc44wOFKtHgZsDfAVtKBAW0v7sSkcZWjbmfS7i
QIHja4Z8pBrTsWV5iJ24EwWowVrzW6rLcLeAgMVhNwoE/ra4rcRVgM47xt6X
86LAq6HZFcmNBSizTeymgj8FZm2kdKokq/E+6c+XTwVSoGfqeDzvUj566Sd7
GoIp8LWFpzUzshkvDOYeuxBOgXNz3PTrFd+xGZySuBJNgdhMcIsMSEcdkeX7
1BMokH9OTHyCmo/OzF3YfjN1tb5fNb+z30mjQFbYmfgAuzIk8PX6P90sCvBt
kHvxsyUf+23umjHMp4DRSE7JS6MYPGusM2ZWQgHdaOO6Nzox2HHbn209Fat4
c1UflK/UUUBIgyNrNr8OO9oh8+JGChzeY/0u9UwzmhPpDTrcxuq/H7XnORTL
sGPb8+KobpZf9+hlwYl1aN593xA3hQK1xyZbRaLr8FO5cm436ir+Qr/+id8j
FJCQnWHL5C9DT9+sMTQcp8BvZTmhHv86vHA6PqB9kgJYPkD54QvW/Imzuefn
KWCQtl934/M6tBhN681dXsVzUnuxSZytFwqmZGykO1vx0vL+I+839cIOZal0
kmUddkqr0dnM3QvvavXWLRJL0dI9U69nW3tX3y+1bPa9suyFFOEbVPZrX7H7
ui2XVx72An3PYFThua9obU6W7cPHvbC4sEi1PPUVeRrd+ND/rBcuzMlk7D0a
jdm2TtdouPVCp5cWm35/Hl7X6vAff2gv7Hn5hhxSl4c3qjoXxlT0QkeG4AWd
0Dzs82cPjbeuF9JKB3l15yvRxi+Y06NxlY+Pzn2FqdZe0Mu9bp6eHoU2cfzV
M+5m8Ws0+O9VShTyK4rx6yT3QojsVJ9VTBTabAnZF6m9oH8so+J6WBry2zVA
zh/pBRC9wKsQmIY2N7hvODTeC+PpG9+HmuRhvycishGTq/nYD1bd4ZjvhSsE
stO0A0YB3Uaezsu9IJMU84hmHYU5fNalja/tA42JPwQ91VoUoJDUdX9TH4ym
xQfU30/DHMMX/jVz9UH7zfFXYXmVOCBk+NCZrX3wdPSyfL5aGuK84HMja2cf
jLno7sm6GIVc+Ia5qLr9/8/PVXZ4DUFtAHjl67BQ00es7Hh9pXppAAb+OnFW
7vFFcw9Gna+sDMDX0q7/OMlpOFPfY6n53wDkalwxSroWj0Wv5MwT11PBgKNf
VWPde7xZcOcUk4cKpp2vd82NhaEqvkwbhy1U4HlixjU4FIadN1xhLm2jgjFB
i2vvwXg8MeE0vmE3FT58S1TJbg9DHwe3/fdyDxVKKarT7C8IyLAn7RffPiqc
5VTMD6/LxwJNFy3ChKnwguvv2sAKH9RZ2TeyZz8V2rk9yQcs03Bg/hPT+ANU
6EzuDry/KR5f+sI3JH6ICgJSdGnH9Hy0Ju6TUZokFSq/ma3YfExBxSHnqEek
qWAV9VPwllA5fuxP1i+QZfE99rfoQVQ+knZ93IeOUuFo1X+o5XccHrHjvl8l
T4W1naZMyyAfHGeeQr50ggprmgycN0qnIR1d0Gk6SYVDJi3hD7188DbNnp4b
iAojJ0PDk9Jz8I+Ltrd7TlMh5gu/tw4pE/mc4ui+f5YK5rMunf1dmfiMbKLW
4HkqvLOzOGjWlokX96MOCxUqVHz2W35rloKyd3VpTlymgoRSrknNQgmy4n7Y
an+NCltMbMM+6aQgcbZN1xfVqPD5zJ8zw79KUP9cbJOrBhV+DKx5U6cehm4M
tH3316aCvZ4vdfScD1LMUaiN1aeCl2+Xh/LhMLT+7kpRoz0VUnQlZMSXvVGZ
WpiipiMVsmlL/flPM/GTc7IF3U9Zce2Vx9a/k5HciQYFXWcqRN1L5goey8Nj
hw1zqc+pMFDHOVk0FIpb/9akz/tSYfGxOJFdJw4FTN+Xfh5A/X//nR+d+8L2
mgqbvLKelFUmo/y2Q5+431Hh2LH+D0L53simrvJgcAgV3oQYBCtfiMMSJTop
u96z9Of+6fP+nIxoGdNiMRFUGPLZKvdKKRNHJb1K3B9FhYP/Gl5+ZS1u/fPH
UH8MFWb41rP1/P2MRWnEzsh4KkjZJewuuFCIPwod3Lg1lQqeBNNbD8UycW5k
pcWabCrc9Go3nrcKxU9OWqzFuVTQ6Bzfw8sdh0718EQ+KaDCpLNMrq9BHl5x
zDt6rJgKQl+WeW/o5KEKft3GCUyF4n/q4pGfaOhFLpvJ5/JVvSo3Py2bVlFB
zq3uV9GlZMw+dT1UpJYKjwJUiXcistGPoDnp3noq/HE/VnNPKRS9kY2uC/9O
BX+00CejEIpuNJ/X12pi8b/RIepdl4H5rcfmeVupQHe4U89r/xn1cL4Namyn
gqtYzKdoMwr+8PmEhG8Xq/94jGTTjD9jvSt9led6VvmIjHrp/CWx4oq/e048
zMZDPoeni3qpEMHet24vRzJKPdD+0mGACvznuuwXvTPQg5qnYkcGqSBaRFcU
1svG0sZCpePDVFgg9Rwsnc9Fv9fWaX8cpYKNZcE2mwexKCfOasKYzuLfxvZa
xTADO8I2X6EJKtQcSBcXupOBTvUVCZF/U6FrrLaANwfjFReDwrBpVj9VG573
4/2MK/Zs0rwxRwVBatLLSe9q7FX89Rf34ir/S3e1PL/9oUJDZcvkn7oQxLGw
JOD9lwruseOfxCaL8A770Of27DTo5ThFyvyYxHoe/35OQ4gGBnzCqpW56Xhy
ky2ZU5QGA2N3GXJDWTg3ZefjejEadOy6G+tplYSfXCzjenGQBuFnt7z2NktC
p4ZMkk9L0mBD/w+Cv0EIWvHkPL0kRYPAWtPTBN8YXCGS3Z0nS4MRYaJHmFYI
VtH/t0lagQZy1LDwj5eTMPvf5LjRE7T/8/8RpXoy6RQNEr0LRIXvpeM3StNt
+so0+CGh8T61NB/dIEU82HOGBnUXPi5Q5LwQ/7Mz6wjnaOBJY7NmSCbhnp0/
P7y7SAM2uWuK/8RCkJ62fBP7NRpIi/WeLD4Qgwz2qMUVqtHg5n3JS9Wh+diQ
ampvrkGDXeZgo7E9HRmluqrsuEkD8aTd1jGc6cjE+v3uWm0a/Cw1U5xZm4tN
j2WO29+hgQ77ZLXkciIyW2woF71HA62jRwaCJ6OxRTn1Xdt9GlirkI772WVh
S+8lU3cDGmjGK2zuHnuBHudV/J1zoEFzk/nNbvwCOzoT25KfsvT1nVz3+d1X
9OTsVJKWMw0W1mullUR/xE5N+69lu9OgVPeB30zyC+wcjPYZvqDBpRb9IxAX
jFzuak/y+qz65yr0sKbMjwbTsXzHlEWzsNuwz3vrlzQorpofLrr1Fbl/iX0g
GMjCmyYdc/TPQZ62hcqNQTTg6GhrLDT5iF+caONzCqaBwNtF/dj7H7HXyq/B
Q2E0GBfJNrZ6+gL7VLMVEMJpYNx08WeFXSLy9d8T4POBVd/++sQd1onI77r8
fYUYGhw6Vn/tXmceCuBXkxuKowFXjoTr36Y8/Ipsui44kQbdR6MlhHRz8Ot4
1+6zKav8A83ff/r9keU/W3dol8YLFCSd6RL7ZTX+drrhuno6DR4efsI7u+Mj
eldEFV3JXI2HXtz2TSefBi6eFg3Z8sEojFMqir2IBu2DAZ38ssEovO3Co8IS
Vr1U1u89UZaGIu878u+opIHK+9unLL9Goaj9b0ZrqmlAVGLMr0+OwtG/Ukvs
62jQV/fINSEqDcdkVASKfqPBsQTzYx7cOTjOgWjY1kgD6m6N0p/fUnG80pS8
ezMN1MqUHJhVqThhLedm2TYahJSoj9ctJ6Ck+v3k3o5VvsmvUfqrbhr8ee28
mDz5Dqfc1PZQItLA/i/j/M7xd/jj7odaY2SWH+kK276ZEtGnfp+DEX2r8z8n
xy5dorL0vd58/vCVKJT2X2HT3CANZGweiI92ZaOvR9rikkdooKhZcFW/1ROn
z/+y1/pFg9bxU6+OiuWhzFK2S+vGaWDYp6Gd7JiKs17sEcieoEEUEn+ZJZSG
s6/IMwwmaTCZWep8qdgT53WZBpfNsfRIEXzOZbzDJ39kso2EDcIRqz12Zg/f
YuGLZrPBF4bA82Snubp8OFaQV3ibOzL0f779U6+/JXoPA+9w4YxW4xc8fkzT
e/fREZiavKTK4e+PxenSY2s7RuBY7srcM89UXCPm0G7j8RMOmP/WvGzqjd50
dhnfEBuFDZ2hM+IqCYh5s+ItW80oLJ9wfTq7Jhlla/OfP2n7C/YXfo+2yPTF
iU0vomlbx+AQe/Co0z4HNF+v67y1agx4/wbdCXHxxvtuqjhU1YxBlIDw3jdx
rkilT/aRXf0Y7E4oZiO4v8RhM2zG7T/GoKB8YWnDWU8sL/Lp6jvCGPj77Nsr
JGSB7Zxmd29ljEFT+9BT5WIvPC4VWLhlFx3yGF5j3zrM8PbCJ9mVAnRYbnTJ
461zRErnDdNs99JBN05ox+1CHxxwVz6uTZQO5vwH0IELLljCh+T7VpoOIw2J
PmJmPtisX/z2lvN0GP/27cdnJ3cU+IBPs/IiHcqEz306R3fAebOLV20v02G7
WfW9U2buaD1X0+k2NTq8/6NTa1HljaXe5yt6aLDiGut/NeU6IC3RuKNHbtLh
wzG+CPlUB+Ty1V+Kqk2HWav1FMt9BJSoaC/+9g4dPjpw/dSvJOLv1brCZ+/R
oW7z9IStqymeUlcRmLxPhwbtBdcdTQFIgCS7Pd6Avro/3XQ3j6YxHXKmRvaX
ajvgB7/ZNq81o8Pi7eFomcum+K3z+NosCzr088zZTBHccOHG7j8G/9Gh+Kbv
2fjqR2jgbfks30M6vIjv41U614MHPNWK39mw9MS0HN6w9ApT7cmu2+3poODm
2rYz1RfRTCzPhznQYX8mm62/oxuiac9v2vWUDhu7T9DG0yowTcX7R4QTHTLI
nKVOA1qIdmLb2z3P6aDu/fUwTZaAaYfitaPd6LDi7/WmjdCMB3fLCgh50qGv
3flmTvFjNMRR2hfnRQeyHcczy0c/8NCfq4mivnRwSmzRCIhnxcd7zJP86ZBd
JPBtPsQEDfWaSYm/osO+N/dOSG4h4aHmmd+pgXSwGC9eU1UUiIfLPfMk3tLB
wFZ5t8DLZ3gkk8/pSzAdJrok7Y27PfBIfMxp6TA6uGzx7JS55YVH3kmtywhf
9XfkRXG93Ac6VOXsahVQNsE/Tbs15ONYflH2rOcSe4xHb5nw5yfQodnrleHx
XT1o9NIU8UQyHX54i7BXc/ujUUX3mKJUOihHT7vLjxDQqASPsdJnOpCeWkn0
ZVehUYGog6VpdDDhr4k4/qEW/eKUHD+dQQdh95vdf3te4LHlgsyKLDp4JkUO
MF63oDHGRYdzuXQwC1Oz3fS6DI31dZysyaeDpqwt9s+xx2Mthn8vFrH8XDSd
5k1lza9gVtWX0EFLdXK9e3kXomc9971SRodND8JOCwfa4/EETtXGilW948ER
fGrVdFh44pKu4GCMxh3yIjQa6DAw6mjwlOM5mjjJ+HK7naX39dTe/nIX/LtS
t9V0hFUvq+HAI8988Vyb0m5PnnFQdOQWIq61w2usCfMnt4yDe5tW5+B/bohj
s3335LZxIFzYVSD10wPvO/052HD3ONzU8xLz+WGLLn7exXNWbBxc3JZsr743
xCGes2xrTo1DAu9YXlL1M3zsWMb4c9NxmLfZqll/1wDZhIhWPMPjUJ54uDn7
4X18I9TIcl35ODRdtwqNc3fHCmEJW19XjoPlr5NRwpcG8K73tJIdNeNw+YP/
Y2eKA1p6L2oaVzcOp/9xiXPW96PecCMeyW/jUMweE+kg24sqIhIKchrHYSYj
t3pNiilOiKQZKDePg5zozQCxWl3s/UGUo751HIREBfhn06xQZIKo1vbhcTjX
+UVc6+FTVJMpOprOzYD6n98OnP5PB6VkGb1V5GNAEaV/5Ot8K/bPTjhVtZUB
TAGe8+5p9kg9V/R1104GeF+PM3Dk1EFH8oyO6wsw4C2f1cGA6bt4e35C/6gg
Y/V7TT7Nz06IAVBtQw3M98DEAtGjyyIMWJcf++Qefx/ChUZkb7HV82OKErx4
DzLg6gd2a869xsijmCYdIcGAj3/80+RM7iKTElGCqBQD4qT1nSxj3bAKNnJP
k2HA8Vd+95zkLZFEaYLE8SMMcO/cAo3G/YirjNZefowB3yRUdjett0QTZaIu
V46z8h8RNy3JssOt5UYHOhQZMKiittueww3lVCQ06yoxIHX0wZh6KgWHVdKe
jCgzwGlFOP11sgV6WiUqYnOGAZwpxEHnWGfMVidaF3aVAb9u392UJXMHD9UZ
PRJWY+FLPNo4teMOqq9P2PX5OgNIH6TOKfy7jV99E/2vVIsBwj3XrKtanuBH
3422X7rNgK8kr3tchZfQjcaE0ta7DNhk/9ZeLe0xkv9BM9PRZYCNoulIit9t
tLNJlG9IjwHXJ3xTxzT6seJs57SBIQMMg2KfVt69hO/s9SX0GjPg2ImIWblt
1ujZxZMlOmYMkK734k4bH0CR1vQYggUDfCxSBUWu2+KS0GhPrf9W/aeUXjdr
s2bA0eW7qGPYDO/jyZVutFuNw3GzLZcdGGCdZ1ozeHcAG+jtmq15woCnazao
7qsdQB4+33vOOrH8cfnOJWBnhhPSXXCZCwNe1131QjU2qLpbJk7JjQGHN2jX
9p03Q0N/B14UejAgm8h/rUbqFt5wMNhcwYsBLtrdv88E2SDx6xevZfswoMX6
sPJv1wF86cm8jKw/AxSlac4eP02xReynrWkvGSBpdEjqeP8A8q+/N3cokAGb
3Y1s9Ysuos9MblJyEANur+0O0kwwRY07K0pFgxkQvsLB20u0Y61Mu/jYUAa8
Mjt2Je86DXFbiHkLhjNgAl9VfP9nAMkEdVtERDKg4cefORkVbXS90E91RzQD
2vIXfA/LaiObgVNywbEM+JC0Q0ZylynOloudf5XEgMWoqALpMS2s0Gbu457O
AAfXKv/HXQ/RrcXdD1YyGbDB/iVF58lj7CjyQ80phwGhl/t2PTAwQe+vuB6Z
z2NAltlnZ9HIAVxoK8f/uJABvuyf6vmaBzAxgrbwu5gBqjvaLv9S60RLlSEU
61IGPKyef757kx7eM6ZSMVbOgO6n3PqVYzSEti4mmlcxoP9VmoxllTW+cDOg
Ur2bAca3xk/sFDbGN7vSlgX/MkC8M6zM8LYFdk21WmpZMwEbv6jIhXnYoI/P
pBY8103A4MVyroC0IdR+bXxWYeMERKwDsxHnIby8N216dPMEmO0NtTq5dBen
mH0Zy902AXJxYUPDl83x0vynHlWJCSA8VHDSu2aFEgRSc120JkBzt9OZ1jlt
NKUfb0X5PAEZDR2bpcR08Oz7DQqGXydA7WLK6cg8fbzQYrkynDEBzElatHq4
Ef4HRwOZuROgxetQ+K/AGHMJV2ewlU+AT+eOLwc26qEDA0NThzomgJP474oM
zRDdMTj0zOHPBKhEl4vqZOqie+Gvzi6tTMC9f2oCy0RtrNf6m91tDRPKTnjM
flMXQaZniiL9NjBX/08IX8UfeJlwiJvew2WuiB3upHsJb2XCK4ern65pT+Gn
QVvVkrczwVjC5uzz+Gnk0uDIL7mTCdvSM/7+tphGbmvIvem7mZATLfvH9elN
5KkIKccEmZArm/s9v1kG+dgkPizcx4R3Vv5+2T0qyP/jphPKIkw4uSbquWGY
Cn418N+/yv1MSI/aY2J5cga92dVaryLOwkNCZ/itpdE7DfmgxkOscZnAyfLt
ajjML/yOxmEmNBca+NhgVRRRsSzcJb2qJ2rB4NddOSaQHnrtiqkeRnFytVl9
R5mw53ufgrrGWZQS9/rc6AkmtEytL9Fadw1/6pnksD7FhJ6J9736++ZRGt+t
jknEhIm12rzPotVwtvs+kz9nmXCn9f3YTIIEyiv0lHK/wISQ2Tg+x7I5XPh7
ZGb9JSZI/szNXFy3gPCha6X+V1b5lBtkePOoMuFw2c4jZ2kLqLjF6lqfOhOS
XV8E7nZbQPmnJbekazJhoLgzxFNPDWd9/dn9XIsJ3m84JcoFd+I0weQotdtM
+HS2hEGsXUAfXxoZ7dVhAvPN7LVrlYsocUnoEEOXCVKvN9psfyaHYix7GVif
pacrZWng1xKK7InMeWW0yifs0p1nuqZMGDe5NPya9ge/zecHKQsmtFZnXFR9
JIZfHehYv/yACTXbX8l4cV/AfiFB3xutmYD//rtuZ7WCXqxTD/pgw8rX4jhp
xfcXu9px3vrPfhXfidqwR8mRCYazYpKa8A85aPhQOZ4x4QJzSFbkwFZkU34+
leTMhOP/Uk6e3CGLrGTWWn92ZYK9Mvvd+bdrlM2jy446eTBB1fjbfy/WiCAj
LpeFK15MSGFenZeXBKTRYMvr/4YJHXEtK7R+UXz4zH3lTSlMoI0LVR4RO4zE
MwTWET6y+peXvVFI7yAS3dfTkPKFCUcHfsxLn5fCe1+HBjqms/z92SuuRFJA
u5ZvaKlkMYEdX/6e+pZDeft/fAI7cpkQybmoQhRXRLykpv7hfCbwSSd8uSJ6
BHNceZmcV8SEuMKcJeJTYbyx8PJ/3pgJRVfUCo/O8pSyHdx4RLucCdmZj5cK
5PhKV0Kr58SqWPpvzOiVBq5BC+s98EwNE8LechQe199SOmN/2rOmngm9ScsR
u95tREzan0sh31nr8TfpPPLcVjqmWcRt0sSEgI/rwjW20ZWosvIR6zqYsG//
6as/tvJgSsykXkcXE/TkM6w7fvHhHu4MscQeJgQ+6pSVOS6g3OFiNWZHZgJ/
59XDtuorJc10icxzfUzYSjtwYT/XH6XvOj8dtlKZ8HHvXpNMHz5U+y1JiTbI
hOsBDoeUbomWVigarc0eYcKpgoAMK5WhEpwqVO/xi+VX4ImNK+PiyoU7el9p
jrP6cV/wBZ0Tkso53pE3RJhM4PBxNVi3gVySPnN71+QkE9baC1JMab+VPhvz
91XMsNYz724efbbCkuT29sSgeSZEXeIUMa7sUYo7G2RpsMSEEgFFe/U1XUpR
mWqycissffGX++/8+6r0Xohz9t8/Jnx9Yspud/9E2f8AC0Q5Zw==
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV1Hk41FsYB3CREKISjXSNtbSgcCupV5JSImtpsRWucLM0SkS2FltZkn0b
W0NZIjXhCBmKbIkrYaxjm98QUop7+uM85/n8dc55v9/nyNhdM7Hn5uLiqsLr
z37SntVWPW5+2Mzc3FxjqgHGnlvY9ZPUQbHJNmB/HgeJC3ZGviDpgmnvA/0/
fl3l53JD0RA0n7qN78NWPiCWnUIyg9TbxXZ/zLVxPGZF2hK8yZ5lf2O3TVUG
2ipaQYqa8KAGtvHlxle2cbbAs46fpY6t2apWFE26AiJ5WQw1bLlDqbm1yQ7A
J0m/sxdbiMafNiftBPbTVzfuwZ4T94xToDpDU1iKvwr216CvERaK/8LNeYt3
u7EvL1Jras3cIFYke3gndpey5eGLce6QP+n5VQm7OqlWI4J0HSgHyy8oYKu3
3yxWuECBhx0KTFnsp/zKu6uSvSBFkKxNxo6mxMsT0t5QuutpqCT2moLT6fds
b0EF+aCXBPatQW4pMtUHQpNMD4r9Od/IdaOxoh+43thqIozdHSL7cNzRH05m
fKAKYCv2OfO+NbsDc6xVLbzYiWIyAZZxAcCpXy7+nctBQQFhN0NJweCusYc2
iV0l5fDSgh4Mce1rGkaxF8u152QvhMAdHWvExHZhz197k3wXlp/EaXZhm12w
cZySfgAzQsKXq7EjFzSzX1U/AFVXlgEduyFq01CwbSic9dYRLcU+1PDeais1
DKIiXeVysRU1NCwMFSMhqDLcJwzbplUkVpIRCVpqx/YEYyc5T7SNOj6ER6mU
al9s/raWHGT2CHSTtZxdsX35QmTPxUXBvo/6swbYV64TpAekWLjllPxuNbYa
T/StErdYeH27FX7mcBB3tPqXL4xYuBpOCyew0wq9k5W9HoMc82Tqf9g9EzzS
n9rjgBQgkZGPbWS7WV46PAHMSPFyx7H/4tCDTwwlwDaGP+MA9pTfpRF3zUQ4
Ej9/aBd2aHJmTh0rERTjgzNFseu6dildPZYM1gZcJ7uycf8MjyiXLaeCxVS3
6EVs/q9DkX3maeCh29R7CrvL+S7B9ywN8uVVfQ5i0+vszz3bnQ4zT4+oSGKf
G6SRuHrTQf688fXOLNyXrRrJ2fszYVRH2+0oNn+sfgZnJgtseMjSvzM5aGk/
cylDMht2P+KmsbDZX29amB7NxvOYEPqE3bEtT/BlbDbM8tacp2Gnvlnj5bMv
Bx5rnRE3x1Yfqj255nYu9NgNr6Vm4Hz2Hp7bwk8DZDLWTU7nINOuTsNmVRpI
XOy35sPW83V96mdJA/eliKrpNA7aWZ9sxaTRwP74ah469oLlUkPO6Xy44siX
dwY7POBVyp6YAjhsx7b2SuWg8ta9x4//VQj65Ske1GTcp/GpE7v0CoEQDAkO
wXbgzj25/t9CeLb53DVHbHH1LYZfKgvBV7qsZQf2mw8BtHLlIkiwmaMXJnHQ
FpWrxac+FkFLI2N/SSLOd14TeQqXwD/cy/SEeHxf7s3aDjIlYBu9fdgLu2Td
fPU5jRIY/No5Yooduq2w5tClEggIoXkIY2taytXzPSuBZlp3sd8TDkqoEGxO
MngBaVbkWss4nE9Qb09tWCkoaFpJzMZwkOiA4i7HjFKgtJxi1WM3arnfXlte
CrQQ9dAkbM0FXrLxYCnE/RjU1sXe4qRi37e/DK48l/eOieagPsNAYnGkDFqT
CkWVonC/JbevVtYuB/eywJeqkRx0rdhzd/zcaxjL4Mosuofz1WJ2NPLT4WhC
pMZtbJcGw1tLUnQI1J9K1cf+p1+JYXWMDjHm3N+Yd3GewgM2CnF0CBcXSBfF
PuNkEFuy7w10Ds/xOwRzkKqMwlLTrQo4pKg0w7nDQbOPPjesWoWAb1vOaIg3
B1W4FMOwOILsyb4IHex7J8Jf1u9C8LZnfNXKTQ6S4tLJCjuH4OnLs2duYB+7
9sx/UxGCFenKEPsbHNSkqJMUq1INRmrTp/ZTOIjMSzLJ66uG9qyxdeVu+P94
W49atGrg+5P3eRKOHOTkrS9sOVUHPG7v/GqNOeitwN6VAlcGVLTvEOnV5KAc
at2ypMJ7uEiR4k/4i4O0xSszTZ83Adl7X0UPFwftZvS+qt/RAjJcqwVbqwn0
SduU/ZTdCg2D3J9feBDIZa1ze6dqOzRfy5nVkyXQh+6zlesiO6BUm3E9qIaN
TPXOMYeHP0F5u4iHxwU2+js97Gy6/GdQjCxKmZydRgPLMZ/+8e8C55Wc1wI3
p9GIfgtVvLYb/GbWh0v9mkJFCf3ebTI9oNtY7OXpPIWy7/M8ULr1BZTvpx3O
bJ9E85fPTzi86YWbJi2lapqTSFD3rkmxRB9QktxCFx5MIF/RESHmxX642vKR
Nd8zjoSqdnJ1nR6AWKlN8v4K4+iQl9Hv2p8DIDZOzfA3Z6HkrHCqXDIT4ilm
erP3x5CVuXqzwKlBmAzimWanjaKyTvuYqoVBWFe7CAOFI+hAUxH3aNwQrE5Z
CROvH0bkYw7zMbrDEBl17I541RDSUNeIKh0dBlUHfRWVqkHUPxvRSA0ZAS+x
hro+OhNNqRmHkPaOQvqLnuXY+AGkOLl7YlXHKLS6iXf84OlHdfKUdreAMWgy
OXAtLb4XPfzUedlEngXHvFREw/R7EGFaHcVdx4JvSz9/9Cx1oRLzTUcPuI8D
JT9kScCzE1Gbg1IGN0xAEe2kmJ5IB/rOuOizoWYC2ES28evrrWggCs2L/jsJ
llwXJjSaP6CFtoOkwHVTcOuOWeuJDQzkFitb7V0xBYZACWvir0ESzbKiw1bT
IH7JPEP+Bx2Zdhb8klqehny+kuiw0BLkl+vys4WLDYYyrBsOjiUoz3vXYiAP
G7JTt/QY6ZagX1sLvrH42VBhIvfQcLkY5TjkT5RuZMOCweLWFY9i9PP7024D
JTboxvTVnrAuQpmSuaW+Zmxg3z/847/7BWjWOsOll8aGfrLDRYGYLDT/hFfD
9hkbyGFx3obns9Bii9PvkUI2GBT/9qmSyUIrsDeSKGUDiyh7RC6mIiFybSE3
YoO5T0XjQlsmUhgYnt3ewQa6hPJ7LakMdM5muzdliQ0va038O/OT0IX48CM/
f7Nhpz3p0iO9JGTVyhHw5yLAVII3nc5MRPbarxPv8xJQVe6+1ZaUiDzIJyuS
RAhYqZnhWx8Zj8IHnFfeyhGQYnwpvy/iMUI2hSHrDAioZ//3hvn1IaK3uJzq
MyTAp7L/bqT0Q/Ty8I71z40JsBAebiqwi0QFUtnJp88SMLZXv/30dDhK7E58
EW5HgLnAPa04sVBEOXOXudabgKzFvF+7CoORGzqa2+NDwP4GfrEVgWDkorzK
leZHQHPVmT0RDkHITsh3UT+YgNU80tJz8oHoTIO7yIOHBCS+vCq6/Zo/2ql9
6RBfDgHUXur7aU8vpFgoydOVR0Aan7C9vCMFyf7V3ZCTT0ARQ8663Oo62vzL
xEyvmABjtbI12hc80JpXJ5xDKgiobOu4YrvZFXFvW7PHHBGQafPWTF3fGf1+
XLsgX0NAI5evmHKwE5rzPBxYxyBgksK2CCQ5IKaKegJPBwEMDTO6arQ16k2d
seroJEA3yQgWsi6ibuFCeWo3AfseZ25gtFqij5NKRTp9eN7+924I3TBD78+P
UTYwCSgTGrII+maM3jVmHRwcImDdtJ3TTkkjVJErzQgYJ0DhSgkrTFMPvRL/
Gm48RYDNZesBpKyDXoQkmsgQBCwQBgIjn7XQ87mzm2dmCLiX+3dW8pQGol3e
1Fc9R8AWf9/hiPMqKLu9nfroOwHVH1iSOZbyKP3IIyebnwR4nTL6ZSQnjpKL
Tquo/ibgbJth+4sTK1VPpAXnV1bw+3rKn4elllf+Dy0HXx4=
        "]]}, {
       Directive[
        Opacity[1.], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        AbsoluteThickness[1.6]], 
       LineBox[CompressedData["
1:eJwV1Hk41N8XB3BLRVJEfBslS0wpW6GFOFKphJIlUiJRstU3hKQUSmRLClOW
MZaxM6WEa8v2JXv8ZN+yTPNhQkL8bn/c5z6vf845z32f50pddT1vx8XBwVGJ
z99bz268pWzCVGtldXVVyWVd2fdss6v9JFV4M5tl/SOVjUQ3dIQWkI6Da8/H
XX/9sdTX6S7ZEPZ9iqhmYise3kJ7QzIB86nD8NccwhMvViUsoF1GK2IKu4VZ
8siGbAUqT04VT2Ib2dZ9sIm2AYuGjLIJbPVmldxI0jX4vd/s7Tj2Ts23qZUU
e2g21Tf9js1P542flXCAhnNho6PYs6J3omWpjqC2i3R2BLv3ce9zM7ILmI9P
RAxh2y5QKypNboG8MG/2AHanooXWpejbYDTrQu3DLourVHtOcgODN2Ji3diq
rZ55spbu8F3wclwndjqvokIpxQMecI/NtWNHur+WISS8wHWk40AT9rpMg4Qn
Nt6QtHJIvAHbe4hruyT1HhDiIz21f/ufdRY2IvvCNnnB8XLsrgDpsInrD8DY
KlKlFJvc57i23OQh0GUumhdhx26R8rOI9oOio8UK+diP/YI9n5H8gVu/kicB
u3S7/XuzIn8gF7uKx2EvFGrPSlsGgGSYDX80thNrzvUTJRBCNDZ5BGObWFpf
Z0oEwdzHx55u2KHz6rQPZUFgtue4uQt2bYTIsL/NMzB+fmLzDWzN2norcWow
+J3mEbD8O5+ampkhORQMAjwPA7Z1s0CUWE0oLB1SHD6IHec42TJ2PQwEwiTs
lbF5W5pSkEk4tEwxfkli+/AESJtHR0Cyz8vTHNjX3AhSECkKgoXfpBamsJEK
d6R3/q0o0DJoEczC5opU/fatJgqGrzvoJ2HH53hRFD1egtWOMvUQ7O5Jbon2
1mjIsJ36eRn7rM1WGYmQGNiqc7xzgcZGO6aL/E8Nx8DkvLL9FDbT9/LobfVY
SHdyrenFfkZJSqkaj4ViiR6OCuyqTnm5mycooLzB6OxTbHXDo4rvVt6ClKOn
BT82b+9waJ9pPDy52c+/nIz3xzGQ4MmKh5erfpFT2EVVduZZCgmwreDOlnps
8yE6iaMnAbSyetn+2JHiahTaoSToyLPeyqbielGnE6dnkuEU5/Tv9CQ2Wjo0
uJQoRoPOnA83XmKzej3NjI/RIPvbjZyH2G270ja8j6JBxR6vKjPst5/Wedw7
mALu43IbObFVhyv11t1PheAq3X8ME3E++7Vmt/HSQUU1hrM+no2MOzsMG5Xp
4H7gm0Mutq6Pc7qvBR3WmdWlR2PvraZYDdLpoO6XmHsVe95iqTbFIAOENHi6
F96yUYjfhzf7XmQCj1JdjDh2YfP+kyd35EBJeFDJKQrepwnmKXndHFhpv5K3
B9ueK1Vvs0sOmPcq+PJji6puM/xWkgNiW9KSmuLY6NN/fvRCxVxIs28TNcHe
pnQz78yXXMjqZaWbxuJ859TRnY35YN044aDxGs/LtVXbXiofpMW5Pbdi52+a
KzNXywcH6yqruVc4z105FZqX86F/XuV9Nra6xc5qnqx8OPbyXogEdkzxhsY4
/QLgrDjW/vslzudxT3dlMAMq+P5XHP6CjQQHyPLXExnAfUnvrh123ZHb9/kK
GXCmnZtbHVt9fq2k0RADQnIhdCgSz+ugZNd36B1wb3G+sw+7z/ARsTD6DtJa
Jd2rw/F+i+1eo6hdCCkC8ocbn7ORa94dhdezH0HpRkyz/hOc75HBtjreIpBN
srxJwnaqNfRe2l4En+M8u0cD2ehGv1yN1YkiqJ3I1/TFtt44YC0bXQSaCR8E
sgLY6JyDflT+wU/glerTx+XPRspSsksN3sUQCRPrwx6yETv8ay0nJwLdax4p
u73YqNgpD0ZEESQpS/iPerLRk1Mh76vlERSQXiklYW/n0EkONkegs62HEMM+
4Zr1QCQXQcYvQRG+u2zUQNaJi1IqA37NOmafGxtJriWdT+srg/q2AtrVW/j/
KK9GTUcqgNox1NJsz0YOXqc3WjCrgIt9Vj3NiI3K1+9fzXSugcObVQ5wabBR
CrVqRUy2Hj7LXhomS7CRtmhJknF2A1T9/jnA5GQjhZqeD9V7moBvx4t4yaEZ
1K5tzEpnNYPimdV29qcZ5MTn2Nqh3Ar/bS+3KoyaQf91XSjZFNoGPhXiLpvt
Z5CxrvngyEg7JAe+uz+mMoMOJARfSJD5CoxOaYG1nDNoYOVF+40HnXB8JSWJ
/HkajZ5uoopWdgF1/Q4F+tNplBvT79Ui1Q21klb8PUenEe0pd5Cc9zdoU1tI
D/xBoDnbi5P2n3pAoO5+yW8zAm04Hng+758+UDuicKA7lYV8BEf5By/1w92Q
yt35Cz8Qf+lejk6DAbhi7nqQcvQH0vQ4+6dycQCSm0+oVjkzESU5hLqTMggc
va02B+KmkJWpauP6M0Ogs3ZozaO0SfSuw+5F6fwQ/LvoG7o9YwIdbsjlGose
hh1JDs7jueNI8oT93IvjI7CoPe1NjvyO1FTVIhhjI1BYwnem7u4Y6mc/r6MG
jEJLeqSQrOkoYqoYBZD2j8Ez0UO5pnwjiDylMMnZNgZfTqp/dq0ZQlUy7q23
/L7DK8sJmu3FQRTW3mF7XmYclg+eznec7keEcVkEV9U4HLyoJiy3sxflm4oc
O3x7AoIG4r/ycHcjauPjN0NCk3DzpS1PPU8n+lVz6Z5QxSQ4Gl2z3FXehgYi
0JygyxTY1i535AY2o/kWDdKjTUxg7E7d8k3kP3QrSrrMq5gJtPjxxuK6KvRP
o7TgiNUPiOEc2bzToRQZd2Qub1/5ASeTY05cs2Ag31SnxSYOFsSPmHtrKDNQ
mpf8wiNuFig8lBjdw8NAy+KZP8d5WbBXQXXu/LsClGKfMckQZkH3FZJqg1AB
WvyV3qUvx4IbXkK2Aa15KEksleFjgi1udNqyIRs1MO3zlS6wgG4pFJr3MBv9
KiXnDlmw4KDOBXcdtWykb5uSceoKC96dEA0Ric9C8xm0pC03WdA1Xx79zD0T
6Wkmh2c+YAFUZt9eVaAj9pVEpx46C+QKBBVSm2ho7tVaNZssFrgVBlc8Daeh
hSaHP6M5LPBQ7i1NNaKhVdgfSjBY8LX6nFZ8ezLil6zM4UIsaHCUKLjfS0Wy
AyPs3W0sUPocxDy+lIjMrXd7uS+xYHh0q+FSKwVZvg45uviHBe8XaJxudhRk
1Ty9/gEHAU4Bwg2+C3HITvtj7NO1BHyvWJ4ykIxD/0rqFccJEFAiFUif8IhB
IQOOq+U7CSBPa+zv0o5GyDonYJM+AXziz+iihuGoqMnpTJ8hAYUBllY32sPQ
e609m7ONCHCU3hZ/aVMYytxOoxhcIEBcrJDb98lzFNsVWxBylQBeUc2ANWHP
kPu5wEE+LwKEhL+Sr8z7o1voWGr3PVxPONdk4Iw/clLkdKb7EkBzqw40pz5G
V/l9Fk77E5ASg5ja5o/QudrbAkFhBGjtNWEuMx6gvdqXNXlSCLg2cFdPP9gD
kXPEuDvTcH+lMDMTb3ckvaOrNiWDgA16zuUbXdzQ1uXzJrp5BAj7JXztsv0X
rftwyjGgmIAaR8ErZSLOiGvXun2miID6pNSxPzqO6M/LynmZCgJ8ugZgxNsB
zd7RelRVQ4BoRdmo3wZ7NKikGsPdRoBe7M7rr5yvoJ63M1ZtHQQYlzP+CD+8
hLo25shQuwg49IZwOZppgb5MyeXq9BHwZm9m1qKJCaq/+N1daJAApd+6t5za
jNDnumSNoWECDBOjPzX0GaLiVIkavwkChn6i+g4+XfRBtDfEiInfLy/tC2Wt
DioIiD0vRRCw5qdnlGXkEZQ9e2HrzAwB/a5i4pveqyG6rUhf2SwBm/36xUjr
lRCttZUa/osAt+Kfb2OlZVDC0XAH60UCLM2KpKRHRRAl10BJ+c/f93ycyPix
UvpKYsPc6ioB+skaX56x+bT+D67wiWA=
        "]]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"\[Beta]1\"", TraditionalForm], 
       FormBox["\"Velocity equation error\"", 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 -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*FractionBox[\\(m2\\), \\(m1\\)]\\)=1\"", 
       "\"\\!\\(\\*FractionBox[\\(m2\\), \\(m1\\)]\\)=2\"", 
       "\"\\!\\(\\*FractionBox[\\(m2\\), \\(m1\\)]\\)=3.3\""}, "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.663855654249177*^9, 3.663855746976694*^9, 
  3.664009255894796*^9, 3.664009369008341*^9, 3.664192453373765*^9, 
  3.6641925191443872`*^9, 3.664201192034624*^9, 3.6642017123617697`*^9, 
  3.6642137857170277`*^9, 3.667715512380528*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EMContributionVelocity", "[", 
  RowBox[{"0.99999", ",", "120", ",", "111", ",", 
   RowBox[{"0.9", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], ",", 
   FractionBox["1", "3"], ",", 
   FractionBox["2", "3"], ",", "0.1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.6637815233395844`*^9, 3.663781527912591*^9}, {
  3.663781900068019*^9, 3.6637819082985487`*^9}}],

Cell[BoxData["2.8986926198707055`*^6"], "Output",
 CellChangeTimes->{{3.6637815251074142`*^9, 3.6637815290923347`*^9}, {
   3.663781901620267*^9, 3.663781909223007*^9}, 3.6641924535175543`*^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}, {3.663781187018177*^9, 3.6637811881203527`*^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, 3.664192456782486*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

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

Cell[BoxData["0.47353438411914794`"], "Output",
 CellChangeTimes->{3.663479067175228*^9, 3.6634796292273006`*^9, 
  3.6634796640511417`*^9, 3.6634989929935923`*^9, 3.6639377499137297`*^9, 
  3.664192464707451*^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, 3.664192468466569*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"Ksn", ",", "Ksp", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.6645229632178097`*^9, 3.6645229675506153`*^9}, 
   3.664525273320828*^9, {3.664535156797676*^9, 3.664535157589129*^9}}],

Cell[BoxData["0.4659026665090096`"], "Output",
 CellChangeTimes->{
  3.664523019304659*^9, 3.664525274126582*^9, 3.664525607870412*^9, {
   3.664535148735506*^9, 3.664535158261215*^9}, 3.664536339043399*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"Ksn", ",", "Ksp", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.664536345935041*^9, 3.6645363521815357`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PredictMassDiff", "[", 
  RowBox[{"Ksn", ",", "Ksp", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{3.664536356013647*^9}],

Cell[BoxData["0.5045477660255528`"], "Output",
 CellChangeTimes->{3.664536362850995*^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}, 
   3.664192473838932*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{"(", 
   RowBox[{
    RowBox[{"GetStringLength", "[", 
     RowBox[{"\[CapitalSigma]n", ",", "1"}], "]"}], "-", 
    RowBox[{"GetStringLength", "[", 
     RowBox[{"\[CapitalSigma]p", ",", "1"}], "]"}]}], ")"}], 
  RowBox[{"GetStringLength", "[", 
   RowBox[{"\[CapitalSigma]n", ",", "1"}], "]"}]]], "Input",
 CellChangeTimes->{{3.663844932710167*^9, 3.663844938351543*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.0018589114676536712`"}]], "Output",
 CellChangeTimes->{3.663844963473415*^9, 3.664192479525199*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ModelDynamics", "[", 
  RowBox[{"0.1", ",", "150", ",", "152", ",", 
   RowBox[{"0.96", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "6"}]]}], ",", 
   RowBox[{"-", 
    FractionBox["1", "3"]}], ",", 
   FractionBox["1", "3"], ",", "0.87", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.664535688189466*^9, 3.664535750543289*^9}, {
   3.664535810810341*^9, 3.664535812250758*^9}, 3.664535917424333*^9, {
   3.6645360184299192`*^9, 3.664536059799795*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.09870976693692758`", ",", "177.49910099653573`", ",", 
   "0.1977393834054643`"}], "}"}]], "Output",
 CellChangeTimes->{{3.664536019232224*^9, 3.66453602736906*^9}, 
   3.664536060530642*^9, 3.664536321117436*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ModelDynamics", "[", 
  RowBox[{
  "\[Beta]1", ",", "m1", ",", "m2", ",", "\[Alpha]", ",", "q1", ",", "q2", 
   ",", "a", ",", "Spin"}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", "\[Omega]", "}"}], ",", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Feq", "[", 
        RowBox[{"0.1", ",", "150", ",", "152", ",", 
         RowBox[{"-", 
          FractionBox["1", "3"]}], ",", 
         FractionBox["1", "3"], ",", 
         FractionBox["1", 
          RowBox[{"2", "\[Pi]", " ", "0.96", " ", 
           SuperscriptBox["10", 
            RowBox[{"-", "6"}]]}]], ",", "\[Omega]", ",", "0.86", ",", "1"}], 
        "]"}], "\[Equal]", "0"}], "&&", 
      RowBox[{"\[Omega]", "\[GreaterEqual]", "0"}]}], ",", "\[Omega]", ",", 
     "Reals"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.66453621597686*^9, 3.664536273153988*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Omega]", "\[Rule]", "171.06877757687437`"}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.664536274344707*^9, 3.6645363169611893`*^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]],

Cell[CellGroupData[{

Cell["Analytic approximation of predictions", "Title",
 CellChangeTimes->{{3.646561250785887*^9, 3.6465612549931793`*^9}, {
  3.655962511694084*^9, 3.65596251516504*^9}, {3.663784615328884*^9, 
  3.6637846265597677`*^9}}],

Cell["\<\
We have learned that to a very good approximation the string length is the \
same for the differently charged hadrons. We can use this information to \
approximate \[Beta]1=\[Beta]2 and calculate the mass difference.\
\>", "Text",
 CellChangeTimes->{{3.6559628211024046`*^9, 3.6559629169997272`*^9}, {
  3.656586438120192*^9, 3.6565864381202602`*^9}, {3.663784629908119*^9, 
  3.663784714220607*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Energy", "[", 
   RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    FractionBox["T", "\[Omega]"], "2", 
    RowBox[{"ArcSin", "[", "\[Beta]1", "]"}]}], "+", 
   FractionBox[
    RowBox[{"m1", "+", "m2"}], 
    SqrtBox[
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]1", "2"]}]]], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"q1", " ", "q2"}], "137"], " ", "\[Omega]", " ", 
    FractionBox["1", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Beta]1", "2"], " ", 
       RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
      "\[CapitalDelta]\[Theta]"}]]}], "-", 
   RowBox[{
    FractionBox["\[Pi]", "4"], 
    FractionBox[
     RowBox[{"a", "-", "Spin"}], "\[Beta]1"], 
    "\[Omega]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"j", "[", 
   RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"T", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "\[Beta]1", 
       SqrtBox[
        RowBox[{"1", "-", 
         SuperscriptBox["\[Beta]1", "2"]}]]}], "+", 
      RowBox[{"2", 
       RowBox[{"ArcSin", "[", "\[Beta]1", "]"}]}]}], 
     RowBox[{"2", 
      SuperscriptBox["\[Omega]", "2"]}]]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "+", "m2"}], ")"}], 
    FractionBox[
     SuperscriptBox["\[Beta]1", "2"], 
     RowBox[{"\[Omega]", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox["\[Beta]1", "2"]}]]}]]}], "-", 
   RowBox[{
    FractionBox["2", "137"], "q1", " ", "q2", " ", 
    SuperscriptBox["\[Beta]1", "2"], " ", 
    FractionBox[
     RowBox[{"Cos", "[", "\[CapitalDelta]\[Theta]", "]"}], 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Beta]1", "2"], " ", 
       RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}], "+", 
      "\[CapitalDelta]\[Theta]"}]]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Feq", "[", 
    RowBox[{"q1_", ",", "q2_", ",", "\[Omega]_"}], "]"}], ":=", 
   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["\[Pi]", "8"], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", "Spin"}], ")"}], " "}], 
       SuperscriptBox["\[Beta]1", "2"]], 
      SuperscriptBox["\[Omega]", "2"]}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]sol", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "\[Omega]", "}"}], ",", 
     RowBox[{"Part", "[", 
      RowBox[{
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{"Feq", "[", 
          RowBox[{"q1", ",", "q2", ",", "\[Omega]"}], "]"}], ",", 
         "\[Omega]"}], "]"}], ",", "1"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]M", "[", 
   RowBox[{"qs_List", ",", "qsp_List"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"ReplaceAll", "[", 
    RowBox[{
     RowBox[{"Apply", "[", 
      RowBox[{"Energy", ",", "qs"}], "]"}], ",", 
     RowBox[{"Apply", "[", 
      RowBox[{"\[Omega]sol", ",", "qs"}], "]"}]}], "]"}], "-", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{
     RowBox[{"Apply", "[", 
      RowBox[{"Energy", ",", "qsp"}], "]"}], ",", 
     RowBox[{"Apply", "[", 
      RowBox[{"\[Omega]sol", ",", "qsp"}], "]"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQnWGTlCjr89pRyKkOTDt0vEsH0RM8FepA9LkupXkg
+utuPTA997r7EhD9Xqd3OYhm8oxbC6KXKrJuB9FfOjfvBtEsD0MfgOgyvkJv
OSCt5SYQAKKfTdYIAdH2DUFg+onwj34Q/Wfb6xkg+ow411wQbRo4dwGIFgmI
Xg2if2j+Xw+iXRafOgCiXxmKHAXRiVsipBVB5v9dA6Z51jhNMwLSjAHZYHrK
ue+bQfQjhX/bQPQXcaMDINqK3+gwiN538cENEO1h8PMWiP5kLMpoDKRL/kjx
guh/M6v97YG0pNydIBANAHE1iN8=
  "]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"\[Omega]", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"\[Omega]", "/.", 
      RowBox[{
       RowBox[{"Apply", "[", 
        RowBox[{"\[Omega]sol", ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox["1", "3"], ",", 
           FractionBox["2", "3"]}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Beta]1", ",", "0", ",", "3"}], "}"}]}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.663788664007235*^9, 3.6637886822209883`*^9}, {
  3.663791028665183*^9, 3.663791048818531*^9}, {3.66379190208392*^9, 
  3.663791913255035*^9}, {3.663828164737178*^9, 3.663828305400033*^9}, {
  3.663828365403689*^9, 3.6638283664027653`*^9}, {3.663828703656105*^9, 
  3.6638287086845922`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "32"}], " ", "a", " ", "\[Pi]", " ", "T"}], "+", 
        RowBox[{"32", " ", "\[Pi]", " ", "Spin", " ", "T"}]}]], " ", 
      "\[Beta]1"}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", "\[Pi]"}], "-", 
        RowBox[{"\[Pi]", " ", "Spin"}]}], ")"}]}]]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", "m1"}], "+", 
       RowBox[{
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]"}]], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{"a", "-", "Spin"}], ")"}]}], " ", "T"}]]}]}], ")"}], " ", 
     
     SuperscriptBox["\[Beta]1", "3"]}], 
    RowBox[{"2", " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"a", "-", "Spin"}], ")"}]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Beta]1", "]"}], "4"],
    SeriesData[$CellContext`\[Beta]1, 0, {}, 1, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Beta]1, 0, {
   Rational[-1, 2] ($CellContext`a Pi - 
      Pi $CellContext`Spin)^(-1) ((-32) $CellContext`a Pi $CellContext`T + 
      32 Pi $CellContext`Spin $CellContext`T)^Rational[1, 2], 0, 
    Rational[1, 2] 
    Pi^(-1) ($CellContext`a - $CellContext`Spin)^(-1) (
     8 $CellContext`m1 + (2 Pi)^
       Rational[1, 2] (-($CellContext`a - $CellContext`Spin) $CellContext`T)^
       Rational[1, 2])}, 1, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.6637886831771927`*^9, 3.6637919145215187`*^9, {3.663828154166485*^9, 
   3.66382830586235*^9}, 3.663828367125969*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]M", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      FractionBox["1", "3"], ",", 
      FractionBox["2", "3"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1", "3"], ",", 
      FractionBox[
       RowBox[{"-", "1"}], "3"]}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.663786767340798*^9, 3.663786769943169*^9}, {
  3.663786802599998*^9, 3.663786808984036*^9}, {3.663786954527977*^9, 
  3.663786960574397*^9}, {3.66378756966389*^9, 3.663787591795493*^9}, {
  3.6637876272473717`*^9, 3.6637876279966297`*^9}, {3.663828718785432*^9, 
  3.663828719436727*^9}, {3.663828787263197*^9, 3.66382878973882*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "m1", " ", 
      SuperscriptBox["\[Beta]1", "3"]}], "-", 
     RowBox[{
      SqrtBox["2"], " ", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["\[Beta]1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Beta]1", "4"]}], "-", 
          RowBox[{"\[Pi]", " ", 
           RowBox[{"(", 
            RowBox[{"a", "-", "Spin"}], ")"}], " ", "T", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox["\[Beta]1", "2"]}], ")"}], 
            RowBox[{"3", "/", "2"}]]}]}], ")"}]}]]}]}], ")"}]}], 
  RowBox[{"411", " ", "\[Pi]", " ", 
   RowBox[{"(", 
    RowBox[{"a", "-", "Spin"}], ")"}], " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     SuperscriptBox["\[Beta]1", "2"]}]], " ", 
   RowBox[{"(", 
    RowBox[{"\[CapitalDelta]\[Theta]", "+", 
     RowBox[{
      SuperscriptBox["\[Beta]1", "2"], " ", 
      RowBox[{"Sin", "[", "\[CapitalDelta]\[Theta]", "]"}]}]}], 
    ")"}]}]]], "Output",
 CellChangeTimes->{
  3.663786962852241*^9, 3.6637872203998537`*^9, 3.663787367614834*^9, {
   3.663787522207871*^9, 3.663787593817521*^9}, 3.663787633502194*^9, 
   3.663828720298191*^9, 3.663828790291565*^9, 3.663854256055479*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Approximate (series) analytic predictions", "Title",
 CellChangeTimes->{{3.655706447288666*^9, 3.655706472281893*^9}, {
  3.6557067616610003`*^9, 3.655706783374784*^9}, {3.663854504024335*^9, 
  3.663854519925784*^9}}],

Cell[CellGroupData[{

Cell["\[Beta]=1 ", "Subsection",
 CellChangeTimes->{{3.6550446459389443`*^9, 3.6550446556736126`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"order", "=", "12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]1", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"1", "-", 
      SuperscriptBox["\[Epsilon]", "2"]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "order"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]2", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Epsilon]", ",", "0", ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"b", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"2", "order"}]}], "}"}]}], "]"}], ",", "0", ",", 
     RowBox[{"2", "order"}], ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  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"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"b", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"2", "order"}]}], "}"}]}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]1", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]1", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]2", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]2", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Epsilon]", ",", "0", ",", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", "order"}], "}"}]}], "]"}], ",", 
       RowBox[{"a", "[", "1", "]"}]}], "]"}], ",", "0", ",", "order", ",", 
     "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]eq", "=", 
   RowBox[{
    SuperscriptBox["\[Theta]", "2"], "-", 
    SuperscriptBox["\[Beta]1", "2"], "-", 
    SuperscriptBox["\[Beta]2", "2"], "-", 
    RowBox[{"2", "\[Beta]1", " ", "\[Beta]2", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"a", "[", "1", "]"}], "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"SeriesCoefficient", "[", 
        RowBox[{"\[Theta]eq", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"a", "[", "1", "]"}], ",", "1"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"\[Theta]", "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]eq", "-", 
          RowBox[{"SeriesCoefficient", "[", 
           RowBox[{"\[Theta]eq", ",", "0"}], "]"}]}], "\[Equal]", "0"}], ",", 
        
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "2", ",", "order"}], "}"}]}], "]"}]}], "]"}], 
      "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550451711646495`*^9, 3.655045219078745*^9}, {
   3.6550453334428916`*^9, 3.6550453524288745`*^9}, {3.655045465942602*^9, 
   3.6550456443512187`*^9}, {3.65506318327105*^9, 3.6550632140893416`*^9}, {
   3.655063257036375*^9, 3.655063271678839*^9}, {3.6550634683927345`*^9, 
   3.6550635215758204`*^9}, {3.655063552038608*^9, 3.65506355691127*^9}, {
   3.6550636354416103`*^9, 3.6550636362407455`*^9}, {3.6550648834914746`*^9, 
   3.6550648901075153`*^9}, {3.6550655989339*^9, 3.655065599104764*^9}, {
   3.6550671284571548`*^9, 3.6550671343258743`*^9}, {3.655067950652915*^9, 
   3.6550679526283083`*^9}, {3.6550679843883686`*^9, 
   3.6550679859314356`*^9}, {3.6550685739811535`*^9, 3.65506857469137*^9}, {
   3.6550691273131175`*^9, 3.6550691788092732`*^9}, 3.655069214828552*^9, 
   3.65506956829084*^9, {3.655069909737232*^9, 3.655069918261294*^9}, 
   3.6550705491377125`*^9, {3.6550705983224497`*^9, 3.655070603573162*^9}, {
   3.655070900297044*^9, 3.655070903346339*^9}, {3.6551011773641148`*^9, 
   3.655101185036327*^9}, {3.655101220923114*^9, 3.655101227386635*^9}, {
   3.656078229845235*^9, 3.656078238702833*^9}, 3.6560961467048936`*^9, {
   3.6561053039296303`*^9, 3.656105308190691*^9}, 3.656108177885451*^9, 
   3.659109273075103*^9, 3.659109725948269*^9, {3.659112218207436*^9, 
   3.659112426006672*^9}, {3.659112475737256*^9, 3.6591125064852057`*^9}, {
   3.659112567166131*^9, 3.659112597600585*^9}, {3.6591601139645987`*^9, 
   3.659160141875004*^9}, {3.6591602522012577`*^9, 3.659160346789177*^9}, {
   3.659160870961083*^9, 3.6591608715111427`*^9}, {3.6591739972148447`*^9, 
   3.659174000484742*^9}, {3.659174076608452*^9, 3.659174077741534*^9}, {
   3.659174114532195*^9, 3.659174288577667*^9}, {3.659174384654759*^9, 
   3.659174389869328*^9}, {3.65917470768902*^9, 3.65917470835959*^9}, {
   3.65917478807975*^9, 3.6591748225932083`*^9}, {3.659174859363035*^9, 
   3.659174903700047*^9}, {3.6591749809694347`*^9, 3.6591750009347982`*^9}, {
   3.6591750569023333`*^9, 3.659175066303719*^9}, {3.659175105668852*^9, 
   3.659175135316073*^9}, {3.659175194583099*^9, 3.659175232296328*^9}, {
   3.659175355286721*^9, 3.6591753633104877`*^9}, {3.6591754954209013`*^9, 
   3.659175498865746*^9}, {3.65917553175298*^9, 3.659175538207366*^9}, {
   3.659175609799305*^9, 3.659175659418559*^9}, {3.659701203667028*^9, 
   3.659701210891316*^9}, {3.663842065724321*^9, 3.6638420925952663`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{"\[Omega]\[Omega]", "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "T"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]}], "+", 
              FractionBox[
               RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]\[Omega]"}], 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]], "-", 
              RowBox[{
               FractionBox["\[Pi]", "2"], 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "-", "S"}], ")"}], " ", 
                 SuperscriptBox["\[Omega]\[Omega]", "2"]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}]}], 
             "]"}], "\[Equal]", "0"}], ",", "\[Omega]\[Omega]"}], "]"}], "[", 
         
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Epsilon]", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"q1", " ", "q2", " ", "\[Omega]", " ", 
       RowBox[{"Rationalize", "[", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
             RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], 
          ")"}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "5"}]]}], "]"}]}], "-", 
      RowBox[{
       FractionBox["\[Pi]", "2"], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}], " ", "\[Omega]"}], 
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}]]}]}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"2", "q1", " ", "q2", " ", "\[Beta]1", " ", "\[Beta]2", " ", 
       RowBox[{"Rationalize", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], 
          RowBox[{
           RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], ",", 
         
         SuperscriptBox["10", 
          RowBox[{"-", "5"}]]}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]p", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"InverseSeries", "[", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", "j"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EJ", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ComposeSeries", "[", 
       RowBox[{
        RowBox[{"H", "[", 
         RowBox[{"q1", ",", "q2"}], "]"}], ",", 
        RowBox[{"\[Epsilon]p", "[", 
         RowBox[{"q1", ",", "q2"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", ">", "0"}], ",", 
        RowBox[{"m2", ">", "0"}]}], "}"}]}], "]"}], "/.", " ", 
    RowBox[{"{", 
     RowBox[{"T", "\[Rule]", " ", 
      FractionBox["1", 
       RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{"qs_List", ",", "qsp_List"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qs"}], "]"}], "-", 
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qsp"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550696750750895`*^9, 3.6550696826227255`*^9}, {
   3.6550697470555115`*^9, 3.6550697498133335`*^9}, {3.655069876288066*^9, 
   3.655069878947955*^9}, {3.655070642336279*^9, 3.655070659576951*^9}, {
   3.6550706914867463`*^9, 3.655070709748979*^9}, {3.65507078073528*^9, 
   3.6550707817855825`*^9}, {3.6550708895691853`*^9, 3.655070892816818*^9}, {
   3.6550712601005554`*^9, 3.6550713575079193`*^9}, {3.6550713956419926`*^9, 
   3.6550713971162367`*^9}, {3.6550717748266225`*^9, 3.655071790766389*^9}, {
   3.655071831461693*^9, 3.6550718340329623`*^9}, {3.6550719248638744`*^9, 
   3.6550721068605003`*^9}, 3.655072294994533*^9, {3.655101297877698*^9, 
   3.655101311964918*^9}, {3.65510137302813*^9, 3.655101373731824*^9}, {
   3.655102042161619*^9, 3.655102058356732*^9}, {3.655102120759037*^9, 
   3.655102159333015*^9}, 3.655102231362866*^9, {3.6551023716977453`*^9, 
   3.655102404978917*^9}, {3.655111736415852*^9, 3.65511173834723*^9}, {
   3.6557067226918488`*^9, 3.655706753256839*^9}, {3.655706801810596*^9, 
   3.655706826002307*^9}, 3.6557068664027767`*^9, {3.655903933796549*^9, 
   3.6559039357135553`*^9}, 3.6561004319500327`*^9, {3.6561010530738487`*^9, 
   3.6561010616928854`*^9}, 3.65610146737107*^9, {3.6561016023152504`*^9, 
   3.6561016068333917`*^9}, {3.6561025665294356`*^9, 3.6561025674479823`*^9}, 
   3.656104070936043*^9, 3.656104819966385*^9, 3.656105430948631*^9, 
   3.656325014882333*^9, {3.656327757403674*^9, 3.6563277639486237`*^9}, 
   3.656583433170619*^9, {3.659087315170128*^9, 3.65908734466404*^9}, {
   3.659164017743635*^9, 3.6591640593516703`*^9}, {3.659164164004381*^9, 
   3.659164219633703*^9}, {3.659164379070471*^9, 3.6591644789406548`*^9}, {
   3.659173551909689*^9, 3.6591735532146797`*^9}, 3.659173985662963*^9, {
   3.659701235005436*^9, 3.659701245013823*^9}, {3.659701752596348*^9, 
   3.659701757638468*^9}, {3.663834235313908*^9, 3.663834307247704*^9}, {
   3.663834342514539*^9, 3.663834434845942*^9}, {3.6638345389679813`*^9, 
   3.66383453917586*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"qu", ",", 
       RowBox[{"-", "qd"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "qd"}], ",", "qd"}], "}"}]}], "]"}], "//", "Simplify"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.6638344663916187`*^9, 3.6638345685089083`*^9}, {
  3.6638347673264227`*^9, 3.6638347770224447`*^9}, {3.663842044466967*^9, 
  3.663842047449244*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"0.23949045726358004`", " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{"qd", "-", 
       RowBox[{"1.`", " ", "qu"}]}], ")"}], " ", 
     SqrtBox[
      FractionBox["1", "j"]]}], 
    SqrtBox["\[Alpha]"]], "+", 
   FractionBox[
    RowBox[{"0.4452410092944401`", " ", 
     RowBox[{"(", 
      RowBox[{"m1", "+", "m2"}], ")"}], " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{"qd", "-", 
       RowBox[{"1.`", " ", "qu"}]}], ")"}]}], "j"], "-", 
   RowBox[{"0.14149526107731844`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["m1", 
         RowBox[{"3", "/", "2"}]], "+", 
        SuperscriptBox["m2", 
         RowBox[{"3", "/", "2"}]]}], ")"}], " ", "qd", " ", 
      RowBox[{"(", 
       RowBox[{"qd", "-", 
        RowBox[{"1.`", " ", "qu"}]}], ")"}], " ", 
      SuperscriptBox["\[Alpha]", 
       RowBox[{"1", "/", "4"}]]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", "j"], ")"}], 
     RowBox[{"5", "/", "4"}]]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "j"], "]"}], 
     RowBox[{"3", "/", "2"}]],
    SeriesData[$CellContext`j, 
     DirectedInfinity[], {}, 2, 6, 4],
    Editable->False]}],
  SeriesData[$CellContext`j, 
   DirectedInfinity[], {
   0.23949045726358004` $CellContext`qd ($CellContext`qd - 
     1. $CellContext`qu) $CellContext`\[Alpha]^Rational[-1, 2], 0., 
    0.4452410092944401 ($CellContext`m1 + $CellContext`m2) $CellContext`qd \
($CellContext`qd - 
     1. $CellContext`qu), (-0.14149526107731844`) ($CellContext`m1^
      Rational[3, 2] + $CellContext`m2^
      Rational[3, 2]) $CellContext`qd ($CellContext`qd - 
     1. $CellContext`qu) $CellContext`\[Alpha]^Rational[1, 4]}, 2, 6, 4],
  Editable->False]], "Output",
 CellChangeTimes->{3.663842160003796*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Beta]->0 ", "Subsection",
 CellChangeTimes->{{3.6550446459389443`*^9, 3.6550446614146748`*^9}, {
  3.655228225541379*^9, 3.6552282262482777`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"order", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]2", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       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[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{"m2", ">", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]1", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["\[Beta]1", "2"]}], ")"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}]], ",", 
     RowBox[{"{", 
      RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]2", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]2", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Beta]1", ",", "0", ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"a", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "order"}], "}"}]}], "]"}], ",", "1", ",", "order", 
     ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]eq", "=", 
   RowBox[{
    SuperscriptBox["\[Theta]", "2"], "-", 
    SuperscriptBox["\[Beta]1", "2"], "-", 
    SuperscriptBox["\[Beta]2", "2"], "-", 
    RowBox[{"2", "\[Beta]1", " ", "\[Beta]2", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"\[Theta]", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"\[Theta]eq", "\[Equal]", "0"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "order"}], "}"}]}], "]"}]}], "]"}]}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550451711646495`*^9, 3.655045219078745*^9}, {
   3.6550453334428916`*^9, 3.6550453524288745`*^9}, {3.655045465942602*^9, 
   3.6550456443512187`*^9}, {3.65506318327105*^9, 3.6550632140893416`*^9}, {
   3.655063257036375*^9, 3.655063271678839*^9}, {3.6550634683927345`*^9, 
   3.6550635215758204`*^9}, {3.655063552038608*^9, 3.65506355691127*^9}, {
   3.6550636354416103`*^9, 3.6550636362407455`*^9}, {3.6550648834914746`*^9, 
   3.6550648901075153`*^9}, {3.6550655989339*^9, 3.655065599104764*^9}, {
   3.6550671284571548`*^9, 3.6550671343258743`*^9}, {3.655067950652915*^9, 
   3.6550679526283083`*^9}, {3.6550679843883686`*^9, 
   3.6550679859314356`*^9}, {3.6550685739811535`*^9, 3.65506857469137*^9}, {
   3.6550691273131175`*^9, 3.6550691788092732`*^9}, 3.655069214828552*^9, 
   3.65506956829084*^9, {3.655069909737232*^9, 3.655069918261294*^9}, 
   3.6550705491377125`*^9, {3.6550705983224497`*^9, 3.655070603573162*^9}, {
   3.655070900297044*^9, 3.655070903346339*^9}, {3.6551011773641148`*^9, 
   3.655101185036327*^9}, {3.655101220923114*^9, 3.655101227386635*^9}, {
   3.655114126454939*^9, 3.65511416842997*^9}, 3.655114543839274*^9, {
   3.655114629840313*^9, 3.655114654599131*^9}, {3.655114689765472*^9, 
   3.655114693550661*^9}, {3.655114723976069*^9, 3.655114740927397*^9}, 
   3.655357055663518*^9, {3.655359582043846*^9, 3.6553595827481623`*^9}, {
   3.655359790437901*^9, 3.6553597920035887`*^9}, {3.655363000359638*^9, 
   3.655363018560376*^9}, 3.656059977687149*^9, {3.656060050426257*^9, 
   3.656060056656999*^9}, {3.65606015148354*^9, 3.656060152855229*^9}, 
   3.6560603650186787`*^9, {3.656060516211514*^9, 3.6560605163435097`*^9}, 
   3.656060666506275*^9, {3.656061764364717*^9, 3.6560617652594023`*^9}, {
   3.656066077042901*^9, 3.656066093207003*^9}, 3.65607487693783*^9, {
   3.6560749460366917`*^9, 3.656074946692587*^9}, {3.6561055928973713`*^9, 
   3.656105595806059*^9}, 3.656325986757628*^9, {3.65908749289508*^9, 
   3.659087496172558*^9}, 3.659087608186081*^9, 3.659087787436915*^9, 
   3.659088944302477*^9, {3.659179233868972*^9, 3.6591792636827517`*^9}, {
   3.659179405073389*^9, 3.659179441465736*^9}, 3.6591794816313877`*^9, {
   3.659179534987*^9, 3.659179535530631*^9}, {3.659209152065567*^9, 
   3.65920915234662*^9}, {3.663844759956543*^9, 3.663844761171954*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{"\[Omega]\[Omega]", "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "T"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]}], "+", 
              FractionBox[
               RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]\[Omega]"}], 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]], "-", 
              RowBox[{
               FractionBox["\[Pi]", "2"], 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "-", "S"}], ")"}], " ", 
                 SuperscriptBox["\[Omega]\[Omega]", "2"]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}]}], 
             "]"}], "\[Equal]", "0"}], ",", "\[Omega]\[Omega]"}], "]"}], "[", 
         
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"q1", " ", "q2", " ", "\[Omega]", " ", 
       RowBox[{"(", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], 
        ")"}]}], "-", 
      RowBox[{
       FractionBox["\[Pi]", "2"], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}], " ", "\[Omega]"}], 
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}]]}]}], ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"2", "q1", " ", "q2", " ", "\[Beta]1", " ", "\[Beta]2", 
       FractionBox[
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        RowBox[{
         RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]]}]}], 
     ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]p", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"InverseSeries", "[", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", "j"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EJ", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"ComposeSeries", "[", 
    RowBox[{
     RowBox[{"H", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", 
     RowBox[{"\[Beta]p", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{"qs_List", ",", "qsp_List"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qs"}], "]"}], "-", 
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qsp"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550696750750895`*^9, 3.6550696826227255`*^9}, {
   3.6550697470555115`*^9, 3.6550697498133335`*^9}, {3.655069876288066*^9, 
   3.655069878947955*^9}, {3.655070642336279*^9, 3.655070659576951*^9}, {
   3.6550706914867463`*^9, 3.655070709748979*^9}, {3.65507078073528*^9, 
   3.6550707817855825`*^9}, {3.6550708895691853`*^9, 3.655070892816818*^9}, {
   3.6550712601005554`*^9, 3.6550713575079193`*^9}, {3.6550713956419926`*^9, 
   3.6550713971162367`*^9}, {3.6550717748266225`*^9, 3.655071790766389*^9}, {
   3.655071831461693*^9, 3.6550718340329623`*^9}, {3.6550719248638744`*^9, 
   3.6550721068605003`*^9}, 3.655072294994533*^9, {3.655101297877698*^9, 
   3.655101311964918*^9}, {3.65510137302813*^9, 3.655101373731824*^9}, {
   3.655102042161619*^9, 3.655102058356732*^9}, {3.655102120759037*^9, 
   3.655102159333015*^9}, 3.655102231362866*^9, {3.6551023716977453`*^9, 
   3.655102404978917*^9}, {3.655111736415852*^9, 3.65511173834723*^9}, 
   3.655114303149646*^9, {3.6551143446095*^9, 3.6551143739946404`*^9}, 
   3.655114558796715*^9, 3.655114641286297*^9, 3.655114706528673*^9, 
   3.6551147472828903`*^9, {3.6552254284901543`*^9, 3.655225627475766*^9}, {
   3.6552261667368593`*^9, 3.655226239065181*^9}, {3.65522630049087*^9, 
   3.655226331514995*^9}, 3.6557070982208433`*^9, {3.655903686287665*^9, 
   3.655903695449815*^9}, 3.656101479132228*^9, 3.6561053753531504`*^9, 
   3.65610540844421*^9, 3.6561054954362698`*^9, 3.656325127664817*^9, 
   3.656325227898436*^9, 3.656327772048275*^9, 3.656327826281097*^9, {
   3.659087578581188*^9, 3.659087597089748*^9}, 3.659089716624366*^9, 
   3.659089841824958*^9, {3.659179901105564*^9, 3.65917991189954*^9}, {
   3.659179951864579*^9, 3.6591799583586483`*^9}, {3.6597017158535023`*^9, 
   3.659701716115049*^9}, {3.6638436653526573`*^9, 3.663843671717197*^9}, {
   3.66384383852041*^9, 3.663843958013785*^9}, {3.663843996071191*^9, 
   3.663843996306547*^9}, 3.663844061130589*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"qu", ",", 
       RowBox[{"-", "qd"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "qd"}], ",", "qd"}], "}"}]}], "]"}], "//", "Simplify"}], "//",
   "N"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"0.7978845608028654`", " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "qd"}], "+", "qu"}], ")"}], " ", "T"}], 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", "T"}]]], 
   "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["m2", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"1.`", " ", "S"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
        "T"}]]}]], 
    RowBox[{"0.4244131815783876`", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"m1", "+", "m2"}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1.`", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "7.8748049728612095`"}], " ", 
               SuperscriptBox["a", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["m1", "2"], "-", 
                 RowBox[{"1.`", " ", "m1", " ", "m2"}], "+", 
                 SuperscriptBox["m2", "2"]}], ")"}], " ", "T"}], "-", 
              RowBox[{"7.8748049728612095`", " ", 
               SuperscriptBox["m2", "2"], " ", 
               SuperscriptBox["S", "2"], " ", "T"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["m1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"7.8748049728612095`", " ", 
                  SuperscriptBox["S", "2"], " ", "T"}], "-", 
                 RowBox[{"12.`", " ", "m2", " ", 
                  SuperscriptBox["qd", "2"], " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}], "+", 
                 RowBox[{"18.84955592153876`", " ", "m2", " ", "S", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
              RowBox[{"m1", " ", "m2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3.141592653589793`", " ", "S", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "-", 
                    
                    RowBox[{"6.`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
                 RowBox[{"6.`", " ", 
                  SuperscriptBox["qd", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "+", 
                    
                    RowBox[{"2.`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"3.5449077018110318`", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4.442882938158366`", " ", 
                  SuperscriptBox["m2", "2"], " ", "S", " ", "T"}], "+", 
                 RowBox[{"m1", " ", "m2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "4.242640687119286`"}], " ", 
                    SuperscriptBox["qd", "2"], " ", "T"}], "-", 
                    RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                    RowBox[{"5.317361552716548`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["m1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                    RowBox[{"5.317361552716548`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"8.`", " ", "m1", " ", 
              RowBox[{"(", 
               RowBox[{"m1", "+", "m2"}], ")"}], " ", 
              SuperscriptBox["qd", "2"]}], "+", 
             FractionBox[
              RowBox[{"2.0943951023931953`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["m1", "3"], "+", 
                 SuperscriptBox["m2", "3"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], "m2"], "+", 
             FractionBox[
              RowBox[{"5.0132565492620005`", " ", 
               SuperscriptBox["m1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"m1", "+", "m2"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                "T"}]]], "+", 
             FractionBox[
              RowBox[{"5.0132565492620005`", " ", "m1", " ", "m2", " ", 
               RowBox[{"(", 
                RowBox[{"m1", "+", "m2"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                "T"}]]]}], ")"}], "2"]}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"7.8748049728612095`", " ", 
             SuperscriptBox["a", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["m1", "2"], "-", 
               RowBox[{"1.`", " ", "m1", " ", "m2"}], "+", 
               SuperscriptBox["m2", "2"]}], ")"}], " ", "T"}], "+", 
            RowBox[{"7.8748049728612095`", " ", 
             SuperscriptBox["m2", "2"], " ", 
             SuperscriptBox["S", "2"], " ", "T"}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"7.8748049728612095`", " ", 
                SuperscriptBox["S", "2"], " ", "T"}], "-", 
               RowBox[{"12.`", " ", "m2", " ", "qd", " ", "qu", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                  "T"}]]}], "+", 
               RowBox[{"18.84955592153876`", " ", "m2", " ", "S", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                  "T"}]]}]}], ")"}]}], "-", 
            RowBox[{"1.`", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3.141592653589793`", " ", "S", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "-", 
                  RowBox[{"6.`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
               RowBox[{"6.`", " ", "qd", " ", "qu", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"2.`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{"3.5449077018110318`", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4.442882938158366`", " ", 
                SuperscriptBox["m2", "2"], " ", "S", " ", "T"}], "+", 
               RowBox[{"m1", " ", "m2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4.242640687119286`"}], " ", "qd", " ", "qu", 
                   " ", "T"}], "-", 
                  RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"5.317361552716548`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["m1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"5.317361552716548`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"8.`", " ", "m1", " ", 
            RowBox[{"(", 
             RowBox[{"m1", "+", "m2"}], ")"}], " ", "qd", " ", "qu"}], "+", 
           FractionBox[
            RowBox[{"2.0943951023931953`", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["m1", "3"], "+", 
               SuperscriptBox["m2", "3"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], "m2"], "+", 
           FractionBox[
            RowBox[{"5.0132565492620005`", " ", 
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"m1", "+", "m2"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
              "T"}]]], "+", 
           FractionBox[
            RowBox[{"5.0132565492620005`", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{"m1", "+", "m2"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
              "T"}]]]}], ")"}], "2"]}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"j", "+", "0.`"}], ")"}], "2"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"j", "+", "0.`"}], "]"}], "3"],
    SeriesData[$CellContext`j, 0., {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`j, 0., {
   0.7978845608028654 $CellContext`qd (-$CellContext`qd + $CellContext`qu) \
$CellContext`T ((-$CellContext`a + $CellContext`S) $CellContext`T)^
     Rational[-1, 2], 0., 
    0.4244131815783876 $CellContext`m2^(-2) ($CellContext`m1 + \
$CellContext`m2)^4 ($CellContext`a - 
      1. $CellContext`S)^(-1) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^
     Rational[-1, 
       2] (-(8. $CellContext`m1 ($CellContext`m1 + $CellContext`m2) \
$CellContext`qd^2 + 
        2.0943951023931953` $CellContext`m2^(-1) ($CellContext`m1^3 + \
$CellContext`m2^3) ($CellContext`a - 1. $CellContext`S) + 
        5.0132565492620005` $CellContext`m1^2 ($CellContext`m1 + \
$CellContext`m2) ($CellContext`a - 
          1. $CellContext`S) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[-1, 2] + 
        5.0132565492620005` $CellContext`m1 $CellContext`m2 ($CellContext`m1 + \
$CellContext`m2) ($CellContext`a - 
          1. $CellContext`S) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^
          Rational[-1, 
            2])^(-2) ((-7.8748049728612095`) $CellContext`a^2 \
($CellContext`m1^2 - 
         1. $CellContext`m1 $CellContext`m2 + $CellContext`m2^2) \
$CellContext`T - 
       7.8748049728612095` $CellContext`m2^2 $CellContext`S^2 $CellContext`T - 
       1. $CellContext`m1^2 (
        7.8748049728612095` $CellContext`S^2 $CellContext`T - 
        12. $CellContext`m2 $CellContext`qd^2 ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2] + 
        18.84955592153876 $CellContext`m2 $CellContext`S ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^
          Rational[1, 2]) + $CellContext`m1 $CellContext`m2 (
         3.141592653589793 $CellContext`S (
           2.5066282746310002` $CellContext`S $CellContext`T - 
           6. $CellContext`m2 ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2]) + 
         6. $CellContext`qd^2 (
           2.5066282746310002` $CellContext`S $CellContext`T + 
           2. $CellContext`m2 ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2])) + 
       3.5449077018110318` $CellContext`a (
         4.442882938158366 $CellContext`m2^2 $CellContext`S $CellContext`T + \
$CellContext`m1 $CellContext`m2 ((-4.242640687119286) $CellContext`qd^2 \
$CellContext`T - 4.442882938158366 $CellContext`S $CellContext`T + 
           5.317361552716548 $CellContext`m2 ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]) + $CellContext`m1^2 (
           4.442882938158366 $CellContext`S $CellContext`T + 
           5.317361552716548 $CellContext`m2 ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]))) - 
     1. (8. $CellContext`m1 ($CellContext`m1 + $CellContext`m2) \
$CellContext`qd $CellContext`qu + 
       2.0943951023931953` $CellContext`m2^(-1) ($CellContext`m1^3 + \
$CellContext`m2^3) ($CellContext`a - 1. $CellContext`S) + 
       5.0132565492620005` $CellContext`m1^2 ($CellContext`m1 + \
$CellContext`m2) ($CellContext`a - 
         1. $CellContext`S) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[-1, 2] + 
       5.0132565492620005` $CellContext`m1 $CellContext`m2 ($CellContext`m1 + \
$CellContext`m2) ($CellContext`a - 
         1. $CellContext`S) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[-1, 2])^(-2) (
      7.8748049728612095` $CellContext`a^2 ($CellContext`m1^2 - 
        1. $CellContext`m1 $CellContext`m2 + $CellContext`m2^2) \
$CellContext`T + 
      7.8748049728612095` $CellContext`m2^2 $CellContext`S^2 $CellContext`T + \
$CellContext`m1^2 (7.8748049728612095` $CellContext`S^2 $CellContext`T - 
        12. $CellContext`m2 $CellContext`qd $CellContext`qu ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2] + 
        18.84955592153876 $CellContext`m2 $CellContext`S ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]) - 
      1. $CellContext`m1 $CellContext`m2 (
       3.141592653589793 $CellContext`S (
         2.5066282746310002` $CellContext`S $CellContext`T - 
         6. $CellContext`m2 ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2]) + 
       6. $CellContext`qd $CellContext`qu (
         2.5066282746310002` $CellContext`S $CellContext`T + 
         2. $CellContext`m2 ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2])) - 
      3.5449077018110318` $CellContext`a (
       4.442882938158366 $CellContext`m2^2 $CellContext`S $CellContext`T + \
$CellContext`m1 $CellContext`m2 ((-4.242640687119286) $CellContext`qd \
$CellContext`qu $CellContext`T - 
         4.442882938158366 $CellContext`S $CellContext`T + 
         5.317361552716548 $CellContext`m2 ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]) + $CellContext`m1^2 (
         4.442882938158366 $CellContext`S $CellContext`T + 
         5.317361552716548 $CellContext`m2 ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]))))}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.663844031077641*^9, 3.6638447447075357`*^9, 
  3.6638448037770147`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Perturbative solution of problem - todo", "Title",
 CellChangeTimes->{{3.655706447288666*^9, 3.655706472281893*^9}, {
  3.6557067616610003`*^9, 3.655706783374784*^9}, {3.663854504024335*^9, 
  3.663854519925784*^9}, {3.6638568882449217`*^9, 3.663856929138686*^9}, {
  3.663857529813744*^9, 3.6638575319115677`*^9}}],

Cell[CellGroupData[{

Cell["\[Beta]=1 ", "Subsection",
 CellChangeTimes->{{3.6550446459389443`*^9, 3.6550446556736126`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"order", "=", "12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]1", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"1", "-", 
      SuperscriptBox["\[Epsilon]", "2"]}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "order"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]2", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Epsilon]", ",", "0", ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"b", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"2", "order"}]}], "}"}]}], "]"}], ",", "0", ",", 
     RowBox[{"2", "order"}], ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  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"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"b", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"2", "order"}]}], "}"}]}], "]"}]}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]1", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]1", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]2", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]2", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Epsilon]", ",", "0", ",", 
     RowBox[{"Prepend", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"a", "[", "i", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", "order"}], "}"}]}], "]"}], ",", 
       RowBox[{"a", "[", "1", "]"}]}], "]"}], ",", "0", ",", "order", ",", 
     "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]eq", "=", 
   RowBox[{
    SuperscriptBox["\[Theta]", "2"], "-", 
    SuperscriptBox["\[Beta]1", "2"], "-", 
    SuperscriptBox["\[Beta]2", "2"], "-", 
    RowBox[{"2", "\[Beta]1", " ", "\[Beta]2", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"a", "[", "1", "]"}], "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"SeriesCoefficient", "[", 
        RowBox[{"\[Theta]eq", ",", "0"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"a", "[", "1", "]"}], ",", "1"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"\[Theta]", "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]eq", "-", 
          RowBox[{"SeriesCoefficient", "[", 
           RowBox[{"\[Theta]eq", ",", "0"}], "]"}]}], "\[Equal]", "0"}], ",", 
        
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "2", ",", "order"}], "}"}]}], "]"}]}], "]"}], 
      "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550451711646495`*^9, 3.655045219078745*^9}, {
   3.6550453334428916`*^9, 3.6550453524288745`*^9}, {3.655045465942602*^9, 
   3.6550456443512187`*^9}, {3.65506318327105*^9, 3.6550632140893416`*^9}, {
   3.655063257036375*^9, 3.655063271678839*^9}, {3.6550634683927345`*^9, 
   3.6550635215758204`*^9}, {3.655063552038608*^9, 3.65506355691127*^9}, {
   3.6550636354416103`*^9, 3.6550636362407455`*^9}, {3.6550648834914746`*^9, 
   3.6550648901075153`*^9}, {3.6550655989339*^9, 3.655065599104764*^9}, {
   3.6550671284571548`*^9, 3.6550671343258743`*^9}, {3.655067950652915*^9, 
   3.6550679526283083`*^9}, {3.6550679843883686`*^9, 
   3.6550679859314356`*^9}, {3.6550685739811535`*^9, 3.65506857469137*^9}, {
   3.6550691273131175`*^9, 3.6550691788092732`*^9}, 3.655069214828552*^9, 
   3.65506956829084*^9, {3.655069909737232*^9, 3.655069918261294*^9}, 
   3.6550705491377125`*^9, {3.6550705983224497`*^9, 3.655070603573162*^9}, {
   3.655070900297044*^9, 3.655070903346339*^9}, {3.6551011773641148`*^9, 
   3.655101185036327*^9}, {3.655101220923114*^9, 3.655101227386635*^9}, {
   3.656078229845235*^9, 3.656078238702833*^9}, 3.6560961467048936`*^9, {
   3.6561053039296303`*^9, 3.656105308190691*^9}, 3.656108177885451*^9, 
   3.659109273075103*^9, 3.659109725948269*^9, {3.659112218207436*^9, 
   3.659112426006672*^9}, {3.659112475737256*^9, 3.6591125064852057`*^9}, {
   3.659112567166131*^9, 3.659112597600585*^9}, {3.6591601139645987`*^9, 
   3.659160141875004*^9}, {3.6591602522012577`*^9, 3.659160346789177*^9}, {
   3.659160870961083*^9, 3.6591608715111427`*^9}, {3.6591739972148447`*^9, 
   3.659174000484742*^9}, {3.659174076608452*^9, 3.659174077741534*^9}, {
   3.659174114532195*^9, 3.659174288577667*^9}, {3.659174384654759*^9, 
   3.659174389869328*^9}, {3.65917470768902*^9, 3.65917470835959*^9}, {
   3.65917478807975*^9, 3.6591748225932083`*^9}, {3.659174859363035*^9, 
   3.659174903700047*^9}, {3.6591749809694347`*^9, 3.6591750009347982`*^9}, {
   3.6591750569023333`*^9, 3.659175066303719*^9}, {3.659175105668852*^9, 
   3.659175135316073*^9}, {3.659175194583099*^9, 3.659175232296328*^9}, {
   3.659175355286721*^9, 3.6591753633104877`*^9}, {3.6591754954209013`*^9, 
   3.659175498865746*^9}, {3.65917553175298*^9, 3.659175538207366*^9}, {
   3.659175609799305*^9, 3.659175659418559*^9}, {3.659701203667028*^9, 
   3.659701210891316*^9}, {3.663842065724321*^9, 3.6638420925952663`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{"\[Omega]\[Omega]", "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "T"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]}], "+", 
              FractionBox[
               RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]\[Omega]"}], 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]], "-", 
              RowBox[{
               FractionBox["\[Pi]", "2"], 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "-", "S"}], ")"}], " ", 
                 SuperscriptBox["\[Omega]\[Omega]", "2"]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}]}], 
             "]"}], "\[Equal]", "0"}], ",", "\[Omega]\[Omega]"}], "]"}], "[", 
         
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Epsilon]", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"q1", " ", "q2", " ", "\[Omega]", " ", 
       RowBox[{"Rationalize", "[", 
        RowBox[{
         RowBox[{"(", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
             RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], 
          ")"}], ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "5"}]]}], "]"}]}], "-", 
      RowBox[{
       FractionBox["\[Pi]", "2"], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}], " ", "\[Omega]"}], 
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}]]}]}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"2", "q1", " ", "q2", " ", "\[Beta]1", " ", "\[Beta]2", " ", 
       RowBox[{"Rationalize", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"Cos", "[", "\[Theta]", "]"}], 
          RowBox[{
           RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], ",", 
         
         SuperscriptBox["10", 
          RowBox[{"-", "5"}]]}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"\[Epsilon]", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]p", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"InverseSeries", "[", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", "j"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EJ", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"ComposeSeries", "[", 
       RowBox[{
        RowBox[{"H", "[", 
         RowBox[{"q1", ",", "q2"}], "]"}], ",", 
        RowBox[{"\[Epsilon]p", "[", 
         RowBox[{"q1", ",", "q2"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", ">", "0"}], ",", 
        RowBox[{"m2", ">", "0"}]}], "}"}]}], "]"}], "/.", " ", 
    RowBox[{"{", 
     RowBox[{"T", "\[Rule]", " ", 
      FractionBox["1", 
       RowBox[{"2", "\[Pi]", " ", "\[Alpha]"}]]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{"qs_List", ",", "qsp_List"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qs"}], "]"}], "-", 
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qsp"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550696750750895`*^9, 3.6550696826227255`*^9}, {
   3.6550697470555115`*^9, 3.6550697498133335`*^9}, {3.655069876288066*^9, 
   3.655069878947955*^9}, {3.655070642336279*^9, 3.655070659576951*^9}, {
   3.6550706914867463`*^9, 3.655070709748979*^9}, {3.65507078073528*^9, 
   3.6550707817855825`*^9}, {3.6550708895691853`*^9, 3.655070892816818*^9}, {
   3.6550712601005554`*^9, 3.6550713575079193`*^9}, {3.6550713956419926`*^9, 
   3.6550713971162367`*^9}, {3.6550717748266225`*^9, 3.655071790766389*^9}, {
   3.655071831461693*^9, 3.6550718340329623`*^9}, {3.6550719248638744`*^9, 
   3.6550721068605003`*^9}, 3.655072294994533*^9, {3.655101297877698*^9, 
   3.655101311964918*^9}, {3.65510137302813*^9, 3.655101373731824*^9}, {
   3.655102042161619*^9, 3.655102058356732*^9}, {3.655102120759037*^9, 
   3.655102159333015*^9}, 3.655102231362866*^9, {3.6551023716977453`*^9, 
   3.655102404978917*^9}, {3.655111736415852*^9, 3.65511173834723*^9}, {
   3.6557067226918488`*^9, 3.655706753256839*^9}, {3.655706801810596*^9, 
   3.655706826002307*^9}, 3.6557068664027767`*^9, {3.655903933796549*^9, 
   3.6559039357135553`*^9}, 3.6561004319500327`*^9, {3.6561010530738487`*^9, 
   3.6561010616928854`*^9}, 3.65610146737107*^9, {3.6561016023152504`*^9, 
   3.6561016068333917`*^9}, {3.6561025665294356`*^9, 3.6561025674479823`*^9}, 
   3.656104070936043*^9, 3.656104819966385*^9, 3.656105430948631*^9, 
   3.656325014882333*^9, {3.656327757403674*^9, 3.6563277639486237`*^9}, 
   3.656583433170619*^9, {3.659087315170128*^9, 3.65908734466404*^9}, {
   3.659164017743635*^9, 3.6591640593516703`*^9}, {3.659164164004381*^9, 
   3.659164219633703*^9}, {3.659164379070471*^9, 3.6591644789406548`*^9}, {
   3.659173551909689*^9, 3.6591735532146797`*^9}, 3.659173985662963*^9, {
   3.659701235005436*^9, 3.659701245013823*^9}, {3.659701752596348*^9, 
   3.659701757638468*^9}, {3.663834235313908*^9, 3.663834307247704*^9}, {
   3.663834342514539*^9, 3.663834434845942*^9}, {3.6638345389679813`*^9, 
   3.66383453917586*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"qu", ",", 
       RowBox[{"-", "qd"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "qd"}], ",", "qd"}], "}"}]}], "]"}], "//", "Simplify"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.6638344663916187`*^9, 3.6638345685089083`*^9}, {
  3.6638347673264227`*^9, 3.6638347770224447`*^9}, {3.663842044466967*^9, 
  3.663842047449244*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"0.23949045726358004`", " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{"qd", "-", 
       RowBox[{"1.`", " ", "qu"}]}], ")"}], " ", 
     SqrtBox[
      FractionBox["1", "j"]]}], 
    SqrtBox["\[Alpha]"]], "+", 
   FractionBox[
    RowBox[{"0.4452410092944401`", " ", 
     RowBox[{"(", 
      RowBox[{"m1", "+", "m2"}], ")"}], " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{"qd", "-", 
       RowBox[{"1.`", " ", "qu"}]}], ")"}]}], "j"], "-", 
   RowBox[{"0.14149526107731844`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["m1", 
         RowBox[{"3", "/", "2"}]], "+", 
        SuperscriptBox["m2", 
         RowBox[{"3", "/", "2"}]]}], ")"}], " ", "qd", " ", 
      RowBox[{"(", 
       RowBox[{"qd", "-", 
        RowBox[{"1.`", " ", "qu"}]}], ")"}], " ", 
      SuperscriptBox["\[Alpha]", 
       RowBox[{"1", "/", "4"}]]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox["1", "j"], ")"}], 
     RowBox[{"5", "/", "4"}]]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "j"], "]"}], 
     RowBox[{"3", "/", "2"}]],
    SeriesData[$CellContext`j, 
     DirectedInfinity[], {}, 2, 6, 4],
    Editable->False]}],
  SeriesData[$CellContext`j, 
   DirectedInfinity[], {((
      0.23949045726358004` $CellContext`qd) ($CellContext`qd - 
      1. $CellContext`qu)) $CellContext`\[Alpha]^Rational[-1, 2], 
    0., ((0.4452410092944401 ($CellContext`m1 + $CellContext`m2)) \
$CellContext`qd) ($CellContext`qd - 
     1. $CellContext`qu), ((((-0.14149526107731844`) ($CellContext`m1^
         Rational[3, 2] + $CellContext`m2^
         Rational[3, 2])) $CellContext`qd) ($CellContext`qd - 
      1. $CellContext`qu)) $CellContext`\[Alpha]^Rational[1, 4]}, 2, 6, 4],
  Editable->False]], "Output",
 CellChangeTimes->{3.663842160003796*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[Beta]->0 ", "Subsection",
 CellChangeTimes->{{3.6550446459389443`*^9, 3.6550446614146748`*^9}, {
  3.655228225541379*^9, 3.6552282262482777`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"order", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]2", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       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[{"[", "2", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{"m2", ">", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]1", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["\[Beta]1", "2"]}], ")"}], 
      RowBox[{"-", 
       FractionBox["1", "2"]}]], ",", 
     RowBox[{"{", 
      RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]2", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["\[Beta]2", "2"]}], ")"}], 
    RowBox[{"-", 
     FractionBox["1", "2"]}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"SeriesData", "[", 
    RowBox[{"\[Beta]1", ",", "0", ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"a", "[", "i", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "order"}], "}"}]}], "]"}], ",", "1", ",", "order", 
     ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]eq", "=", 
   RowBox[{
    SuperscriptBox["\[Theta]", "2"], "-", 
    SuperscriptBox["\[Beta]1", "2"], "-", 
    SuperscriptBox["\[Beta]2", "2"], "-", 
    RowBox[{"2", "\[Beta]1", " ", "\[Beta]2", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"\[Theta]", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"\[Theta]eq", "\[Equal]", "0"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"a", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "order"}], "}"}]}], "]"}]}], "]"}]}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550451711646495`*^9, 3.655045219078745*^9}, {
   3.6550453334428916`*^9, 3.6550453524288745`*^9}, {3.655045465942602*^9, 
   3.6550456443512187`*^9}, {3.65506318327105*^9, 3.6550632140893416`*^9}, {
   3.655063257036375*^9, 3.655063271678839*^9}, {3.6550634683927345`*^9, 
   3.6550635215758204`*^9}, {3.655063552038608*^9, 3.65506355691127*^9}, {
   3.6550636354416103`*^9, 3.6550636362407455`*^9}, {3.6550648834914746`*^9, 
   3.6550648901075153`*^9}, {3.6550655989339*^9, 3.655065599104764*^9}, {
   3.6550671284571548`*^9, 3.6550671343258743`*^9}, {3.655067950652915*^9, 
   3.6550679526283083`*^9}, {3.6550679843883686`*^9, 
   3.6550679859314356`*^9}, {3.6550685739811535`*^9, 3.65506857469137*^9}, {
   3.6550691273131175`*^9, 3.6550691788092732`*^9}, 3.655069214828552*^9, 
   3.65506956829084*^9, {3.655069909737232*^9, 3.655069918261294*^9}, 
   3.6550705491377125`*^9, {3.6550705983224497`*^9, 3.655070603573162*^9}, {
   3.655070900297044*^9, 3.655070903346339*^9}, {3.6551011773641148`*^9, 
   3.655101185036327*^9}, {3.655101220923114*^9, 3.655101227386635*^9}, {
   3.655114126454939*^9, 3.65511416842997*^9}, 3.655114543839274*^9, {
   3.655114629840313*^9, 3.655114654599131*^9}, {3.655114689765472*^9, 
   3.655114693550661*^9}, {3.655114723976069*^9, 3.655114740927397*^9}, 
   3.655357055663518*^9, {3.655359582043846*^9, 3.6553595827481623`*^9}, {
   3.655359790437901*^9, 3.6553597920035887`*^9}, {3.655363000359638*^9, 
   3.655363018560376*^9}, 3.656059977687149*^9, {3.656060050426257*^9, 
   3.656060056656999*^9}, {3.65606015148354*^9, 3.656060152855229*^9}, 
   3.6560603650186787`*^9, {3.656060516211514*^9, 3.6560605163435097`*^9}, 
   3.656060666506275*^9, {3.656061764364717*^9, 3.6560617652594023`*^9}, {
   3.656066077042901*^9, 3.656066093207003*^9}, 3.65607487693783*^9, {
   3.6560749460366917`*^9, 3.656074946692587*^9}, {3.6561055928973713`*^9, 
   3.656105595806059*^9}, 3.656325986757628*^9, {3.65908749289508*^9, 
   3.659087496172558*^9}, 3.659087608186081*^9, 3.659087787436915*^9, 
   3.659088944302477*^9, {3.659179233868972*^9, 3.6591792636827517`*^9}, {
   3.659179405073389*^9, 3.659179441465736*^9}, 3.6591794816313877`*^9, {
   3.659179534987*^9, 3.659179535530631*^9}, {3.659209152065567*^9, 
   3.65920915234662*^9}, {3.663844759956543*^9, 3.663844761171954*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Omega]", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{
       RowBox[{"\[Omega]\[Omega]", "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "T"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]}], "+", 
              FractionBox[
               RowBox[{"m1", " ", "\[Beta]1", " ", "\[Omega]\[Omega]"}], 
               SqrtBox[
                RowBox[{"1", "-", 
                 SuperscriptBox["\[Beta]1", "2"]}]]], "-", 
              RowBox[{
               FractionBox["\[Pi]", "2"], 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"a", "-", "S"}], ")"}], " ", 
                 SuperscriptBox["\[Omega]\[Omega]", "2"]}], 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}], "2"]]}]}], 
             "]"}], "\[Equal]", "0"}], ",", "\[Omega]\[Omega]"}], "]"}], "[", 
         
         RowBox[{"[", "1", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]1", ",", "0", ",", "order"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"H", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"q1", " ", "q2", " ", "\[Omega]", " ", 
       RowBox[{"(", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
           RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]], 
        ")"}]}], "-", 
      RowBox[{
       FractionBox["\[Pi]", "2"], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "S"}], ")"}], " ", "\[Omega]"}], 
        RowBox[{"(", 
         RowBox[{"\[Beta]1", "+", "\[Beta]2"}], ")"}]]}]}], ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     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[{"2", "q1", " ", "q2", " ", "\[Beta]1", " ", "\[Beta]2", 
       FractionBox[
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        RowBox[{
         RowBox[{"\[Beta]1", " ", "\[Beta]2", " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", "\[Theta]"}]]}]}], 
     ",", 
     RowBox[{
      RowBox[{"\[Beta]1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m1", ">", "0"}], " ", "&&", " ", 
      RowBox[{"m2", ">", "0"}], "&&", 
      RowBox[{"T", ">", "0"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]p", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"InverseSeries", "[", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", "j"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EJ", "[", 
    RowBox[{"q1_", ",", "q2_"}], "]"}], ":=", 
   RowBox[{"ComposeSeries", "[", 
    RowBox[{
     RowBox[{"H", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}], ",", 
     RowBox[{"\[Beta]p", "[", 
      RowBox[{"q1", ",", "q2"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{"qs_List", ",", "qsp_List"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qs"}], "]"}], "-", 
    RowBox[{"Apply", "[", 
     RowBox[{"EJ", ",", "qsp"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6550696750750895`*^9, 3.6550696826227255`*^9}, {
   3.6550697470555115`*^9, 3.6550697498133335`*^9}, {3.655069876288066*^9, 
   3.655069878947955*^9}, {3.655070642336279*^9, 3.655070659576951*^9}, {
   3.6550706914867463`*^9, 3.655070709748979*^9}, {3.65507078073528*^9, 
   3.6550707817855825`*^9}, {3.6550708895691853`*^9, 3.655070892816818*^9}, {
   3.6550712601005554`*^9, 3.6550713575079193`*^9}, {3.6550713956419926`*^9, 
   3.6550713971162367`*^9}, {3.6550717748266225`*^9, 3.655071790766389*^9}, {
   3.655071831461693*^9, 3.6550718340329623`*^9}, {3.6550719248638744`*^9, 
   3.6550721068605003`*^9}, 3.655072294994533*^9, {3.655101297877698*^9, 
   3.655101311964918*^9}, {3.65510137302813*^9, 3.655101373731824*^9}, {
   3.655102042161619*^9, 3.655102058356732*^9}, {3.655102120759037*^9, 
   3.655102159333015*^9}, 3.655102231362866*^9, {3.6551023716977453`*^9, 
   3.655102404978917*^9}, {3.655111736415852*^9, 3.65511173834723*^9}, 
   3.655114303149646*^9, {3.6551143446095*^9, 3.6551143739946404`*^9}, 
   3.655114558796715*^9, 3.655114641286297*^9, 3.655114706528673*^9, 
   3.6551147472828903`*^9, {3.6552254284901543`*^9, 3.655225627475766*^9}, {
   3.6552261667368593`*^9, 3.655226239065181*^9}, {3.65522630049087*^9, 
   3.655226331514995*^9}, 3.6557070982208433`*^9, {3.655903686287665*^9, 
   3.655903695449815*^9}, 3.656101479132228*^9, 3.6561053753531504`*^9, 
   3.65610540844421*^9, 3.6561054954362698`*^9, 3.656325127664817*^9, 
   3.656325227898436*^9, 3.656327772048275*^9, 3.656327826281097*^9, {
   3.659087578581188*^9, 3.659087597089748*^9}, 3.659089716624366*^9, 
   3.659089841824958*^9, {3.659179901105564*^9, 3.65917991189954*^9}, {
   3.659179951864579*^9, 3.6591799583586483`*^9}, {3.6597017158535023`*^9, 
   3.659701716115049*^9}, {3.6638436653526573`*^9, 3.663843671717197*^9}, {
   3.66384383852041*^9, 3.663843958013785*^9}, {3.663843996071191*^9, 
   3.663843996306547*^9}, 3.663844061130589*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]M", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"qu", ",", 
       RowBox[{"-", "qd"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "qd"}], ",", "qd"}], "}"}]}], "]"}], "//", "Simplify"}], "//",
   "N"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"0.7978845608028654`", " ", "qd", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1.`"}], " ", "qd"}], "+", "qu"}], ")"}], " ", "T"}], 
    SqrtBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", "T"}]]], 
   "+", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      SuperscriptBox["m2", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"1.`", " ", "S"}]}], ")"}], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
        "T"}]]}]], 
    RowBox[{"0.4244131815783876`", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"m1", "+", "m2"}], ")"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1.`", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "7.8748049728612095`"}], " ", 
               SuperscriptBox["a", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["m1", "2"], "-", 
                 RowBox[{"1.`", " ", "m1", " ", "m2"}], "+", 
                 SuperscriptBox["m2", "2"]}], ")"}], " ", "T"}], "-", 
              RowBox[{"7.8748049728612095`", " ", 
               SuperscriptBox["m2", "2"], " ", 
               SuperscriptBox["S", "2"], " ", "T"}], "-", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["m1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"7.8748049728612095`", " ", 
                  SuperscriptBox["S", "2"], " ", "T"}], "-", 
                 RowBox[{"12.`", " ", "m2", " ", 
                  SuperscriptBox["qd", "2"], " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}], "+", 
                 RowBox[{"18.84955592153876`", " ", "m2", " ", "S", " ", 
                  SqrtBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
              RowBox[{"m1", " ", "m2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"3.141592653589793`", " ", "S", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "-", 
                    
                    RowBox[{"6.`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
                 RowBox[{"6.`", " ", 
                  SuperscriptBox["qd", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "+", 
                    
                    RowBox[{"2.`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}], "+", 
              RowBox[{"3.5449077018110318`", " ", "a", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4.442882938158366`", " ", 
                  SuperscriptBox["m2", "2"], " ", "S", " ", "T"}], "+", 
                 RowBox[{"m1", " ", "m2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "4.242640687119286`"}], " ", 
                    SuperscriptBox["qd", "2"], " ", "T"}], "-", 
                    RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                    RowBox[{"5.317361552716548`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["m1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                    RowBox[{"5.317361552716548`", " ", "m2", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"8.`", " ", "m1", " ", 
              RowBox[{"(", 
               RowBox[{"m1", "+", "m2"}], ")"}], " ", 
              SuperscriptBox["qd", "2"]}], "+", 
             FractionBox[
              RowBox[{"2.0943951023931953`", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["m1", "3"], "+", 
                 SuperscriptBox["m2", "3"]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], "m2"], "+", 
             FractionBox[
              RowBox[{"5.0132565492620005`", " ", 
               SuperscriptBox["m1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"m1", "+", "m2"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                "T"}]]], "+", 
             FractionBox[
              RowBox[{"5.0132565492620005`", " ", "m1", " ", "m2", " ", 
               RowBox[{"(", 
                RowBox[{"m1", "+", "m2"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"a", "-", 
                 RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
              SqrtBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                "T"}]]]}], ")"}], "2"]}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1.`", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"7.8748049728612095`", " ", 
             SuperscriptBox["a", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["m1", "2"], "-", 
               RowBox[{"1.`", " ", "m1", " ", "m2"}], "+", 
               SuperscriptBox["m2", "2"]}], ")"}], " ", "T"}], "+", 
            RowBox[{"7.8748049728612095`", " ", 
             SuperscriptBox["m2", "2"], " ", 
             SuperscriptBox["S", "2"], " ", "T"}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"7.8748049728612095`", " ", 
                SuperscriptBox["S", "2"], " ", "T"}], "-", 
               RowBox[{"12.`", " ", "m2", " ", "qd", " ", "qu", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                  "T"}]]}], "+", 
               RowBox[{"18.84955592153876`", " ", "m2", " ", "S", " ", 
                SqrtBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                  "T"}]]}]}], ")"}]}], "-", 
            RowBox[{"1.`", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3.141592653589793`", " ", "S", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "-", 
                  RowBox[{"6.`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
               RowBox[{"6.`", " ", "qd", " ", "qu", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2.5066282746310002`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"2.`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{"3.5449077018110318`", " ", "a", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"4.442882938158366`", " ", 
                SuperscriptBox["m2", "2"], " ", "S", " ", "T"}], "+", 
               RowBox[{"m1", " ", "m2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "4.242640687119286`"}], " ", "qd", " ", "qu", 
                   " ", "T"}], "-", 
                  RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"5.317361552716548`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["m1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4.442882938158366`", " ", "S", " ", "T"}], "+", 
                  RowBox[{"5.317361552716548`", " ", "m2", " ", 
                   SqrtBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
                    "T"}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"8.`", " ", "m1", " ", 
            RowBox[{"(", 
             RowBox[{"m1", "+", "m2"}], ")"}], " ", "qd", " ", "qu"}], "+", 
           FractionBox[
            RowBox[{"2.0943951023931953`", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["m1", "3"], "+", 
               SuperscriptBox["m2", "3"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], "m2"], "+", 
           FractionBox[
            RowBox[{"5.0132565492620005`", " ", 
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"m1", "+", "m2"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
              "T"}]]], "+", 
           FractionBox[
            RowBox[{"5.0132565492620005`", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{"m1", "+", "m2"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"a", "-", 
               RowBox[{"1.`", " ", "S"}]}], ")"}]}], 
            SqrtBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1.`"}], " ", "a"}], "+", "S"}], ")"}], " ", 
              "T"}]]]}], ")"}], "2"]}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"j", "+", "0.`"}], ")"}], "2"]}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      RowBox[{"j", "+", "0.`"}], "]"}], "3"],
    SeriesData[$CellContext`j, 0., {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`j, 
   0., {(((0.7978845608028654 $CellContext`qd) (-$CellContext`qd + \
$CellContext`qu)) $CellContext`T) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[-1, 2], 
    0., ((((0.4244131815783876 $CellContext`m2^(-2)) ($CellContext`m1 + \
$CellContext`m2)^4)/($CellContext`a - 
      1. $CellContext`S)) ((-$CellContext`a + $CellContext`S) $CellContext`T)^
      Rational[-1, 
        2]) (((-1) (((
            8. $CellContext`m1) ($CellContext`m1 + $CellContext`m2)) \
$CellContext`qd^2 + ((
            2.0943951023931953`/$CellContext`m2) ($CellContext`m1^3 + \
$CellContext`m2^3)) ($CellContext`a - 
           1. $CellContext`S) + (((
             5.0132565492620005` $CellContext`m1^2) ($CellContext`m1 + \
$CellContext`m2)) ($CellContext`a - 
            1. $CellContext`S)) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^
           Rational[-1, 
             2] + ((((
              5.0132565492620005` $CellContext`m1) $CellContext`m2) \
($CellContext`m1 + $CellContext`m2)) ($CellContext`a - 
            1. $CellContext`S)) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^
           Rational[-1, 
             2])^(-2)) ((((-7.8748049728612095`) $CellContext`a^2) \
($CellContext`m1^2 - (
           1. $CellContext`m1) $CellContext`m2 + $CellContext`m2^2)) \
$CellContext`T - ((
         7.8748049728612095` $CellContext`m2^2) $CellContext`S^2) \
$CellContext`T - (
        1. $CellContext`m1^2) ((
          7.8748049728612095` $CellContext`S^2) $CellContext`T - ((
          12. $CellContext`m2) $CellContext`qd^2) ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^
         Rational[
          1, 2] + ((
           18.84955592153876 $CellContext`m2) $CellContext`S) \
((-$CellContext`a + $CellContext`S) $CellContext`T)^
          Rational[1, 2]) + ($CellContext`m1 $CellContext`m2) ((
           3.141592653589793 $CellContext`S) ((
             2.5066282746310002` $CellContext`S) $CellContext`T - (
            6. $CellContext`m2) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2]) + (
           6. $CellContext`qd^2) ((
             2.5066282746310002` $CellContext`S) $CellContext`T + (
             2. $CellContext`m2) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2])) + (
         3.5449077018110318` $CellContext`a) (((
            4.442882938158366 $CellContext`m2^2) $CellContext`S) \
$CellContext`T + ($CellContext`m1 $CellContext`m2) (((-4.242640687119286) \
$CellContext`qd^2) $CellContext`T - (
            4.442882938158366 $CellContext`S) $CellContext`T + (
             5.317361552716548 $CellContext`m2) ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]) + $CellContext`m1^2 ((
             4.442882938158366 $CellContext`S) $CellContext`T + (
             
             5.317361552716548 $CellContext`m2) ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]))) - (
      1. ((((8. $CellContext`m1) ($CellContext`m1 + $CellContext`m2)) \
$CellContext`qd) $CellContext`qu + ((
           2.0943951023931953`/$CellContext`m2) ($CellContext`m1^3 + \
$CellContext`m2^3)) ($CellContext`a - 
          1. $CellContext`S) + (((
            5.0132565492620005` $CellContext`m1^2) ($CellContext`m1 + \
$CellContext`m2)) ($CellContext`a - 
           1. $CellContext`S)) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^
          Rational[-1, 
            2] + ((((
             5.0132565492620005` $CellContext`m1) $CellContext`m2) \
($CellContext`m1 + $CellContext`m2)) ($CellContext`a - 
           1. $CellContext`S)) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[-1, 2])^(-2)) (((
         7.8748049728612095` $CellContext`a^2) ($CellContext`m1^2 - (
          1. $CellContext`m1) $CellContext`m2 + $CellContext`m2^2)) \
$CellContext`T + ((
         7.8748049728612095` $CellContext`m2^2) $CellContext`S^2) \
$CellContext`T + $CellContext`m1^2 ((
          7.8748049728612095` $CellContext`S^2) $CellContext`T - (((
           12. $CellContext`m2) $CellContext`qd) $CellContext`qu) \
((-$CellContext`a + $CellContext`S) $CellContext`T)^
         Rational[
          1, 2] + ((
           18.84955592153876 $CellContext`m2) $CellContext`S) \
((-$CellContext`a + $CellContext`S) $CellContext`T)^Rational[1, 2]) - ((
        1. $CellContext`m1) $CellContext`m2) ((
         3.141592653589793 $CellContext`S) ((
           2.5066282746310002` $CellContext`S) $CellContext`T - (
          6. $CellContext`m2) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2]) + ((
          6. $CellContext`qd) $CellContext`qu) ((
           2.5066282746310002` $CellContext`S) $CellContext`T + (
           2. $CellContext`m2) ((-$CellContext`a + $CellContext`S) \
$CellContext`T)^Rational[1, 2])) - (
       3.5449077018110318` $CellContext`a) (((
          4.442882938158366 $CellContext`m2^2) $CellContext`S) $CellContext`T + \
($CellContext`m1 $CellContext`m2) ((((-4.242640687119286) $CellContext`qd) \
$CellContext`qu) $CellContext`T - (
          4.442882938158366 $CellContext`S) $CellContext`T + (
           5.317361552716548 $CellContext`m2) ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]) + $CellContext`m1^2 ((
           4.442882938158366 $CellContext`S) $CellContext`T + (
           5.317361552716548 $CellContext`m2) ((-$CellContext`a + \
$CellContext`S) $CellContext`T)^Rational[1, 2]))))}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.663844031077641*^9, 3.6638447447075357`*^9, 
  3.6638448037770147`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]]
},
WindowSize->{958, 988},
WindowMargins->{{Automatic, -7}, {Automatic, 0}},
DockedCells->FEPrivate`FrontEndResource[
 "NotebookTemplatingExpressions", "AuthoringDockedCell"],
TaggingRules->{"NotebookTemplateVersion" -> 1., "NotebookTemplate" -> True},
CellContext->Notebook,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 101, 1, 101, "Title"],
Cell[684, 25, 326, 6, 49, "Text"],
Cell[CellGroupData[{
Cell[1035, 35, 277, 3, 72, "Chapter"],
Cell[1315, 40, 823, 20, 99, "Text"],
Cell[CellGroupData[{
Cell[2163, 64, 89, 1, 70, "Section"],
Cell[2255, 67, 20969, 403, 640, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23261, 475, 147, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[23433, 481, 218, 3, 49, "Subsection"],
Cell[23654, 486, 4741, 157, 412, "Text"],
Cell[28398, 645, 1472, 47, 99, "Input"],
Cell[29873, 694, 2736, 68, 122, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32646, 767, 160, 2, 49, "Subsection"],
Cell[CellGroupData[{
Cell[32831, 773, 14223, 315, 547, "Input"],
Cell[47057, 1090, 3179, 73, 253, "Output"],
Cell[50239, 1165, 3695, 106, 374, "Output"],
Cell[53937, 1273, 19597, 376, 279, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73571, 1654, 154, 2, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[73750, 1660, 3683, 68, 116, "Input"],
Cell[77436, 1730, 1361, 34, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[78846, 1770, 208, 3, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[79079, 1777, 3764, 70, 96, "Input"],
Cell[82846, 1849, 1410, 35, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[84305, 1890, 204, 3, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[84534, 1897, 3644, 68, 96, "Input"],
Cell[88181, 1967, 1411, 33, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[89641, 2006, 146, 2, 33, "Subsubsection"],
Cell[CellGroupData[{
Cell[89812, 2012, 2490, 63, 92, "Input"],
Cell[92305, 2077, 89339, 1677, 70, "Output"]
}, Open  ]],
Cell[181659, 3757, 551, 16, 33, "Text"],
Cell[CellGroupData[{
Cell[182235, 3777, 186, 4, 31, "Input"],
Cell[182424, 3783, 187, 3, 70, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[182672, 3793, 148, 2, 49, "Subsection"],
Cell[182823, 3797, 373, 10, 77, "Text"],
Cell[CellGroupData[{
Cell[183221, 3811, 1657, 36, 143, "Input"],
Cell[184881, 3849, 2786, 55, 244, "Output"],
Cell[187670, 3906, 2771, 55, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190478, 3966, 3782, 89, 433, "Input"],
Cell[194263, 4057, 850, 24, 242, "Output"]
}, Open  ]],
Cell[195128, 4084, 508, 8, 77, "Text"],
Cell[CellGroupData[{
Cell[195661, 4096, 6871, 180, 750, "Input"],
Cell[202535, 4278, 10315, 187, 250, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212887, 4470, 1367, 39, 99, "Input"],
Cell[214257, 4511, 4136, 79, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218430, 4595, 1480, 41, 90, "Input"],
Cell[219913, 4638, 2659, 53, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222609, 4696, 428, 11, 46, "Input"],
Cell[223040, 4709, 137, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223214, 4716, 423, 11, 46, "Input"],
Cell[223640, 4729, 185, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223862, 4736, 501, 12, 46, "Input"],
Cell[224366, 4750, 253, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224656, 4758, 363, 10, 46, "Input"],
Cell[225022, 4770, 110, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[225169, 4776, 142, 3, 46, "Input"],
Cell[225314, 4781, 113, 1, 31, "Output"]
}, Open  ]],
Cell[225442, 4785, 1467, 36, 163, "Text"],
Cell[CellGroupData[{
Cell[226934, 4825, 1936, 52, 102, "Input"],
Cell[228873, 4879, 337, 7, 31, "Output"],
Cell[229213, 4888, 1678, 49, 94, "Output"]
}, Open  ]],
Cell[230906, 4940, 116, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[231047, 4945, 293, 5, 46, "Input"],
Cell[231343, 4952, 217, 3, 31, "Output"]
}, Open  ]],
Cell[231575, 4958, 238, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[231838, 4966, 1537, 42, 68, "Input"],
Cell[233378, 5010, 335, 8, 31, "Output"]
}, Open  ]],
Cell[233728, 5021, 224, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[233977, 5029, 269, 5, 52, "Input"],
Cell[234249, 5036, 240, 4, 31, "Output"],
Cell[234492, 5042, 172, 2, 31, "Output"]
}, Open  ]],
Cell[234679, 5047, 893, 17, 68, "Text"],
Cell[CellGroupData[{
Cell[235597, 5068, 720, 19, 52, "Input"],
Cell[236320, 5089, 1721, 42, 95, "Output"],
Cell[238044, 5133, 1724, 42, 95, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239805, 5180, 671, 19, 55, "Input"],
Cell[240479, 5201, 288, 7, 32, "Output"],
Cell[240770, 5210, 286, 7, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241093, 5222, 780, 20, 55, "Input"],
Cell[241876, 5244, 216, 6, 32, "Output"],
Cell[242095, 5252, 213, 6, 32, "Output"]
}, Open  ]],
Cell[242323, 5261, 271, 6, 33, "Text"],
Cell[CellGroupData[{
Cell[242619, 5271, 823, 20, 55, "Input"],
Cell[243445, 5293, 213, 6, 32, "Output"],
Cell[243661, 5301, 214, 6, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243912, 5312, 1999, 39, 62, "Input"],
Cell[245914, 5353, 396, 7, 32, "Output"],
Cell[246313, 5362, 419, 7, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246769, 5374, 316, 8, 37, "Input"],
Cell[247088, 5384, 141, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247266, 5391, 334, 8, 32, "Input"],
Cell[247603, 5401, 235, 4, 32, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[247923, 5414, 170, 2, 101, "Title"],
Cell[CellGroupData[{
Cell[248118, 5420, 285, 4, 72, "Chapter"],
Cell[248406, 5426, 19133, 361, 992, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[267576, 5792, 197, 3, 61, "Chapter"],
Cell[267776, 5797, 69352, 1406, 4746, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[337165, 7208, 243, 3, 61, "Chapter"],
Cell[CellGroupData[{
Cell[337433, 7215, 1020, 28, 82, "Input"],
Cell[338456, 7245, 4216, 79, 242, "Output"],
Cell[342675, 7326, 7968, 141, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[350680, 7472, 1873, 47, 156, "Input"],
Cell[352556, 7521, 26882, 510, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[379475, 8036, 2078, 46, 183, "Input"],
Cell[381556, 8084, 57797, 1016, 217, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[439390, 9105, 407, 9, 46, "Input"],
Cell[439800, 9116, 193, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[440030, 9123, 324, 5, 31, "Input"],
Cell[440357, 9130, 321, 4, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[440715, 9139, 231, 4, 31, "Input"],
Cell[440949, 9145, 157, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[441143, 9152, 228, 5, 31, "Input"],
Cell[441374, 9159, 213, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[441624, 9167, 202, 4, 31, "Input"],
Cell[441829, 9173, 162, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442028, 9180, 247, 4, 31, "Input"],
Cell[442278, 9186, 207, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442522, 9194, 173, 3, 31, "Input"],
Cell[442698, 9199, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442824, 9205, 147, 3, 31, "Input"],
Cell[442974, 9210, 88, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443099, 9216, 383, 10, 48, "Input"],
Cell[443485, 9228, 158, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443680, 9236, 411, 10, 48, "Input"],
Cell[444094, 9248, 130, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[444261, 9255, 487, 11, 46, "Input"],
Cell[444751, 9268, 258, 6, 31, "Output"]
}, Open  ]],
Cell[445024, 9277, 177, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[445226, 9285, 755, 20, 48, "Input"],
Cell[445984, 9307, 197, 5, 31, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[446242, 9319, 144, 2, 101, "Title"],
Cell[446389, 9323, 531, 16, 38, "Text"],
Cell[CellGroupData[{
Cell[446945, 9343, 89, 1, 67, "Section"],
Cell[447037, 9346, 18224, 335, 479, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[465310, 9687, 221, 3, 130, "Title"],
Cell[465534, 9692, 410, 7, 49, "Text"],
Cell[465947, 9701, 3981, 124, 224, "Input"],
Cell[CellGroupData[{
Cell[469953, 9829, 817, 21, 36, "Input"],
Cell[470773, 9852, 1750, 52, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472560, 9909, 708, 18, 46, "Input"],
Cell[473271, 9929, 1397, 40, 72, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[474717, 9975, 224, 3, 130, "Title"],
Cell[CellGroupData[{
Cell[474966, 9982, 102, 1, 49, "Subsection"],
Cell[475071, 9985, 6286, 149, 238, "Input"],
Cell[481360, 10136, 7658, 190, 232, "Input"],
Cell[CellGroupData[{
Cell[489043, 10330, 481, 14, 31, "Input"],
Cell[489527, 10346, 1912, 55, 78, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[491488, 10407, 154, 2, 49, "Subsection"],
Cell[491645, 10411, 5071, 113, 179, "Input"],
Cell[496719, 10526, 7035, 173, 215, "Input"],
Cell[CellGroupData[{
Cell[503779, 10703, 309, 11, 31, "Input"],
Cell[504091, 10716, 18225, 428, 334, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[522377, 11151, 321, 4, 130, "Title"],
Cell[CellGroupData[{
Cell[522723, 11159, 102, 1, 49, "Subsection"],
Cell[522828, 11162, 6286, 149, 238, "Input"],
Cell[529117, 11313, 7658, 190, 232, "Input"],
Cell[CellGroupData[{
Cell[536800, 11507, 481, 14, 31, "Input"],
Cell[537284, 11523, 1937, 55, 78, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[539270, 11584, 154, 2, 49, "Subsection"],
Cell[539427, 11588, 5071, 113, 179, "Input"],
Cell[544501, 11703, 7035, 173, 215, "Input"],
Cell[CellGroupData[{
Cell[551561, 11880, 309, 11, 31, "Input"],
Cell[551873, 11893, 18670, 442, 334, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}
]
*)

(* End of internal cache information *)