Examples.nb

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    555805,      13228]
NotebookOptionsPosition[    520801,      12656]
NotebookOutlinePosition[    521202,      12672]
CellTagsIndexPosition[    521159,      12669]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["cLTD", "Title",
 CellChangeTimes->{{3.82826856417216*^9, 
  3.82826857230681*^9}},ExpressionUUID->"21d467fe-03ba-4e66-90af-\
d7f0a68ee984"],

Cell["\<\
Authors: Z. Capatti, V. Hirschi, D. Kermanschah, A. Pelloni, B. Ruijl\
\>", "Author",
 CellChangeTimes->{{3.8282685758743*^9, 
  3.8282686054803753`*^9}},ExpressionUUID->"eb661486-10be-4e87-ae95-\
cea275226d15"],

Cell[CellGroupData[{

Cell["Options", "Section",
 CellChangeTimes->{{3.828268703998055*^9, 3.8282687046609573`*^9}, {
  3.875113692481497*^9, 
  3.8751136933729057`*^9}},ExpressionUUID->"a1d3ca7e-36da-4345-9a8d-\
0a6a0b08e56a"],

Cell[TextData[{
 StyleBox["loopmom:",
  FontWeight->"Bold"],
 " (default: {k0,k1,k2,k3})\[LineSeparator]\tdefines the set of variable to \
be identified as loop momenta in the input expression"
}], "Item",
 CellChangeTimes->{{3.8282688914111967`*^9, 3.828268906143909*^9}, {
   3.828269740232575*^9, 3.8282698301892843`*^9}, 
   3.8282698651086397`*^9},ExpressionUUID->"83b0c639-b88a-4856-9120-\
e18bddd62c4d"],

Cell[TextData[{
 StyleBox["FORMpath: ",
  FontWeight->"Bold"],
 "(default: form)",
 "\[LineSeparator]\tdefines the path to the binary \
\[OpenCurlyDoubleQuote]form\[CloseCurlyDoubleQuote]. By default it will \
assume that can be found in $PATH"
}], "Item",
 CellChangeTimes->{{3.8282688914111967`*^9, 3.828268906143909*^9}, {
  3.828269740232575*^9, 3.828269798269023*^9}, {3.828269836512508*^9, 
  3.828269887293963*^9}, {3.828269950373304*^9, 3.828270026334041*^9}, {
  3.828270591837612*^9, 
  3.828270703566584*^9}},ExpressionUUID->"d204f369-ed29-41f8-90b4-\
85d7df6c6136"],

Cell[TextData[{
 " ",
 StyleBox["tFORMpath: ",
  FontWeight->"Bold"],
 "(default: tform)\[LineSeparator]\tdefines the path to the binary \
\[OpenCurlyDoubleQuote]tform\[CloseCurlyDoubleQuote]. By default it will \
assume that can be found in $PATH"
}], "Item",
 CellChangeTimes->{{3.8282688914111967`*^9, 3.828268906143909*^9}, {
  3.828269740232575*^9, 3.828269777852605*^9}, {3.828269939053316*^9, 
  3.828269948325873*^9}, {3.828270712770877*^9, 
  3.82827071472653*^9}},ExpressionUUID->"be8dc5d4-edc2-42b1-b92b-\
b9030d920e24"],

Cell[TextData[{
 StyleBox["WorkingDirectory",
  FontWeight->"Bold"],
 ": (default: NotebookDirecotry[])\[LineSeparator]\tdirectory where to create \
the temporary FORM scripts. "
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.828270735407668*^9}, {
   3.828270773336941*^9, 3.828270807630372*^9}, {3.828270839749435*^9, 
   3.828270893434886*^9}, {3.828271007308218*^9, 
   3.828271048820629*^9}},ExpressionUUID->"8816f6da-d884-40f6-9f39-\
0a58d4c8cb73"],

Cell[TextData[{
 StyleBox["FORM_ID",
  FontWeight->"Bold"],
 ": (default: None)\[LineSeparator]\tThe temporary FORM files are named ",
 StyleBox["cLTD_<FORM_ID>.frm",
  FontSlant->"Italic"],
 " and ",
 StyleBox["cLTD_<FORM_ID>.out\[LineSeparator]\t",
  FontSlant->"Italic"],
 "By default this ID is made out of random letters, one can set it to \
something specific by setting this option.\[LineSeparator]\tThis is \
particularly useful together with ",
 StyleBox["keep_FORM_script->True.",
  FontSlant->"Italic"]
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.828270738303838*^9}, {
   3.828270787796386*^9, 3.828270805841702*^9}, {3.828271055366325*^9, 
   3.828271243605935*^9}},ExpressionUUID->"4bf64e9f-f3f4-4d23-9093-\
5b5f71e272e6"],

Cell[TextData[{
 StyleBox["FORMcores",
  FontWeight->"Bold"],
 ": (default: 1)\[LineSeparator]\tNumber of cores to use when running FORM. \
\[LineSeparator]\tWhen more than one core is selected then \
\[OpenCurlyDoubleQuote]tform\[CloseCurlyDoubleQuote] is used"
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.828270740330076*^9}, {
   3.8282707899460897`*^9, 3.828270805165688*^9}, {3.828271247171268*^9, 
   3.828271311756681*^9}},ExpressionUUID->"df1c12bf-bba1-4329-80bc-\
e230b4b8638e"],

Cell[TextData[{
 StyleBox["keep_FORM_script",
  FontWeight->"Bold"],
 ": (default: False)\[LineSeparator]\tDon\[CloseCurlyQuote]t eliminate the \
temporary files generated by the function call."
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.828270747398761*^9}, {
   3.82827079173457*^9, 3.82827080441184*^9}, {3.828271314379431*^9, 
   3.82827134963733*^9}},ExpressionUUID->"ee2eb488-b864-4877-b43e-\
82b5e9c86963"],

Cell[TextData[{
 StyleBox["EvalAll",
  FontWeight->"Bold"],
 ": (default: False)\[LineSeparator]\tReplace ",
 StyleBox["cLTDnorm",
  FontSlant->"Italic"],
 " and ",
 StyleBox["den ",
  FontSlant->"Italic"],
 "in the output with their expressions."
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.828270749321015*^9}, {
   3.828270793737351*^9, 3.828270803827009*^9}, {3.8282713527874928`*^9, 
   3.828271394739003*^9}},ExpressionUUID->"d7722ebe-7a40-47e7-bb62-\
46985b22a797"],

Cell[TextData[{
 StyleBox["NoNumerator",
  FontWeight->"Bold"],
 ": (default: False)\[LineSeparator]\tWhen the expression has no numerator \
this option can be set to ",
 StyleBox["True.",
  FontSlant->"Italic"],
 "\[LineSeparator]\tAvoiding the expensive generation of the numerator \
mappings will speed up the evaluation."
}], "Item",
 CellChangeTimes->{
  3.8282688914111967`*^9, {3.828270729973206*^9, 3.8282707517138166`*^9}, {
   3.828270795353326*^9, 3.828270803038868*^9}, {3.828271398035317*^9, 
   3.828271459280854*^9}},ExpressionUUID->"1e24c2e4-ae8d-4c67-a30b-\
5969962eadf5"]
}, Closed]],

Cell[CellGroupData[{

Cell["Import cLTD", "Section",
 CellChangeTimes->{{3.82585436434343*^9, 
  3.825854370283738*^9}},ExpressionUUID->"ce38a057-a7e1-4045-9994-\
3f859c3a23ec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Needs", "[", 
   RowBox[{"\"\<cLTD`\>\"", ",", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<cLTD.m\>\""}]}], 
   "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.825418134577724*^9, 3.8254181764024267`*^9}, 
   3.8282685991831627`*^9, 3.8282687601735973`*^9, {3.828271540204217*^9, 
   3.828271607658907*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"acb9a596-ee97-4590-b7c4-c2b0d41d4245"],

Cell[CellGroupData[{

Cell[BoxData["\<\" :::::::::::::::::::::::: cLTD \
::::::::::::::::::::::::\"\>"], "Print",
 CellChangeTimes->{3.828271608340901*^9, 3.828271672093289*^9, 
  3.8286001953846397`*^9, 3.875113699752543*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"f5e24435-3b62-48b8-a86b-772786f192da"],

Cell[BoxData["\<\"Authors: Z. Capatti, V. Hirschi, D. Kermanschah, A. \
Pelloni, B. Ruijl\"\>"], "Print",
 CellChangeTimes->{3.828271608340901*^9, 3.828271672093289*^9, 
  3.8286001953846397`*^9, 3.875113699753553*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"5b78bdf7-dfd0-4622-9587-9aa2e9b82559"],

Cell[BoxData["\<\"\\tA Mathematica front end for cLTD \
[arxiv:2009.05509].\\n\"\>"], "Print",
 CellChangeTimes->{3.828271608340901*^9, 3.828271672093289*^9, 
  3.8286001953846397`*^9, 3.875113699758559*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"856b8148-d862-4573-bf2a-d2929be44eba"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FORMPATH", "=", "\"\<form\>\""}], ";", 
  RowBox[{
  "(*", "\"\<<PASTE_HERE_YOUR_FULL_FORM_PATH_HERE_INSTEAD>\>\"", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8751139127823353`*^9, 
  3.875113928551588*^9}},ExpressionUUID->"1b31a025-dd42-44be-843a-\
4f49d44a837e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"cLTD", ",", "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<WorkingDirectory\>\"", "\[Rule]", "\"\<./\>\""}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<FORMpath\>\"", "\[Rule]", "FORMPATH"}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<FORM_ID\>\"", "\[Rule]", "1"}]}], "]"}], "//", 
  "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"GeneratecLTDExpression", ",", "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<WorkingDirectory\>\"", "\[Rule]", "\"\<./\>\""}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<FORMpath\>\"", "\[Rule]", "FORMPATH"}], ",", 
    "\[IndentingNewLine]", "\t", 
    RowBox[{"\"\<FORM_ID\>\"", "\[Rule]", "1"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.82541821166378*^9, 3.825418218267729*^9}, {
   3.8254182539075527`*^9, 3.825418277879786*^9}, {3.8254192578974323`*^9, 
   3.825419268471599*^9}, 3.825419316715571*^9, {3.8254198989968147`*^9, 
   3.825419903280259*^9}, {3.825420107531386*^9, 3.825420107590117*^9}, {
   3.8256537159214077`*^9, 3.825653723954835*^9}, {3.825934166642424*^9, 
   3.8259341880377207`*^9}, {3.828271622406794*^9, 3.828271638405302*^9}, {
   3.875113412326015*^9, 3.875113435915677*^9}, 3.875113746849855*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"9a5250f8-638b-48b3-bbd5-38aa922787ea"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\<\"loopmom\"\>", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"k0", ",", "k1", ",", "k2", ",", "k3"}], "}"}]}]},
     {
      RowBox[{"\<\"FORMpath\"\>", 
       "\[Rule]", "\<\"/Users/vjhirsch/HEP_programs/form/bin/form\"\>"}]},
     {
      RowBox[{"\<\"tFORMpath\"\>", "\[Rule]", "\<\"tform\"\>"}]},
     {
      RowBox[{"\<\"WorkingDirectory\"\>", "\[Rule]", "\<\"./\"\>"}]},
     {
      RowBox[{"\<\"FORM_ID\"\>", "\[Rule]", "1"}]},
     {
      RowBox[{"\<\"FORMcores\"\>", "\[Rule]", "1"}]},
     {
      RowBox[{"\<\"OptimizationLVL\"\>", "\[Rule]", "0"}]},
     {
      RowBox[{"\<\"keep_FORM_script\"\>", "\[Rule]", "False"}]},
     {
      RowBox[{"\<\"EvalAll\"\>", "\[Rule]", "False"}]},
     {
      RowBox[{"\<\"NoNumerator\"\>", "\[Rule]", "False"}]},
     {
      RowBox[{"\<\"FORMsubs\"\>", "\[Rule]", "False"}]},
     {
      RowBox[{"\<\"stdLTD\"\>", "\[Rule]", "False"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.875113436131226*^9, 3.875113699926382*^9, 
  3.8751137528489122`*^9},
 CellLabel->
  "Out[22]//TableForm=",ExpressionUUID->"41f7cac3-656d-422e-9311-\
92c0d8cf7511"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Examples", "Section",
 CellChangeTimes->{{3.828268718071437*^9, 3.828268719691947*^9}, {
  3.8282715113904047`*^9, 
  3.828271513876156*^9}},ExpressionUUID->"ec751510-76d9-44ee-8131-\
2d2c6bfd8492"],

Cell[CellGroupData[{

Cell["Bubble", "Subsection",
 CellChangeTimes->{{3.825854296966948*^9, 
  3.825854297799335*^9}},ExpressionUUID->"8fd7fa78-4e11-4316-be94-\
1245d0a157f7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cBubble", "=", 
   RowBox[{"cLTD", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"k", "-", "p1"}], ",", "0"}], "]"}], 
      RowBox[{"prop", "[", 
       RowBox[{"k", ",", "0"}], "]"}]}], ",", 
     RowBox[{"\"\<loopmom\>\"", "\[Rule]", 
      RowBox[{"{", "k", "}"}]}], ",", 
     RowBox[{"\"\<EvalAll\>\"", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"cBubble", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", 
   RowBox[{"TableForm", "[", 
    RowBox[{"cBubble", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.825418178758009*^9, 3.825418200917926*^9}, {
   3.825420147916568*^9, 3.8254201636986923`*^9}, {3.825420351635754*^9, 
   3.825420415853977*^9}, {3.825420473770108*^9, 3.8254204856534357`*^9}, {
   3.825420530842451*^9, 3.825420534588768*^9}, 3.825420641504406*^9, {
   3.825420897454576*^9, 3.825420903314839*^9}, {3.825420963166778*^9, 
   3.825421003810567*^9}, {3.825650649722951*^9, 3.82565066420146*^9}, 
   3.8256506984400377`*^9, {3.825650888099845*^9, 3.825650914899129*^9}, {
   3.8256513389046173`*^9, 3.825651354829267*^9}, {3.825651646189217*^9, 
   3.825651666496472*^9}, {3.82565267128216*^9, 3.825652671358039*^9}, {
   3.825670134642324*^9, 3.825670174422022*^9}, {3.825670260660406*^9, 
   3.825670412951641*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"476e50c1-5fe3-4d96-8598-bae9ea02ce04"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox["1", 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]]}], ")"}]}], 
     RowBox[{"4", " ", "E0", " ", "E1"}]]}], ",", 
   TagBox[
    TagBox[GridBox[{
       {
        RowBox[{"E0", "\[Rule]", 
         SqrtBox[
          RowBox[{"k", ".", "k"}]]}]},
       {
        RowBox[{"E1", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p1"}]}], "+", 
           RowBox[{"p1", ".", "p1"}]}]]}]}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     Column],
    Function[BoxForm`e$, 
     TableForm[BoxForm`e$]]]}], "}"}]], "Output",
 CellChangeTimes->{{3.825651355696693*^9, 3.825651373320828*^9}, 
   3.82565140423877*^9, {3.825651639219049*^9, 3.82565166706467*^9}, 
   3.8256519873684807`*^9, 3.825652067076682*^9, 3.825652482252355*^9, {
   3.8256526647452908`*^9, 3.8256526718173323`*^9}, {3.8256700438006477`*^9, 
   3.8256700486371717`*^9}, {3.825670151850314*^9, 3.825670174882997*^9}, {
   3.8256702611456423`*^9, 3.825670380581765*^9}, 3.825670417205811*^9, 
   3.828271689686715*^9, 3.875113702936309*^9, {3.875113756254705*^9, 
   3.875113760188364*^9}},
 CellLabel->"Out[27]=",ExpressionUUID->"805fd3ae-1250-4ac8-8b5e-bc12df04ab4c"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["One-Loop Photon Self Energy", "Subsection",
 CellChangeTimes->{{3.825854296966948*^9, 3.825854307204185*^9}, {
  3.825934493927886*^9, 
  3.825934506314026*^9}},ExpressionUUID->"c534b9ad-1563-415f-85aa-\
4498a43f981a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"One", "-", 
    RowBox[{"loop", " ", "photon", " ", "self", " ", "energy"}]}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"numerator", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"k", ",", "p1"}], "]"}]}], "+", 
      RowBox[{"4", "*", 
       RowBox[{"m", "^", "2"}]}], "+", 
      RowBox[{"8", "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"pol", ",", "k"}], "]"}], "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"cpol", ",", "k"}], "]"}]}], "+", 
      RowBox[{"4", "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"pol", ",", "p1"}], "]"}], "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"cpol", ",", "k"}], "]"}]}], "+", 
      RowBox[{"4", "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"pol", ",", "k"}], "]"}], "*", 
       RowBox[{"SP4", "[", 
        RowBox[{"cpol", ",", "p1"}], "]"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"props", "=", 
     RowBox[{
      RowBox[{"prop", "[", 
       RowBox[{"k", ",", "m"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"k", "+", "p1"}], ",", "m"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Get", " ", "the", " ", "cLTD", " ", "expression"}], "*)"}], "\n", 
   RowBox[{"cPhotonSelf", "=", 
    RowBox[{"cLTD", "[", 
     RowBox[{
      RowBox[{"numerator", "*", "props"}], ",", 
      RowBox[{"loopmom", "\[Rule]", 
       RowBox[{"{", "k", "}"}]}], ",", 
      RowBox[{"\"\<EvalAll\>\"", "\[Rule]", "True"}]}], "]"}]}]}]}]], "Input",\

 CellChangeTimes->{{3.8259344813698063`*^9, 3.8259344813938932`*^9}, {
  3.8259345326529408`*^9, 3.8259345757816963`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"d25d4d16-26e9-479b-8b73-a808c0c41c4e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"4", " ", "E0", " ", "E1"}]], 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"cpol", "[", "0", "]"}], " ", 
         RowBox[{"k", ".", "pol"}]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"cpol", "[", "0", "]"}], " ", 
         RowBox[{"p1", ".", "pol"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox["m", "2"]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"k", ".", "p1"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"8", " ", "E1", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"8", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "p1"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "E1", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"p1", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"p1", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        RowBox[{"4", " ", 
         RowBox[{"p1", "[", "0", "]"}]}], "-", 
        FractionBox[
         RowBox[{"4", " ", "E1", " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"k", ".", "pol"}], " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"p1", ".", "pol"}], " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"p1", "[", "0", "]"}], "2"]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          SuperscriptBox["m", "2"]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"k", ".", "p1"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"8", " ", "E0", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"8", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "p1"}], " ", 
          RowBox[{"k", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "E0", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"p1", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"p1", ".", "pol"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "E0", " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"k", ".", "pol"}], " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        RowBox[{"8", " ", "E0", " ", 
         RowBox[{"cpol", "[", "0", "]"}], " ", 
         RowBox[{"pol", "[", "0", "]"}]}], "-", 
        RowBox[{"8", " ", "E1", " ", 
         RowBox[{"cpol", "[", "0", "]"}], " ", 
         RowBox[{"pol", "[", "0", "]"}]}], "+", 
        RowBox[{"8", " ", 
         RowBox[{"cpol", ".", "k"}], " ", 
         RowBox[{"pol", "[", "0", "]"}]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"cpol", ".", "p1"}], " ", 
         RowBox[{"pol", "[", "0", "]"}]}], "+", 
        FractionBox[
         RowBox[{"8", " ", 
          SuperscriptBox["E1", "2"], " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"8", " ", "E1", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "E1", " ", 
          RowBox[{"cpol", ".", "p1"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"8", " ", "E1", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"p1", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"p1", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "p1"}], " ", 
          RowBox[{"p1", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"8", " ", 
          SuperscriptBox["E0", "2"], " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"8", " ", "E0", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", "E0", " ", 
          RowBox[{"cpol", ".", "p1"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"8", " ", "E0", " ", 
          RowBox[{"cpol", "[", "0", "]"}], " ", 
          RowBox[{"p1", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"cpol", ".", "k"}], " ", 
          RowBox[{"p1", "[", "0", "]"}], " ", 
          RowBox[{"pol", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}]}]]}], ")"}]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E0", "\[Rule]", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["m", "2"], "+", 
        RowBox[{"k", ".", "k"}]}]]}], ",", 
     RowBox[{"E1", "\[Rule]", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["m", "2"], "+", 
        RowBox[{"k", ".", "k"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"k", ".", "p1"}]}], "+", 
        RowBox[{"p1", ".", "p1"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8259345695984573`*^9, 3.8259345762837763`*^9}, 
   3.828271697801099*^9, 3.8751137036044693`*^9, 3.875113760417693*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"cee3631f-91a1-4281-97f7-281be1b6283c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"numerator", " ", "=", " ", 
   RowBox[{"SP4", "[", 
    RowBox[{"p", ",", "k"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"propagators", " ", "=", " ", 
   RowBox[{
    RowBox[{"prop", "[", 
     RowBox[{
      RowBox[{"k", "-", "p1"}], ",", "0"}], "]"}], 
    RowBox[{"prop", "[", 
     RowBox[{
      RowBox[{"k", "-", "w2"}], ",", "0"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"cLTD", "[", 
  RowBox[{
   RowBox[{"numerator", " ", "*", " ", "propagators"}], " ", ",", 
   RowBox[{"\"\<loopmom\>\"", "\[Rule]", 
    RowBox[{"{", "k", "}"}]}], ",", 
   RowBox[{"\"\<EvalAll\>\"", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.825418178758009*^9, 3.825418200917926*^9}, {
   3.825420147916568*^9, 3.8254201636986923`*^9}, {3.825420351635754*^9, 
   3.825420415853977*^9}, {3.825420473770108*^9, 3.8254204856534357`*^9}, {
   3.825420530842451*^9, 3.825420534588768*^9}, 3.825420641504406*^9, {
   3.825420897454576*^9, 3.825420903314839*^9}, {3.825420963166778*^9, 
   3.825421003810567*^9}, {3.825650649722951*^9, 3.82565066420146*^9}, 
   3.8256506984400377`*^9, {3.825650888099845*^9, 3.825650914899129*^9}, {
   3.8256513389046173`*^9, 3.825651354829267*^9}, {3.825651646189217*^9, 
   3.825651666496472*^9}, {3.82565267128216*^9, 3.825652671358039*^9}, {
   3.82567047174572*^9, 3.8256705258717833`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"c34cfe15-2996-4d45-8db7-97e5d0b53a96"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"p", "[", "0", "]"}]}], "-", 
        FractionBox[
         RowBox[{"k", ".", "p"}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}], "-", 
          RowBox[{"w2", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"E0", " ", 
          RowBox[{"p", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}], "-", 
          RowBox[{"w2", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"p", "[", "0", "]"}], " ", 
          RowBox[{"p1", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "+", 
          RowBox[{"p1", "[", "0", "]"}], "-", 
          RowBox[{"w2", "[", "0", "]"}]}]], "-", 
        FractionBox[
         RowBox[{"k", ".", "p"}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}], "+", 
          RowBox[{"w2", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{"E1", " ", 
          RowBox[{"p", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}], "+", 
          RowBox[{"w2", "[", "0", "]"}]}]], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"p", "[", "0", "]"}], " ", 
          RowBox[{"w2", "[", "0", "]"}]}], 
         RowBox[{"E0", "+", "E1", "-", 
          RowBox[{"p1", "[", "0", "]"}], "+", 
          RowBox[{"w2", "[", "0", "]"}]}]]}], ")"}]}], 
     RowBox[{"4", " ", "E0", " ", "E1"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E0", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k", ".", "k"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k", ".", "p1"}]}], "+", 
        RowBox[{"p1", ".", "p1"}]}]]}], ",", 
     RowBox[{"E1", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k", ".", "k"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k", ".", "w2"}]}], "+", 
        RowBox[{"w2", ".", "w2"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.825651355696693*^9, 3.825651373320828*^9}, 
   3.82565140423877*^9, {3.825651639219049*^9, 3.82565166706467*^9}, 
   3.8256519873684807`*^9, 3.825652067076682*^9, 3.825652482252355*^9, {
   3.8256526647452908`*^9, 3.8256526718173323`*^9}, {3.8256700438006477`*^9, 
   3.8256700486371717`*^9}, {3.8256705217823877`*^9, 3.8256705268402987`*^9}, 
   3.8282716980361567`*^9, 3.875113704057177*^9, 3.87511376053964*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"4c37b33f-cf33-44e3-8fa1-26e31705f5e1"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Decagon", "Subsection",
 CellChangeTimes->{{3.825854296966948*^9, 
  3.825854319927404*^9}},ExpressionUUID->"9d710606-e1e3-4475-b2d4-\
1e23f96252a1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Total Time: \>\"", ",", 
    RowBox[{
     RowBox[{"Timing", "[", 
      RowBox[{
       RowBox[{"cDecagon", " ", "=", " ", 
        RowBox[{"cLTD", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p1"}], ",", "0"}], "]"}], 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p2"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p3"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p4"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p5"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p6"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p7"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p8"}], ",", "0"}], "]"}], 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p9"}], ",", "0"}], "]"}], " ", 
           RowBox[{"prop", "[", 
            RowBox[{
             RowBox[{"k", "-", "p10"}], ",", "0"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"\"\<loopmom\>\"", "\[Rule]", 
           RowBox[{"{", "k", "}"}]}], ",", 
          RowBox[{"\"\<EvalAll\>\"", "\[Rule]", "True"}]}], "]"}]}], ";"}], 
      "\[IndentingNewLine]", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<# terms:\\t\>\"", ",", 
    RowBox[{"Length", "[", 
     RowBox[{"Expand", "[", 
      RowBox[{"cDecagon", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<Energies:\\t\>\"", ",", 
    RowBox[{"TableForm", "[", 
     RowBox[{"cDecagon", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.825652726597097*^9, 3.825652788830508*^9}, {
   3.8256528236717377`*^9, 3.825652826681685*^9}, 3.825670558326589*^9, {
   3.825670588877838*^9, 3.825670624438859*^9}, {3.825670667526112*^9, 
   3.825670667974894*^9}, {3.8256707059470882`*^9, 3.825670886088356*^9}, {
   3.825670948660389*^9, 3.82567099372213*^9}, {3.825934418060027*^9, 
   3.8259344181230717`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"36b29b1a-d57a-49d3-b216-10bdc45b714a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total Time: \"\>", "\[InvisibleSpace]", "17.118492`"}],
  SequenceForm["Total Time: ", 17.118492],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8256707428594913`*^9, 3.825670797795395*^9}, {
   3.825670831397574*^9, 3.825670857175177*^9}, 3.825670937701459*^9, 
   3.825671046307706*^9, 3.8751137046543293`*^9, 3.875113794589231*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"ee5b16e4-6562-4f35-a24f-ac53ffd9f2eb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"# terms:\\t\"\>", "\[InvisibleSpace]", "48620"}],
  SequenceForm["# terms:\t", 48620],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8256707428594913`*^9, 3.825670797795395*^9}, {
   3.825670831397574*^9, 3.825670857175177*^9}, 3.825670937701459*^9, 
   3.825671046307706*^9, 3.8751137046543293`*^9, 3.875113798257052*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"d96f3dc0-5a08-40a7-9b85-2a14bd74503f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Energies:\\t\"\>", "\[InvisibleSpace]", 
   TagBox[
    TagBox[GridBox[{
       {
        RowBox[{"E0", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p1"}]}], "+", 
           RowBox[{"p1", ".", "p1"}]}]]}]},
       {
        RowBox[{"E1", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p10"}]}], "+", 
           RowBox[{"p10", ".", "p10"}]}]]}]},
       {
        RowBox[{"E2", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p2"}]}], "+", 
           RowBox[{"p2", ".", "p2"}]}]]}]},
       {
        RowBox[{"E3", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p3"}]}], "+", 
           RowBox[{"p3", ".", "p3"}]}]]}]},
       {
        RowBox[{"E4", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p4"}]}], "+", 
           RowBox[{"p4", ".", "p4"}]}]]}]},
       {
        RowBox[{"E5", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p5"}]}], "+", 
           RowBox[{"p5", ".", "p5"}]}]]}]},
       {
        RowBox[{"E6", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p6"}]}], "+", 
           RowBox[{"p6", ".", "p6"}]}]]}]},
       {
        RowBox[{"E7", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p7"}]}], "+", 
           RowBox[{"p7", ".", "p7"}]}]]}]},
       {
        RowBox[{"E8", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p8"}]}], "+", 
           RowBox[{"p8", ".", "p8"}]}]]}]},
       {
        RowBox[{"E9", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p9"}]}], "+", 
           RowBox[{"p9", ".", "p9"}]}]]}]}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     Column],
    Function[BoxForm`e$, 
     TableForm[BoxForm`e$]]]}],
  SequenceForm["Energies:\t", 
   TableForm[{$CellContext`E0 -> (Dot[$CellContext`k, $CellContext`k] - 2 
       Dot[$CellContext`k, $CellContext`p1] + 
       Dot[$CellContext`p1, $CellContext`p1])^
      Rational[1, 2], $CellContext`E1 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p10] + 
       Dot[$CellContext`p10, $CellContext`p10])^
      Rational[1, 2], $CellContext`E2 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p2] + 
       Dot[$CellContext`p2, $CellContext`p2])^
      Rational[1, 2], $CellContext`E3 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p3] + 
       Dot[$CellContext`p3, $CellContext`p3])^
      Rational[1, 2], $CellContext`E4 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p4] + 
       Dot[$CellContext`p4, $CellContext`p4])^Rational[1, 2], $CellContext`E5 -> 
     (Dot[$CellContext`k, $CellContext`k] - 2 
       Dot[$CellContext`k, $CellContext`p5] + 
       Dot[$CellContext`p5, $CellContext`p5])^
      Rational[1, 2], $CellContext`E6 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p6] + 
       Dot[$CellContext`p6, $CellContext`p6])^
      Rational[1, 2], $CellContext`E7 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p7] + 
       Dot[$CellContext`p7, $CellContext`p7])^
      Rational[1, 2], $CellContext`E8 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p8] + 
       Dot[$CellContext`p8, $CellContext`p8])^
      Rational[1, 2], $CellContext`E9 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p9] + 
       Dot[$CellContext`p9, $CellContext`p9])^Rational[1, 2]}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8256707428594913`*^9, 3.825670797795395*^9}, {
   3.825670831397574*^9, 3.825670857175177*^9}, 3.825670937701459*^9, 
   3.825671046307706*^9, 3.8751137046543293`*^9, 3.87511379826066*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"f771c30b-1fd5-4b4e-8e71-8d7822f3fdca"]
}, Open  ]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.825671061533752*^9, 3.825671061996903*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"bc426203-5e9b-42b1-aa4d-1bb939348ee9"]
}, Closed]],

Cell[CellGroupData[{

Cell["Double Box", "Subsection",
 CellChangeTimes->{{3.825854296966948*^9, 
  3.8258543330230217`*^9}},ExpressionUUID->"c5293757-484e-486a-b6e5-\
8982937f1c45"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Doube", " ", "box"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"expr", "=", 
     RowBox[{
      RowBox[{"prop", "[", 
       RowBox[{"k", ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"k", "-", "p1"}], ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"k", "+", "p2"}], ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"k", "-", "l"}], ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"l", "+", "p2"}], ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"l", "+", "p2", "+", "p3"}], ",", "0"}], "]"}], "*", 
      RowBox[{"prop", "[", 
       RowBox[{
        RowBox[{"l", "-", "p1"}], ",", "0"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{"(*", 
    RowBox[{"Get", " ", "the", " ", "cLTD", " ", "expression"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Total Time: \>\"", ",", 
      RowBox[{
       RowBox[{"Timing", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"cDoubleBox", "=", 
          RowBox[{"cLTD", "[", 
           RowBox[{"expr", ",", 
            RowBox[{"loopmom", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"k", ",", "l"}], "}"}]}]}], "]"}]}], ";"}], 
        "\[IndentingNewLine]", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<# terms:\\t\>\"", ",", 
      RowBox[{"Length", "[", 
       RowBox[{"Expand", "[", 
        RowBox[{"cDoubleBox", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Energies:\\t\>\"", ",", 
      RowBox[{"TableForm", "[", 
       RowBox[{"cDoubleBox", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.825934343836547*^9, 3.8259343913658667`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"a601860f-3df4-44ed-abad-242f92d65009"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total Time: \"\>", "\[InvisibleSpace]", "0.427601`"}],
  SequenceForm["Total Time: ", 0.427601],
  Editable->False]], "Print",
 CellChangeTimes->{3.8259344073714523`*^9, 3.875113705061913*^9, 
  3.875113798633979*^9},
 CellLabel->
  "During evaluation of \
In[38]:=",ExpressionUUID->"f2228c21-86db-4705-a29d-6eaf50bffb4f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"# terms:\\t\"\>", "\[InvisibleSpace]", "252"}],
  SequenceForm["# terms:\t", 252],
  Editable->False]], "Print",
 CellChangeTimes->{3.8259344073714523`*^9, 3.875113705061913*^9, 
  3.8751137986358013`*^9},
 CellLabel->
  "During evaluation of \
In[38]:=",ExpressionUUID->"cd087a1d-b27f-411b-9c7d-ab0d9a9a517e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Energies:\\t\"\>", "\[InvisibleSpace]", 
   TagBox[
    TagBox[GridBox[{
       {
        RowBox[{"E0", "\[Rule]", 
         SqrtBox[
          RowBox[{"k", ".", "k"}]]}]},
       {
        RowBox[{"E1", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "l"}]}], "+", 
           RowBox[{"l", ".", "l"}]}]]}]},
       {
        RowBox[{"E2", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p1"}]}], "+", 
           RowBox[{"p1", ".", "p1"}]}]]}]},
       {
        RowBox[{"E3", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"l", ".", "l"}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"l", ".", "p1"}]}], "+", 
           RowBox[{"p1", ".", "p1"}]}]]}]},
       {
        RowBox[{"E4", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"k", ".", "k"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"k", ".", "p2"}]}], "+", 
           RowBox[{"p2", ".", "p2"}]}]]}]},
       {
        RowBox[{"E5", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"l", ".", "l"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"l", ".", "p2"}]}], "+", 
           RowBox[{"p2", ".", "p2"}]}]]}]},
       {
        RowBox[{"E6", "\[Rule]", 
         SqrtBox[
          RowBox[{
           RowBox[{"l", ".", "l"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"l", ".", "p2"}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"l", ".", "p3"}]}], "+", 
           RowBox[{"p2", ".", "p2"}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"p2", ".", "p3"}]}], "+", 
           RowBox[{"p3", ".", "p3"}]}]]}]}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.5599999999999999]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     Column],
    Function[BoxForm`e$, 
     TableForm[BoxForm`e$]]]}],
  SequenceForm["Energies:\t", 
   TableForm[{$CellContext`E0 -> 
     Dot[$CellContext`k, $CellContext`k]^
      Rational[1, 2], $CellContext`E1 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`l] + 
       Dot[$CellContext`l, $CellContext`l])^
      Rational[1, 2], $CellContext`E2 -> (Dot[$CellContext`k, $CellContext`k] - 
       2 Dot[$CellContext`k, $CellContext`p1] + 
       Dot[$CellContext`p1, $CellContext`p1])^
      Rational[1, 2], $CellContext`E3 -> (Dot[$CellContext`l, $CellContext`l] - 
       2 Dot[$CellContext`l, $CellContext`p1] + 
       Dot[$CellContext`p1, $CellContext`p1])^
      Rational[1, 2], $CellContext`E4 -> (Dot[$CellContext`k, $CellContext`k] + 
       2 Dot[$CellContext`k, $CellContext`p2] + 
       Dot[$CellContext`p2, $CellContext`p2])^
      Rational[1, 2], $CellContext`E5 -> (Dot[$CellContext`l, $CellContext`l] + 
       2 Dot[$CellContext`l, $CellContext`p2] + 
       Dot[$CellContext`p2, $CellContext`p2])^
      Rational[1, 2], $CellContext`E6 -> (Dot[$CellContext`l, $CellContext`l] + 
       2 Dot[$CellContext`l, $CellContext`p2] + 
       2 Dot[$CellContext`l, $CellContext`p3] + 
       Dot[$CellContext`p2, $CellContext`p2] + 
       2 Dot[$CellContext`p2, $CellContext`p3] + 
       Dot[$CellContext`p3, $CellContext`p3])^Rational[1, 2]}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8259344073714523`*^9, 3.875113705061913*^9, 
  3.875113798637928*^9},
 CellLabel->
  "During evaluation of \
In[38]:=",ExpressionUUID->"9c243e7d-a699-47c5-8646-57518836da74"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.828271709802128*^9, 3.8282717113024073`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"dbe9483a-cfba-4943-8db4-98cb1b8d4775"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Evaluation", "Section",
 CellChangeTimes->{{3.828268718071437*^9, 3.828268719691947*^9}, {
  3.8282715113904047`*^9, 3.828271513876156*^9}, {3.82841486763338*^9, 
  3.828414868885252*^9}},ExpressionUUID->"ff73407d-2ea2-4b4d-a2cf-\
1bbfce80f098"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "As", " ", "example", " ", "we", " ", "consider", " ", "the", " ", "2", 
    "x2", " ", "Fishnet", " ", "topology"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"loopmomenta", "=", 
     RowBox[{"{", 
      RowBox[{"l1", ",", "l2", ",", "l3", ",", "l4"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"propagators", "=", 
     RowBox[{"{", 
      RowBox[{"l1", ",", 
       RowBox[{"l1", "-", 
        RowBox[{"p", "[", "1", "]"}]}], ",", 
       RowBox[{"l1", "+", "l2", "+", 
        RowBox[{"p", "[", "7", "]"}], "+", 
        RowBox[{"p", "[", "9", "]"}]}], ",", 
       RowBox[{"l2", "-", 
        RowBox[{"p", "[", "3", "]"}]}], ",", "l2", ",", 
       RowBox[{"l1", "-", "l3"}], ",", "l3", ",", 
       RowBox[{"l2", "-", "l4"}], ",", 
       RowBox[{"l3", "+", "l4", "+", 
        RowBox[{"p", "[", "7", "]"}], "+", 
        RowBox[{"p", "[", "9", "]"}]}], ",", "l4", ",", 
       RowBox[{"l3", "+", 
        RowBox[{"p", "[", "7", "]"}]}], ",", 
       RowBox[{"l4", "+", 
        RowBox[{"p", "[", "9", "]"}]}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"expr", "=", 
    RowBox[{"Times", "@@", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"prop", "[", 
         RowBox[{"#", ",", "0"}], "]"}], "&"}], ",", "propagators"}], 
      "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.828600374428726*^9, 3.828600440841866*^9}, {
  3.828600502532552*^9, 3.828600511659436*^9}, {3.828600691588254*^9, 
  3.828600713770793*^9}, {3.828601755949383*^9, 3.828601784841445*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"9f1c1820-6473-411a-8575-b14889a62391"],

Cell[BoxData[
 RowBox[{
  RowBox[{"prop", "[", 
   RowBox[{"l1", ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{"l2", ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l1", "-", "l3"}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{"l3", ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l2", "-", "l4"}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{"l4", ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l1", "-", 
     RowBox[{"p", "[", "1", "]"}]}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l2", "-", 
     RowBox[{"p", "[", "3", "]"}]}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l3", "+", 
     RowBox[{"p", "[", "7", "]"}]}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l4", "+", 
     RowBox[{"p", "[", "9", "]"}]}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l1", "+", "l2", "+", 
     RowBox[{"p", "[", "7", "]"}], "+", 
     RowBox[{"p", "[", "9", "]"}]}], ",", "0"}], "]"}], " ", 
  RowBox[{"prop", "[", 
   RowBox[{
    RowBox[{"l3", "+", "l4", "+", 
     RowBox[{"p", "[", "7", "]"}], "+", 
     RowBox[{"p", "[", "9", "]"}]}], ",", "0"}], "]"}]}]], "Output",
 CellChangeTimes->{3.828601785229003*^9, 3.8751138160707197`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"279ac8f8-8e35-434b-9bc2-60b1f16ed6ff"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Obtain", " ", "the", " ", "cLTD", " ", "expression"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cLTDexpr", ",", " ", "EnergySubs"}], "}"}], "=", 
    RowBox[{"cLTD", "[", 
     RowBox[{"expr", ",", 
      RowBox[{"\"\<loopmom\>\"", "\[Rule]", "loopmomenta"}], ",", 
      RowBox[{"\"\<NoNumerator\>\"", "\[Rule]", "True"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.82860053889765*^9, 3.828600599904982*^9}, {
  3.8286006392433443`*^9, 3.8286006550223093`*^9}, {3.828600761433249*^9, 
  3.828600764393613*^9}, {3.828601792922617*^9, 3.828601794806525*^9}, {
  3.828602483521474*^9, 3.8286024897136307`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"a8447c37-6868-4dc0-a98b-8fb2b8776570"],

Cell[CellGroupData[{

Cell["Collect by Denominators", "Subsection",
 CellChangeTimes->{{3.828600791769762*^9, 3.828600799769168*^9}, {
  3.8286025923293047`*^9, 
  3.8286026027206078`*^9}},ExpressionUUID->"0ab8b300-e6c3-4ff4-9d7c-\
31a3f9f59a4e"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"ClearAll", "[", "cLTDfastHornerForm", "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cLTDfastHornerForm", "[", "expr_", "]"}], ":=", 
    RowBox[{
     RowBox[{"cLTDfastHornerForm", "[", "expr", "]"}], "=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"newexpr", "=", 
          RowBox[{"expr", "/.", 
           RowBox[{"cLTDnorm", "->", "den"}]}]}], ",", "\[IndentingNewLine]", 
         "densub", ",", "exprdens"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"densub", " ", "=", " ", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"ii", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"ToExpression", "[", 
               RowBox[{"\"\<den\>\"", "<>", 
                RowBox[{"ToString", "[", 
                 RowBox[{"ii", "++"}], "]"}]}], "]"}], "\[Rule]", 
              "denominator"}], ",", 
             RowBox[{"{", 
              RowBox[{"denominator", ",", 
               RowBox[{
                RowBox[{"Cases", "[", 
                 RowBox[{"newexpr", ",", "_den", ",", "Infinity"}], "]"}], "//",
                 "Union"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"exprdens", " ", "=", " ", 
         RowBox[{"newexpr", "/.", 
          RowBox[{"Reverse", "/@", "densub"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"densub", " ", "=", 
         RowBox[{"SortBy", "[", 
          RowBox[{"densub", ",", 
           RowBox[{
            RowBox[{"Count", "[", 
             RowBox[{"exprdens", ",", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "Infinity"}], "]"}], 
            "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"exprdens", "=", 
         RowBox[{"Collect", "[", 
          RowBox[{"exprdens", ",", 
           RowBox[{"First", "/@", "densub"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"exprdens", ",", " ", "densub"}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.82860094459194*^9, 3.828601116812153*^9}, {
  3.828601159398776*^9, 3.828601357815033*^9}, {3.828601388209317*^9, 
  3.828601389094419*^9}, {3.828601447112117*^9, 3.828601448145203*^9}, {
  3.828601481882185*^9, 3.828601505655448*^9}, {3.828601564158881*^9, 
  3.828601565463335*^9}, {3.8286018443929567`*^9, 3.82860184732047*^9}, {
  3.8286019996219683`*^9, 3.828602006576005*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"4d6eb665-e53a-4036-9d61-b7fd2a9d303f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "We", " ", "evaluate", " ", "each", " ", "unique", " ", "denominator", " ",
     "only", " ", "once", " ", "and", " ", "then", " ", "replace", " ", 
    "\[IndentingNewLine]", "that", " ", "value", " ", "into", " ", "the", " ",
     "cLTD", " ", "expression"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"FastEvaluatePrepare", "[", "expr_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{
        RowBox[{"cLTDfastHornerForm", "[", "expr", "]"}], ";"}]}], " ", 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FastEvaluate", "[", 
     RowBox[{"expr_", ",", " ", "energysubs_", ",", "numsubs_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"densub", ",", " ", "exprdens"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"exprdens", ",", "densub"}], "}"}], "=", 
        RowBox[{"cLTDfastHornerForm", "[", "expr", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Block", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{"First", "/@", "densub"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"densub", "/.", 
              RowBox[{
               RowBox[{"den", "[", "a_", "]"}], "\[RuleDelayed]", 
               RowBox[{"1", "/", "a"}]}]}], "/.", 
             RowBox[{"Join", "[", 
              RowBox[{"numsubs", ",", 
               RowBox[{"energysubs", "/.", "numsubs"}]}], "]"}]}], ")"}], "/.", 
           RowBox[{"Rule", "\[Rule]", "Set"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"exprdens", "/.", 
           RowBox[{"Join", "[", 
            RowBox[{"numsubs", ",", 
             RowBox[{"energysubs", "/.", "numsubs"}]}], "]"}]}]}]}], 
        "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.828601858103024*^9, 3.828601968763133*^9}, {
  3.8286020116438503`*^9, 3.8286022187777243`*^9}, {3.8286024184061537`*^9, 
  3.828602462497435*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"dd89d57b-1008-48ed-baec-84b7d43bfd5a"]
}, Closed]],

Cell[CellGroupData[{

Cell["Evaluate", "Subsection",
 CellChangeTimes->{{3.828602608165825*^9, 
  3.828602610157798*^9}},ExpressionUUID->"98ef75bc-2957-4ac1-9edc-\
aecca9678cb7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Random", " ", "evalution", " ", "point"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"SeedRandom", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"numeval16", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"var", "[", "0", "]"}], "\[Rule]", 
           RowBox[{"SetPrecision", "[", 
            RowBox[{
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], ",", "16"}], 
            "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"var", "->", 
           RowBox[{"SetPrecision", "[", 
            RowBox[{
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "3"}], "]"}], 
             ",", "16"}], "]"}]}]}], "}"}], "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"var", ",", 
          RowBox[{"Variables", "[", "propagators", "]"}]}], "}"}]}], "]"}], "/.", 
      RowBox[{
       RowBox[{"Rule", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Alternatives", "@@", "LoopMom"}], ")"}], "[", "0", "]"}], 
         ",", "_"}], "]"}], "\[RuleDelayed]", "Nothing"}]}], "//", 
     "Flatten"}]}]}]}]], "Input",
 CellChangeTimes->{{3.82625717634699*^9, 3.826257281985056*^9}, {
  3.8262574526943274`*^9, 3.826257480323682*^9}, {3.826263377646208*^9, 
  3.8262634040305853`*^9}, {3.8262639071188517`*^9, 3.8262639280296907`*^9}, {
  3.826263995187633*^9, 3.826264035731802*^9}, {3.8262641082168427`*^9, 
  3.8262641103208237`*^9}, {3.82626447063511*^9, 3.8262644708256893`*^9}, {
  3.828601683919475*^9, 3.828601690526272*^9}, {3.828602690706637*^9, 
  3.828602695969592*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"e2fb2800-e689-4b9e-ae5d-ebf55ef18540"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"l1", "[", "0", "]"}], "\[Rule]", 
    "0.63477898034214241818062873790040612221`16."}], ",", 
   RowBox[{"l1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.77716077773752711976840146235190331936`16."}], ",", 
      "0.5790519892677030711070074175950139761`16.", ",", 
      RowBox[{"-", "0.62439370658794723922824232431594282389`16."}]}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"l2", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "0.51727806508469909019254373561125248671`16."}]}], ",", 
   RowBox[{"l2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.86852248098243789442562956537585705519`16."}], ",", 
      "0.08449324101924826635467979940585792065`16.", ",", 
      RowBox[{"-", "0.53769098652794511394859000574797391891`16."}]}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{"l3", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "0.2079878369028258511264084518188610673`16."}]}], ",", 
   RowBox[{"l3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.40094756388448971051730040926486253738`16.", ",", 
      RowBox[{"-", "0.57634804189174504429615808476228266954`16."}], ",", 
      "0.49731376296589591134988950216211378574`16."}], "}"}]}], ",", 
   RowBox[{
    RowBox[{"l4", "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "0.15429870132010226058127955184318125248`16."}]}], ",", 
   RowBox[{"l4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.50501043827198399682743001903872936964`16."}], ",", 
      "0.95434352348155293555009848205372691154`16.", ",", 
      "0.65032587897702764934138031094335019588`16."}], "}"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", "1", "]"}], "[", "0", "]"}], "\[Rule]", 
    "0.85055040235772549905846062756609171629`16."}], ",", 
   RowBox[{
    RowBox[{"p", "[", "1", "]"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.15611230398875841629546812328044325113`16.", ",", 
      RowBox[{"-", "0.41426052640415500505355339555535465479`16."}], ",", 
      RowBox[{"-", "0.58389787043881469230655056890100240707`16."}]}], 
     "}"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", "3", "]"}], "[", "0", "]"}], "\[Rule]", 
    "0.16094896258831736801653278234880417585`16."}], ",", 
   RowBox[{
    RowBox[{"p", "[", "3", "]"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.74235833072312562563865867559798061848`16."}], ",", 
      RowBox[{"-", "0.3871452399307635516834125155583024025`16."}], ",", 
      "0.42402414015155809323687208234332501888`16."}], "}"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", "7", "]"}], "[", "0", "]"}], "\[Rule]", 
    RowBox[{"-", "0.2188362572398516725513673009118065238`16."}]}], ",", 
   RowBox[{
    RowBox[{"p", "[", "7", "]"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.63993447357035915246115109766833484173`16.", ",", 
      RowBox[{"-", "0.34929700400941854354641691315919160843`16."}], ",", 
      "0.18652045501558989215595829591620713472`16."}], "}"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "[", "9", "]"}], "[", "0", "]"}], "\[Rule]", 
    "0.03754833408032709485269151628017425537`16."}], ",", 
   RowBox[{
    RowBox[{"p", "[", "9", "]"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.66197396624450099977821082575246691704`16."}], ",", 
      RowBox[{"-", "0.05486971360712189493824553210288286209`16."}], ",", 
      "0.61432160381449918418184097390621900558`16."}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.826334423888507*^9, 3.826335520854455*^9, 
  3.8272245545291233`*^9, 3.828601803775679*^9, 3.828602698048283*^9, 
  3.87511382815902*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"688e1a67-6549-4109-80c7-555460e9e8ef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Cache", " ", "Horner", " ", "Form"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"FastEvaluatePrepare", "[", "cLTDexpr", "]"}]}]], "Input",
 CellChangeTimes->{{3.828601971990794*^9, 3.8286019804797688`*^9}, {
  3.8286025409773607`*^9, 3.828602572824992*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"f6279b3e-251d-4a93-b9d9-a3f4ab6ba6ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Evaluate", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FastEvaluate", "[", 
    RowBox[{"cLTDexpr", ",", "EnergySubs", ",", "numeval16"}], "]"}], "//", 
   "AbsoluteTiming"}]}]], "Input",
 CellChangeTimes->{{3.8286022309478807`*^9, 3.8286022441288557`*^9}, {
  3.828602384489994*^9, 3.828602387882959*^9}, {3.8286025051254063`*^9, 
  3.828602510637566*^9}, {3.828602703126079*^9, 3.828602707160818*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"fe84a125-bbb4-4c1d-b875-7d43a12da4c0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.038241`", ",", 
   "1.02909289566308153759401918092535`14.419665349498556*^-6"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.828602244553141*^9, 3.828602388499625*^9, {3.8286025175730667`*^9, 
   3.828602537108028*^9}, 3.8286027080968037`*^9, {3.828603303872005*^9, 
   3.828603305786586*^9}, 3.8751138322076893`*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"8d003368-b0c8-4e92-a86a-4cb9880e2c8b"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Precision Plot", "Subsection",
 CellChangeTimes->{{3.8262570344938726`*^9, 3.826257045553177*^9}, {
   3.826257601014517*^9, 3.826257601936987*^9}, {3.8262653391194763`*^9, 
   3.826265341932012*^9}, 
   3.826275234917282*^9},ExpressionUUID->"0d464ef0-0724-4c49-b3c3-\
c7434feaac7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Rescale", " ", "l1"}], " ", "\[Rule]", " ", 
    RowBox[{"\[Lambda]", " ", "l1"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"numeval16\[Lambda]", " ", "=", " ", 
     RowBox[{"numeval16", "/.", 
      RowBox[{
       RowBox[{"Rule", "[", 
        RowBox[{"l1", ",", "v_"}], "]"}], "\[RuleDelayed]", 
       RowBox[{"Rule", "[", 
        RowBox[{"l1", ",", 
         RowBox[{"\[Lambda]", " ", "v"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Eval", " ", "points", " ", "for", " ", "log\[Lambda]", " ", 
     RowBox[{"\[Epsilon]", " ", "[", 
      RowBox[{
       RowBox[{"-", "10"}], ",", "10"}], "]"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numeval16\[Lambda]points", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"log\[Lambda]", ",", 
         RowBox[{"numeval16\[Lambda]", "/.", 
          RowBox[{"{", 
           RowBox[{"\[Lambda]", "\[Rule]", 
            RowBox[{"Exp", "[", "log\[Lambda]", "]"}]}], "}"}]}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"log\[Lambda]", ",", 
         RowBox[{"-", "10"}], ",", "10", ",", 
         RowBox[{"1", "/", "10"}]}], "}"}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.828602819674011*^9, 3.8286030125092497`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"97ed89c6-5b8b-4c87-b6c5-0e96add38287"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.828602811498857*^9, 3.828602812569798*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"15cec3ad-dd82-4f41-86a5-8e6339da0488"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Get", " ", "the", " ", "precision", " ", "of", " ", "the", " ", 
    "expression", " ", "after", " ", "evaluation", " ", 
    RowBox[{"(", 
     RowBox[{"INPUT", " ", "precision", " ", "16", " ", "digits"}], ")"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"cltd\[Lambda]", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"point", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"FastEvaluate", "[", 
           RowBox[{"cLTDexpr", ",", "EnergySubs", ",", 
            RowBox[{"point", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"point", ",", " ", "numeval16\[Lambda]points"}], "}"}]}], 
       "]"}]}], ";"}], "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cltd\[Lambda]Precision", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"point", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Precision", "[", 
          RowBox[{"point", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"point", ",", " ", "cltd\[Lambda]"}], "}"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.826265348213573*^9, 3.826265375513735*^9}, {
   3.826265420075852*^9, 3.826265488352618*^9}, {3.8262655463004932`*^9, 
   3.826265596129291*^9}, {3.826272434830244*^9, 3.826272445326181*^9}, {
   3.826275010382435*^9, 3.826275029603016*^9}, {3.8286027328579397`*^9, 
   3.828602766495296*^9}, 3.828602815164672*^9, {3.828603020096627*^9, 
   3.828603131623111*^9}, {3.8286032144146643`*^9, 3.828603222139751*^9}, {
   3.828603448173603*^9, 3.8286035278990183`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"1866836b-2b5a-4889-a4b6-e003e389311d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"7.866391`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.82860323201477*^9, 3.828603485458664*^9, 
  3.828603526324029*^9, 3.875113840116126*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"6043c10a-8e0c-41a3-a2f1-077cdf16ed93"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Plot", " ", "to", " ", "show", " ", "that", " ", "the", " ", "precision", 
    " ", "is", " ", "stable", " ", "in", " ", "the", " ", "whole", " ", 
    RowBox[{"range", ".", "\[IndentingNewLine]", "The"}], " ", "dip", " ", 
    "is", " ", "an", " ", "artefact", " ", "of", " ", "the", " ", 
    "expression", " ", "going", " ", "to", " ", 
    RowBox[{"zero", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", "cltd\[Lambda]Precision", "}"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", "\"\<cLTD\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Log[\[Lambda]]\>\"", ",", "\"\<Precision (Input 16)\>\""}],
       "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8286031866037817`*^9, 3.828603197271181*^9}, 
   3.82860325084704*^9, {3.828603331338628*^9, 3.8286034116608057`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"607e3d5d-fe22-4812-9fab-15b486901f07"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJxF0gtUVWUWAODLK95wubyf92U4gjeVKELFuyNEI41UDBQTjMF88rIQNJdp
ZCSizhiIIJiok9PcBHVEQOFsAkvzDQoCXhB5JEsCeaiDcHWk2Lt/rbPO2uvs
/e19/v+Xfxy/MFZfJBJdevmMvf9cE/Cn2fO2zk+aDFevjC0lGnSpdfNexrkH
xpYS32n6Yv1YvPKPpUQXr/xr772MX/9jKfHsyRGPsfhPT4kZQw3LQthT4IzP
A3a8y54Cfy/RPzCXPQWmB1f/cw57CrxS3JgQzJ4Cxcsjps5mT45ZtXrX3mFP
jp+ZQ3Age3I82emSBezJMSlJVTKLPTk+ccw9OpM9Ga5Yqls6nT0Z5iui6vzY
k6FXmML4DfZkqN080DuNPRnC0qLtr3G9FFMNPizz4nwpzg/6Ld2T+3mg3qOQ
Ljn7HnhWM+WCG3se+El1l6Mje+44NXbGdTF77hiPQU2m7LnhPyb4eOqz54bm
i8QFw4nkuaHx0A6vR4nkuWLpk10nOxPJc8XCtRKHpkTyXLBeUeB3NZE8F9xr
oO2vZM8FL2lkbkXsOWNdwq/p+ew5Y7/ykOFO9pwwceOLxZ+y54QVJ17MWMae
E25bHLH+bfYcsUT1t/1K9hzx4PktkfrsOWDavoOh2gTyHDDy677h0wnkOeDP
oVnXv0ogzx79pydMW5hAnj3Gxeatckogzw7LmqWFDfHk2aHDm2Xdu+PJs8N5
IWuVAfHk2WJQyn6DtjjybNEwz9MoNY48Cd6s8f/III48Caqajjzcsp48CZqY
ek/sWkeeDfrN9jH0X0eeDdYYttclrSVPjF8VTHLes4Y8MbZqT4amryZPjBpd
+KHwVVRvjRHzmjcMraR8K9Qv3tCzKJb6WeLV3VPFq2LIt8BvftMe91hBngXu
em61L2o5eea4skk3xSySPDOML3D9pP9D8kzx1HaJ9+0F5Jlg38g3m8LfI88E
/e/U/ftBIHnGWLQhZudhP/JewadWGt3gRPKMMDTv7dpeMXmGONBxoWNSj/e4
Z4i/R+2L6vzee9wzwBfZTpUtPV7jnj5Wp3e7+Qx4jXt6+IW1ne1+9B73RFhT
eqI4WUzziVD+1l7TwgCa57nwME1X4hpJ/UeFoRu3N/bF0/wjwrEvBwMTttK8
w8JI/kjIugzy/iccWOWFT78l74kwaGd5q/ogeUNCimds3dwj5A0K08LcI+8e
J69fyL3jVFvxI3mPhF6d/nn3U1TfI3QvlykUJZTfLRyZ1Duru4z6dQnvVq5z
yKggv12Qz8iIcaki757QvDlYfqyG6huFgdVt930vUn6dMJARLL9+mb5fEkpj
Tuz/7DrFZULApuwKzzreP1FRaVx0Sz1/V5d+fnRxdhPXq6f8Z77fnBb21QWN
Ya7dbdxfHb4k4s1PO3k+9Qb5sqi2Bzy/epZ/VpxXD/+f2rj8h+SQPv5/tZFP
e3PAAO+PWuf+caj+Y94/tWzXtTPZT3l/1RNVpaKRYd5/9UKpr97UUT4f9eRf
m97ye87np36W3KqRiFR0vupwTWFFjZ6Kzl/90bCe4QcGKrof6jn513zPGqro
/qhPhc4y0xmp6H6pd2qu+EwwJk8E5VV1QVNMKF8EIwskJTJT8vUgKSey/pkp
1evDz6aVVwQz6mcAqugd2Ynm5BnCmdZ8Y4kFeYYwtLH5cqEFeUZws+Txqlct
yXsFHE/XQ54lecZQaqL81siKPBNwbb2ZFmtFnglESiqdzluRZwqvxchmmlmT
Zwab4x9Uf2BNnjlkpPfG77UmzwKKckZ6LlmTZwEpKf+q11mTZwmaTOOyyWLy
rAC3B0nCxeRZw+OUJ4u2iMkTw7m/r+84xPliOLOiTiqIyRfDi198ljRzvQ2I
/ruieUhM/WygPuN2t7kNeRKovhddJbMhTwKHm7Q5r9uQJ4F0r18OB9mQZwsX
F1aZhNmQZwuWnfZPVrBnB30qxe449uzgjYLy/lT27GCuNG1WGnv2EBIdtCeT
PXtItPAazWLPAVqqLPPy2XOAW+marUfZc4DW5LvnfmDPEewcz0cVs+cI7jJt
6hn2nCB3YI1jOXtOoJo/P6iSPScQ5cwx/4k9Z8iR2idfYM8ZVmduz7zIngvk
d6QtucyeC0wPfL/tKnsusPpAtPcN9lzhcEFBQC17rnDOOtL9FntucGvbyuu3
2XMDeZNrRAN7bmC2b+25O+y5w5qHnaON7LmD1LVG2syeB9gce+R5lz0PaLhr
Za9lzwN2nd7Wo2VPClptYlELe1LwjamLamVPBnh0zYtWzpfBnO4be+6xL4Mf
U1MkbVwvg+6I4vQ27ieDZ999P9jGnhyOZyaE3WdPDp0zDTT32ZPDqDeM3GdP
Dvc2DgS2syeHrK6bX7azp4CGyrTKdvYUUJl0eLCdPQVUy4uVHewpYPCxd2gH
ewpojEpL7mBPCQt8PXI72FOCS1FYeQd7SqhdtqnhL08Ju3sb+//ylBA/XGLa
yd4EqD/yvnQs/j/A0RG9
         "]]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"Log[\[Lambda]]\"", TraditionalForm], 
       FormBox["\"Precision (Input 16)\"", TraditionalForm]}, 
     AxesOrigin -> {0, 13.403063874307371`}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-10., 10.}, {13.403063874307371`, 14.53495118937455}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"cLTD\""}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 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[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                 ",", 
                 
                 TemplateBox[<|
                  "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                  "RGBColorSwatchTemplate"], ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
             "}"}], ",", 
           RowBox[{"{", #, "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"{", 
                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", "False", "}"}]}], ",", 
           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.828603141891142*^9, {3.828603191680983*^9, 3.828603198041149*^9}, {
   3.828603232283984*^9, 3.828603251383634*^9}, 3.828603346869154*^9, 
   3.8286035321508293`*^9, 3.875113840651268*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"3fd5d94e-0ca6-438f-a711-7cca4453498e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "dip", " ", "is", " ", "an", " ", "artefact", " ", "of", " ", 
    "the", " ", "expression", " ", "going", " ", "to", " ", 
    RowBox[{"zero", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", "cltd\[Lambda]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", "\"\<cLTD\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Log[\[Lambda]]\>\"", ",", "\"\<Integrand value\>\""}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.828603359299746*^9, 3.828603363764373*^9}, {
  3.828603538495736*^9, 3.828603604518907*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"b2ee5de0-7eee-4d62-bbc2-74c5c207b444"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJw11wtYTOkbAPDpOpWppts03Wem6KonuXSdOR8RFpG2iOpPpZZYq+vm3oXc
akgltUkRm1pEKvTvvNJKWF0lIt3QlKWb1KN//mvn7XueeeY5z3nf33tmzne+
9zv8wJ1rt8gyGIy6fz7fv6XDDMx1K3nqTB3468n3YQpVDxVeTShqQdbZ78MU
qguM/8x10ICQf4cpPNxtufmuhTrM/XeYwtDGW22y9iyQeqbgw+J+25egjJ4A
5ujO71zFYaIngG0Vn/qde+XRE8Alnp9cwXtZ9ATwqXWKG2Ugg54AQix8HXlj
U7TU40Ok7cLADPlJWurxobdfX6F6wwQt9figOX7WrmFojJZ6fFBf/8o+7f4o
LfX4kPs0+kHMo2H0eDDOldzbLjOEHg90B84uhdqP6PHgbRvvll/7AHo8MIz7
yWvOAgl6PGge+VMQ0/gO803A9FE6xbrci/EmMJA/bh1c0o31jIE65ZMZO9CJ
vjHMWB/LSsjrQM8Yyv4QLafutKNnBA2X/cXlei/QMwKjvYnVdrdb0TMEGHxV
fTq1BT1DYDGCmvzPN6FnCJmFW6NTXzegZwCC8UWB/sefomcA0eWPe50LH6On
D1PeoYs3qNahpw+WiV+9WCUP0NOHiIyFdYtTatDTgxw/tapjudXo6YHCyuVF
/W8APS7sk/WOaE6vQo8LF+ySxKMVd9HjAuNKl3oP/zZ6uvDZSOgwWVeGni64
2980p4pK0eOAuWZHvBBuoMcBqv1DnKp8CXocGBvQr9ndexU9HZg45qpyUrUY
PR3os97tpbO3ED1taPq6YmGM5WX0tOGh1kD9ffUC9LRhqzDHNtvyAnpacMZ7
tbYgPA89LYhYnN3RX5eLnibsWql/STT5G3qa8NLCnqMfmYWeJvieZexjWWei
pwFrR86Z/2CQgZ4GVNgsyDhHpaHHhky51rRNp1PRYwMpa3D7SfMUemxwq5kI
VQsXY746PGsYq1ZQSsZ4NeA3Nc4y6zqG9VSh1rqNXTl+BH0WyM1M/qqxIgk9
FiRGPkqKfXYIvRlwUHZ+8ImMRPRU4KYwqPlESgJ6ykBfz8jjQDx6SuBmUpIR
MicePSU4Fylj+eJjHHpMkNF53WfFjkdPEVSXDB+4VxOPngLkx31jKkYloicP
DSnP/3th7hH05KG//skRyfhJ9OTg2u7u6NC5BejJgrKd4USPcz4l9WRAZspn
T592IiX1GLDs+HqzkbEIChdA2KWcqph2NJSS5k/Rm3O2djmwAzB+kt75npHl
o/0jJa33lX7OdHbQEK9Af4J220GGJp3d0Bun/RVLdxbpu6A3RmdUdK0PtZ+L
3iit7m+V/KOzNXojtPaMZcWn3E3RG6Jnht+VXLcxQG+QFupIPAuZWpj/gTb2
LXbo366C8RK6zDWpL81CFuu9owP2J4r/+n1cJPV76PWM4DNlhwZFUq+TvvMf
BY3zTW9F0vwXtI29Jy8o8BXGN9M/aznsP2/VhOfr6ID0L+W+nQ/w+DbtJCwu
NvOpFE13kGSZ51kDbiXT5ylWu9A0ufTidD51cduJo5PhmdM+Zb5hFU8j/MR0
fWpPo77AyvPg9PVR3MrWuwdjw6evn1pnoCZMKAwW4e+jpuaExY+2+WC+hLrq
wbQijOUi/H8o2TV73lZyXdAbpFxFzswWw9kYP0Qdr6wbZCuZoD9CXa/nhKaE
sTF/lEqmnr155iaD9cYo8cURFzvWsBDvL9U4OG+Dd023EO8/1f9QpLJ2e7MQ
5we1DnoGo+VrhDh/qKYlVfSy5FIhzi8qTpgpDGcWoMcgUenB3hUR6RjPID4/
7LAdbDqEvgyZKPpq+2VmNObLkvRZieXFO0KwnhxxkKRt/PuKD3ry5GaHrZ+4
wx09eRIUamG1SdkBPQVyY05NpcDGHD1FMlvfT5yyVBc9JikJGDJZ7cdET4no
lKjVy4V9ccXnm3QfDmCSyPeu+PwTnRWHM4//+twV1wfyJdZxftCvta64fhDd
InUlp8hyV1xfSLRHuXfU9svosUj9sNvMmM1n0FMlXpN7JGleSeipkdVPlpkb
ucWgp04qJq9w1tmFoscm8+aGuSYYrMN4Nlkwc9vXdvml6LNJlOWQYcaHBZiv
QTzDqld3Nc3CehrEY3ggp6+cg54m0dQ79aIpWxE9TfI57Bvj/v4xF1zfyduX
sVltm9654PpPNp+wV7Jb1OqC/YGI84dbugUPXLB/kANZQxNMuTIX7C/E852f
cWl3AXraxHqS1ThxLx09HaKs3lkpOX8IPR3CyLBpSz0QhR6HROuWi2UDtqDH
IQ4l4r8Xu3qjxyHxtfMqg/WXoKdLjDw8L4WNz0NPl9zyD/EKbDVDj0uy1hTG
rSnVRo9L8uJ8jYSp8uhxye8Kj71tfxl1xv5O9q4LuG7p0euM/Z9UfjyjN8+m
xRn3B+SiweFRT5UaZ9w/kJNUrkVS301n3F+QLydFts8fXEDPgETKd+stKTiN
ngExv7rsUnNCAnqGRGc4WXgoMAI9Q/KUv1HGb2EQeoYksti9yZfnhZ4RWVkb
5XPw2yL0jMiOsNPfGjrs0TP+J342e1WVAD1j8gscOf85RxM9YyJJ/pz/eJ8s
eiZklkPF+3r/YSfc35Hs10d5cqJuJ6nHI5136J4txk1O0ngeUSniXRufuueE
+0dyZ+Ou/rtvSjCfR07GVUmuQZ4T7j/J64qwTy15p9Djk//NULW1TohDj0/C
D7If3QjehR6f5MS5toe5b0aPTxITmD/7WHiixyfMh08Sw1UWoicg2k+6uPDB
Dj0BOZskNqDqeegJiIfvcPSnEjZ6AjI8+75aYxoDPQHZase61xMz6Cj1TMkj
7cch5hs7HaWeKal9Gd+SLWpwlHqmpPdm1UsiAEd8fyBxKUnuHMXrjvh+QYap
7PsOLbnomZGJ5Snv838TO/4fPDV7mQ==
         "]]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"Log[\[Lambda]]\"", TraditionalForm], 
       FormBox["\"Integrand value\"", 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 -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-10., 10.}, {-0.4014792415403209, 0.035605549010227895`}},
      PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"cLTD\""}, "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 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[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                 ",", 
                 
                 TemplateBox[<|
                  "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                  "RGBColorSwatchTemplate"], ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
             "}"}], ",", 
           RowBox[{"{", #, "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"{", 
                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", "False", "}"}]}], ",", 
           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.828603542433029*^9, 3.828603547548586*^9}, {
   3.828603597851569*^9, 3.828603608316094*^9}, 3.875113840719552*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"48e3dac8-cf5c-4c94-a4e9-07f48abaa533"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cross-free Family generation and LTD from graphs", "Section",
 CellChangeTimes->{{3.828268718071437*^9, 3.828268719691947*^9}, {
  3.8282715113904047`*^9, 3.828271513876156*^9}, {3.82841486763338*^9, 
  3.828414868885252*^9}, {3.875113391250238*^9, 3.8751133933075542`*^9}, {
  3.87511344564428*^9, 
  3.8751134603151712`*^9}},ExpressionUUID->"2dfec59b-c7a1-48f0-be58-\
766b3744c448"],

Cell[CellGroupData[{

Cell["Box1L", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872789766163183*^9, 3.872789776950885*^9}, {3.87279690567933*^9, 
  3.8727969077109213`*^9}},ExpressionUUID->"5b5062f0-f550-4176-870d-\
8c85facf6f8c"],

Cell[CellGroupData[{

Cell["no external, no masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 
  3.8727969090820427`*^9}},ExpressionUUID->"4a75ccad-8040-4deb-a267-\
40f7c50b83a0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Box1L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "1", ",", "4"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Box1L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"Box1L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", 
        RowBox[{"3", "->", "0"}], "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", "1", "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.872742741603726*^9, 3.872742775586288*^9}, {
   3.872743362817617*^9, 3.872743387499469*^9}, {3.872743487367777*^9, 
   3.872743524782481*^9}, {3.872743958621933*^9, 3.872743975587399*^9}, {
   3.872744266098577*^9, 3.872744273043355*^9}, {3.872744435398158*^9, 
   3.872744461440112*^9}, {3.872745114500924*^9, 3.8727451300396833`*^9}, {
   3.872745772099901*^9, 3.872745776468544*^9}, 3.872786297553876*^9},
 CellLabel->"In[62]:=",ExpressionUUID->"e48dea79-1e98-4a9c-9268-4aae9b047de0"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 
      4}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}}, 
       Null, {<|"id" -> 1, "sig" -> {{1}, {}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{1}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{1}, {}}, "mass" -> 0|>, <|
        "id" -> 4, "sig" -> {{1}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 600}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[{{-1., 1.0106430996148606`*^-15}, {
          6.049014748177263*^-16, -1.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {-0.4999999999999997, -0.4999999999999995},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{6.049014748177263*^-16, -1.}, {
          1., -1.133107779529596*^-15}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5000000000000003, -0.5000000000000006},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., -1.133107779529596*^-15}, {-7.044813998280222*^-16, 
          1.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.49999999999999967, 0.49999999999999944},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-7.044813998280222*^-16, 1.}, {-1., 
          1.0106430996148606`*^-15}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {-0.5000000000000003, 0.5000000000000006},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{-1., 1.0106430996148606*^-15}, 0.02261146496815286], 
        DiskBox[{6.049014748177263*^-16, -1.}, 0.02261146496815286], 
        DiskBox[{1., -1.133107779529596*^-15}, 0.02261146496815286], 
        DiskBox[{-7.044813998280222*^-16, 1.}, 0.02261146496815286]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->600]], "Output",
 CellChangeTimes->{3.872786297927058*^9, 3.872788767994326*^9, 
  3.872791474830299*^9, 3.872792694740671*^9, 3.872796958353908*^9, 
  3.873624537034066*^9, 3.875111073151277*^9, 3.875111233642089*^9, 
  3.8751113690275908`*^9, 3.875112323176281*^9, 3.875113869201317*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"4e981a97-a92f-40b7-a171-152d8631fc92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Box1Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.872786414205676*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"86e4a968-f357-413f-95be-5a4f2d7a5100"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"k1", "\[Rule]", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "3"], ",", 
     FractionBox["3", "5"], ",", 
     FractionBox["5", "7"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.872791474923687*^9, 
  3.8727926948529167`*^9, 3.872796958422607*^9, 3.873624537137476*^9, 
  3.8751112364511833`*^9, 3.875111372352425*^9, 3.875112325414366*^9, 
  3.875113869279759*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"259d510e-0284-4065-8492-2540aba669fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Box1LcLTDexpr", "=", 
  RowBox[{"GeneratecLTDExpression", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"FORMpath", "->", "FORMPATH"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8751114727879457`*^9, 3.875111482215498*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"67a518d6-3c22-44fa-9176-1862b61fc156"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"5", " ", "\[ImaginaryI]"}], 
    RowBox[{"32", " ", 
     SuperscriptBox["E0", "7"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"E0", "\[Rule]", 
     SqrtBox[
      RowBox[{"k1", ".", "k1"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.872786318624598*^9, 3.8727914751132603`*^9, 3.872792694997361*^9, 
   3.872796958629616*^9, 3.873624537823802*^9, 3.875111238304023*^9, 
   3.875111373855995*^9, 3.875111483320293*^9, {3.8751123272366867`*^9, 
   3.87511233288486*^9}, 3.87511386944219*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"c4143fc9-39d7-4796-ac6e-b70805067138"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EvalcLTD", "[", 
  RowBox[{"Box1LcLTDexpr", ",", "Box1Lnumerics"}], "]"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"6c1a3d36-24f6-4224-bc1b-453ea1417542"],

Cell[BoxData[
 FractionBox[
  RowBox[{"703550211328125", " ", "\[ImaginaryI]"}], 
  RowBox[{"97434946105088", " ", 
   SqrtBox["14494"]}]]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, 
   3.8727914751305933`*^9, 3.872792695049765*^9, 3.8727969586437263`*^9, 
   3.873624537845883*^9, {3.8751123310864143`*^9, 3.875112334198841*^9}, 
   3.8751138694567823`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"e9743a3d-5ef2-4a0d-9ce8-53e5e94ec6da"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"ab03713c-2443-4ccf-a8f2-ed8550806191"],

Cell["Or see the factorised human-readable expression as follows:", "Text",
 CellChangeTimes->{{3.872792674564254*^9, 
  3.872792684783657*^9}},ExpressionUUID->"da30c991-16e6-4809-86b7-\
9de5beee551f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CrossFreeFamilyLTD", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"ConvertToNormalisedFormat", "->", "False"}]}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.872791695444272*^9, 3.872791696922173*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"18d15901-ceeb-4a7e-8640-b2f3c53ebff0"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "False"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "True"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "False", ",", "True", ",", "True"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "False", ",", "True", ",", "False"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "False", ",", "False", ",", "True"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "3", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"True", ",", "False", ",", "False", ",", "False"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "True", ",", "True", ",", "True"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "True", ",", "True", ",", "False"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "2", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "True", ",", "False", ",", "True"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "2", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "True", ",", "False", ",", "False"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "2", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "True", ",", "True"}], "}"}], 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "1", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "3", "]"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "True", ",", "False"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]},
     {
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.87279169384062*^9, 3.872791697337102*^9}, 
   3.872792624607647*^9, {3.872792687452586*^9, 3.872792695133636*^9}, 
   3.872796958706105*^9, 3.873624538053281*^9, 3.875112337787015*^9, 
   3.8751138696356373`*^9},
 CellLabel->
  "Out[68]//MatrixForm=",ExpressionUUID->"7db229f5-4513-49fb-a5d1-\
1ff174881ff0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EvalcFF", "[", 
  RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"04d3f918-7184-45b1-887e-9639b3d52d7d"],

Cell[BoxData[
 FractionBox[
  RowBox[{"703550211328125", " ", "\[ImaginaryI]"}], 
  RowBox[{"97434946105088", " ", 
   SqrtBox["14494"]}]]], "Output",
 CellChangeTimes->{
  3.872787665480044*^9, 3.872787768431295*^9, {3.872787846008459*^9, 
   3.8727878654096518`*^9}, 3.872788136336422*^9, {3.872788195710438*^9, 
   3.8727882327700872`*^9}, 3.872788283527658*^9, 3.872788358324123*^9, 
   3.872788403217894*^9, 3.872788437109745*^9, 3.872788474933714*^9, 
   3.872788515609428*^9, 3.872788557656279*^9, 3.872788674296651*^9, 
   3.872788773453199*^9, 3.872788829062889*^9, {3.872789064064563*^9, 
   3.872789121548465*^9}, {3.8727894993920918`*^9, 3.8727895231079483`*^9}, 
   3.872791475300337*^9, {3.872792689155219*^9, 3.872792695213957*^9}, 
   3.8727969587681637`*^9, 3.873624538186915*^9, 3.875112340654084*^9, 
   3.8751138696476173`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"51170cf0-eae1-439f-b2da-e39d5cfc6186"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["no external, with masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 
  3.872796919378972*^9}},ExpressionUUID->"b7ce27bf-ef8b-4429-a4e9-\
6434979a6aa5"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Box1L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "1", ",", "4"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Box1L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"Box1L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"1", "->", "1"}], ",", 
         RowBox[{"2", "->", "3"}], ",", 
         RowBox[{"3", "->", "5"}], ",", 
         RowBox[{"4", "->", "7"}]}], "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", "1", "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.872742741603726*^9, 3.872742775586288*^9}, {
   3.872743362817617*^9, 3.872743387499469*^9}, {3.872743487367777*^9, 
   3.872743524782481*^9}, {3.872743958621933*^9, 3.872743975587399*^9}, {
   3.872744266098577*^9, 3.872744273043355*^9}, {3.872744435398158*^9, 
   3.872744461440112*^9}, {3.872745114500924*^9, 3.8727451300396833`*^9}, {
   3.872745772099901*^9, 3.872745776468544*^9}, 3.872786297553876*^9, {
   3.872790274917819*^9, 3.872790288925702*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"d7f05fed-fa6f-4208-ae63-cd8eee68bd76"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 
      4}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}}, 
       Null, {<|"id" -> 1, "sig" -> {{1}, {}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{1}, {}}, "mass" -> 3|>, <|
        "id" -> 3, "sig" -> {{1}, {}}, "mass" -> 5|>, <|
        "id" -> 4, "sig" -> {{1}, {}}, "mass" -> 7|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 600}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[{{-1., 1.0106430996148606`*^-15}, {
          6.049014748177263*^-16, -1.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "1"}]}], 
           "\[RightAssociation]"}], {-0.4999999999999997, -0.4999999999999995},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{6.049014748177263*^-16, -1.}, {
          1., -1.133107779529596*^-15}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "3"}]}], 
           "\[RightAssociation]"}], {0.5000000000000003, -0.5000000000000006},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., -1.133107779529596*^-15}, {-7.044813998280222*^-16, 
          1.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "5"}]}], 
           "\[RightAssociation]"}], {0.49999999999999967, 0.49999999999999944},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-7.044813998280222*^-16, 1.}, {-1., 
          1.0106430996148606`*^-15}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "7"}]}], 
           "\[RightAssociation]"}], {-0.5000000000000003, 0.5000000000000006},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{-1., 1.0106430996148606*^-15}, 0.02261146496815286], 
        DiskBox[{6.049014748177263*^-16, -1.}, 0.02261146496815286], 
        DiskBox[{1., -1.133107779529596*^-15}, 0.02261146496815286], 
        DiskBox[{-7.044813998280222*^-16, 1.}, 0.02261146496815286]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->600]], "Output",
 CellChangeTimes->{3.872786297927058*^9, 3.872788767994326*^9, 
  3.872790289504384*^9, 3.8727914965992603`*^9, 3.87279223973836*^9, 
  3.872792644205378*^9, 3.872792710621421*^9, 3.8727938766080017`*^9, 
  3.872796958823574*^9, 3.8736245382700157`*^9, 3.875113869700687*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"13474870-e4bc-42be-8fc0-2dafe71d6ab9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Box1Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.872786414205676*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"822b588a-e298-4320-8171-e4c37843afa3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"k1", "\[Rule]", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["2", "3"], ",", 
     FractionBox["3", "5"], ",", 
     FractionBox["5", "7"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727902920938053`*^9, 
  3.872791496735832*^9, 3.872792645722172*^9, 3.872792710727728*^9, 
  3.8727939012616568`*^9, 3.872796958858275*^9, 3.8736245382834797`*^9, 
  3.875113869710493*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"37673312-60ad-45fa-8e10-21b13c303f47"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Box1LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "Box1L", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
   3.872790298671825*^9, 3.872790311584629*^9}, 3.872791501109455*^9, 
   3.872791590062203*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"193f78c2-2fd5-4d48-af83-12b276fbbfb7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"Box1LcLTDexpr", ",", "Box1Lnumerics"}], "]"}], "//", "N"}], "//",
   "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.87279031615169*^9, 3.872790319619055*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"5e13a472-184c-497c-b61d-29c905369335"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Complex", "[", 
    RowBox[{"0.`", ",", "0.00001429981765142814`"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.8727903137428703`*^9, 3.872790319913768*^9}, {3.872791496943288*^9, 
   3.872791513697809*^9}, 3.8727926500779943`*^9, 3.872792710924418*^9, 
   3.872793902616531*^9, 3.872796959053012*^9, 3.87362453858611*^9, 
   3.875113869865635*^9},
 CellLabel->
  "Out[74]//FullForm=",ExpressionUUID->"5151c50e-423d-48f8-b60e-d9139b309c6b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"6cd9d8cf-84bd-46a9-9e6e-3e0d12451378"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics"}], "]"}], "//",
    "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.87279032481947*^9, 3.872790327755477*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"9af9ec7b-4a47-49e7-a9fc-24d495d7fc11"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Complex", "[", 
    RowBox[{"0.`", ",", "0.00001429981765142814`"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.872787665480044*^9, 3.872787768431295*^9, {3.872787846008459*^9, 
   3.8727878654096518`*^9}, 3.872788136336422*^9, {3.872788195710438*^9, 
   3.8727882327700872`*^9}, 3.872788283527658*^9, 3.872788358324123*^9, 
   3.872788403217894*^9, 3.872788437109745*^9, 3.872788474933714*^9, 
   3.872788515609428*^9, 3.872788557656279*^9, 3.872788674296651*^9, 
   3.872788773453199*^9, 3.872788829062889*^9, {3.872789064064563*^9, 
   3.872789121548465*^9}, {3.8727894993920918`*^9, 3.8727895231079483`*^9}, {
   3.8727903227954903`*^9, 3.8727903279895897`*^9}, {3.872791497115609*^9, 
   3.872791514899329*^9}, 3.8727915552677937`*^9, 3.872792710971843*^9, {
   3.8727938860033503`*^9, 3.8727939039511623`*^9}, 3.872793988537799*^9, 
   3.872796959101974*^9, 3.873624538726293*^9, 3.875113869988449*^9},
 CellLabel->
  "Out[76]//FullForm=",ExpressionUUID->"5f862ee0-7a6e-43c9-be1a-e7168ca79b21"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["with external, with masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 
  3.8727969320330143`*^9}},ExpressionUUID->"f015201d-24dd-4757-9c5d-\
ba1ba52597a6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Box1L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "1", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "2", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"103", ",", "3", ",", "7"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"104", ",", "4", ",", "8"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Box1L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"Box1L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"1", "->", "1"}], ",", 
         RowBox[{"2", "->", "3"}], ",", 
         RowBox[{"3", "->", "5"}], ",", 
         RowBox[{"4", "->", "7"}]}], "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", "1", "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "500"}], ",", 
    RowBox[{"GraphLayout", "->", "\"\<HighDimensionalEmbedding\>\""}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.872742741603726*^9, 3.872742775586288*^9}, {
   3.872743362817617*^9, 3.872743387499469*^9}, {3.872743487367777*^9, 
   3.872743524782481*^9}, {3.872743958621933*^9, 3.872743975587399*^9}, {
   3.872744266098577*^9, 3.872744273043355*^9}, {3.872744435398158*^9, 
   3.872744461440112*^9}, {3.872745114500924*^9, 3.8727451300396833`*^9}, {
   3.872745772099901*^9, 3.872745776468544*^9}, 3.872786297553876*^9, {
   3.872789807179264*^9, 3.8727898494597893`*^9}, {3.8727899530754137`*^9, 
   3.87278998200391*^9}, 3.8727931259976683`*^9, {3.873540208647482*^9, 
   3.873540227015287*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"9653a88e-f88f-4f59-8480-d7ad44e909e6"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 101, 102, 103, 
      104}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 1}, {6, 2}, {7, 3}, {8, 4}},
        Null, {<|"id" -> 1, "sig" -> {{1}, {0, 0, 0, 0}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{1}, {-1, 0, -1, -1}}, "mass" -> 3|>, <|
        "id" -> 3, "sig" -> {{1}, {-1, 0, 0, -1}}, "mass" -> 5|>, <|
        "id" -> 4, "sig" -> {{1}, {-1, 0, 0, 0}}, "mass" -> 7|>, <|
        "id" -> 5, "sig" -> {{0}, {1, 0, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 6, "sig" -> {{0}, {0, 1, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 7, "sig" -> {{0}, {0, 0, 1, 0}}, "mass" -> 0|>, <|
        "id" -> 8, "sig" -> {{0}, {0, 0, 0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, GraphLayout -> "HighDimensionalEmbedding", 
       ImageSize -> 500}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[{{1.700838050813184, 0.4050524444742084}, {
          1.7158296892452092`, 1.7008380508131842`}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "1"}]}], 
           "\[RightAssociation]"}], {1.7083338700291966, 1.0529452476436962}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1.7158296892452092`, 1.7008380508131842`}, {
          0.4200440829062333, 1.7158296892452087`}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0", ",", 
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "3"}]}], 
           "\[RightAssociation]"}], {1.0679368860757212, 1.7083338700291963}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.4200440829062333, 1.7158296892452087`}, {
          0.4050524444742082, 0.4200440829062331}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "5"}]}], 
           "\[RightAssociation]"}], {0.41254826369022074, 1.0679368860757208},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.4050524444742082, 0.4200440829062331}, {
          1.700838050813184, 0.4050524444742084}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "1", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
              "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "7"}]}], 
           "\[RightAssociation]"}], {1.052945247643696, 0.41254826369022074}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.0966251531893536`, 0.}, {1.700838050813184, 
          0.4050524444742084}}, 0.023584798679629065`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "5"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {1.8987316020012688, 0.2025262222371042}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.1208821337194195`, 2.096625153189354}, {
          1.7158296892452092`, 1.7008380508131842`}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "6"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {1.9183559114823143, 1.898731602001269}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.02425698053006542, 2.1208821337194195`}, {
          0.4200440829062333, 1.7158296892452087`}}, 0.023584798679629065`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "7"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.22215053171814936, 1.918355911482314}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 0.02425698053006542}, {0.4050524444742082, 
          0.4200440829062331}}, 0.023584798679629065`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "8"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "0", "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.2025262222371041, 0.22215053171814925},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{1.700838050813184, 0.4050524444742084}, 
         0.023584798679629065], 
        DiskBox[{1.7158296892452092, 1.7008380508131842}, 
         0.023584798679629065], 
        DiskBox[{0.4200440829062333, 1.7158296892452087}, 
         0.023584798679629065], 
        DiskBox[{0.4050524444742082, 0.4200440829062331}, 
         0.023584798679629065], 
        DiskBox[{2.0966251531893536, 0.}, 0.023584798679629065], 
        DiskBox[{2.1208821337194195, 2.096625153189354}, 
         0.023584798679629065], 
        DiskBox[{0.02425698053006542, 2.1208821337194195}, 
         0.023584798679629065], 
        DiskBox[{0., 0.02425698053006542}, 0.023584798679629065]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->500]], "Output",
 CellChangeTimes->{
  3.872786297927058*^9, 3.872788767994326*^9, 3.8727898504097223`*^9, {
   3.87278995375004*^9, 3.872789982351449*^9}, 3.872791385364929*^9, 
   3.87279271938628*^9, 3.8727931265441027`*^9, 3.8727937953223124`*^9, 
   3.8727940029611588`*^9, 3.872795050199144*^9, 3.872795146157707*^9, 
   3.8727951858696003`*^9, {3.872796959140242*^9, 3.872796985274685*^9}, 
   3.872838078568451*^9, 3.8735401680181*^9, {3.873540205384297*^9, 
   3.873540227410404*^9}, 3.873624538812275*^9, 3.8751138700456743`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"c64384cf-23cd-4e33-bc96-511502e7821d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Box1Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.872786414205676*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"77f08096-3dcc-4354-99f5-af282d16329e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"p3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["29", "31"], ",", 
      FractionBox["31", "37"], ",", 
      FractionBox["37", "41"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["41", "43"]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    FractionBox["43", "47"]}], ",", 
   RowBox[{"p3E", "\[Rule]", 
    FractionBox["47", "53"]}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["15981", "6479"]}], ",", 
      RowBox[{"-", 
       FractionBox["27769", "11063"]}], ",", 
      RowBox[{"-", 
       FractionBox["49729", "20213"]}]}], "}"}]}], ",", 
   RowBox[{"p4E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["295115", "107113"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727902920938053`*^9, 
  3.872791496735832*^9, 3.872792645722172*^9, 3.872792710727728*^9, 
  3.8727939012616568`*^9, 3.872796958858275*^9, 3.872797018872765*^9, 
  3.872838106625805*^9, 3.873540231982127*^9, 3.873624538827512*^9, 
  3.875113870058104*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"aa3ba05a-4e7b-45d1-8526-243ddde72b53"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Box1LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "Box1L", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727901475343237`*^9, 3.8727901484026947`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"6ace2133-257e-476c-8efe-d1efd5a10504"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"Box1LcLTDexpr", ",", "Box1Lnumerics"}], "]"}], "//", "N"}], "//",
   "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872790160242073*^9, 3.872790165934816*^9}, {
   3.8727969927487087`*^9, 3.87279699363657*^9}, {3.872797026132416*^9, 
   3.872797029241851*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"757a95d1-06be-4da0-917b-13e6d8c1fd79"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Complex", "[", 
    RowBox[{"0.`", ",", "7.180137420795949`*^-6"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.8727901572656393`*^9, 3.872790166135623*^9}, 3.872790246764901*^9, 
   3.872791393235853*^9, 3.8727914327206163`*^9, 3.8727927196964693`*^9, 
   3.872792794870405*^9, {3.872793108442947*^9, 3.872793148034659*^9}, {
   3.872793789267529*^9, 3.872793802215947*^9}, 3.872794014844716*^9, {
   3.8727940724891644`*^9, 3.872794076429948*^9}, {3.872794120657174*^9, 
   3.872794123811221*^9}, 3.872795052804162*^9, 3.872795146427635*^9, 
   3.872795186130743*^9, {3.872796959473439*^9, 3.872797029458754*^9}, 
   3.872838120364402*^9, 3.873540234711257*^9, 3.873624539160487*^9, 
   3.87511387025548*^9},
 CellLabel->
  "Out[81]//FullForm=",ExpressionUUID->"4a950849-f387-4a50-a4c1-39eac4675bfe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, 
   3.8727947613375397`*^9, 3.8727948931357603`*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"f6071f08-003e-46c8-8a00-fcc1be3702e4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics"}], "]"}], "//",
    "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
   3.872790175456388*^9, 3.8727901759693403`*^9}, 3.872791429962783*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"296bde31-3735-4a50-8152-0ca750120790"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Complex", "[", 
    RowBox[{"0.`", ",", "7.180137420795949`*^-6"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.872794754552086*^9, {3.87279488618064*^9, 3.8727948948837633`*^9}, {
   3.8727950116670637`*^9, 3.87279501473565*^9}, {3.872795054088789*^9, 
   3.872795079896693*^9}, 3.8727951464747458`*^9, 3.872795186186881*^9, 
   3.872796959599504*^9, 3.872797031605111*^9, 3.872838124903583*^9, 
   3.873540236854555*^9, 3.873624539290131*^9, 3.875113870408345*^9},
 CellLabel->
  "Out[83]//FullForm=",ExpressionUUID->"a0e9c863-e36c-488c-9242-9c669c8f1dce"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["with external, with masses, with numerator", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969320330143`*^9}, {
  3.872919577622719*^9, 
  3.872919579996228*^9}},ExpressionUUID->"d0e86511-4ee1-4db9-b380-\
0866de1f6ccf"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Box1L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "1", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "2", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"103", ",", "3", ",", "7"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"104", ",", "4", ",", "8"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1L", "=", 
   RowBox[{"AssignSignatures", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"masses", "->", 
      RowBox[{"<|", 
       RowBox[{
        RowBox[{"1", "->", "1"}], ",", 
        RowBox[{"2", "->", "2"}], ",", 
        RowBox[{"3", "->", "3"}], ",", 
        RowBox[{"4", "->", "4"}]}], "|>"}]}], ",", 
     RowBox[{"lmb", "->", 
      RowBox[{"{", "1", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Box1L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "275"}], ",", 
    RowBox[{"GraphLayout", "\[Rule]", "\"\<HighDimensionalEmbedding\>\""}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"EdgeLabels", "->", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"e", "->", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\"\<q\>\"", "<>", 
            RowBox[{"ToString", "[", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"e", "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"DirectedEdge", "[", 
                    RowBox[{"_", ",", "_", ",", "props_"}], "]"}], ":>", 
                   "props"}], "}"}]}], ")"}], "[", "\"\<id\>\"", "]"}], ")"}],
              "]"}]}], ")"}], ",", 
          RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"e", ",", 
         RowBox[{"EdgeList", "[", "Box1L", "]"}]}], "}"}]}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.872742741603726*^9, 3.872742775586288*^9}, {
   3.872743362817617*^9, 3.872743387499469*^9}, {3.872743487367777*^9, 
   3.872743524782481*^9}, {3.872743958621933*^9, 3.872743975587399*^9}, {
   3.872744266098577*^9, 3.872744273043355*^9}, {3.872744435398158*^9, 
   3.872744461440112*^9}, {3.872745114500924*^9, 3.8727451300396833`*^9}, {
   3.872745772099901*^9, 3.872745776468544*^9}, 3.872786297553876*^9, {
   3.872789807179264*^9, 3.8727898494597893`*^9}, {3.8727899530754137`*^9, 
   3.87278998200391*^9}, 3.8727931259976683`*^9, {3.872920078463521*^9, 
   3.8729201109695063`*^9}, {3.872920144235427*^9, 3.872920159421647*^9}, {
   3.8729238516510687`*^9, 3.872923854849904*^9}, {3.872926388991707*^9, 
   3.872926423748941*^9}, {3.872926497819352*^9, 3.872926717448036*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"41f8a898-2039-4cd8-aa39-a5e6e2a27da4"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 101, 102, 103, 
      104}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 1}, {6, 2}, {7, 3}, {8, 4}},
        Null, {<|"id" -> 1, "sig" -> {{1}, {0, 0, 0, 0}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{1}, {-1, 0, -1, -1}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{1}, {-1, 0, 0, -1}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{1}, {-1, 0, 0, 0}}, "mass" -> 4|>, <|
        "id" -> 5, "sig" -> {{0}, {1, 0, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 6, "sig" -> {{0}, {0, 1, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 7, "sig" -> {{0}, {0, 0, 1, 0}}, "mass" -> 0|>, <|
        "id" -> 8, "sig" -> {{0}, {0, 0, 0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          102, 2, <|"id" -> 6, "sig" -> {{0}, {0, 1, 0, 0}}, "mass" -> 0|>] -> 
         Style["q6", FontSize -> 20], 
         DirectedEdge[
          4, 1, <|"id" -> 4, "sig" -> {{1}, {-1, 0, 0, 0}}, "mass" -> 4|>] -> 
         Style["q4", FontSize -> 20], 
         DirectedEdge[
          1, 2, <|"id" -> 1, "sig" -> {{1}, {0, 0, 0, 0}}, "mass" -> 1|>] -> 
         Style["q1", FontSize -> 20], 
         DirectedEdge[
          3, 4, <|"id" -> 3, "sig" -> {{1}, {-1, 0, 0, -1}}, "mass" -> 3|>] -> 
         Style["q3", FontSize -> 20], 
         DirectedEdge[
          104, 4, <|"id" -> 8, "sig" -> {{0}, {0, 0, 0, 1}}, "mass" -> 0|>] -> 
         Style["q8", FontSize -> 20], 
         DirectedEdge[
          2, 3, <|"id" -> 2, "sig" -> {{1}, {-1, 0, -1, -1}}, "mass" -> 2|>] -> 
         Style["q2", FontSize -> 20], 
         DirectedEdge[
          101, 1, <|"id" -> 5, "sig" -> {{0}, {1, 0, 0, 0}}, "mass" -> 0|>] -> 
         Style["q5", FontSize -> 20], 
         DirectedEdge[
          103, 3, <|"id" -> 7, "sig" -> {{0}, {0, 0, 1, 0}}, "mass" -> 0|>] -> 
         Style["q7", FontSize -> 20]}, GraphLayout -> 
       "HighDimensionalEmbedding", ImageSize -> 275, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[{{1.700838050813184, 0.4050524444742084}, {
          1.7158296892452092`, 1.7008380508131842`}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q1\"\>",
           StripOnInput->False,
           FontSize->20], {1.7083338700291966, 1.0529452476436962}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1.7158296892452092`, 1.7008380508131842`}, {
          0.4200440829062333, 1.7158296892452087`}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q2\"\>",
           StripOnInput->False,
           FontSize->20], {1.0679368860757212, 1.7083338700291963}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.4200440829062333, 1.7158296892452087`}, {
          0.4050524444742082, 0.4200440829062331}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q3\"\>",
           StripOnInput->False,
           FontSize->20], {0.41254826369022074, 1.0679368860757208}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.4050524444742082, 0.4200440829062331}, {
          1.700838050813184, 0.4050524444742084}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q4\"\>",
           StripOnInput->False,
           FontSize->20], {1.052945247643696, 0.41254826369022074}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.0966251531893536`, 0.}, {1.700838050813184, 
          0.4050524444742084}}, 0.023584798679629065`], InsetBox[
          StyleBox["\<\"q5\"\>",
           StripOnInput->False,
           FontSize->20], {1.8987316020012688, 0.2025262222371042}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.1208821337194195`, 2.096625153189354}, {
          1.7158296892452092`, 1.7008380508131842`}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q6\"\>",
           StripOnInput->False,
           FontSize->20], {1.9183559114823143, 1.898731602001269}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.02425698053006542, 2.1208821337194195`}, {
          0.4200440829062333, 1.7158296892452087`}}, 0.023584798679629065`], 
         InsetBox[
          StyleBox["\<\"q7\"\>",
           StripOnInput->False,
           FontSize->20], {0.22215053171814936, 1.918355911482314}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 0.02425698053006542}, {0.4050524444742082, 
          0.4200440829062331}}, 0.023584798679629065`], InsetBox[
          StyleBox["\<\"q8\"\>",
           StripOnInput->False,
           FontSize->20], {0.2025262222371041, 0.22215053171814925}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{1.700838050813184, 0.4050524444742084}, 
          0.023584798679629065], 
         InsetBox["1", 
          Offset[{2, 2}, {1.724422849492813, 0.42863724315383744}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.7158296892452092, 1.7008380508131842}, 
          0.023584798679629065], 
         InsetBox["2", 
          Offset[{2, 2}, {1.7394144879248383, 1.7244228494928133}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.4200440829062333, 1.7158296892452087}, 
          0.023584798679629065], 
         InsetBox["3", 
          Offset[{2, 2}, {0.44362888158586233, 1.7394144879248379}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.4050524444742082, 0.4200440829062331}, 
          0.023584798679629065], 
         InsetBox["4", 
          Offset[{2, 2}, {0.4286372431538372, 0.4436288815858621}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.0966251531893536, 0.}, 0.023584798679629065], 
         InsetBox["101", 
          Offset[{2, 2}, {2.1202099518689828, 0.023584798679629065}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.1208821337194195, 2.096625153189354}, 
          0.023584798679629065], 
         InsetBox["102", 
          Offset[{2, 2}, {2.1444669323990486, 2.120209951868983}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.02425698053006542, 2.1208821337194195}, 
          0.023584798679629065], 
         InsetBox["103", 
          Offset[{2, 2}, {0.047841779209694485, 2.1444669323990486}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 0.02425698053006542}, 0.023584798679629065], 
         InsetBox["104", 
          Offset[{2, 2}, {0.023584798679629065, 0.047841779209694485}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->275]], "Output",
 CellChangeTimes->{
  3.872786297927058*^9, 3.872788767994326*^9, 3.8727898504097223`*^9, {
   3.87278995375004*^9, 3.872789982351449*^9}, 3.872791385364929*^9, 
   3.87279271938628*^9, 3.8727931265441027`*^9, 3.8727937953223124`*^9, 
   3.8727940029611588`*^9, 3.872795050199144*^9, 3.872795146157707*^9, 
   3.8727951858696003`*^9, {3.872796959140242*^9, 3.872796985274685*^9}, 
   3.872838078568451*^9, {3.872920080650009*^9, 3.8729201114732122`*^9}, {
   3.8729201483500967`*^9, 3.8729201602672567`*^9}, {3.8729238489010687`*^9, 
   3.872923855155116*^9}, 3.872925853236019*^9, {3.872926390562582*^9, 
   3.872926432199849*^9}, {3.87292654347661*^9, 3.8729265569859667`*^9}, {
   3.8729266023090687`*^9, 3.872926628956504*^9}, {3.8729266668470287`*^9, 
   3.872926717846693*^9}, 3.87362453938286*^9, 3.8736257191943817`*^9, 
   3.873627057007861*^9, 3.8751124817844152`*^9, 3.8751133472909718`*^9, 
   3.875113870467016*^9, 3.875116214357864*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"3f9b6537-599b-448d-bf81-87a55547ba0f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Box1Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"Box1L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.872786414205676*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"b0200cd4-3691-42c0-8563-192acdb9bd63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"p3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["29", "31"], ",", 
      FractionBox["31", "37"], ",", 
      FractionBox["37", "41"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["41", "43"]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    FractionBox["43", "47"]}], ",", 
   RowBox[{"p3E", "\[Rule]", 
    FractionBox["47", "53"]}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["15981", "6479"]}], ",", 
      RowBox[{"-", 
       FractionBox["27769", "11063"]}], ",", 
      RowBox[{"-", 
       FractionBox["49729", "20213"]}]}], "}"}]}], ",", 
   RowBox[{"p4E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["295115", "107113"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727902920938053`*^9, 
  3.872791496735832*^9, 3.872792645722172*^9, 3.872792710727728*^9, 
  3.8727939012616568`*^9, 3.872796958858275*^9, 3.872797018872765*^9, 
  3.872838106625805*^9, 3.8729261345375*^9, 3.873624539413171*^9, 
  3.8736257206792088`*^9, 3.8751124818008013`*^9, 3.875113349832939*^9, 
  3.875113870476737*^9, 3.875116214458399*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"77e33220-2d85-456e-9db3-3ceaedaf90b7"]
}, Open  ]],

Cell["Note that q[1] = q[4] + q[5] !", "Text",
 CellChangeTimes->{{3.872925978691882*^9, 
  3.872925996083993*^9}},ExpressionUUID->"4e673fc2-aca6-47fe-9d47-\
fd3bb1bd35e4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Print", "[", "\"\<Note that q[1] = q[4] + q[5]\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1Lnumerator", "=", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ",", 
     RowBox[{"q", "[", "1", "]"}]}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Numerator considered: \>\"", ",", "Box1Lnumerator"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"Num", "->", "Box1Lnumerator"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<cLTD result: \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"EvalcLTD", "[", 
       RowBox[{"Box1LcLTDexpr", ",", "Box1Lnumerics"}], "]"}], "//", "N"}], "//",
      "FullForm"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<cFF result : \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"EvalcFF", "[", 
       RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics", ",", 
        RowBox[{"Num", "->", "Box1Lnumerator"}], ",", 
        RowBox[{"DEBUG", "->", "False"}]}], "]"}], "//", "N"}], "//", 
     "FullForm"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1Lnumerator", "=", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ",", 
     RowBox[{
      RowBox[{"q", "[", "4", "]"}], "+", 
      RowBox[{"q", "[", "5", "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Numerator considered: \>\"", ",", "Box1Lnumerator"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"Num", "->", "Box1Lnumerator"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<cLTD result: \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"EvalcLTD", "[", 
       RowBox[{"Box1LcLTDexpr", ",", "Box1Lnumerics"}], "]"}], "//", "N"}], "//",
      "FullForm"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<cFF result : \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"EvalcFF", "[", 
       RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics", ",", 
        RowBox[{"Num", "->", "Box1Lnumerator"}], ",", 
        RowBox[{"DEBUG", "->", "False"}]}], "]"}], "//", "N"}], "//", 
     "FullForm"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.872919732853904*^9, 3.872919736854286*^9}, {
   3.872920035202898*^9, 3.87292006376597*^9}, {3.872920191720572*^9, 
   3.872920193083784*^9}, {3.872920235137402*^9, 3.872920299768367*^9}, {
   3.8729250128498783`*^9, 3.8729250956691027`*^9}, {3.872925369418524*^9, 
   3.872925384979618*^9}, {3.872925549719777*^9, 3.872925553856501*^9}, {
   3.872925862124866*^9, 3.872925936009157*^9}, 3.8729259740786533`*^9, {
   3.872926012417822*^9, 3.872926128535303*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"99198889-03da-4540-8229-30b21d6fbe48"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Note that q[1] = q[4] + q[5]\"\>"], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214476839*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"28ba2a96-3d75-4fdf-acac-b1d5a29fa874"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214479704*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"da425c8e-aca4-40bf-917b-23408e6ba712"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Numerator considered: \"\>", "\[InvisibleSpace]", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ",", 
     RowBox[{"q", "[", "1", "]"}]}], "]"}]}],
  SequenceForm["Numerator considered: ", 
   $CellContext`SP4[
    $CellContext`q[1], 
    $CellContext`q[1]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214483224*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"44b6f6f2-8a16-486d-8938-df29f9f6763f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"cLTD result: \"\>", "\[InvisibleSpace]", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00014091625878931386`"}]}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}],
  SequenceForm["cLTD result: ", 
   FullForm[
    Complex[0., -0.00014091625878931386`]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214621449*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"fe76a8b4-f488-462c-9648-277138d1f87f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"cFF result : \"\>", "\[InvisibleSpace]", 
   TagBox[
    StyleBox["0.`",
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}],
  SequenceForm["cFF result : ", 
   FullForm[0.]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214705057*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"cd1fef63-8724-420d-a810-defd35102402"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214707061*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"d908d2b2-2f50-4382-a50c-b67c52c6a070"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Numerator considered: \"\>", "\[InvisibleSpace]", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ",", 
     RowBox[{
      RowBox[{"q", "[", "4", "]"}], "+", 
      RowBox[{"q", "[", "5", "]"}]}]}], "]"}]}],
  SequenceForm["Numerator considered: ", 
   $CellContext`SP4[
    $CellContext`q[1], $CellContext`q[4] + $CellContext`q[5]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214708693*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"4eaee59e-5d15-4321-a168-5224d514d28a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"cLTD result: \"\>", "\[InvisibleSpace]", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00014091625878931386`"}]}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}],
  SequenceForm["cLTD result: ", 
   FullForm[
    Complex[0., -0.00014091625878931386`]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.87511621485524*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"2c44ca31-27cd-4ac3-97a4-5707b8dc3eac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"cFF result : \"\>", "\[InvisibleSpace]", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00014091625878931378`"}]}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}],
  SequenceForm["cFF result : ", 
   FullForm[
    Complex[0., -0.00014091625878931378`]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.875116214917804*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"2e4ee151-6784-4e26-8330-269862574bd9"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.8729261366078663`*^9, 3.8736245394295683`*^9, 3.873625721700001*^9, 
   3.873625786214929*^9, 3.8736270605422487`*^9, 3.875112481858349*^9, 
   3.875113350624034*^9, 3.875113870517819*^9, {3.875116209091029*^9, 
   3.87511621491982*^9}},
 CellLabel->
  "During evaluation of \
In[128]:=",ExpressionUUID->"bd4b4357-b283-4ad7-94b0-02931ffe1dff"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Notice an alternative formulation of the numerator with an explicit \
expression of the energy and spatial part of the edge momentum\
\>", "Text",
 CellChangeTimes->{{3.8751134866440697`*^9, 
  3.87511353130906*^9}},ExpressionUUID->"7f9cd1ed-8f66-431f-9b2a-\
e8e90ea9114e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Box1Lnumerator", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"qE", "[", "1", "]"}], "*", 
     RowBox[{"qE", "[", "4", "]"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"q", "[", "1", "]"}], "[", "0", "]"}], "*", 
     RowBox[{
      RowBox[{"q", "[", "5", "]"}], "[", "0", "]"}]}], "-", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ".", 
     RowBox[{"q", "[", "4", "]"}]}], "-", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ".", 
     RowBox[{"q", "[", "5", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Box1LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"Box1L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"\"\<cFF result : \>\"", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"EvalcFF", "[", 
       RowBox[{"Box1L", ",", "Box1LcFFexpr", ",", "Box1Lnumerics", ",", 
        RowBox[{"Num", "->", "Box1Lnumerator"}], ",", 
        RowBox[{"DEBUG", "->", "False"}]}], "]"}], "//", "N"}], "//", 
     "FullForm"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", "\"\<\>\"", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.875112817526539*^9, 3.875112833148827*^9}, {
  3.875112876919922*^9, 3.875112893029454*^9}, {3.875113503163993*^9, 
  3.8751135088954144`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"39cd2964-7b6a-4bb3-8492-7f870c3f5b3c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"cFF result : \"\>", "\[InvisibleSpace]", 
   TagBox[
    StyleBox[
     RowBox[{"Complex", "[", 
      RowBox[{"0.`", ",", 
       RowBox[{"-", "0.00014091625878931378`"}]}], "]"}],
     ShowSpecialCharacters->False,
     ShowStringCharacters->True,
     NumberMarks->True],
    FullForm]}],
  SequenceForm["cFF result : ", 
   FullForm[
    Complex[0., -0.00014091625878931378`]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.875112833684165*^9, {3.87511287739182*^9, 3.8751128938195677`*^9}, 
   3.8751133574559517`*^9, 3.8751135093392076`*^9, 3.875113871173933*^9, 
   3.875116215032022*^9},
 CellLabel->
  "During evaluation of \
In[144]:=",ExpressionUUID->"932aec89-cd8d-42c2-8734-2e6d72df0eba"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.875112833684165*^9, {3.87511287739182*^9, 3.8751128938195677`*^9}, 
   3.8751133574559517`*^9, 3.8751135093392076`*^9, 3.875113871173933*^9, 
   3.8751162150338707`*^9},
 CellLabel->
  "During evaluation of \
In[144]:=",ExpressionUUID->"01aa2824-049d-4d5a-b6f5-cf4568fb1c25"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Banana2L", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872678248328179*^9, 3.87267825122709*^9}, {3.87279670170677*^9, 
  3.872796729672701*^9}, {3.8727967652077217`*^9, 3.872796767707892*^9}, {
  3.872797241114916*^9, 
  3.8727972420807867`*^9}},ExpressionUUID->"46418574-0bc6-4cb2-99e8-\
4617bbe8fed9"],

Cell[CellGroupData[{

Cell["no external, no masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 
  3.8727969090820427`*^9}},ExpressionUUID->"4586a3f2-f8af-4538-86e1-\
235563339a53"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Banana2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "3"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Banana2L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"Banana2L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", 
        RowBox[{"3", "->", "0"}], "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872796776090105*^9, 3.8727968245116453`*^9}, {3.872797249833877*^9, 
  3.872797274475143*^9}},
 CellLabel->
  "In[578]:=",ExpressionUUID->"e30b0f0d-7331-46d5-b024-eed6c635ebd0"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 
      2}, {{{1, 2}, {1, 2}, {1, 2}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 600}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[BezierCurveBox[{{1., 0.}, {
          0.5000000000000006, -0.16444074718311627`}, {0., 
          1.2246467991473532`*^-16}}], 0.01273], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5000000000000001, -0.07}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 0.}, {0., 1.2246467991473532`*^-16}}, 0.01273], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 6.123233995736766*^-17}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 0.}, {0.5000000000000001, 
          0.16444074718311646`}, {0., 1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5000000000000001, 0.07000000000000012},
           ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{1., 0.}, 0.01273], 
        DiskBox[{0., 1.2246467991473532*^-16}, 0.01273]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->600]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, {3.872796810473688*^9, 
   3.872796825004677*^9}, 3.8727970720844097`*^9, {3.872797261102105*^9, 
   3.8727972863079576`*^9}},
 CellLabel->
  "Out[579]=",ExpressionUUID->"b1b54903-ad5b-4491-bec8-4ef54ca39b09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Banana2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"Banana2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}, {
  3.8727968356803703`*^9, 3.872796837729765*^9}, {3.872797293584964*^9, 
  3.872797298301733*^9}},
 CellLabel->
  "In[581]:=",ExpressionUUID->"7de993d5-4b8b-4132-baab-cd86950fa123"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872796838705688*^9, 
  3.872797072397326*^9, 3.872797298550098*^9},
 CellLabel->
  "Out[581]=",ExpressionUUID->"2309cf4d-e40c-4424-81fe-b1231dc5a35e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Banana2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "Banana2L", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727901475343237`*^9, 3.8727901484026947`*^9}, {3.8727971695359497`*^9, 
  3.872797171423841*^9}, {3.872797304152014*^9, 3.8727973179909277`*^9}, {
  3.872925157931072*^9, 3.872925196766981*^9}},
 CellLabel->
  "In[1076]:=",ExpressionUUID->"50de7c87-b4b9-41fd-ac6c-b55552af1136"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"Banana2LcLTDexpr", ",", "Banana2Lnumerics"}], "]"}], "//", "N"}],
   "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872790160242073*^9, 3.872790165934816*^9}, {
   3.8727969927487087`*^9, 3.87279699363657*^9}, {3.872797026132416*^9, 
   3.872797029241851*^9}, {3.872797176299097*^9, 3.872797179288602*^9}, {
   3.8727973232861633`*^9, 3.872797326323462*^9}},
 CellLabel->
  "In[1075]:=",ExpressionUUID->"ae234e54-f62c-4e5e-a31d-2888f4359b5d"],

Cell[BoxData[
 TagBox[
  StyleBox["0.013944200210337859`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.872797181057626*^9, 3.8727973266632013`*^9, {3.872925155058794*^9, 
   3.872925162144432*^9}, 3.872925195761567*^9},
 CellLabel->
  "Out[1075]//FullForm=",ExpressionUUID->"2320d22e-d721-4ad5-afec-\
a5d417adfa45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Banana2LcFFexpr", "=", 
  RowBox[{"CrossFreeFamilyLTD", "[", 
   RowBox[{"Banana2L", ",", 
    RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, 
   3.8727947613375397`*^9, 3.8727948931357603`*^9, {3.872797111531693*^9, 
   3.872797113331418*^9}, {3.872797340526545*^9, 3.87279734564822*^9}},
 CellLabel->
  "In[585]:=",ExpressionUUID->"09b6f7c5-ff3c-486d-a410-0d0775182862"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "1"}]}], "}"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\[LeftAssociation]", 
            RowBox[{
             RowBox[{"\<\"OSE\"\>", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", 
             RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
              RowBox[{"{", "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
        "\[RightAssociation]"}], "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\[LeftAssociation]", 
            RowBox[{
             RowBox[{"\<\"OSE\"\>", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", 
             RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
              RowBox[{"{", "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
        "\[RightAssociation]"}], "}"}]}]}], "\[RightAssociation]"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.872797355695294*^9},
 CellLabel->
  "Out[585]=",ExpressionUUID->"8c7ade8d-a064-4ee2-8f0b-a008223c9fd2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"Banana2L", ",", "Banana2LcFFexpr", ",", "Banana2Lnumerics"}], 
    "]"}], "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
   3.872790175456388*^9, 3.8727901759693403`*^9}, 3.872791429962783*^9, {
   3.872797114945732*^9, 3.8727971220428133`*^9}, {3.8727973484816093`*^9, 
   3.8727973546849823`*^9}},
 CellLabel->
  "In[586]:=",ExpressionUUID->"c53cb7e3-cae4-489e-a449-169ae8edb74f"],

Cell[BoxData[
 TagBox[
  StyleBox["0.013944200210337859`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.872797124655748*^9, 3.872797362511457*^9},
 CellLabel->
  "Out[586]//FullForm=",ExpressionUUID->"34bd61ca-ed61-4c4e-a086-\
1d74bbfad577"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["DottedBanana2L", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872678248328179*^9, 3.87267825122709*^9}, {3.87279670170677*^9, 
  3.872796729672701*^9}, {3.8727967652077217`*^9, 3.872796767707892*^9}, {
  3.872839197215168*^9, 
  3.8728392006943483`*^9}},ExpressionUUID->"2ac85cfb-7bf6-41a0-85d2-\
af509fa2697b"],

Cell[CellGroupData[{

Cell["no external, with masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
  3.8728482588602047`*^9, 
  3.872848259603689*^9}},ExpressionUUID->"584ef6f8-6ced-4ced-953a-\
7a25165dc95a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"myGraph", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "3", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "2", ",", "4"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"myGraph", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"myGraph", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"Association", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"i", "->", "i"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Range", "[", "4", "]"}]}], "}"}]}], "]"}], "]"}]}], ",", 
      
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872796776090105*^9, 3.8727968245116453`*^9}, {3.872797249833877*^9, 
  3.872797274475143*^9}, {3.8728392143736153`*^9, 3.872839275715823*^9}, {
  3.872848250138526*^9, 3.872848284941457*^9}},
 CellLabel->
  "In[806]:=",ExpressionUUID->"e128b5bf-c060-447a-a7ea-e557ea2bc8b9"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 
      3}, {{{1, 2}, {1, 2}, {1, 3}, {3, 2}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{-1, -1}, {}}, "mass" -> 4|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 400}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQYctC1fnevl32R/6vaWVfZt/+2vPTZL9zhyyF43
YfuF9If/7A+Huta3mJ611+hlL6oQ/GevY3lh+l7dK/a7kpb2FYr9tT8no2Ij
Jn3L/smDCWrBH37bP9LyF0szfGC/nP2Upez8X/YcRfO35Dc9tme4HnDivNJP
+5uPmX4uZ3hu/8VP9VJW9Xf70IbKx3xrXtnX5buHv1vx1X5JpJqy4so39s9P
3G6cMvGL/dPOfiHL7Hf2pVm7RL7nfrYXE9y6MezTe3uNkMf8Ynaf7GeVezPY
zv9g/681rPgj40d7hUmz6i+qf7T//F+9Tqj4vb3cjePXXkz6aG/UYv5s18k3
9lM8L7M2P/hov2PGbbk77K/sG5/t4Vkg8Mm+y1ZEo0z3uf3TdS2v7ZU/2S8q
esjYafXE3nqdn8tH+U/21zwqri8PeGj/573dTie+T/afFkqvOK10116zJNTL
5N1HezExl/etP6/bH7Ca9P3o/o/2Iu8yW+pUL9sfdv564HvTR/sHwVLns3zP
2hv11y07af7RPmhytGHoryP23LJ6K6zvfbD/aaIfX7F4l33AW+ZjvmUf7LuW
WqrX+620h0TTB3tYhAEAgeXVIA==
          "]], 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "1"}]}], 
           "\[RightAssociation]"}], {0.9589631330639127, 1.2013339202059627}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQYc3vTv2VJ/Zpa9gXye6fS3/+ybVr58Mfvfenun
nWuMFI/9tQ8Suija9WS3vcm53d/ndv6xD3+3UCPL8Kg9W9zsFl6L3/ZvZqYF
i+09a78jw/tm/sWf9p9cZx9dcuqyvc+701+PhP6wV3zE8YIx9qb9gXcyt3iO
frNvVvwzYdHU+/aiWXZt7vJf7XmarBKcrR7beyYY/CpJ+Wyf5TndbiPnU3sO
R44ff3I+2X9a5sqwYeEz+58hovISWR/tl8xyXWrP9MJeek54/rHoD/b1KtN1
E7Rf2l/XmXeRv+WdfYuL1UxB2Vf2d9u/i+20fGO/6Zfei+Drr+xdPXev67jx
0p7LvVRKPeq1PU/hyxl1Cc/tezR5DbqXvra3+N94ddbFJ/Zmi75pNOx8bX/k
c0vKXe1H9l2Lk8plD7y2P2Nit3699H17DoWm3qrHr+2X1/5qMNe5Zb9JPDR7
uvIbe8lDdnZBnVftG7tuC5Q0vLGXZeJ+/t/oon11hWidwK839oXV+741BJ2y
n/eQaXPOhLf2V1+WfVO/ccj+1dHF6zuc39kfmVc36+Xb7faJqj+KU4Tf2xds
iHszd/cye0g0fbCHRRgAJFnW8A==
          "]], 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "2"}]}], 
           "\[RightAssociation]"}], {0.7026277287078223, 1.094251860240009}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {0., 1.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "3"}]}], 
           "\[RightAssociation]"}], {0., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "4"}]}], 
           "\[RightAssociation]"}], {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{0., 2.}, 0.02261146496815286], 
        DiskBox[{1., 0.}, 0.02261146496815286], 
        DiskBox[{0., 1.}, 0.02261146496815286]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->400]], "Output",
 CellChangeTimes->{{3.872839267121853*^9, 3.87283927626737*^9}, 
   3.8728483259372797`*^9},
 CellLabel->
  "Out[807]=",ExpressionUUID->"f17a40ec-ae38-4912-85a7-c8dcfbb9a233"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myGraphcLTDexpr", "=", 
  RowBox[{"GeneratecLTDExpression", "[", "myGraph", "]"}]}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727864358378*^9, 3.872786437591256*^9}, {3.872796829782374*^9, 
  3.8727968318114767`*^9}, {3.872839296808667*^9, 3.8728392986362343`*^9}},
 CellLabel->
  "In[808]:=",ExpressionUUID->"7ff5c5a0-0365-4d7a-9d10-aaf59b8e43ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      FractionBox["2", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"E1", "+", "E2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"E0", "+", "E1", "+", "E3"}], ")"}]}]], "+", 
      FractionBox["2", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"E1", "+", "E2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}]}]], "+", 
      FractionBox["2", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"E0", "+", "E1", "+", "E3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}]}]]}], 
     RowBox[{"16", " ", "E0", " ", "E1", " ", "E2", " ", "E3"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E0", "\[Rule]", 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{"k1", ".", "k1"}]}]]}], ",", 
     RowBox[{"E1", "\[Rule]", 
      SqrtBox[
       RowBox[{"9", "+", 
        RowBox[{"k1", ".", "k1"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"k1", ".", "k2"}]}], "+", 
        RowBox[{"k2", ".", "k2"}]}]]}], ",", 
     RowBox[{"E2", "\[Rule]", 
      SqrtBox[
       RowBox[{"16", "+", 
        RowBox[{"k1", ".", "k1"}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"k1", ".", "k2"}]}], "+", 
        RowBox[{"k2", ".", "k2"}]}]]}], ",", 
     RowBox[{"E3", "\[Rule]", 
      SqrtBox[
       RowBox[{"4", "+", 
        RowBox[{"k2", ".", "k2"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786318624598*^9, 3.8727864555233927`*^9, 
  3.872788856792451*^9, 3.8727951891224527`*^9, 3.872796832681644*^9, 
  3.872797072350286*^9, 3.872838267858527*^9, 3.8728391344927397`*^9, 
  3.8728392991333523`*^9, 3.872848326323722*^9},
 CellLabel->
  "Out[808]=",ExpressionUUID->"5253312c-9615-4df5-8245-ce1f00103264"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myGraphnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"myGraph", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellLabel->
  "In[809]:=",ExpressionUUID->"97c8fa67-1ebd-4c7d-a4ff-f3f2a57bb802"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.872786415168228*^9, 3.8727864579020023`*^9, 3.872788860838923*^9, 
   3.872795189139636*^9, 3.872796838705688*^9, 3.872797072397326*^9, {
   3.8728393135855627`*^9, 3.87283932546511*^9}, 3.8728483263422403`*^9},
 CellLabel->
  "Out[809]=",ExpressionUUID->"408e8a23-ddf2-471a-8313-712a90865b06"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "myGraph", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727901475343237`*^9, 3.8727901484026947`*^9}, {3.8727971695359497`*^9, 
  3.872797171423841*^9}, {3.872839333612101*^9, 3.872839340031954*^9}},
 CellLabel->
  "In[810]:=",ExpressionUUID->"86775b87-5c89-4cc1-ad21-9a5001b3fda6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"myGraphcLTDexpr", ",", "myGraphnumerics"}], "]"}], "//", "N"}], "//",
   "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872790160242073*^9, 3.872790165934816*^9}, {
   3.8727969927487087`*^9, 3.87279699363657*^9}, {3.872797026132416*^9, 
   3.872797029241851*^9}, {3.872797176299097*^9, 3.872797179288602*^9}, {
   3.872839342897603*^9, 3.8728393460185013`*^9}},
 CellLabel->
  "In[811]:=",ExpressionUUID->"b3c774e7-c25b-4aa8-95a4-3220e2e051f1"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"-", "0.00008258560765424002`"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.872797181057626*^9, 3.872826489355402*^9, 3.8728382940172577`*^9, {
   3.872839347841701*^9, 3.8728393503615217`*^9}, 3.872848326642219*^9},
 CellLabel->
  "Out[811]//FullForm=",ExpressionUUID->"183f80f2-a242-4b13-ae7e-\
01642cdab479"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"myGraph", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, 
   3.8727947613375397`*^9, 3.8727948931357603`*^9, {3.872797111531693*^9, 
   3.872797113331418*^9}, {3.872839354566598*^9, 3.872839362682938*^9}},
 CellLabel->
  "In[812]:=",ExpressionUUID->"1a716795-852a-4fb3-b539-05389d56e15d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"myGraph", ",", "myGraphcFFexpr", ",", "myGraphnumerics"}], "]"}],
    "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
   3.872790175456388*^9, 3.8727901759693403`*^9}, 3.872791429962783*^9, {
   3.872797114945732*^9, 3.8727971220428133`*^9}, {3.872839375927506*^9, 
   3.872839391005571*^9}, {3.872839738836467*^9, 3.8728397416711693`*^9}, {
   3.872840700060615*^9, 3.8728407047015047`*^9}, {3.8728483085358257`*^9, 
   3.872848309657299*^9}},
 CellLabel->
  "In[813]:=",ExpressionUUID->"2efcc920-44e6-49ad-bda8-f68882dd5b95"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"-", "0.00008258560765424002`"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.872797124655748*^9, 3.872826481706263*^9, {3.872839381854567*^9, 
   3.8728393913053303`*^9}, 3.8728397421637707`*^9, {3.872840695444458*^9, 
   3.872840704972547*^9}, 3.872848326705823*^9},
 CellLabel->
  "Out[813]//FullForm=",ExpressionUUID->"5594aba5-c1ed-4cb6-81d6-\
7f674251220c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrossFreeFamilyLTD", "[", 
  RowBox[{"myGraph", ",", 
   RowBox[{"ConvertToNormalisedFormat", "->", "False"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Orientations", "->", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"o", "===", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"o", ",", 
         RowBox[{
          RowBox[{
          "myGraphcFFexpr", "\[LeftDoubleBracket]", "3", 
           "\[RightDoubleBracket]"}], "[", "\"\<Orientation\>\"", "]"}]}], 
        "}"}]}], "]"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"DEBUG", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.87282418927404*^9, 3.872824219144011*^9}, {
  3.872824254878398*^9, 3.8728242581442204`*^9}, {3.872839415729059*^9, 
  3.872839418700735*^9}, {3.872839547666482*^9, 3.872839547751975*^9}},
 CellLabel->
  "In[814]:=",ExpressionUUID->"b57fa9e7-c243-49e1-a68a-966746b3aac5"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Now considering orientation: {-1, -1, 1, -1}\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326760268*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"9806d359-d912-4ef8-b8cf-1a0b2ab25301"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326764318*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"71fb2ff0-13ad-4e24-8930-87d56116b654"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326768849*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"df79f499-1e73-4a2b-b974-fb8f4315ae57"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 1, 
      3}, {{{1, 2}, {1, 2}, {2, 3}, {1, 3}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{-1, -1}, {}}, "mass" -> 4|>}}, {
      EdgeLabels -> {
        DirectedEdge[2, 1, <|"id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 2|>] -> 
         2, DirectedEdge[
          2, 3, <|"id" -> 4, "sig" -> {{-1, -1}, {}}, "mass" -> 4|>] -> 4, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 1|>] -> 1, 
         DirectedEdge[
          1, 3, <|"id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 3|>] -> 3}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[BezierCurveBox[{{0., 2.}, {0.16444074718311635`, 
          1.500000000000002}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["1", {0.07000000000000006, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{0., 2.}, {-0.16444074718311635`, 
          1.500000000000002}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["2", {-0.07000000000000006, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQYcZvKamy4+tMJ+knvYs1eW/+3l1q8JvnV4lz2f
6dGoQ8H/7Kv2zBQ9O/mofdEJn9g237/2Gp+mT/A4ds5+D+Pbt2bqf+x9ajLO
rq+5Yv/2wVKeKw9+2T9JV5LqFLtlz55WvjO26qf9+7s24hESD+w5JiZ+ufz5
u72sjXnrpNTH9p8SU/aa+X6zr/ZjuP750zP7QzfqRdravthHTA4Vtb/5wj61
S8VPrf6z/bmWUJ+Qtlf293uFbN9mf7J/pMRQY/zrtb3+Y8+Ht3w+2vfnhi65
Y/LWPqTrlNV7xQ/211JCj/qbvbOfz6Y5OeTaW/udHAz3e/69s3ea4y8tEfja
3iwy9OPk3vf2E69y8GlueWHvFxb6J+Xxe/ueTSHZ7f+f2kOC5YO9MRg8hvPn
bey+bp//AM4/x989pXH5bXtGKF8856BYzsFrcHnJil2m9jqX4PwV6W8efT1/
Gs6fYvdyst3Lw3D+g5fX/mzw2Ann/9M608nHugLOh0UYALTwvFk=
          "]], 
          0.02261146496815286], 
         InsetBox["4", {0.8288527141529387, 1.1514069002605647}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
         InsetBox["3", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 2.}, 0.02261146496815286], 
         InsetBox["2", 
          Offset[{2, 2}, {0.02261146496815286, 2.022611464968153}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["1", 
          Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["3", 
          Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326831827*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"cebbb253-601a-40cd-b7cf-cc8a40a9a0fd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found the following sources (first one will be considered): \"\
\>", "\[InvisibleSpace]", 
   RowBox[{"{", "2", "}"}]}],
  SequenceForm[
  "Found the following sources (first one will be considered): ", {2}],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326838798*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"8a0b04f2-2212-4617-bfde-269c55814874"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Edges to be contracted (possibly won't contribute all): \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}]}],
  SequenceForm[
  "Edges to be contracted (possibly won't contribute all): ", {1, 2, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.8728483268417797`*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"6254ce74-6d1f-4fc1-adc4-09fa51e3b9b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Contributing edge contractions: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    TemplateBox[{"2", "1", 
      RowBox[{"\[LeftAssociation]", 
        RowBox[{
          RowBox[{"\"id\"", "\[Rule]", "1"}], ",", 
          RowBox[{"\"sig\"", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "0"}], "}"}], ",", 
                RowBox[{"{", "}"}]}], "}"}]}], ",", 
          RowBox[{"\"mass\"", "\[Rule]", "1"}]}], "\[RightAssociation]"}]},
     "DirectedEdge"], "}"}]}],
  SequenceForm["Contributing edge contractions: ", {
    DirectedEdge[2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 1|>]}],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.8728483268446074`*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"e2dee83b-6b35-4be0-8055-b80a72b3a51e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Esurf for this term: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4"}], "}"}]}],
  SequenceForm["Esurf for this term: ", {1, 2, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326849368*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"5475b38a-55f7-40b4-815c-33b15c0cf5a5"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326854076*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"3c913fed-2162-4713-a2b4-232db5aea34d"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.8728483268577843`*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"98c562be-cb54-4d35-89d6-fdcd40cf876b"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 
      3}, {{{1, 2}, {1, 2}}, 
       Null, {<|"id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{-1, -1}, {}}, "mass" -> 4|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          1, 3, <|"id" -> 4, "sig" -> {{-1, -1}, {}}, "mass" -> 4|>] -> 4, 
         DirectedEdge[
          1, 3, <|"id" -> 3, "sig" -> {{-1, -1}, {}}, "mass" -> 3|>] -> 3}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[BezierCurveBox[{{1., 0.}, {
          0.5000000000000006, -0.16444074718311627`}, {0., 
          1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["3", {0.5000000000000001, -0.07}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 0.}, {0.5000000000000001, 
          0.16444074718311646`}, {0., 1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["4", {0.5000000000000001, 0.07000000000000012}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{1., 0.}, 0.01273], 
         InsetBox["1", Offset[{2, 2}, {1.01273, 0.01273}], ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 1.2246467991473532*^-16}, 0.01273], 
         InsetBox["3", Offset[{2, 2}, {0.01273, 0.012730000000000123}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.872848326948551*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"927de17d-26ec-43b8-8351-e18e6d0058ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Reached termination condition, returning Esurf:\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}]}],
  SequenceForm["Reached termination condition, returning Esurf:", {3, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.8728483269542217`*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"d42be639-5ddf-451d-b17b-cf008e09fb53"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Complete term returned at this level: \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "1", "]"}], "+", 
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "3", "]"}], "+", 
       RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}],
  SequenceForm[
  "Complete term returned at this level: ", ($CellContext`OSE[
      1] + $CellContext`OSE[2] + $CellContext`OSE[4])^(-1)/($CellContext`OSE[
    3] + $CellContext`OSE[4])],
  Editable->False]], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.87284832695756*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"9a29ee56-b0a5-4cee-8c6a-4962e4898c11"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{3.872839419838751*^9, 3.872839548038484*^9, 
  3.872840264941155*^9, 3.872840320179619*^9, 3.8728405868277693`*^9, 
  3.872840656056155*^9, 3.8728483269606857`*^9},
 CellLabel->
  "During evaluation of \
In[814]:=",ExpressionUUID->"17331732-6227-4c8c-9567-7f405b0fed09"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False", ",", "True"}], "}"}], ",", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "3", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}], ")"}]}]]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{3.8728394201211443`*^9, 3.872839548445241*^9, 
  3.87284026509929*^9, 3.8728403203290854`*^9, 3.872840586987959*^9, 
  3.872840656456547*^9, 3.872848326963846*^9},
 CellLabel->
  "Out[814]=",ExpressionUUID->"ae033d4e-670e-45dc-b38c-06d59e6116dc"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["DoubleTriangle2L", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872678248328179*^9, 3.87267825122709*^9}, {3.87279670170677*^9, 
  3.872796729672701*^9}, {3.8727967652077217`*^9, 
  3.872796767707892*^9}},ExpressionUUID->"5bd5c2ff-7b01-4467-851f-\
d347de6eed65"],

Cell[CellGroupData[{

Cell["no external, no masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 
  3.8727969090820427`*^9}},ExpressionUUID->"6e428faa-30f5-460a-a200-\
f2519c4a1c1a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleTriangle2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "3", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "4", ",", "5"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DoubleTriangle2L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"DoubleTriangle2L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "375"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872796776090105*^9, 3.8727968245116453`*^9}, {3.8727975919505672`*^9, 
  3.8727975954485188`*^9}, {3.872797648438586*^9, 3.872797674079562*^9}, {
  3.8728382574094467`*^9, 3.872838257599929*^9}, {3.872839075053714*^9, 
  3.872839129764516*^9}, {3.872848349857049*^9, 3.872848351757959*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"ab569a89-10e7-4f50-a50e-9830405e00ff"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 
      4}, {{{1, 2}, {2, 3}, {1, 4}, {4, 3}, {2, 4}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 4, "sig" -> {{0, -1}, {}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 375}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 3.}, {1., 2.}}, 0.030239520958083826`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo4HGCskPM3jr6ezw7nb/KQrNhliuCL5xwUyznI
Bue3WV5cyOCM4P/dANLACufXXVKvvaSO4HPMyzvL380C588UluUyeMIM55sY
gwCCfwWkvZYJzi+UOQ5EjHC+kCAIIPgbWaM3sEYzwPkLvnjO/+L53x7Gv3cX
BP7C+bIg4wr/wPkxG0AG/IbzZ80EgZ9wPjh4zH/A+Z8PK6U+ePkNzmcHWb/h
K4IP9u8XOP9rT+yef5Wf4Xxw8NR+gvPByqd8hPMjEv1KNA58gPMh4IM9AIO9
YI0=
          "]], 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0., 2.}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08DgG5y/GKz9C5z/2KIPiD7D3aOsBAKf4PKJ3NsSuLd9gPPtX062ezn5
HZy/ZzcIvIbzLUHGPX4B54N0J3A/g/ONweAxnA8OnvwHcP45/u4pjctvw90j
nnNQLOfgNbi8ZMUuU3udS3D+ivQ3j76ePw3nT7EDOfAwnP/g5bU/Gzx2wvn/
tM508rGugPNhMQcApt6NHA==
          "]], 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {1., 0.9999999999999998}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "5"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {1., 0.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{0., 3.}, 0.030239520958083826], 
        DiskBox[{1., 2.}, 0.030239520958083826], 
        DiskBox[{1., 0.}, 0.030239520958083826], 
        DiskBox[{0., 1.}, 0.030239520958083826]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->375]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, {3.872796810473688*^9, 
   3.872796825004677*^9}, 3.8727970720844097`*^9, {3.872797593087082*^9, 
   3.8727975960111837`*^9}, {3.87279764916956*^9, 3.872797674692068*^9}, 
   3.8728245663075123`*^9, {3.872838252345289*^9, 3.872838258204343*^9}, 
   3.8728391306448727`*^9, 3.872840713605142*^9, 3.872848352683721*^9, 
   3.873627349062694*^9, 3.8736274208330727`*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"544b643a-1d03-468b-b2d1-339300668c69"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleTriangle2LcLTDexpr", "=", 
  RowBox[{"GeneratecLTDExpression", "[", "DoubleTriangle2L", "]"}]}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727864358378*^9, 3.872786437591256*^9}, {3.872796829782374*^9, 
  3.8727968318114767`*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"fdf91bb4-6484-450b-9b4f-5e4655dc874b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       FractionBox["4", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}], "3"]]}], "-", 
      FractionBox["2", 
       RowBox[{"E0", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}], "2"]}]], "-", 
      FractionBox["2", 
       RowBox[{"E3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}], "2"]}]], "-", 
      FractionBox["2", 
       RowBox[{"E0", " ", "E3", " ", 
        RowBox[{"(", 
         RowBox[{"E0", "+", "E2", "+", "E3"}], ")"}]}]]}], 
     RowBox[{"32", " ", 
      SuperscriptBox["E0", "2"], " ", "E2", " ", 
      SuperscriptBox["E3", "2"]}]]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E0", "\[Rule]", 
      SqrtBox[
       RowBox[{"k1", ".", "k1"}]]}], ",", 
     RowBox[{"E1", "\[Rule]", 
      SqrtBox[
       RowBox[{"k1", ".", "k1"}]]}], ",", 
     RowBox[{"E2", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k1", ".", "k1"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k1", ".", "k2"}]}], "+", 
        RowBox[{"k2", ".", "k2"}]}]]}], ",", 
     RowBox[{"E3", "\[Rule]", 
      SqrtBox[
       RowBox[{"k2", ".", "k2"}]]}], ",", 
     RowBox[{"E4", "\[Rule]", 
      SqrtBox[
       RowBox[{"k2", ".", "k2"}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786318624598*^9, 3.8727864555233927`*^9, 
  3.872788856792451*^9, 3.8727951891224527`*^9, 3.872796832681644*^9, 
  3.872797072350286*^9, 3.872838267858527*^9, 3.8728391344927397`*^9, 
  3.872840713941723*^9, 3.872848355446144*^9, 3.8736273493989773`*^9, 
  3.873627421125512*^9},
 CellLabel->
  "Out[161]=",ExpressionUUID->"c270cff6-b39c-431a-8e5c-09cd48b2af9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleTriangle2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"DoubleTriangle2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}, {
  3.8727968356803703`*^9, 3.872796837729765*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"9f359546-65ad-4c24-ab31-4fce785f0273"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872796838705688*^9, 
  3.872797072397326*^9, 3.872840714013406*^9, 3.8728483570807343`*^9, 
  3.8736273494151907`*^9, 3.873627421141755*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"8af28ddf-fe5f-4247-b187-04c0f4fb90a7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleTriangle2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "DoubleTriangle2L", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727901475343237`*^9, 3.8727901484026947`*^9}, {3.8727971695359497`*^9, 
  3.872797171423841*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"49cbf96e-08b3-4ee6-b695-73d7c890d181"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"DoubleTriangle2LcLTDexpr", ",", "DoubleTriangle2Lnumerics"}], 
    "]"}], "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872790160242073*^9, 3.872790165934816*^9}, {
   3.8727969927487087`*^9, 3.87279699363657*^9}, {3.872797026132416*^9, 
   3.872797029241851*^9}, {3.872797176299097*^9, 3.872797179288602*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"9566df48-68f0-4aca-b0ba-69138895de3d"],

Cell[BoxData[
 TagBox[
  StyleBox["0.06293878695290056`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.872797181057626*^9, 3.872826489355402*^9, 
  3.8728382940172577`*^9, 3.872840714273872*^9, 3.872848359115456*^9, 
  3.873627349671142*^9, 3.873627421410947*^9},
 CellLabel->
  "Out[164]//FullForm=",ExpressionUUID->"425a993e-3137-4a1c-9e3e-\
ea073016cd49"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleTriangle2LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleTriangle2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, 
   3.8727947613375397`*^9, 3.8727948931357603`*^9, {3.872797111531693*^9, 
   3.872797113331418*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"89e62f95-e961-4a27-9af2-20cb7506da1c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{
    "DoubleTriangle2L", ",", "DoubleTriangle2LcFFexpr", ",", 
     "DoubleTriangle2Lnumerics"}], "]"}], "//", "N"}], "//", 
  "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
   3.872790175456388*^9, 3.8727901759693403`*^9}, 3.872791429962783*^9, {
   3.872797114945732*^9, 3.8727971220428133`*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"2d920664-c5ad-4ac9-81fb-943b51db1cf1"],

Cell[BoxData[
 TagBox[
  StyleBox["0.06293878695290056`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.872797124655748*^9, 3.872826481706263*^9, 
  3.872840714443472*^9, 3.872848371896535*^9, 3.873627349978101*^9, 
  3.87362742153644*^9},
 CellLabel->
  "Out[166]//FullForm=",ExpressionUUID->"011e4f29-0ec6-4be2-86f2-\
2a09d3df45e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrossFreeFamilyLTD", "[", 
  RowBox[{"DoubleTriangle2L", ",", 
   RowBox[{"ConvertToNormalisedFormat", "->", "False"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Orientations", "->", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"o", "===", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"o", ",", 
         RowBox[{
          RowBox[{
          "DoubleTriangle2LcFFexpr", "\[LeftDoubleBracket]", "1", 
           "\[RightDoubleBracket]"}], "[", "\"\<Orientation\>\"", "]"}]}], 
        "}"}]}], "]"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"DEBUG", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.87282418927404*^9, 3.872824219144011*^9}, {
  3.872824254878398*^9, 3.8728242581442204`*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"fd3833be-0112-4899-b229-f6da054f6ebd"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Now considering orientation: {-1, -1, -1, -1, -1}\"\>"], \
"Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421612359*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"bf26a41d-084a-4d78-b9bd-6bc123b42648"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421664472*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"9806f2f0-89f4-4f54-aa6c-7bfe5425dda6"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421668973*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"982fa2aa-00dd-4d10-bf66-fd5290fe5912"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 1, 4, 
      3}, {{{1, 2}, {3, 2}, {4, 1}, {3, 1}, {4, 3}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {}}, "mass" -> 0|>, <|
        "id" -> 4, "sig" -> {{0, -1}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[3, 2, <|"id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>] -> 
         2, DirectedEdge[
          3, 4, <|"id" -> 4, "sig" -> {{0, -1}, {}}, "mass" -> 0|>] -> 4, 
         DirectedEdge[
          4, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>] -> 3, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>] -> 1, 
         DirectedEdge[
          4, 2, <|"id" -> 5, "sig" -> {{1, -1}, {}}, "mass" -> 0|>] -> 5}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 1.}, {1., 0.}}, 0.030239520958083826`], 
         InsetBox["1", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.030239520958083826`], 
         InsetBox["5", {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08DgG5y/GKz9C5z/2KIPiD7D3aOsBAKf4PKJ3NsSuLd9gPPtX062ezn5
HZy/ZzcIvIbzLUHGPX4B54N0J3A/g/ONweAxnA8OnvwHcP45/u4pjctvw90j
nnNQLOfgNbi8ZMUuU3udS3D+ivQ3j76ePw3nT7EDOfAwnP/g5bU/Gzx2wvn/
tM508rGugPNhMQcApt6NHA==
          "]], 0.030239520958083826`], 
         InsetBox["3", {1., 0.9999999999999998}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo4HGCskPM3jr6ezw7nb/KQrNhliuCL5xwUyznI
Bue3WV5cyOCM4P/dANLACufXXVKvvaSO4HPMyzvL380C588UluUyeMIM55sY
gwCCfwWkvZYJzi+UOQ5EjHC+kCAIIPgbWaM3sEYzwPkLvnjO/+L53x7Gv3cX
BP7C+bIg4wr/wPkxG0AG/IbzZ80EgZ9wPjh4zH/A+Z8PK6U+ePkNzmcHWb/h
K4IP9u8XOP9rT+yef5Wf4Xxw8NR+gvPByqd8hPMjEv1KNA58gPMh4IM9AIO9
YI0=
          "]], 0.030239520958083826`], 
         InsetBox["2", {0., 2.}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {1., 2.}}, 0.030239520958083826`], 
         InsetBox["4", {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.030239520958083826], 
         InsetBox["2", 
          Offset[{2, 2}, {0.030239520958083826, 1.030239520958084}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.030239520958083826], 
         InsetBox["1", 
          Offset[{2, 2}, {1.030239520958084, 0.030239520958083826}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.030239520958083826], 
         InsetBox["4", 
          Offset[{2, 2}, {1.030239520958084, 2.0302395209580837}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 3.}, 0.030239520958083826], 
         InsetBox["3", 
          Offset[{2, 2}, {0.030239520958083826, 3.0302395209580837}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.87362742174226*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"25700e28-5c43-409a-9c10-b57c5dfba8b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found the following sources and sinks(first eligible one will \
be considered):\\nsource \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "3", "}"}], "\[InvisibleSpace]", "\<\"\\nsinks \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", "1", "}"}]}],
  SequenceForm[
  "Found the following sources and sinks(first eligible one will be \
considered):\nsource ", {3}, "\nsinks ", {1}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.8736274217503357`*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"d77526b6-a8e8-46d6-9ce1-e1b24250b6e1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Edges to be contracted (possibly won't contribute all): \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}]}],
  SequenceForm[
  "Edges to be contracted (possibly won't contribute all): ", {2, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421754725*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"d5308e1e-bbc5-41c4-b5df-748dad44012f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Contributing edge contractions: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    TemplateBox[{"3", "4", 
      RowBox[{"\[LeftAssociation]", 
        RowBox[{
          RowBox[{"\"id\"", "\[Rule]", "4"}], ",", 
          RowBox[{"\"sig\"", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"0", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                RowBox[{"{", "}"}]}], "}"}]}], ",", 
          RowBox[{"\"mass\"", "\[Rule]", "0"}]}], "\[RightAssociation]"}]},
     "DirectedEdge"], "}"}]}],
  SequenceForm["Contributing edge contractions: ", {
    DirectedEdge[3, 4, <|"id" -> 4, "sig" -> {{0, -1}, {}}, "mass" -> 0|>]}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.8736274217611837`*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"5654a1b8-ba92-4bc9-a4fe-67d876791fa8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Esurf for this term: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}],
  SequenceForm["Esurf for this term: ", {1, {2, 4}}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421767274*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"d9e876b9-063c-4d31-902c-fa1632aa862d"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421772046*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"7d2e2b61-c00d-4d17-8b34-5a479a0b9b87"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421776265*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"a46bd29a-be0f-4c43-bcd2-f5a84228c85d"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 1, 
      4}, {{{1, 2}, {3, 2}, {3, 1}, {3, 1}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[4, 2, <|"id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>] -> 
         2, DirectedEdge[
          4, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>] -> 3, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>] -> 1, 
         DirectedEdge[
          4, 2, <|"id" -> 5, "sig" -> {{1, -1}, {}}, "mass" -> 0|>] -> 5}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
         InsetBox["1", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 2.}, {0.6644407471831262, 
          1.3355592528168927`}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["2", {0.5700000000000002, 1.4300000000000002}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 2.}, {0.3355592528168884, 
          1.6644407471831248`}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["5", {0.42999999999999994, 1.57}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08DgG5y/GKz9C5z/2KIPiD7D3aOsBAKf4PKJ3NsSuLd9gPPtX062ezn5
HZy/ZzcIvIbzLUHGPX4B54N0J3A/g/ONweAxnA8OnvwHcP45/u4pjctvw90j
nnNQLOfgNbi8ZMUuU3udS3D+ivQ3j76ePw3nT7EDOfAwnP/g5bU/Gzx2wvn/
tM508rGugPNhMQcApt6NHA==
          "]], 0.02261146496815286], 
         InsetBox["3", {1., 0.9999999999999998}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["2", 
          Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["1", 
          Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.02261146496815286], 
         InsetBox["4", 
          Offset[{2, 2}, {1.0226114649681528, 2.022611464968153}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421882386*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"242777e0-d273-4d94-8ec6-d34904b80845"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found the following sources and sinks(first eligible one will \
be considered):\\nsource \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "4", "}"}], "\[InvisibleSpace]", "\<\"\\nsinks \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", "1", "}"}]}],
  SequenceForm[
  "Found the following sources and sinks(first eligible one will be \
considered):\nsource ", {4}, "\nsinks ", {1}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.8736274218928957`*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"88e39cb5-3876-440a-926a-4c7dfd318ec8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Edges to be contracted (possibly won't contribute all): \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "5"}], "}"}]}],
  SequenceForm[
  "Edges to be contracted (possibly won't contribute all): ", {3, 2, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421899206*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"0e591800-27bb-404d-87b4-e1f2e55c0fec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Contributing edge contractions: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    TemplateBox[{"4", "2", 
      RowBox[{"\[LeftAssociation]", 
        RowBox[{
          RowBox[{"\"id\"", "\[Rule]", "2"}], ",", 
          RowBox[{"\"sig\"", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", "}"}]}], "}"}]}], ",", 
          RowBox[{"\"mass\"", "\[Rule]", "0"}]}], "\[RightAssociation]"}]},
     "DirectedEdge"], "}"}]}],
  SequenceForm["Contributing edge contractions: ", {
    DirectedEdge[4, 2, <|"id" -> 2, "sig" -> {{0, 1}, {}}, "mass" -> 0|>]}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421905052*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"f9f2e4a6-ccf5-41f2-b1df-7009f69f746b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Esurf for this term: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], "}"}]}],
  SequenceForm["Esurf for this term: ", {1, {3, 2, 5}}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421910796*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"29b9bbda-60b6-4039-83c5-6be6504c368c"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421915534*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"018846b5-0d5d-437c-89bc-accd4d813ae8"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627421919784*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"efc0aac1-64f2-4eb5-b27a-a996cc3829b2"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 
      1}, {{{1, 2}, {1, 2}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          2, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {}}, "mass" -> 0|>] -> 3, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {}}, "mass" -> 0|>] -> 1}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[BezierCurveBox[{{1., 0.}, {
          0.5000000000000006, -0.16444074718311627`}, {0., 
          1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["1", {0.5000000000000001, -0.07}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 0.}, {0.5000000000000001, 
          0.16444074718311646`}, {0., 1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["3", {0.5000000000000001, 0.07000000000000012}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{1., 0.}, 0.01273], 
         InsetBox["2", Offset[{2, 2}, {1.01273, 0.01273}], ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 1.2246467991473532*^-16}, 0.01273], 
         InsetBox["1", Offset[{2, 2}, {0.01273, 0.012730000000000123}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.87362742199627*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"3b623d98-7c78-485a-9a57-da32551183fa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Reached termination condition, returning Esurf:\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}]}],
  SequenceForm["Reached termination condition, returning Esurf:", {1, 3}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.8736274220021152`*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"b2a243f9-e7f7-4cf3-99ef-088a519a014a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Complete term returned at this level: \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "1", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}], "+", 
       RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}],
  SequenceForm[
  "Complete term returned at this level: ", ($CellContext`OSE[
      1] + $CellContext`OSE[3])^(-1)/($CellContext`OSE[2] + $CellContext`OSE[
    3] + $CellContext`OSE[5])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627422006547*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"135802c8-92ca-4902-b8d9-bcdc7527d97b"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627422010565*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"66a8d56b-c0e7-46a5-840a-c086b0f420c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Complete term returned at this level: \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "1", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}], "+", 
       RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}],
  SequenceForm[
  "Complete term returned at this level: ", ($CellContext`OSE[
      1] + $CellContext`OSE[
      3])^(-1) (($CellContext`OSE[2] + $CellContext`OSE[
       4])^(-1)/($CellContext`OSE[2] + $CellContext`OSE[3] + $CellContext`OSE[
     5]))],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.87362742201587*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"6055a48b-cb55-4704-9e6c-aa5db33d4395"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8736273500537577`*^9, 3.873627422020446*^9},
 CellLabel->
  "During evaluation of \
In[167]:=",ExpressionUUID->"749b106c-76d5-4b9f-844c-446821da20e8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], 
     "}"}], ",", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "3", "]"}], "+", 
        RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.8728242202219048`*^9, 3.87282425871587*^9, 3.872824298154169*^9, 
   3.872824409497615*^9, 3.87282444704384*^9, 3.8728245116033297`*^9, 
   3.872824569325879*^9, 3.872824625153591*^9, 3.872825059980201*^9, 
   3.8728251145768137`*^9, 3.872825151825035*^9, {3.8728252390740232`*^9, 
   3.8728252743584642`*^9}, 3.872825736417996*^9, 3.87282584860763*^9, {
   3.872826415837468*^9, 3.872826475374448*^9}, 3.872838497423978*^9, 
   3.872840715091405*^9, 3.8728483798767014`*^9, 3.8736273506576223`*^9, 
   3.873627422094595*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"797e123d-af31-43c4-a477-383b5f368b93"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["with external, no masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
  3.873627187070739*^9, 
  3.8736271880850554`*^9}},ExpressionUUID->"44529002-8db7-41e3-9c19-\
cf70c2f46e6c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleTriangle2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "3", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "4", ",", "5"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "3", ",", "7"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DoubleTriangle2L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"DoubleTriangle2L", ",", 
      RowBox[{"masses", "->", 
       RowBox[{"<|", "|>"}]}], ",", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "375"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872796776090105*^9, 3.8727968245116453`*^9}, {3.8727975919505672`*^9, 
  3.8727975954485188`*^9}, {3.872797648438586*^9, 3.872797674079562*^9}, {
  3.8728382574094467`*^9, 3.872838257599929*^9}, {3.872839075053714*^9, 
  3.872839129764516*^9}, {3.872848349857049*^9, 3.872848351757959*^9}, {
  3.873518848891449*^9, 3.8735189019236517`*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"45ed3a8a-b446-45f7-8b99-3519ff0cbea7"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 101, 
      102}, {{{1, 2}, {2, 3}, {1, 4}, {4, 3}, {2, 4}, {5, 1}, {6, 3}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>, <|
        "id" -> 4, "sig" -> {{0, -1}, {1, 0}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 6, "sig" -> {{0, 0}, {1, 0}}, "mass" -> 0|>, <|
        "id" -> 7, "sig" -> {{0, 0}, {0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 375}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 3.}, {1., 2.}}, 0.03700564971751412], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"1", "0"},
                {"0", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo4HGCskPM3jr6ezw7nb/KQrNhliuCL5xwUyznI
Bue3WV5cyOCM4P/dANLACufXXVKvvaSO4HPMyzvL380C588UluUyeMIM55sY
gwCCfwWkvZYJzi+UOQ5EjHC+kCAIIPgbWaM3sEYzwPkLvnjO/+L53x7Gv3cX
BP7C+bIg4wr/wPkxG0AG/IbzZ80EgZ9wPjh4zH/A+Z8PK6U+ePkNzmcHWb/h
K4IP9u8XOP9rT+yef5Wf4Xxw8NR+gvPByqd8hPMjEv1KNA58gPMh4IM9AIO9
YI0=
          "]], 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {
                 RowBox[{"-", "1"}], "0"},
                {"1", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0., 2.}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08Dgm71vWOiflMfv7XcsC/WyYfhqbxYZ+nFy73t786m/K14v/Wy/i4Ph
fs+/d/YPDCM+FYd/sr+WEnrU3+yd/Yaa7G1XRT7a9+WGLrlj8tY+4nVWl+Ke
9/aPlBhqjH+9tl9kmWPrlfbW/nxLqE9I2yt7pye3WlU1XttHTA4Vtb/5wt70
9bbkzYwv7av9GK5//vQMTsvYmLdOSn0Mp9/ftRGPkHgAp5+lK0l1it2C0z41
GWfX11yB0+qfpk/wOHYOTlfvmSl6dvJROC23fk3wrcO74PQ8XnPTxYdWwGkG
NAAAirm6HQ==
          "]], 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"0", "1"},
                {"0", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.8288527141529387, 0.8485930997394352}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "5"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"1", 
                 RowBox[{"-", "1"}]},
                {"0", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {0., 0.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"0", 
                 RowBox[{"-", "1"}]},
                {"1", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0., 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 4.}, {0., 3.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "6"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"0", "0"},
                {"1", "0"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0., 3.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-1., 1.}, {0., 0.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "7"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"(", "\[NoBreak]", GridBox[{
                {"0", "0"},
                {"0", "1"}
               },
               
               GridBoxAlignment->{
                "Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.7]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.4]}, 
                   Offset[0.2]}}], "\[NoBreak]", ")"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {-0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{0., 3.}, 0.03700564971751412], 
        DiskBox[{1., 2.}, 0.03700564971751412], 
        DiskBox[{0., 0.}, 0.03700564971751412], 
        DiskBox[{0., 1.}, 0.03700564971751412], 
        DiskBox[{0., 4.}, 0.03700564971751412], 
        DiskBox[{-1., 1.}, 0.03700564971751412]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->375]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, {3.872796810473688*^9, 
   3.872796825004677*^9}, 3.8727970720844097`*^9, {3.872797593087082*^9, 
   3.8727975960111837`*^9}, {3.87279764916956*^9, 3.872797674692068*^9}, 
   3.8728245663075123`*^9, {3.872838252345289*^9, 3.872838258204343*^9}, 
   3.8728391306448727`*^9, 3.872840713605142*^9, 3.872848352683721*^9, {
   3.873518887343265*^9, 3.873518902303134*^9}},
 CellLabel->
  "Out[269]=",ExpressionUUID->"700f7730-e70b-4bf7-b8ce-89ec15f9b9c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleTriangle2LcLTDexpr", "=", 
  RowBox[{"GeneratecLTDExpression", "[", "DoubleTriangle2L", "]"}]}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727864358378*^9, 3.872786437591256*^9}, {3.872796829782374*^9, 
  3.8727968318114767`*^9}},
 CellLabel->
  "In[270]:=",ExpressionUUID->"94044a69-d89f-43c1-bf04-db8fe566db67"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"32", " ", "E0", " ", "E1", " ", "E2", " ", "E3", " ", "E4"}]], 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"E1", "+", "E2", "+", "E3", "-", "p1E"}], ")"}]}]]}], "-", 
       
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "-", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E2"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E1", "+", "E2", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E1", "+", "E3", "+", "E4"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"E0", "+", "E3", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E0", "+", "E1", "+", "E4", "+", "p1E"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"E2", "+", "E4", "+", "p1E"}], ")"}]}]]}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"E0", "\[Rule]", 
      SqrtBox[
       RowBox[{"k1", ".", "k1"}]]}], ",", 
     RowBox[{"E1", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k1", ".", "k1"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k1", ".", "k2"}]}], "+", 
        RowBox[{"k2", ".", "k2"}]}]]}], ",", 
     RowBox[{"E2", "\[Rule]", 
      SqrtBox[
       RowBox[{"k2", ".", "k2"}]]}], ",", 
     RowBox[{"E3", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k1", ".", "k1"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k1", ".", "p1"}]}], "+", 
        RowBox[{"p1", ".", "p1"}]}]]}], ",", 
     RowBox[{"E4", "\[Rule]", 
      SqrtBox[
       RowBox[{
        RowBox[{"k2", ".", "k2"}], "-", 
        RowBox[{"2", " ", 
         RowBox[{"k2", ".", "p1"}]}], "+", 
        RowBox[{"p1", ".", "p1"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786318624598*^9, 3.8727864555233927`*^9, 
  3.872788856792451*^9, 3.8727951891224527`*^9, 3.872796832681644*^9, 
  3.872797072350286*^9, 3.872838267858527*^9, 3.8728391344927397`*^9, 
  3.872840713941723*^9, 3.872848355446144*^9, 3.8735189049097843`*^9},
 CellLabel->
  "Out[270]=",ExpressionUUID->"da062701-fb5c-407f-9c99-4a41e31bcf07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleTriangle2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"DoubleTriangle2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}, {
  3.8727968356803703`*^9, 3.872796837729765*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"394c46b5-bab6-4f3b-8bb3-2cf2c1432642"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["29", "31"]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["17", "19"]}], ",", 
      RowBox[{"-", 
       FractionBox["19", "23"]}], ",", 
      RowBox[{"-", 
       FractionBox["23", "29"]}]}], "}"}]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["29", "31"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872796838705688*^9, 
  3.872797072397326*^9, 3.872840714013406*^9, 3.8728483570807343`*^9, 
  3.873519048372281*^9},
 CellLabel->
  "Out[271]=",ExpressionUUID->"c36446d6-f475-4df8-9868-80fc8cde4a2d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleTriangle2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "DoubleTriangle2L", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
  3.8727901475343237`*^9, 3.8727901484026947`*^9}, {3.8727971695359497`*^9, 
  3.872797171423841*^9}},
 CellLabel->
  "In[272]:=",ExpressionUUID->"4a81200a-cc9f-4db3-b52f-ee5bead3ff4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"DoubleTriangle2LcLTDexpr", ",", "DoubleTriangle2Lnumerics"}], 
    "]"}], "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872790160242073*^9, 3.872790165934816*^9}, {
   3.8727969927487087`*^9, 3.87279699363657*^9}, {3.872797026132416*^9, 
   3.872797029241851*^9}, {3.872797176299097*^9, 3.872797179288602*^9}},
 CellLabel->
  "In[273]:=",ExpressionUUID->"b68adcd1-c931-4ad5-86cb-ac45ee3401e4"],

Cell[BoxData[
 TagBox[
  StyleBox["16.90415332244872`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.872797181057626*^9, 3.872826489355402*^9, 
  3.8728382940172577`*^9, 3.872840714273872*^9, 3.872848359115456*^9, 
  3.8735190506703987`*^9},
 CellLabel->
  "Out[273]//FullForm=",ExpressionUUID->"c2640679-7238-46b4-a250-\
016613a43fc2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleTriangle2LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleTriangle2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, 
   3.8727947613375397`*^9, 3.8727948931357603`*^9, {3.872797111531693*^9, 
   3.872797113331418*^9}},
 CellLabel->
  "In[274]:=",ExpressionUUID->"f3dd7b27-8a06-483e-b2fb-76fd5461e4e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{
    "DoubleTriangle2L", ",", "DoubleTriangle2LcFFexpr", ",", 
     "DoubleTriangle2Lnumerics"}], "]"}], "//", "N"}], "//", 
  "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
   3.872790175456388*^9, 3.8727901759693403`*^9}, 3.872791429962783*^9, {
   3.872797114945732*^9, 3.8727971220428133`*^9}},
 CellLabel->
  "In[275]:=",ExpressionUUID->"0475c8c5-841f-4434-a2c5-481ae6973289"],

Cell[BoxData[
 TagBox[
  StyleBox["16.90415332244872`",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{3.872797124655748*^9, 3.872826481706263*^9, 
  3.872840714443472*^9, 3.872848371896535*^9, 3.873519056238975*^9},
 CellLabel->
  "Out[275]//FullForm=",ExpressionUUID->"35bbc181-4e93-459d-8f89-\
6ebe234ba69c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrossFreeFamilyLTD", "[", 
  RowBox[{"DoubleTriangle2L", ",", 
   RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.87351906812823*^9, {3.873519142370449*^9, 3.873519144056093*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"68eeb73c-df03-4785-aebf-742d73474971"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
        ",", 
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}]}],
        "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
        ",", 
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "3"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}]}],
        "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}], ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
        ",", 
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}]}],
        "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
       "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}], ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
        ",", 
        RowBox[{"\[LeftAssociation]", 
         RowBox[{
          RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
          RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
          RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
             ",", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\<\"OSE\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
               RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}]}]}], 
              "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}]}],
        "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
       "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}], 
            ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
       "}"}]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", 
         RowBox[{"-", "1"}]}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "5", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}]}]}], "\[RightAssociation]"}]}],
            "}"}]}]}], "\[RightAssociation]"}], "}"}]}]}], 
    "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"Orientation\"\>", "\[Rule]", 
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"1", "\[Rule]", "1"}], ",", 
        RowBox[{"3", "\[Rule]", "1"}], ",", 
        RowBox[{"2", "\[Rule]", "1"}], ",", 
        RowBox[{"5", "\[Rule]", "1"}], ",", 
        RowBox[{"4", "\[Rule]", "1"}]}], "\[RightAssociation]"}]}], ",", 
     RowBox[{"\<\"Terms\"\>", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[LeftAssociation]", 
        RowBox[{
         RowBox[{"\<\"Num\"\>", "\[Rule]", "1"}], ",", 
         RowBox[{"\<\"Orderings\"\>", "\[Rule]", "Null"}], ",", 
         RowBox[{"\<\"Esurfs\"\>", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "5"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}], ",", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\<\"OSE\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}]}], ",", 
              RowBox[{"\<\"shift_signature\"\>", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}]}]}], 
             "\[RightAssociation]"}]}], "}"}]}]}], "\[RightAssociation]"}], 
       "}"}]}]}], "\[RightAssociation]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8735190693648443`*^9, 3.8735191470108128`*^9},
 CellLabel->
  "Out[278]=",ExpressionUUID->"d44b420a-8be5-4ebd-9b31-4d0159325cdc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrossFreeFamilyLTD", "[", 
  RowBox[{"DoubleTriangle2L", ",", 
   RowBox[{"ConvertToNormalisedFormat", "->", "False"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Orientations", "->", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"o", "===", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"o", ",", 
         RowBox[{
          RowBox[{
          "DoubleTriangle2LcFFexpr", "\[LeftDoubleBracket]", "1", 
           "\[RightDoubleBracket]"}], "[", "\"\<Orientation\>\"", "]"}]}], 
        "}"}]}], "]"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"DEBUG", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.87282418927404*^9, 3.872824219144011*^9}, {
  3.872824254878398*^9, 3.8728242581442204`*^9}},
 CellLabel->
  "In[276]:=",ExpressionUUID->"d981eace-cedf-42ce-b899-bf13625bca1a"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Now considering orientation: {-1, -1, -1, -1, -1}\"\>"], \
"Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190624637547`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"0787806d-c9fa-44dc-88e5-8754bbf7f19b"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190625218782`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"e3e39034-c362-4ce3-b57b-024e70645e31"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062526454*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"da7458ed-6ed6-47c1-beab-63d68feb60ae"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 1, 4, 
      3}, {{{1, 2}, {3, 2}, {4, 1}, {3, 1}, {4, 3}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 4, "sig" -> {{0, -1}, {1, 0}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          3, 2, <|"id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>] -> 2, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>] -> 1, 
         DirectedEdge[
          4, 2, <|"id" -> 5, "sig" -> {{1, -1}, {0, 0}}, "mass" -> 0|>] -> 5, 
         DirectedEdge[
          4, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>] -> 3, 
         DirectedEdge[
          3, 4, <|"id" -> 4, "sig" -> {{0, -1}, {1, 0}}, "mass" -> 0|>] -> 4},
        VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 1.}, {1., 0.}}, 0.030239520958083826`], 
         InsetBox["1", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.030239520958083826`], 
         InsetBox["5", {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08DgG5y/GKz9C5z/2KIPiD7D3aOsBAKf4PKJ3NsSuLd9gPPtX062ezn5
HZy/ZzcIvIbzLUHGPX4B54N0J3A/g/ONweAxnA8OnvwHcP45/u4pjctvw90j
nnNQLOfgNbi8ZMUuU3udS3D+ivQ3j76ePw3nT7EDOfAwnP/g5bU/Gzx2wvn/
tM508rGugPNhMQcApt6NHA==
          "]], 0.030239520958083826`], 
         InsetBox["3", {1., 0.9999999999999998}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQjQo4HGCskPM3jr6ezw7nb/KQrNhliuCL5xwUyznI
Bue3WV5cyOCM4P/dANLACufXXVKvvaSO4HPMyzvL380C588UluUyeMIM55sY
gwCCfwWkvZYJzi+UOQ5EjHC+kCAIIPgbWaM3sEYzwPkLvnjO/+L53x7Gv3cX
BP7C+bIg4wr/wPkxG0AG/IbzZ80EgZ9wPjh4zH/A+Z8PK6U+ePkNzmcHWb/h
K4IP9u8XOP9rT+yef5Wf4Xxw8NR+gvPByqd8hPMjEv1KNA58gPMh4IM9AIO9
YI0=
          "]], 0.030239520958083826`], 
         InsetBox["2", {0., 2.}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {1., 2.}}, 0.030239520958083826`], 
         InsetBox["4", {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.030239520958083826], 
         InsetBox["2", 
          Offset[{2, 2}, {0.030239520958083826, 1.030239520958084}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.030239520958083826], 
         InsetBox["1", 
          Offset[{2, 2}, {1.030239520958084, 0.030239520958083826}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.030239520958083826], 
         InsetBox["4", 
          Offset[{2, 2}, {1.030239520958084, 2.0302395209580837}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 3.}, 0.030239520958083826], 
         InsetBox["3", 
          Offset[{2, 2}, {0.030239520958083826, 3.0302395209580837}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190626101427`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"322aa822-2d2f-44b8-bb05-07dc18bc8c5b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found the following sources (first one will be considered): \"\
\>", "\[InvisibleSpace]", 
   RowBox[{"{", "3", "}"}]}],
  SequenceForm[
  "Found the following sources (first one will be considered): ", {3}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062619487*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"aa0fe8d1-809d-4725-9f3f-cd8dd1f37e51"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Edges to be contracted (possibly won't contribute all): \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}]}],
  SequenceForm[
  "Edges to be contracted (possibly won't contribute all): ", {2, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062623996*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"e4edab9c-d5f7-4478-b05e-661a620408ac"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Contributing edge contractions: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    TemplateBox[{"3", "4", 
      RowBox[{"\[LeftAssociation]", 
        RowBox[{
          RowBox[{"\"id\"", "\[Rule]", "4"}], ",", 
          RowBox[{"\"sig\"", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"0", ",", 
                    RowBox[{"-", "1"}]}], "}"}], ",", 
                RowBox[{"{", 
                  RowBox[{"1", ",", "0"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"\"mass\"", "\[Rule]", "0"}]}], "\[RightAssociation]"}]},
     "DirectedEdge"], "}"}]}],
  SequenceForm["Contributing edge contractions: ", {
    DirectedEdge[
    3, 4, <|"id" -> 4, "sig" -> {{0, -1}, {1, 0}}, "mass" -> 0|>]}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062628174*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"65958234-6c5f-459b-82c8-c0a0029e593a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Esurf for this term: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4"}], "}"}]}],
  SequenceForm["Esurf for this term: ", {2, 4}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062633112*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"508df3cf-5517-4943-878e-07147be583de"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062636488*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"1f87ff80-866c-478a-9a56-d981390c9c0f"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062639744*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"6cfbbaa8-a375-4a69-ae71-f9bb2b9a0616"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 1, 
      4}, {{{1, 2}, {3, 2}, {3, 1}, {3, 1}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>, <|
        "id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 5, "sig" -> {{1, -1}, {0, 0}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>] -> 1, 
         DirectedEdge[
          4, 2, <|"id" -> 5, "sig" -> {{1, -1}, {0, 0}}, "mass" -> 0|>] -> 5, 
         DirectedEdge[
          4, 2, <|"id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>] -> 2, 
         DirectedEdge[
          4, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>] -> 3},
        VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
         InsetBox["1", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 2.}, {0.6644407471831262, 
          1.3355592528168927`}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["2", {0.5700000000000002, 1.4300000000000002}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 2.}, {0.3355592528168884, 
          1.6644407471831248`}, {0., 1.}}], 0.02261146496815286], 
         InsetBox["5", {0.42999999999999994, 1.57}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {ArrowBox[BezierCurveBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQEf7KEMBxh/+byN3dft/9vD+EkTjT6UZP+zZ4Ty
9W406d5o+guX5yle5MzY9gfO/5UI0vAbwV/iD0II9TZ3Z8mL/YTzDdWtRBJO
fIfz08DgG5y/GKz9C5z/2KIPiD7D3aOsBAKf4PKJ3NsSuLd9gPPtX062ezn5
HZy/ZzcIvIbzLUHGPX4B54N0J3A/g/ONweAxnA8OnvwHcP45/u4pjctvw90j
nnNQLOfgNbi8ZMUuU3udS3D+ivQ3j76ePw3nT7EDOfAwnP/g5bU/Gzx2wvn/
tM508rGugPNhMQcApt6NHA==
          "]], 0.02261146496815286], 
         InsetBox["3", {1., 0.9999999999999998}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["2", 
          Offset[{2, 2}, {0.02261146496815286, 1.0226114649681528}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["1", 
          Offset[{2, 2}, {1.0226114649681528, 0.02261146496815286}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.02261146496815286], 
         InsetBox["4", 
          Offset[{2, 2}, {1.0226114649681528, 2.022611464968153}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062722426*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"8ed88db8-15f0-4bbd-8f82-f07641d3585b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Found the following sources (first one will be considered): \"\
\>", "\[InvisibleSpace]", 
   RowBox[{"{", "4", "}"}]}],
  SequenceForm[
  "Found the following sources (first one will be considered): ", {4}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062729782*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"330e1880-c20b-49cb-a86d-ab511e620e69"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Edges to be contracted (possibly won't contribute all): \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "5"}], "}"}]}],
  SequenceForm[
  "Edges to be contracted (possibly won't contribute all): ", {3, 2, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062735099*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"feec27fb-a8ea-42ad-b8b4-268ccad5a4e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Contributing edge contractions: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    TemplateBox[{"4", "2", 
      RowBox[{"\[LeftAssociation]", 
        RowBox[{
          RowBox[{"\"id\"", "\[Rule]", "2"}], ",", 
          RowBox[{"\"sig\"", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"\"mass\"", "\[Rule]", "0"}]}], "\[RightAssociation]"}]},
     "DirectedEdge"], "}"}]}],
  SequenceForm["Contributing edge contractions: ", {
    DirectedEdge[
    4, 2, <|"id" -> 2, "sig" -> {{0, 1}, {0, 0}}, "mass" -> 0|>]}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062739493*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"3a1a44f0-e688-4d1c-9688-5261cf1bc5aa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Esurf for this term: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "5"}], "}"}]}],
  SequenceForm["Esurf for this term: ", {3, 2, 5}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062744074*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"1a312341-5ea8-46df-bfb2-f0bf1a8f4be9"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062747368*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"758cf016-7584-44c9-91de-fac07e0ad5f9"],

Cell[BoxData["\<\"Now considering the following graph:\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190627505302`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"5f744a6c-6af3-4a1d-a2da-c76d4d74a56a"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{2, 
      1}, {{{1, 2}, {1, 2}}, 
       Null, {<|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>, <|
        "id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          2, 1, <|"id" -> 3, "sig" -> {{-1, 0}, {1, 0}}, "mass" -> 0|>] -> 3, 
         DirectedEdge[
          2, 1, <|"id" -> 1, "sig" -> {{1, 0}, {0, 0}}, "mass" -> 0|>] -> 1}, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[BezierCurveBox[{{1., 0.}, {
          0.5000000000000006, -0.16444074718311627`}, {0., 
          1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["1", {0.5000000000000001, -0.07}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[BezierCurveBox[{{1., 0.}, {0.5000000000000001, 
          0.16444074718311646`}, {0., 1.2246467991473532`*^-16}}], 0.01273], 
         InsetBox["3", {0.5000000000000001, 0.07000000000000012}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{1., 0.}, 0.01273], 
         InsetBox["2", Offset[{2, 2}, {1.01273, 0.01273}], ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 1.2246467991473532*^-16}, 0.01273], 
         InsetBox["1", Offset[{2, 2}, {0.01273, 0.012730000000000123}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062816297*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"3291a5cb-c897-494d-8f1c-c2e26b851f2d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Reached termination condition, returning Esurf:\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}]}],
  SequenceForm["Reached termination condition, returning Esurf:", {1, 3}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190628227453`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"8e4735fa-b60c-4e23-a8e3-158b17a524d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Complete term returned at this level: \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "1", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}], "+", 
       RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}],
  SequenceForm[
  "Complete term returned at this level: ", ($CellContext`OSE[
      1] + $CellContext`OSE[3])^(-1)/($CellContext`OSE[2] + $CellContext`OSE[
    3] + $CellContext`OSE[5])],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190628272552`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"645da770-024e-423e-b0d1-b6d6daf0cea9"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.87351906283127*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"fd4c06f9-5550-45cb-846d-151e82410f27"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Complete term returned at this level: \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "1", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"OSE", "[", "2", "]"}], "+", 
       RowBox[{"OSE", "[", "3", "]"}], "+", 
       RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}],
  SequenceForm[
  "Complete term returned at this level: ", ($CellContext`OSE[
      1] + $CellContext`OSE[
      3])^(-1) (($CellContext`OSE[2] + $CellContext`OSE[
       4])^(-1)/($CellContext`OSE[2] + $CellContext`OSE[3] + $CellContext`OSE[
     5]))],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.8735190628368187`*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"e68d3b5f-609d-478d-88f9-44689e77158f"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.8728242585582933`*^9, 3.8728242980443172`*^9, 3.872824409423892*^9, 
   3.8728244466613283`*^9, 3.872824511177853*^9, 3.872824568957045*^9, 
   3.872824624778223*^9, 3.872825059467052*^9, 3.872825114056505*^9, 
   3.872825151445449*^9, {3.872825238287116*^9, 3.872825273941699*^9}, 
   3.872825735997635*^9, 3.872825848131092*^9, {3.8728264154494257`*^9, 
   3.872826475165552*^9}, 3.872838496900249*^9, 3.872840714548317*^9, 
   3.872848379520843*^9, 3.873519062841707*^9},
 CellLabel->
  "During evaluation of \
In[276]:=",ExpressionUUID->"e7e08489-8e09-4774-aef2-cd35ae7160dd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], 
     "}"}], ",", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "1", "]"}], "+", 
        RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "3", "]"}], "+", 
        RowBox[{"OSE", "[", "5", "]"}]}], ")"}]}]]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.8728242202219048`*^9, 3.87282425871587*^9, 3.872824298154169*^9, 
   3.872824409497615*^9, 3.87282444704384*^9, 3.8728245116033297`*^9, 
   3.872824569325879*^9, 3.872824625153591*^9, 3.872825059980201*^9, 
   3.8728251145768137`*^9, 3.872825151825035*^9, {3.8728252390740232`*^9, 
   3.8728252743584642`*^9}, 3.872825736417996*^9, 3.87282584860763*^9, {
   3.872826415837468*^9, 3.872826475374448*^9}, 3.872838497423978*^9, 
   3.872840715091405*^9, 3.8728483798767014`*^9, 3.873519062910297*^9},
 CellLabel->
  "Out[276]=",ExpressionUUID->"1a9b7d1f-9ae6-4fb1-9929-7efa21499081"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["DoubleBox2L", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872678248328179*^9, 
  3.87267825122709*^9}},ExpressionUUID->"fac593d7-fc0f-49ca-9662-\
13ed565932bc"],

Cell[CellGroupData[{

Cell["no external, with masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
  3.8728484006426563`*^9, 
  3.8728484014055033`*^9}},ExpressionUUID->"c8716038-b7b5-4860-ac6f-\
27647a5f9ee8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleBox2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "5", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"5", ",", "6", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "5", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "6", ",", "7"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DoubleBox2L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"DoubleBox2L", ",", "\[IndentingNewLine]", 
      RowBox[{"masses", "->", 
       RowBox[{"Association", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"i", "->", "i"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Range", "[", "7", "]"}]}], "}"}]}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872840825362055*^9, 3.8728408275268297`*^9}, {3.8728408656787767`*^9, 
  3.8728408984881783`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"ffd8a352-616b-4c5a-b7d2-85d40c4720aa"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 
      6}, {{{1, 2}, {2, 3}, {4, 5}, {5, 6}, {1, 4}, {2, 5}, {3, 6}}, 
       Null, {<|"id" -> 1, "sig" -> {{-1, 0}, {}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{-1, -1}, {}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{1, 0}, {}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{1, 1}, {}}, "mass" -> 4|>, <|
        "id" -> 5, "sig" -> {{1, 0}, {}}, "mass" -> 5|>, <|
        "id" -> 6, "sig" -> {{0, 1}, {}}, "mass" -> 6|>, <|
        "id" -> 7, "sig" -> {{-1, -1}, {}}, "mass" -> 7|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 600}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 3.}, {0., 2.}}, 0.030239520958083826`], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "1"}]}], 
           "\[RightAssociation]"}], {0., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {1., 2.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "5"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "5"}]}], 
           "\[RightAssociation]"}], {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {0., 1.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "2"}]}], 
           "\[RightAssociation]"}], {0., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {1., 1.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "6"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "6"}]}], 
           "\[RightAssociation]"}], {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {0., 0.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "7"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "7"}]}], 
           "\[RightAssociation]"}], {0., 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {1., 1.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "3"}]}], 
           "\[RightAssociation]"}], {1., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 1.}, {0., 0.}}, 0.030239520958083826`], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "4"}]}], 
           "\[RightAssociation]"}], {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[{0., 3.}, 0.030239520958083826], 
        DiskBox[{0., 2.}, 0.030239520958083826], 
        DiskBox[{0., 1.}, 0.030239520958083826], 
        DiskBox[{1., 2.}, 0.030239520958083826], 
        DiskBox[{1., 1.}, 0.030239520958083826], 
        DiskBox[{0., 0.}, 0.030239520958083826]}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->600]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, 3.872797220264071*^9, 
   3.872840730298057*^9, {3.8728408798307858`*^9, 3.87284089885637*^9}, 
   3.872848418005249*^9, 3.875112351940819*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"e11b2275-6ac0-4259-83ff-0f9836a8207b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleBox2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"DoubleBox2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"00317fc5-fe7d-4df3-a830-86967509fa4d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872797220391667*^9, 
  3.872840730462865*^9, 3.8728409021555433`*^9, 3.8728484181363897`*^9, 
  3.8751123520931387`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"93f6b822-e741-4180-a9c3-152e914cda11"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "DoubleBox2L", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
   3.8727864358378*^9, 3.872786437591256*^9}, 3.872840907043681*^9},
 CellLabel->"In[19]:=",ExpressionUUID->"8109a677-3eb9-4e2c-9b71-f4841302de95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"DoubleBox2LcLTDexpr", ",", "DoubleBox2Lnumerics"}], "]"}], "//", 
   "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872786449572639*^9, 3.872786482717091*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"7d6192fc-c8eb-4b93-a9ec-8d2a64850bb3"],

Cell[BoxData[
 TagBox[
  StyleBox["1.176939570544602`*^-9",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.872786459981874*^9, 3.8727864829328117`*^9}, 3.872788864920912*^9, 
   3.872788906268878*^9, 3.8727951891905403`*^9, 3.872796510870987*^9, 
   3.8727972205831957`*^9, 3.8728407308166103`*^9, 3.872840909341104*^9, 
   3.872848418453405*^9, 3.875112352346479*^9},
 CellLabel->
  "Out[20]//FullForm=",ExpressionUUID->"1c2414ee-b03a-45dc-a593-a891052e5761"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleBox2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, {
  3.8727888881603937`*^9, 3.8727888911094017`*^9}, {3.8727959440856867`*^9, 
  3.872795996075848*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"1a47814a-5a27-4391-8bfe-f56386d6154f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{
    "DoubleBox2L", ",", "DoubleBox2LcFFexpr", ",", "DoubleBox2Lnumerics"}], 
    "]"}], "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.872788895692417*^9, 3.872788932313096*^9}, {3.8727889780565233`*^9, 
  3.872788978424065*^9}, {3.872789530328937*^9, 3.872789540646806*^9}, {
  3.872789585296913*^9, 3.872789585445369*^9}, {3.8728409139186287`*^9, 
  3.872840916308522*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"918ad7a7-0b82-4e8b-b176-35c5a7c59499"],

Cell[BoxData[
 TagBox[
  StyleBox["1.176939570544602`*^-9",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.8727889134417877`*^9, 3.872788932734542*^9}, 
   3.872788978921811*^9, {3.872789531877469*^9, 3.872789540987729*^9}, 
   3.872789585892194*^9, 3.8727951896750526`*^9, 3.872795940811214*^9, {
   3.8727959932405987`*^9, 3.872795997672605*^9}, 3.872796515757333*^9, 
   3.872796617173212*^9, 3.872797221217608*^9, 3.8728407316293573`*^9, 
   3.872840916619995*^9, 3.872848419036895*^9, 3.8751123528718767`*^9},
 CellLabel->
  "Out[22]//FullForm=",ExpressionUUID->"a97609cc-bbe7-4a35-b717-796dab69ebda"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["with masses, with externals", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
   3.8728484006426563`*^9, 3.8728484014055033`*^9}, {3.872848434418722*^9, 
   3.872848436583297*^9}, 
   3.872848567017826*^9},ExpressionUUID->"f34735d5-1d22-4cee-98d6-\
7af8a54db51c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleBox2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "5", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"5", ",", "6", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "5", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "6", ",", "7"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "8"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "4", ",", "8"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"103", ",", "3", ",", "8"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"104", ",", "6", ",", "8"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DoubleBox2L", "=", 
  RowBox[{"DirectedGraph", "[", 
   RowBox[{
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"DoubleBox2L", ",", "\[IndentingNewLine]", 
      RowBox[{"masses", "->", 
       RowBox[{"Association", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"i", "->", "i"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Range", "[", "7", "]"}]}], "}"}]}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"EdgeLabels", "->", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872840825362055*^9, 3.8728408275268297`*^9}, {3.8728408656787767`*^9, 
  3.8728408984881783`*^9}, {3.872848440571299*^9, 3.8728485300554113`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"4103be37-9603-4c4f-a623-274e6a0a7016"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 6, 101, 102, 103, 
      104}, {{{1, 2}, {2, 3}, {4, 5}, {5, 6}, {1, 4}, {2, 5}, {3, 6}, {7, 
       1}, {8, 4}, {9, 3}, {10, 6}}, 
       Null, {<|"id" -> 1, "sig" -> {{-1, 0}, {1, 0, 0, 0}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{-1, -1}, {1, 0, 0, 0}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{1, 0}, {-1, 0, -1, -1}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{1, 1}, {-1, 0, -1, -1}}, "mass" -> 4|>, <|
        "id" -> 5, "sig" -> {{1, 0}, {0, 0, 0, 0}}, "mass" -> 5|>, <|
        "id" -> 6, "sig" -> {{0, 1}, {0, 0, 0, 0}}, "mass" -> 6|>, <|
        "id" -> 7, "sig" -> {{-1, -1}, {1, 0, 1, 0}}, "mass" -> 7|>, <|
        "id" -> 8, "sig" -> {{0, 0}, {1, 0, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 8, "sig" -> {{0, 0}, {0, 1, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 8, "sig" -> {{0, 0}, {0, 0, 1, 0}}, "mass" -> 0|>, <|
        "id" -> 8, "sig" -> {{0, 0}, {0, 0, 0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {Automatic}, ImageSize -> 600, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 3.}, {0., 2.}}, 0.03700564971751412], 
         InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "1"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "1"}]}], 
           "\[RightAssociation]"}], {0., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {1., 2.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "5"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "5"}]}], 
           "\[RightAssociation]"}], {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {-1., 1.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "2"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "2"}]}], 
           "\[RightAssociation]"}], {-0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {0., 1.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "6"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "6"}]}], 
           "\[RightAssociation]"}], {0., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-1., 1.}, {-1., 0.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "7"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "7"}]}], 
           "\[RightAssociation]"}], {-1., 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "3"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0", ",", 
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "3"}]}], 
           "\[RightAssociation]"}], {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {-1., 0.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "4"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", "0", ",", 
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "4"}]}], 
           "\[RightAssociation]"}], {-0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 4.}, {0., 3.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "8"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {0., 3.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 3.}, {1., 2.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "8"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {1., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-1., 2.}, {-1., 1.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "8"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {-1., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-2., 1.}, {-1., 0.}}, 0.03700564971751412], InsetBox[
          RowBox[{"\[LeftAssociation]", 
           RowBox[{
            RowBox[{"\<\"id\"\>", "\[Rule]", "8"}], ",", 
            RowBox[{"\<\"sig\"\>", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}],
             ",", 
            RowBox[{"\<\"mass\"\>", "\[Rule]", "0"}]}], 
           "\[RightAssociation]"}], {-1.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 3.}, 0.03700564971751412], 
         InsetBox["1", 
          Offset[{2, 2}, {0.03700564971751412, 3.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 2.}, 0.03700564971751412], 
         InsetBox["2", 
          Offset[{2, 2}, {0.03700564971751412, 2.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 1.}, 0.03700564971751412], 
         InsetBox["3", 
          Offset[{2, 2}, {-0.9629943502824859, 1.0370056497175142}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.03700564971751412], 
         InsetBox["4", 
          Offset[{2, 2}, {1.0370056497175142, 2.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 1.}, 0.03700564971751412], 
         InsetBox["5", 
          Offset[{2, 2}, {0.03700564971751412, 1.0370056497175142}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.03700564971751412], 
         InsetBox["6", 
          Offset[{2, 2}, {-0.9629943502824859, 0.03700564971751412}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 4.}, 0.03700564971751412], 
         InsetBox["101", 
          Offset[{2, 2}, {0.03700564971751412, 4.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 3.}, 0.03700564971751412], 
         InsetBox["102", 
          Offset[{2, 2}, {1.0370056497175142, 3.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 2.}, 0.03700564971751412], 
         InsetBox["103", 
          Offset[{2, 2}, {-0.9629943502824859, 2.037005649717514}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-2., 1.}, 0.03700564971751412], 
         InsetBox["104", 
          Offset[{2, 2}, {-1.9629943502824858, 1.0370056497175142}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->600]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, 3.872797220264071*^9, 
   3.872840730298057*^9, {3.8728408798307858`*^9, 3.87284089885637*^9}, 
   3.872848418005249*^9, {3.872848502704067*^9, 3.8728485304700623`*^9}, 
   3.8751123529530277`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"e99fc96d-32b6-46ac-b0c3-2db0be5248e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleBox2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"DoubleBox2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"4a7e6578-f113-4116-8ccf-ea4e374b28e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["29", "31"], ",", 
      FractionBox["31", "37"], ",", 
      FractionBox["37", "41"]}], "}"}]}], ",", 
   RowBox[{"p3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["41", "43"], ",", 
      FractionBox["43", "47"], ",", 
      FractionBox["47", "53"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["53", "59"]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    FractionBox["59", "61"]}], ",", 
   RowBox[{"p3E", "\[Rule]", 
    FractionBox["61", "67"]}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["70503", "25327"]}], ",", 
      RowBox[{"-", 
       FractionBox["103145", "39997"]}], ",", 
      RowBox[{"-", 
       FractionBox["162731", "63017"]}]}], "}"}]}], ",", 
   RowBox[{"p4E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["669377", "241133"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872797220391667*^9, 
  3.872840730462865*^9, 3.8728409021555433`*^9, 3.8728484181363897`*^9, 
  3.872848535944407*^9, 3.8751123529674673`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"bbc8d9a6-e61f-43aa-907c-c00efc767958"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "DoubleBox2L", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
   3.8727864358378*^9, 3.872786437591256*^9}, 3.872840907043681*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"2aa18e9a-8634-4bd7-8321-c22b6cfb4578"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"DoubleBox2LcLTDexpr", ",", "DoubleBox2Lnumerics"}], "]"}], "//", 
   "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872786449572639*^9, 3.872786482717091*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"5a281722-1601-434f-988d-65d0ddb5bfe5"],

Cell[BoxData[
 TagBox[
  StyleBox["2.2223714932265047`*^-9",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.872786459981874*^9, 3.8727864829328117`*^9}, 3.872788864920912*^9, 
   3.872788906268878*^9, 3.8727951891905403`*^9, 3.872796510870987*^9, 
   3.8727972205831957`*^9, 3.8728407308166103`*^9, 3.872840909341104*^9, 
   3.872848418453405*^9, 3.872848538975627*^9, 3.8751123533491993`*^9},
 CellLabel->
  "Out[27]//FullForm=",ExpressionUUID->"d3c92cff-be3b-43d2-a5e8-36bcba6bb3a8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleBox2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, {
  3.8727888881603937`*^9, 3.8727888911094017`*^9}, {3.8727959440856867`*^9, 
  3.872795996075848*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"a3e8375a-016f-48a8-a5b4-aaa6a12be7cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{
    "DoubleBox2L", ",", "DoubleBox2LcFFexpr", ",", "DoubleBox2Lnumerics"}], 
    "]"}], "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.872788895692417*^9, 3.872788932313096*^9}, {3.8727889780565233`*^9, 
  3.872788978424065*^9}, {3.872789530328937*^9, 3.872789540646806*^9}, {
  3.872789585296913*^9, 3.872789585445369*^9}, {3.8728409139186287`*^9, 
  3.872840916308522*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"03120e75-96e5-4812-82fc-ed6c41c1fb99"],

Cell[BoxData[
 TagBox[
  StyleBox["2.2223714932265047`*^-9",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.8727889134417877`*^9, 3.872788932734542*^9}, 
   3.872788978921811*^9, {3.872789531877469*^9, 3.872789540987729*^9}, 
   3.872789585892194*^9, 3.8727951896750526`*^9, 3.872795940811214*^9, {
   3.8727959932405987`*^9, 3.872795997672605*^9}, 3.872796515757333*^9, 
   3.872796617173212*^9, 3.872797221217608*^9, 3.8728407316293573`*^9, 
   3.872840916619995*^9, 3.872848419036895*^9, 3.87284854188657*^9, 
   3.8751123539380293`*^9},
 CellLabel->
  "Out[29]//FullForm=",ExpressionUUID->"caac9c72-1df2-4915-b2d1-033599a91654"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["with masses, with externals, with numerator", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
   3.8728484006426563`*^9, 3.8728484014055033`*^9}, {3.872848434418722*^9, 
   3.872848436583297*^9}, 3.872848567017826*^9, {3.872914124481634*^9, 
   3.872914127031152*^9}},ExpressionUUID->"3c20519a-c22f-4dbf-8b4f-\
44eec47c3069"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleBox2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "5", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"5", ",", "6", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "5", ",", "6"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "6", ",", "7"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "8"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "4", ",", "9"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"103", ",", "3", ",", "10"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"104", ",", "6", ",", "11"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DoubleBox2L", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"DoubleBox2L", ",", "\[IndentingNewLine]", 
      RowBox[{"masses", "->", 
       RowBox[{"Association", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"i", "->", "i"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Range", "[", "7", "]"}]}], "}"}]}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"5", ",", "6"}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DirectedGraph", "[", 
  RowBox[{"DoubleBox2L", ",", 
   RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "275"}], ",", 
   RowBox[{"GraphLayout", "\[Rule]", "\"\<HighDimensionalEmbedding\>\""}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"EdgeLabels", "->", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"e", "->", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<q\>\"", "<>", 
           RowBox[{"ToString", "[", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"e", "/.", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"DirectedEdge", "[", 
                   RowBox[{"_", ",", "_", ",", "props_"}], "]"}], ":>", 
                  "props"}], "}"}]}], ")"}], "[", "\"\<id\>\"", "]"}], ")"}], 
            "]"}]}], ")"}], ",", 
         RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"e", ",", 
        RowBox[{"EdgeList", "[", "DoubleBox2L", "]"}]}], "}"}]}], "]"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872840825362055*^9, 3.8728408275268297`*^9}, {3.8728408656787767`*^9, 
  3.8728408984881783`*^9}, {3.872848440571299*^9, 3.8728485300554113`*^9}, {
  3.872914249565506*^9, 3.8729142756473837`*^9}, {3.8729291213950453`*^9, 
  3.8729291334748163`*^9}, {3.872929237441519*^9, 3.8729292406115627`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"d5e178a7-e15a-4c8c-b1af-d118234c110a"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 6, 101, 102, 103, 
      104}, {{{1, 2}, {2, 3}, {4, 5}, {5, 6}, {1, 4}, {2, 5}, {3, 6}, {7, 
       1}, {8, 4}, {9, 3}, {10, 6}}, 
       Null, {<|"id" -> 1, "sig" -> {{-1, 0}, {1, 0, 0, 0}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{-1, -1}, {1, 0, 0, 0}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{1, 0}, {-1, 0, -1, -1}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{1, 1}, {-1, 0, -1, -1}}, "mass" -> 4|>, <|
        "id" -> 5, "sig" -> {{1, 0}, {0, 0, 0, 0}}, "mass" -> 5|>, <|
        "id" -> 6, "sig" -> {{0, 1}, {0, 0, 0, 0}}, "mass" -> 6|>, <|
        "id" -> 7, "sig" -> {{-1, -1}, {1, 0, 1, 0}}, "mass" -> 7|>, <|
        "id" -> 8, "sig" -> {{0, 0}, {1, 0, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 9, "sig" -> {{0, 0}, {0, 1, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 10, "sig" -> {{0, 0}, {0, 0, 1, 0}}, "mass" -> 0|>, <|
        "id" -> 11, "sig" -> {{0, 0}, {0, 0, 0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          5, 6, <|"id" -> 4, "sig" -> {{1, 1}, {-1, 0, -1, -1}}, "mass" -> 
            4|>] -> Style["q4", FontSize -> 20], 
         DirectedEdge[
          2, 5, <|"id" -> 6, "sig" -> {{0, 1}, {0, 0, 0, 0}}, "mass" -> 6|>] -> 
         Style["q6", FontSize -> 20], 
         DirectedEdge[
          102, 4, <|
           "id" -> 9, "sig" -> {{0, 0}, {0, 1, 0, 0}}, "mass" -> 0|>] -> 
         Style["q9", FontSize -> 20], 
         DirectedEdge[
          1, 2, <|"id" -> 1, "sig" -> {{-1, 0}, {1, 0, 0, 0}}, "mass" -> 1|>] -> 
         Style["q1", FontSize -> 20], 
         DirectedEdge[
          104, 6, <|
           "id" -> 11, "sig" -> {{0, 0}, {0, 0, 0, 1}}, "mass" -> 0|>] -> 
         Style["q11", FontSize -> 20], 
         DirectedEdge[
          2, 3, <|"id" -> 2, "sig" -> {{-1, -1}, {1, 0, 0, 0}}, "mass" -> 
            2|>] -> Style["q2", FontSize -> 20], 
         DirectedEdge[
          101, 1, <|
           "id" -> 8, "sig" -> {{0, 0}, {1, 0, 0, 0}}, "mass" -> 0|>] -> 
         Style["q8", FontSize -> 20], 
         DirectedEdge[
          103, 3, <|
           "id" -> 10, "sig" -> {{0, 0}, {0, 0, 1, 0}}, "mass" -> 0|>] -> 
         Style["q10", FontSize -> 20], 
         DirectedEdge[
          1, 4, <|"id" -> 5, "sig" -> {{1, 0}, {0, 0, 0, 0}}, "mass" -> 5|>] -> 
         Style["q5", FontSize -> 20], 
         DirectedEdge[
          3, 6, <|"id" -> 7, "sig" -> {{-1, -1}, {1, 0, 1, 0}}, "mass" -> 
            7|>] -> Style["q7", FontSize -> 20], 
         DirectedEdge[
          4, 5, <|"id" -> 3, "sig" -> {{1, 0}, {-1, 0, -1, -1}}, "mass" -> 
            3|>] -> Style["q3", FontSize -> 20]}, GraphLayout -> 
       "HighDimensionalEmbedding", ImageSize -> 275, 
       VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {
         ArrowBox[{{2.629720489477126, 1.5907198204120507`}, {
          1.4767269377668948`, 1.5907198204120498`}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q1\"\>",
           StripOnInput->False,
           FontSize->20], {2.0532237136220104, 1.5907198204120503}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.629720489477126, 1.5907198204120507`}, {
          2.629720489477126, 0.3181439640824083}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q5\"\>",
           StripOnInput->False,
           FontSize->20], {2.629720489477126, 0.9544318922472295}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1.4767269377668948`, 1.5907198204120498`}, {
          0.3237333860566627, 1.5907198204120507`}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q2\"\>",
           StripOnInput->False,
           FontSize->20], {0.9002301619117787, 1.5907198204120503}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1.4767269377668948`, 1.5907198204120498`}, {
          1.4767269377668943`, 0.3181439640824074}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q6\"\>",
           StripOnInput->False,
           FontSize->20], {1.4767269377668946, 0.9544318922472286}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0.3237333860566627, 1.5907198204120507`}, {
          0.32373338605666246`, 0.3181439640824083}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q7\"\>",
           StripOnInput->False,
           FontSize->20], {0.3237333860566626, 0.9544318922472295}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.629720489477126, 0.3181439640824083}, {
          1.4767269377668943`, 0.3181439640824074}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q3\"\>",
           StripOnInput->False,
           FontSize->20], {2.0532237136220104, 0.31814396408240786}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1.4767269377668943`, 0.3181439640824074}, {
          0.32373338605666246`, 0.3181439640824083}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q4\"\>",
           StripOnInput->False,
           FontSize->20], {0.9002301619117784, 0.31814396408240786}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.953453875533789, 1.9088637844944636`}, {
          2.629720489477126, 1.5907198204120507`}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q8\"\>",
           StripOnInput->False,
           FontSize->20], {2.7915871825054577, 1.7497918024532573}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2.9534538755337882`, 0.}, {2.629720489477126, 
          0.3181439640824083}}, 0.029904792426376198`], InsetBox[
          StyleBox["\<\"q9\"\>",
           StripOnInput->False,
           FontSize->20], {2.7915871825054572, 0.15907198204120415}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{6.661338147750939*^-16, 1.9088637844944643`}, {
          0.3237333860566627, 1.5907198204120507`}}, 0.029904792426376198`], 
         InsetBox[
          StyleBox["\<\"q10\"\>",
           StripOnInput->False,
           FontSize->20], {0.16186669302833168, 1.7497918024532575}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.220446049250313*^-16}, {0.32373338605666246`, 
          0.3181439640824083}}, 0.029904792426376198`], InsetBox[
          StyleBox["\<\"q11\"\>",
           StripOnInput->False,
           FontSize->20], {0.16186669302833123, 0.15907198204120426}, 
          ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{2.629720489477126, 1.5907198204120507}, 
          0.029904792426376198], 
         InsetBox["1", 
          Offset[{2, 2}, {2.6596252819035024, 1.620624612838427}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.4767269377668948, 1.5907198204120498}, 
          0.029904792426376198], 
         InsetBox["2", Offset[{2, 2}, {1.506631730193271, 1.620624612838426}],
           ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.3237333860566627, 1.5907198204120507}, 
          0.029904792426376198], 
         InsetBox["3", 
          Offset[{2, 2}, {0.3536381784830389, 1.620624612838427}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.629720489477126, 0.3181439640824083}, 
          0.029904792426376198], 
         InsetBox["4", 
          Offset[{2, 2}, {2.6596252819035024, 0.34804875650878453}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.4767269377668943, 0.3181439640824074}, 
          0.029904792426376198], 
         InsetBox["5", 
          Offset[{2, 2}, {1.5066317301932706, 0.34804875650878364}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.32373338605666246, 0.3181439640824083}, 
          0.029904792426376198], 
         InsetBox["6", 
          Offset[{2, 2}, {0.3536381784830387, 0.34804875650878453}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.953453875533789, 1.9088637844944636}, 
          0.029904792426376198], 
         InsetBox["101", 
          Offset[{2, 2}, {2.9833586679601654, 1.9387685769208398}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.9534538755337882, 0.}, 0.029904792426376198], 
         InsetBox["102", 
          Offset[{2, 2}, {2.9833586679601645, 0.029904792426376198}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{6.661338147750939*^-16, 1.9088637844944643}, 
          0.029904792426376198], 
         InsetBox["103", 
          Offset[{2, 2}, {0.029904792426376864, 1.9387685769208405}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 2.220446049250313*^-16}, 0.029904792426376198], 
         InsetBox["104", 
          Offset[{2, 2}, {0.029904792426376198, 0.02990479242637642}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->275]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, 3.872797220264071*^9, 
   3.872840730298057*^9, {3.8728408798307858`*^9, 3.87284089885637*^9}, 
   3.872848418005249*^9, {3.872848502704067*^9, 3.8728485304700623`*^9}, 
   3.872914276037506*^9, 3.872929137175071*^9, 3.8729292411007223`*^9, 
   3.873268727617264*^9, 3.875112354052411*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"5f7b2405-dc1b-454f-b84b-5145143ff985"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleBox2Lnumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"DoubleBox2L", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"46be07e3-35ca-4052-8cec-5432b07d096d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["29", "31"], ",", 
      FractionBox["31", "37"], ",", 
      FractionBox["37", "41"]}], "}"}]}], ",", 
   RowBox[{"p3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["41", "43"], ",", 
      FractionBox["43", "47"], ",", 
      FractionBox["47", "53"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["53", "59"]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    FractionBox["59", "61"]}], ",", 
   RowBox[{"p3E", "\[Rule]", 
    FractionBox["61", "67"]}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["70503", "25327"]}], ",", 
      RowBox[{"-", 
       FractionBox["103145", "39997"]}], ",", 
      RowBox[{"-", 
       FractionBox["162731", "63017"]}]}], "}"}]}], ",", 
   RowBox[{"p4E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["669377", "241133"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872797220391667*^9, 
  3.872840730462865*^9, 3.8728409021555433`*^9, 3.8728484181363897`*^9, 
  3.872848535944407*^9, 3.872929149380385*^9, 3.872929244514349*^9, 
  3.873268744550147*^9, 3.87511235417415*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"200440d4-a64e-4101-941a-7380d60aef63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DoubleBox2LNumerator", "=", 
  RowBox[{
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "2", "]"}], ",", 
     RowBox[{"q", "[", "7", "]"}]}], "]"}], "+", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "4", "]"}], ",", 
     RowBox[{"q", "[", "6", "]"}]}], "]"}], "+", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "3", "]"}], ",", 
     RowBox[{"q", "[", "5", "]"}]}], "]"}], "+", 
   RowBox[{"SP4", "[", 
    RowBox[{
     RowBox[{"q", "[", "1", "]"}], ",", 
     RowBox[{"q", "[", "8", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.872929150401643*^9, 3.872929200975828*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"ecc4f046-2c4b-4ec6-bdc5-f602a2ea2d9f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SP4", "[", 
   RowBox[{
    RowBox[{"q", "[", "1", "]"}], ",", 
    RowBox[{"q", "[", "8", "]"}]}], "]"}], "+", 
  RowBox[{"SP4", "[", 
   RowBox[{
    RowBox[{"q", "[", "2", "]"}], ",", 
    RowBox[{"q", "[", "7", "]"}]}], "]"}], "+", 
  RowBox[{"SP4", "[", 
   RowBox[{
    RowBox[{"q", "[", "3", "]"}], ",", 
    RowBox[{"q", "[", "5", "]"}]}], "]"}], "+", 
  RowBox[{"SP4", "[", 
   RowBox[{
    RowBox[{"q", "[", "4", "]"}], ",", 
    RowBox[{"q", "[", "6", "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.872929210505006*^9, 3.872929245168943*^9, 
  3.87326881405364*^9, 3.875112354184276*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"aed831e8-924c-47b1-87d6-059340a2b0d7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", 
    RowBox[{"DoubleBox2L", ",", 
     RowBox[{"Num", "->", "DoubleBox2LNumerator"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
   3.8727864358378*^9, 3.872786437591256*^9}, 3.872840907043681*^9, {
   3.872929206526361*^9, 3.8729292082329693`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"85f2e32b-357e-4507-8192-837933d75f02"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"DoubleBox2LcLTDexpr", ",", "DoubleBox2Lnumerics"}], "]"}], "//", 
   "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872786449572639*^9, 3.872786482717091*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"83155aef-7540-48a0-a7b5-77c1f4c78dbd"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"-", "3.4840385987804833`*^-8"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.872786459981874*^9, 3.8727864829328117`*^9}, 3.872788864920912*^9, 
   3.872788906268878*^9, 3.8727951891905403`*^9, 3.872796510870987*^9, 
   3.8727972205831957`*^9, 3.8728407308166103`*^9, 3.872840909341104*^9, 
   3.872848418453405*^9, 3.872848538975627*^9, 3.872929259411379*^9, 
   3.8732688604584293`*^9, 3.875112362965858*^9},
 CellLabel->
  "Out[36]//FullForm=",ExpressionUUID->"490bbee2-ef29-44bc-9002-91dcdabc5a3b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"DoubleBox2LcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleBox2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, {
  3.8727888881603937`*^9, 3.8727888911094017`*^9}, {3.8727959440856867`*^9, 
  3.872795996075848*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"f983dfa4-49a8-4801-a02b-9af2c28f5e5b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{
    "DoubleBox2L", ",", "DoubleBox2LcFFexpr", ",", "DoubleBox2Lnumerics", ",", 
     RowBox[{"Num", "->", "DoubleBox2LNumerator"}]}], "]"}], "//", "N"}], "//",
   "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.872788895692417*^9, 3.872788932313096*^9}, {3.8727889780565233`*^9, 
  3.872788978424065*^9}, {3.872789530328937*^9, 3.872789540646806*^9}, {
  3.872789585296913*^9, 3.872789585445369*^9}, {3.8728409139186287`*^9, 
  3.872840916308522*^9}, {3.872929267919939*^9, 3.872929287145444*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"ca7cb8b5-6e44-4a2e-99ad-9ef9a91f3807"],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"-", "3.484038598780482`*^-8"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.8727889134417877`*^9, 3.872788932734542*^9}, 
   3.872788978921811*^9, {3.872789531877469*^9, 3.872789540987729*^9}, 
   3.872789585892194*^9, 3.8727951896750526`*^9, 3.872795940811214*^9, {
   3.8727959932405987`*^9, 3.872795997672605*^9}, 3.872796515757333*^9, 
   3.872796617173212*^9, 3.872797221217608*^9, 3.8728407316293573`*^9, 
   3.872840916619995*^9, 3.872848419036895*^9, 3.87284854188657*^9, 
   3.872929288211134*^9, 3.873268903254637*^9, 3.875112363687296*^9},
 CellLabel->
  "Out[38]//FullForm=",ExpressionUUID->"89f7a974-b3a7-48ba-9c12-f037b3e58ec3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DoubleBox2LcFFexprFactorised", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"DoubleBox2L", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "False"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"CompareOPCount", "[", 
  RowBox[{"DoubleBox2LcLTDexpr", ",", "DoubleBox2LcFFexprFactorised"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8729292938148813`*^9, 3.872929321974268*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"c8e0a461-a3f1-4999-b260-b4f0b120366d"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"CompareOPCount", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                RowBox[{"-", 
                 FractionBox["2", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"E0", "+", "E2", "+", "p1E"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"E3", "+", "E4", "+", "p3E"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    "E0", "+", "E1", "+", "E4", "+", "p1E", "+", "p3E"}], 
                    ")"}]}]]}], "-", 
                FractionBox["3", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"E1", "+", "E5", "+", "E6"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"E1", "+", "E2", "+", "E4", "+", "p3E"}], ")"}], 
                  " ", 
                  RowBox[{"(", 
                   RowBox[{"E1", "+", "E4", "+", "E5", "-", "p4E"}], ")"}]}]],
                 "+", 
                TemplateBox[{"18526"},
                 "OutputSizeLimit`Skeleton"], "+", 
                FractionBox[
                 RowBox[{"p1", ".", "p3"}], 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"E2", "+", "E5", "+", "p3E", "+", "p4E"}], ")"}], 
                  " ", 
                  RowBox[{"(", 
                   RowBox[{
                   "E1", "+", "E3", "+", "E5", "+", "p3E", "+", "p4E"}], 
                   ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"E3", "+", "E6", "+", "p3E", "+", "p4E"}], ")"}], 
                  " ", 
                  RowBox[{"(", 
                   RowBox[{"E2", "+", "E3", "+", "E4", "+", "E5", "+", 
                    RowBox[{"2", " ", "p3E"}], "+", "p4E"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                   "E0", "+", "E3", "+", "E4", "+", "E5", "+", "p1E", "+", 
                    RowBox[{"2", " ", "p3E"}], "+", "p4E"}], ")"}]}]]}], 
               RowBox[{
               "128", " ", "E0", " ", "E1", " ", "E2", " ", "E3", " ", "E4", 
                " ", "E5", " ", "E6"}]]}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"E0", "\[Rule]", 
                SqrtBox[
                 RowBox[{"25", "+", 
                  RowBox[{"k1", ".", "k1"}]}]]}], ",", 
               RowBox[{"E1", "\[Rule]", 
                SqrtBox[
                 RowBox[{"36", "+", 
                  RowBox[{"k2", ".", "k2"}]}]]}], ",", 
               RowBox[{"E2", "\[Rule]", 
                SqrtBox[
                 RowBox[{"1", "+", 
                  RowBox[{"k1", ".", "k1"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p1"}]}], "+", 
                  RowBox[{"p1", ".", "p1"}]}]]}], ",", 
               RowBox[{"E3", "\[Rule]", 
                SqrtBox[
                 RowBox[{"4", "+", 
                  RowBox[{"k1", ".", "k1"}], "+", 
                  TemplateBox[{"6"},
                   "OutputSizeLimit`Skeleton"], "+", 
                  RowBox[{"p1", ".", "p1"}]}]]}], ",", 
               RowBox[{"E4", "\[Rule]", 
                SqrtBox[
                 RowBox[{"49", "+", 
                  RowBox[{"k1", ".", "k1"}], "+", 
                  TemplateBox[{"10"},
                   "OutputSizeLimit`Skeleton"], "+", 
                  RowBox[{"p1", ".", "p1"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p1", ".", "p3"}]}], "+", 
                  RowBox[{"p3", ".", "p3"}]}]]}], ",", 
               RowBox[{"E5", "\[Rule]", 
                SqrtBox[
                 RowBox[{"9", "+", 
                  RowBox[{"k1", ".", "k1"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p1"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p3"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p4"}]}], "+", 
                  RowBox[{"p1", ".", "p1"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p1", ".", "p3"}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p1", ".", "p4"}]}], "+", 
                  RowBox[{"p3", ".", "p3"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p3", ".", "p4"}]}], "+", 
                  RowBox[{"p4", ".", "p4"}]}]]}], ",", 
               RowBox[{"E6", "\[Rule]", 
                SqrtBox[
                 RowBox[{"16", "+", 
                  RowBox[{"k1", ".", "k1"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "k2"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p1"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p3"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k1", ".", "p4"}]}], "+", 
                  RowBox[{"k2", ".", "k2"}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k2", ".", "p1"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k2", ".", "p3"}]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{"k2", ".", "p4"}]}], "+", 
                  RowBox[{"p1", ".", "p1"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p1", ".", "p3"}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p1", ".", "p4"}]}], "+", 
                  RowBox[{"p3", ".", "p3"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"p3", ".", "p4"}]}], "+", 
                  RowBox[{"p4", ".", "p4"}]}]]}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            TemplateBox[{"1"},
             "OutputSizeLimit`Skeleton"], "}"}]}], "]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{59., {2., 8.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{51., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 40, 32518528557571593140, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 40, 32518528557571593140, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{42., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 40, 32518528557571593140, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[32518528557571593140 === $SessionID, 
   Out[40], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.872929323614111*^9, {3.873268954192101*^9, 3.873268982561659*^9}, 
   3.875112364424457*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"0552324f-3c2b-4fb2-a71b-0409cdfebc4b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CrossFreeFamilyLTD", "[", 
  RowBox[{"DoubleBox2L", ",", 
   RowBox[{"ConvertToNormalisedFormat", "->", "False"}], ",", 
   RowBox[{"Orientations", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
      "DoubleBox2LcFFexprFactorised", "\[LeftDoubleBracket]", "1", 
       "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "1", 
      "\[RightDoubleBracket]"}], "}"}]}], ",", 
   RowBox[{"DEBUG", "->", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.873269036297393*^9, 3.8732690726506453`*^9}, {
  3.8732692282664003`*^9, 3.8732692288613577`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"31fe5323-37d0-4823-953a-0432ae270a87"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "True", ",", "True", ",", "True", ",", "True", ",", "True", ",", "True", 
      ",", "True"}], "}"}], ",", 
    FractionBox[
     RowBox[{
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "2", "]"}], "+", 
            RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "4", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}]}]], "+", 
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "4", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "6", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}]}]]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "1", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "6", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "4", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "3", "]"}], "+", 
            RowBox[{"OSE", "[", "6", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"OSE", "[", "5", "]"}], "+", 
            RowBox[{"OSE", "[", "6", "]"}], "+", 
            RowBox[{"OSE", "[", "7", "]"}]}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"OSE", "[", "2", "]"}], "+", 
              RowBox[{"OSE", "[", "4", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"OSE", "[", "4", "]"}], "+", 
              RowBox[{"OSE", "[", "7", "]"}]}], ")"}]}]], "+", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"OSE", "[", "4", "]"}], "+", 
              RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"OSE", "[", "3", "]"}], "+", 
              RowBox[{"OSE", "[", "6", "]"}], "+", 
              RowBox[{"OSE", "[", "7", "]"}]}], ")"}]}]]}], 
         RowBox[{
          RowBox[{"OSE", "[", "2", "]"}], "+", 
          RowBox[{"OSE", "[", "3", "]"}], "+", 
          RowBox[{"OSE", "[", "6", "]"}]}]]}], 
       RowBox[{
        RowBox[{"OSE", "[", "2", "]"}], "+", 
        RowBox[{"OSE", "[", "5", "]"}], "+", 
        RowBox[{"OSE", "[", "6", "]"}]}]]}], 
     RowBox[{
      RowBox[{"OSE", "[", "1", "]"}], "+", 
      RowBox[{"OSE", "[", "5", "]"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.873269060775453*^9, 3.87326907556916*^9}, 
   3.873269231256468*^9, 3.875112364771611*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"0aaf1d39-00e1-4244-aaa1-7c36c5ba0bca"]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["2x2 Fishnet", "Subsection",
 CellChangeTimes->{{3.8726008213245487`*^9, 3.872600852313833*^9}, {
  3.872678248328179*^9, 3.87267825122709*^9}, {3.872848553016901*^9, 
  3.872848558351884*^9}},ExpressionUUID->"d9695421-9ec0-4cba-be4e-\
3711e7cfd4ac"],

Cell[CellGroupData[{

Cell["with external, with masses", "Subsubsection",
 CellChangeTimes->{{3.872796895443802*^9, 3.8727969090820427`*^9}, {
  3.8728484006426563`*^9, 3.8728484014055033`*^9}, {3.872848564177177*^9, 
  3.8728485646681023`*^9}},ExpressionUUID->"bc488892-2cf3-4659-9229-\
c12bcda7ded1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"myGraph", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "2", ",", "1"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "3", ",", "2"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "5", ",", "3"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"5", ",", "6", ",", "4"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"7", ",", "8", ",", "5"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"8", ",", "9", ",", "6"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"1", ",", "4", ",", "7"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"2", ",", "5", ",", "8"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"3", ",", "6", ",", "9"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"4", ",", "7", ",", "10"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"5", ",", "8", ",", "11"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"6", ",", "9", ",", "12"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"101", ",", "1", ",", "13"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"102", ",", "3", ",", "14"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"103", ",", "7", ",", "15"}], "]"}], ",", 
       RowBox[{"DirectedEdge", "[", 
        RowBox[{"104", ",", "9", ",", "16"}], "]"}]}], "\[IndentingNewLine]", 
      "}"}], ",", 
     RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"EdgeLabels", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myGraph", "=", 
   RowBox[{"DirectedGraph", "[", 
    RowBox[{"AssignSignatures", "[", 
     RowBox[{"myGraph", ",", "\[IndentingNewLine]", 
      RowBox[{"masses", "->", 
       RowBox[{"Association", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"i", "->", "i"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Range", "[", "12", "]"}]}], "}"}]}], "]"}], "]"}]}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"lmb", "->", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "5", ",", "6"}], "}"}]}]}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DirectedGraph", "[", 
  RowBox[{"myGraph", ",", 
   RowBox[{"VertexLabels", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"EdgeLabels", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"e", "->", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"DirectedEdge", "[", 
              RowBox[{"_", ",", "_", ",", "props_"}], "]"}], ":>", "props"}], 
            "}"}]}], ")"}], "[", "\"\<id\>\"", "]"}], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"e", ",", 
        RowBox[{"EdgeList", "[", "myGraph", "]"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8727862794755*^9, 3.8727862930870867`*^9}, {
  3.872840825362055*^9, 3.8728408275268297`*^9}, {3.8728408656787767`*^9, 
  3.8728408984881783`*^9}, {3.872848572983378*^9, 3.872848968920377*^9}, {
  3.872849070396145*^9, 3.872849081211103*^9}, {3.872849238013115*^9, 
  3.872849283824649*^9}, {3.872849328443112*^9, 3.8728493287924433`*^9}, {
  3.872849384941616*^9, 3.872849385291954*^9}, {3.872849419246366*^9, 
  3.872849419856082*^9}, {3.87284946763367*^9, 3.872849489642624*^9}, {
  3.8728500807168837`*^9, 3.8728500872840014`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"57d841b7-f0fa-4ab1-bc4d-cd8bbe7e7cf9"],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 101, 102, 103, 
      104}, {{{1, 2}, {2, 3}, {4, 5}, {5, 6}, {7, 8}, {8, 9}, {1, 4}, {2, 
       5}, {3, 6}, {4, 7}, {5, 8}, {6, 9}, {10, 1}, {11, 3}, {12, 7}, {13, 
       9}}, Null, {<|
        "id" -> 1, "sig" -> {{1, 0, 0, 0}, {0, 0, 0, 0}}, "mass" -> 1|>, <|
        "id" -> 2, "sig" -> {{0, 1, 0, 0}, {0, 0, 0, 0}}, "mass" -> 2|>, <|
        "id" -> 3, "sig" -> {{-1, 0, -1, 0}, {1, 0, 1, 0}}, "mass" -> 3|>, <|
        "id" -> 4, "sig" -> {{0, -1, 0, -1}, {1, 0, 1, 0}}, "mass" -> 4|>, <|
        "id" -> 5, "sig" -> {{0, 0, 1, 0}, {0, 0, 0, 0}}, "mass" -> 5|>, <|
        "id" -> 6, "sig" -> {{0, 0, 0, 1}, {0, 0, 0, 0}}, "mass" -> 6|>, <|
        "id" -> 7, "sig" -> {{-1, 0, 0, 0}, {1, 0, 0, 0}}, "mass" -> 7|>, <|
        "id" -> 8, "sig" -> {{1, -1, 0, 0}, {0, 0, 0, 0}}, "mass" -> 8|>, <|
        "id" -> 9, "sig" -> {{0, 1, 0, 0}, {0, 1, 0, 0}}, "mass" -> 9|>, <|
        "id" -> 10, "sig" -> {{0, 0, 1, 0}, {0, 0, -1, 0}}, "mass" -> 10|>, <|
        "id" -> 11, "sig" -> {{0, 0, -1, 1}, {0, 0, 0, 0}}, "mass" -> 11|>, <|
        "id" -> 12, "sig" -> {{0, 0, 0, -1}, {1, 1, 1, 0}}, "mass" -> 12|>, <|
        "id" -> 13, "sig" -> {{0, 0, 0, 0}, {1, 0, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 14, "sig" -> {{0, 0, 0, 0}, {0, 1, 0, 0}}, "mass" -> 0|>, <|
        "id" -> 15, "sig" -> {{0, 0, 0, 0}, {0, 0, 1, 0}}, "mass" -> 0|>, <|
        "id" -> 16, "sig" -> {{0, 0, 0, 0}, {0, 0, 0, 1}}, "mass" -> 0|>}}, {
      EdgeLabels -> {
        DirectedEdge[
          4, 7, <|"id" -> 10, "sig" -> {{0, 0, 1, 0}, {0, 0, -1, 0}}, "mass" -> 
            10|>] -> 10, 
         DirectedEdge[
          6, 9, <|"id" -> 12, "sig" -> {{0, 0, 0, -1}, {1, 1, 1, 0}}, "mass" -> 
            12|>] -> 12, 
         DirectedEdge[
          103, 7, <|
           "id" -> 15, "sig" -> {{0, 0, 0, 0}, {0, 0, 1, 0}}, "mass" -> 0|>] -> 
         15, DirectedEdge[
          1, 4, <|"id" -> 7, "sig" -> {{-1, 0, 0, 0}, {1, 0, 0, 0}}, "mass" -> 
            7|>] -> 7, 
         DirectedEdge[
          5, 6, <|"id" -> 4, "sig" -> {{0, -1, 0, -1}, {1, 0, 1, 0}}, "mass" -> 
            4|>] -> 4, 
         DirectedEdge[
          101, 1, <|
           "id" -> 13, "sig" -> {{0, 0, 0, 0}, {1, 0, 0, 0}}, "mass" -> 0|>] -> 
         13, DirectedEdge[
          3, 6, <|"id" -> 9, "sig" -> {{0, 1, 0, 0}, {0, 1, 0, 0}}, "mass" -> 
            9|>] -> 9, 
         DirectedEdge[
          4, 5, <|"id" -> 3, "sig" -> {{-1, 0, -1, 0}, {1, 0, 1, 0}}, "mass" -> 
            3|>] -> 3, 
         DirectedEdge[
          1, 2, <|"id" -> 1, "sig" -> {{1, 0, 0, 0}, {0, 0, 0, 0}}, "mass" -> 
            1|>] -> 1, 
         DirectedEdge[
          2, 5, <|"id" -> 8, "sig" -> {{1, -1, 0, 0}, {0, 0, 0, 0}}, "mass" -> 
            8|>] -> 8, 
         DirectedEdge[
          8, 9, <|"id" -> 6, "sig" -> {{0, 0, 0, 1}, {0, 0, 0, 0}}, "mass" -> 
            6|>] -> 6, 
         DirectedEdge[
          2, 3, <|"id" -> 2, "sig" -> {{0, 1, 0, 0}, {0, 0, 0, 0}}, "mass" -> 
            2|>] -> 2, 
         DirectedEdge[
          102, 3, <|
           "id" -> 14, "sig" -> {{0, 0, 0, 0}, {0, 1, 0, 0}}, "mass" -> 0|>] -> 
         14, DirectedEdge[
          5, 8, <|"id" -> 11, "sig" -> {{0, 0, -1, 1}, {0, 0, 0, 0}}, "mass" -> 
            11|>] -> 11, 
         DirectedEdge[
          104, 9, <|
           "id" -> 16, "sig" -> {{0, 0, 0, 0}, {0, 0, 0, 1}}, "mass" -> 0|>] -> 
         16, DirectedEdge[
          7, 8, <|"id" -> 5, "sig" -> {{0, 0, 1, 0}, {0, 0, 0, 0}}, "mass" -> 
            5|>] -> 5}, ImageSize -> 200, VertexLabels -> {Automatic}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[
        Medium], {ArrowBox[{{0., 4.}, {0., 3.}}, 0.043048128342245986`], 
         InsetBox["1", {0., 3.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 4.}, {1., 3.}}, 0.043048128342245986`], 
         InsetBox["7", {0.5, 3.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {0., 2.}}, 0.043048128342245986`], 
         InsetBox["2", {0., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 3.}, {1., 2.}}, 0.043048128342245986`], 
         InsetBox["8", {0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 2.}, {0., 1.}}, 0.043048128342245986`], 
         InsetBox["9", {0., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 3.}, {1., 2.}}, 0.043048128342245986`], 
         InsetBox["3", {1., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 3.}, {2., 2.}}, 0.043048128342245986`], 
         InsetBox["10", {1.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {0., 1.}}, 0.043048128342245986`], 
         InsetBox["4", {0.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 2.}, {1., 1.}}, 0.043048128342245986`], 
         InsetBox["11", {1., 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 1.}, {0., 0.}}, 0.043048128342245986`], 
         InsetBox["12", {0., 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2., 2.}, {1., 1.}}, 0.043048128342245986`], 
         InsetBox["5", {1.5, 1.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{1., 1.}, {0., 0.}}, 0.043048128342245986`], 
         InsetBox["6", {0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{0., 5.}, {0., 4.}}, 0.043048128342245986`], 
         InsetBox["13", {0., 4.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-1., 3.}, {0., 2.}}, 0.043048128342245986`], 
         InsetBox["14", {-0.5, 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{2., 3.}, {2., 2.}}, 0.043048128342245986`], 
         InsetBox["15", {2., 2.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}, {
         ArrowBox[{{-1., 1.}, {0., 0.}}, 0.043048128342245986`], 
         InsetBox["16", {-0.5, 0.5}, ImageScaled[{0.5, 0.5}],
          BaseStyle->"Graphics"]}}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 4.}, 0.043048128342245986], 
         InsetBox["1", 
          Offset[{2, 2}, {0.043048128342245986, 4.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 3.}, 0.043048128342245986], 
         InsetBox["2", 
          Offset[{2, 2}, {0.043048128342245986, 3.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 2.}, 0.043048128342245986], 
         InsetBox["3", 
          Offset[{2, 2}, {0.043048128342245986, 2.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 3.}, 0.043048128342245986], 
         InsetBox["4", Offset[{2, 2}, {1.043048128342246, 3.043048128342246}],
           ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 2.}, 0.043048128342245986], 
         InsetBox["5", Offset[{2, 2}, {1.043048128342246, 2.043048128342246}],
           ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 1.}, 0.043048128342245986], 
         InsetBox["6", 
          Offset[{2, 2}, {0.043048128342245986, 1.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{2., 2.}, 0.043048128342245986], 
         InsetBox["7", Offset[{2, 2}, {2.043048128342246, 2.043048128342246}],
           ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 1.}, 0.043048128342245986], 
         InsetBox["8", Offset[{2, 2}, {1.043048128342246, 1.043048128342246}],
           ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 0.}, 0.043048128342245986], 
         InsetBox["9", 
          Offset[{2, 2}, {0.043048128342245986, 0.043048128342245986}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., 5.}, 0.043048128342245986], 
         InsetBox["101", 
          Offset[{2, 2}, {0.043048128342245986, 5.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 3.}, 0.043048128342245986], 
         InsetBox["102", 
          Offset[{2, 2}, {-0.956951871657754, 3.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{2., 3.}, 0.043048128342245986], 
         InsetBox["103", 
          Offset[{2, 2}, {2.043048128342246, 3.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 1.}, 0.043048128342245986], 
         InsetBox["104", 
          Offset[{2, 2}, {-0.956951871657754, 1.043048128342246}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->200]], "Output",
 CellChangeTimes->{{3.872786282581215*^9, 3.87278629371031*^9}, 
   3.872788848268298*^9, 3.8727951888519077`*^9, 3.872797220264071*^9, 
   3.872840730298057*^9, {3.8728408798307858`*^9, 3.87284089885637*^9}, 
   3.872848418005249*^9, 3.872849001591085*^9, 3.872849081713716*^9, {
   3.8728492415708237`*^9, 3.8728492841938763`*^9}, 3.872849329105851*^9, {
   3.872849385705449*^9, 3.872849387179576*^9}, 3.872849420471342*^9, {
   3.8728494764881144`*^9, 3.8728494903868504`*^9}, {3.872850084431196*^9, 
   3.8728500876021442`*^9}, 3.8732695186844883`*^9, 3.8736276625000772`*^9, 
   3.8751058502244463`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"0e74f0be-3e4b-4248-90bb-e78d7cd2cb9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"myGraphNumerics", "=", 
  RowBox[{"GenerateRandomSample", "[", 
   RowBox[{"myGraph", ",", 
    RowBox[{"Seed", "->", "1"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.872786406983837*^9, 3.8727864421208963`*^9}, {
  3.87284952630871*^9, 3.872849529857911*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"374a0d11-16ef-4fc3-9f4d-8245843f9f63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["2", "3"], ",", 
      FractionBox["3", "5"], ",", 
      FractionBox["5", "7"]}], "}"}]}], ",", 
   RowBox[{"k2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["7", "11"], ",", 
      FractionBox["11", "13"], ",", 
      FractionBox["13", "17"]}], "}"}]}], ",", 
   RowBox[{"k3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["17", "19"], ",", 
      FractionBox["19", "23"], ",", 
      FractionBox["23", "29"]}], "}"}]}], ",", 
   RowBox[{"k4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["29", "31"], ",", 
      FractionBox["31", "37"], ",", 
      FractionBox["37", "41"]}], "}"}]}], ",", 
   RowBox[{"p1", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["41", "43"], ",", 
      FractionBox["43", "47"], ",", 
      FractionBox["47", "53"]}], "}"}]}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["53", "59"], ",", 
      FractionBox["59", "61"], ",", 
      FractionBox["61", "67"]}], "}"}]}], ",", 
   RowBox[{"p3", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["67", "71"], ",", 
      FractionBox["71", "73"], ",", 
      FractionBox["73", "79"]}], "}"}]}], ",", 
   RowBox[{"p1E", "\[Rule]", 
    FractionBox["79", "83"]}], ",", 
   RowBox[{"p2E", "\[Rule]", 
    FractionBox["83", "89"]}], ",", 
   RowBox[{"p3E", "\[Rule]", 
    FractionBox["89", "97"]}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["503537", "180127"]}], ",", 
      RowBox[{"-", 
       FractionBox["597465", "209291"]}], ",", 
      RowBox[{"-", 
       FractionBox["763401", "280529"]}]}], "}"}]}], ",", 
   RowBox[{"p4E", "\[Rule]", 
    RowBox[{"-", 
     FractionBox["2007683", "716539"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.872786415168228*^9, 3.8727864579020023`*^9, 
  3.872788860838923*^9, 3.872795189139636*^9, 3.872797220391667*^9, 
  3.872840730462865*^9, 3.8728409021555433`*^9, 3.8728484181363897`*^9, 
  3.872849531266016*^9, 3.87284957714859*^9, 3.8736276625986834`*^9},
 CellLabel->
  "Out[178]=",ExpressionUUID->"f94b3147-6c9d-4628-a399-771a72aaf8a4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcLTDexpr", "=", 
   RowBox[{"GeneratecLTDExpression", "[", "myGraph", "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.872786304741543*^9, 3.872786318087468*^9}, {
   3.8727864358378*^9, 3.872786437591256*^9}, 3.872840907043681*^9, {
   3.872849541357629*^9, 3.872849543186041*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"e5c55b65-436a-4eca-b76e-b5abfc6a8250"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcLTD", "[", 
    RowBox[{"myGraphcLTDexpr", ",", "myGraphNumerics"}], "]"}], "//", "N"}], "//",
   "FullForm"}]], "Input",
 CellChangeTimes->{{3.872786173988125*^9, 3.8727861844778347`*^9}, 
   3.872786312656372*^9, 3.872786381219412*^9, {3.872786412476543*^9, 
   3.872786418835643*^9}, {3.872786449572639*^9, 3.872786482717091*^9}, {
   3.872849546356292*^9, 3.8728495520923853`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"a7f5eaf1-6383-4ee8-a0f5-f8d5893a0c27"],

Cell[BoxData[
 TagBox[
  StyleBox["3.682931075780109`*^-19",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{
  3.87278618513922*^9, 3.872786381566922*^9, 3.872786419209247*^9, {
   3.872786459981874*^9, 3.8727864829328117`*^9}, 3.872788864920912*^9, 
   3.872788906268878*^9, 3.8727951891905403`*^9, 3.872796510870987*^9, 
   3.8727972205831957`*^9, 3.8728407308166103`*^9, 3.872840909341104*^9, 
   3.872848418453405*^9, 3.872849599056068*^9, 3.8736276814015017`*^9},
 CellLabel->
  "Out[180]//FullForm=",ExpressionUUID->"08aff6d8-2c29-4b75-8946-\
ad9500752c6c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"myGraph", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, {
  3.8727888881603937`*^9, 3.8727888911094017`*^9}, {3.8727959440856867`*^9, 
  3.872795996075848*^9}, {3.8728495591227617`*^9, 3.872849564209763*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"5da26a9d-72ba-4715-abe2-50e035415d8a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"myGraph", ",", "myGraphcFFexpr", ",", "myGraphNumerics"}], "]"}],
    "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.872788895692417*^9, 3.872788932313096*^9}, {3.8727889780565233`*^9, 
  3.872788978424065*^9}, {3.872789530328937*^9, 3.872789540646806*^9}, {
  3.872789585296913*^9, 3.872789585445369*^9}, {3.8728409139186287`*^9, 
  3.872840916308522*^9}, {3.8728495678917017`*^9, 3.8728495738107967`*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"137088bd-43a2-4d8a-97fb-ff9c5cbb6db5"],

Cell[BoxData[
 TagBox[
  StyleBox["3.682931075780109`*^-19",
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.8727889134417877`*^9, 3.872788932734542*^9}, 
   3.872788978921811*^9, {3.872789531877469*^9, 3.872789540987729*^9}, 
   3.872789585892194*^9, 3.8727951896750526`*^9, 3.872795940811214*^9, {
   3.8727959932405987`*^9, 3.872795997672605*^9}, 3.872796515757333*^9, 
   3.872796617173212*^9, 3.872797221217608*^9, 3.8728407316293573`*^9, 
   3.872840916619995*^9, 3.872848419036895*^9, 3.872850074580936*^9, 
   3.8736277623760023`*^9, 3.873628190096608*^9, 3.873628363984901*^9},
 CellLabel->
  "Out[194]//FullForm=",ExpressionUUID->"b8ff3a42-d2c2-4a18-9f4a-\
0f19c85eda1d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcFFexpr", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"myGraph", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "True"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.872787600282514*^9, 3.8727876312314*^9}, {
  3.8727888881603937`*^9, 3.8727888911094017`*^9}, {3.8727959440856867`*^9, 
  3.872795996075848*^9}, {3.8728495591227617`*^9, 3.872849564209763*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"f49a1e2e-38ff-42c8-9b2c-e0411967600d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EvalcFF", "[", 
    RowBox[{"myGraph", ",", "myGraphcFFexpr", ",", "myGraphNumerics"}], "]"}],
    "//", "N"}], "//", "FullForm"}]], "Input",
 CellChangeTimes->{{3.872787642407679*^9, 3.872787656046327*^9}, {
  3.872788895692417*^9, 3.872788932313096*^9}, {3.8727889780565233`*^9, 
  3.872788978424065*^9}, {3.872789530328937*^9, 3.872789540646806*^9}, {
  3.872789585296913*^9, 3.872789585445369*^9}, {3.8728409139186287`*^9, 
  3.872840916308522*^9}, {3.8728495678917017`*^9, 3.8728495738107967`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"cead2cc3-b4d8-4e74-b889-2db7fcf57c5b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcFFexprFactorised", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"myGraph", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "False"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8729144588016357`*^9, 3.872914463363957*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"9cc6994d-1e58-41d9-8f2b-11ca0a2f208b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompareOPCount", "[", 
  RowBox[{"myGraphcLTDexpr", ",", "myGraphcFFexprFactorised"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.872914944492634*^9, 3.872914955532271*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"5500ada7-84ab-43e6-a4f2-8fb8c0a4bd55"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|
       "op type" -> Times, "cLTD" -> 166517, "cFF" -> 42277, 
        "cFF-cLTD" -> -124240, "\[CapitalDelta](cFF-cLTD) %" -> -119.|>, <|
       "op type" -> Power, "cLTD" -> 218636, "cFF" -> 103882, 
        "cFF-cLTD" -> -114754, "\[CapitalDelta](cFF-cLTD) %" -> -71.2|>, <|
       "op type" -> Plus, "cLTD" -> 218625, "cFF" -> 123181, 
        "cFF-cLTD" -> -95444, 
        "\[CapitalDelta](cFF-cLTD) %" -> -55.800000000000004`|>}, 
     "AllowEmbedding" -> True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "op type"} -> 
        1, {All, "cLTD"} -> 1, {All, "cFF"} -> 1, {All, "cFF-cLTD"} -> 
        1, {All, "\[CapitalDelta](cFF-cLTD) %"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "op type" -> TypeSystem`PackageScope`UnknownShape[False], "cLTD" -> 
            TypeSystem`PackageScope`AtomShape[34], "cFF" -> 
            TypeSystem`PackageScope`AtomShape[34], "cFF-cLTD" -> 
            TypeSystem`PackageScope`AtomShape[34], 
            "\[CapitalDelta](cFF-cLTD) %" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "op type", "cLTD", "cFF", "cFF-cLTD", 
         "\[CapitalDelta](cFF-cLTD) %"}, {TypeSystem`AnyType, 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Real]}], 3], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "op type"} -> 
        1, {All, "cLTD"} -> 1, {All, "cFF"} -> 1, {All, "cFF-cLTD"} -> 
        1, {All, "\[CapitalDelta](cFF-cLTD) %"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "op type" -> TypeSystem`PackageScope`UnknownShape[False], "cLTD" -> 
            TypeSystem`PackageScope`AtomShape[34], "cFF" -> 
            TypeSystem`PackageScope`AtomShape[34], "cFF-cLTD" -> 
            TypeSystem`PackageScope`AtomShape[34], 
            "\[CapitalDelta](cFF-cLTD) %" -> 
            TypeSystem`PackageScope`AtomShape[60]|>], 
          DirectedInfinity[1], 5, {All}]], 3, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{
        "op type", "cLTD", "cFF", "cFF-cLTD", 
         "\[CapitalDelta](cFF-cLTD) %"}, {TypeSystem`AnyType, 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Integer], 
         TypeSystem`Atom[Real]}], 3], "Path" -> {}, "DisplayedRowCount" -> 3, 
     "DisplayedColumnCount" -> 5, "DataRowCount" -> 3, "DataColumnCount" -> 5,
      "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{
     TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["op type", 
                  Style[
                  "op type", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "op type"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "op type"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["cLTD", 
                  Style[
                  "cLTD", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "cLTD"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "cLTD"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["cFF", 
                  Style[
                  "cFF", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "cFF"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "cFF"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["cFF-cLTD", 
                  Style[
                  "cFF-cLTD", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "cFF-cLTD"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "cFF-cLTD"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["\[CapitalDelta](cFF-cLTD) %", 
                  Style[
                  "\[CapitalDelta](cFF-cLTD) %", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "\[CapitalDelta](cFF-cLTD) %"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "\[CapitalDelta](cFF-cLTD) %"}, "ColumnHeader", True], 
               "Mouse"], ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["Times", FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["op type"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["166517"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["42277"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["cFF"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-124240"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["cFF-cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-119.0"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["\[CapitalDelta](cFF-cLTD) %"]}, "Item", False], 
               "Mouse"], ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["Power", FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["op type"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["218636"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["103882"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["cFF"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-114754"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["cFF-cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-71.2"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["\[CapitalDelta](cFF-cLTD) %"]}, "Item", False], 
               "Mouse"], ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation[
               RawBoxes[
                StyleBox["Plus", FontFamily -> Dynamic[
                   CurrentValue[{"StyleHints", "CodeFont"}]], 
                 ShowStringCharacters -> True]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["op type"]}, "Item", False], "Mouse"], 
              ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["218625"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["123181"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["cFF"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-95444"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["cFF-cLTD"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["-55.8"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["\[CapitalDelta](cFF-cLTD) %"]}, "Item", False], 
               "Mouse"], ImageSize -> {{60, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[
     Framed[
      Dynamic[
       Replace[
       TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
        TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
           Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
           Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
            Blank[]]] :> (
          Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
           TypeSystem`NestedGrid`PackagePrivate`path$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
           TypeSystem`NestedGrid`PackagePrivate`pathType$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
           TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
           TypeSystem`NestedGrid`PackagePrivate`localHold[
            TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
          TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
           TypeSystem`NestedGrid`PackagePrivate`path$, 
            TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
         Spacer[10], Blank[] :> Spacer[10]}], 
       TrackedSymbols :> {
        TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], FrameStyle -> 
      None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, 
      ImageSize -> {Automatic, 15}], FontSize -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{334., {60.634033203125, 66.365966796875}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{334., {60.634033203125, 66.365966796875}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.872914957628972*^9, 3.872915042377143*^9, 
  3.8729150789403667`*^9, 3.8729151493688173`*^9, 3.8729152757243*^9, 
  3.8736278288422194`*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"71157d5e-ed60-4b72-ac64-322f19e6e466"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"myGraphcFFexprFactorisedB", "=", 
   RowBox[{"CrossFreeFamilyLTD", "[", 
    RowBox[{"myGraph", ",", 
     RowBox[{"ConvertToNormalisedFormat", "->", "False"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.873627787071065*^9},
 CellLabel->
  "In[186]:=",ExpressionUUID->"a3954f2e-e682-4be8-b668-498db81cf94b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"comparison", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"Expand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
          "myGraphcFFexprFactorised", "\[LeftDoubleBracket]", "ii", 
           "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
          "\[RightDoubleBracket]"}], "-", 
         RowBox[{
          RowBox[{
          "myGraphcFFexprFactorisedB", "\[LeftDoubleBracket]", "ii", 
           "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
          "\[RightDoubleBracket]"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ii", ",", 
       RowBox[{"Length", "[", "myGraphcFFexprFactorised", "]"}]}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.873627901217166*^9, 3.873627943283036*^9}, {
  3.873627998957776*^9, 3.8736280492527514`*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"220d07a5-f959-4f1a-a138-efd394e71940"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"comparison", "\[LeftDoubleBracket]", 
  RowBox[{";;", "6"}], "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.87362844300134*^9, 3.873628466734437*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"2d49bb0c-3be2-471c-be39-dca87505f870"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", 
             RowBox[{
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}], "+", 
                  RowBox[{"OSE", "[", "9", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "10", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "11", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "4", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "9", "]"}], "+", 
                  RowBox[{"OSE", "[", "11", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                TemplateBox[{"6"},
                 "OutputSizeLimit`Skeleton"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                TemplateBox[{"6"},
                 "OutputSizeLimit`Skeleton"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              TemplateBox[{"241"},
               "OutputSizeLimit`Skeleton"]}]}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{59., {2., 8.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{51., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 202, 32508778281523900008, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 202, 32508778281523900008, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{42., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 202, 32508778281523900008, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[32508778281523900008 === $SessionID, 
   Out[202], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{{3.873628460979683*^9, 3.873628467284957*^9}},
 CellLabel->
  "Out[202]=",ExpressionUUID->"f127d5a3-ae33-44d0-bf8a-01932a252228"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"comparisonBis", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"c", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
       ",", 
       RowBox[{"Simplify", "[", 
        RowBox[{"c", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", 
       RowBox[{"comparison", "[", 
        RowBox[{"[", 
         RowBox[{";;", "6"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8736280809737463`*^9, 3.8736281190246153`*^9}, {
   3.873628343830904*^9, 3.873628348978598*^9}, 3.873628392349657*^9, {
   3.873628446071329*^9, 3.8736284698002234`*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"a0763bd1-9f96-4605-bfae-cf044a49f401"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.8736281786897097`*^9, {3.8736283699019613`*^9, 3.8736283909369287`*^9}, 
   3.8736284351111937`*^9, 3.8736285349248238`*^9, 3.8736287409053926`*^9},
 CellLabel->
  "Out[205]=",ExpressionUUID->"cbc36fe0-ffa2-4ad0-b99f-51aea16464b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
    "myGraphcFFexprFactorised", "\[LeftDoubleBracket]", "5", 
     "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}], "-", 
   RowBox[{
    RowBox[{
    "myGraphcFFexprFactorisedB", "\[LeftDoubleBracket]", "5", 
     "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.873628762078826*^9, 3.873628777472662*^9}},
 CellLabel->
  "In[209]:=",ExpressionUUID->"6d07d40e-23f5-46d2-865f-0a7bb40b7fdf"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.873628769984869*^9, 3.873628790348995*^9}},
 CellLabel->
  "Out[209]=",ExpressionUUID->"22add57b-5b27-46d1-9ea5-ee1d7d64bac7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
    "myGraphcFFexprFactorised", "\[LeftDoubleBracket]", "6", 
     "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}], "-", 
   RowBox[{
    RowBox[{
    "myGraphcFFexprFactorisedB", "\[LeftDoubleBracket]", "6", 
     "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.873628742297468*^9, 3.8736287531942587`*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"1c952ef1-cee1-4101-9d22-cbe0162754e6"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.873628757893641*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"44f6ea9c-2299-4f4f-b029-5d236928b1b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Select", "[", 
  RowBox[{"comparisonBis", ",", 
   RowBox[{
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "===",
       "0"}], "]"}], "&"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8736280529511423`*^9, 3.87362806631614*^9}, 
   3.8736281244322367`*^9},ExpressionUUID->"eb2cb08c-4f7e-4333-8b0d-\
e38b7ec6b872"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", 
             RowBox[{
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}], "+", 
                  RowBox[{"OSE", "[", "9", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "10", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "11", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "4", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "9", "]"}], "+", 
                  RowBox[{"OSE", "[", "11", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "3", "]"}], "+", 
                  RowBox[{"OSE", "[", "5", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}]}], ")"}], " ", 
                TemplateBox[{"5"},
                 "OutputSizeLimit`Skeleton"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              TemplateBox[{"241"},
               "OutputSizeLimit`Skeleton"]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", 
             RowBox[{
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                TemplateBox[{"6"},
                 "OutputSizeLimit`Skeleton"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              TemplateBox[{"69"},
               "OutputSizeLimit`Skeleton"]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10", ",", 
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"]}], "}"}], ",", 
           TemplateBox[{"1681"},
            "OutputSizeLimit`Skeleton"], ",", 
           RowBox[{"{", 
            RowBox[{"2392", ",", 
             TemplateBox[{"1"},
              "OutputSizeLimit`Skeleton"]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2393", ",", 
             RowBox[{
              TemplateBox[{"123"},
               "OutputSizeLimit`Skeleton"], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]], "+", 
              FractionBox["1", 
               TemplateBox[{"1"},
                "OutputSizeLimit`Skeleton"]]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2396", ",", 
             RowBox[{
              FractionBox["1", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "4", "]"}], "+", 
                  RowBox[{"OSE", "[", "6", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "1", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "7", "]"}], "+", 
                  RowBox[{"OSE", "[", "8", "]"}]}], ")"}], " ", 
                TemplateBox[{"3"},
                 "OutputSizeLimit`Skeleton"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "2", "]"}], "+", 
                  RowBox[{"OSE", "[", "4", "]"}], "+", 
                  RowBox[{"OSE", "[", "10", "]"}], "+", 
                  RowBox[{"OSE", "[", "11", "]"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"OSE", "[", "6", "]"}], "+", 
                  RowBox[{"OSE", "[", "12", "]"}]}], ")"}]}]], "+", 
              TemplateBox[{"77"},
               "OutputSizeLimit`Skeleton"]}]}], "}"}]}], "}"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{59., {2., 8.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{51., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 190, 32508778281523900008, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{56., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 190, 32508778281523900008, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{42., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 190, 32508778281523900008, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{77., {0., 8.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[32508778281523900008 === $SessionID, 
   Out[190], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.873628073175808*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"47497175-5a0d-4e11-b4b0-b273a1cc1db8"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1719, 1052},
WindowMargins->{{100, Automatic}, {-100, Automatic}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"17e6ef16-cd7c-4b45-882b-284f471b86ed"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 145, 3, 98, "Title",ExpressionUUID->"21d467fe-03ba-4e66-90af-d7f0a68ee984"],
Cell[570, 20, 221, 5, 31, "Author",ExpressionUUID->"eb661486-10be-4e87-ae95-cea275226d15"],
Cell[CellGroupData[{
Cell[816, 29, 205, 4, 67, "Section",ExpressionUUID->"a1d3ca7e-36da-4345-9a8d-0a6a0b08e56a"],
Cell[1024, 35, 410, 9, 53, "Item",ExpressionUUID->"83b0c639-b88a-4856-9120-e18bddd62c4d"],
Cell[1437, 46, 577, 13, 53, "Item",ExpressionUUID->"d204f369-ed29-41f8-90b4-85d7df6c6136"],
Cell[2017, 61, 531, 12, 53, "Item",ExpressionUUID->"be8dc5d4-edc2-42b1-b92b-b9030d920e24"],
Cell[2551, 75, 490, 11, 53, "Item",ExpressionUUID->"8816f6da-d884-40f6-9f39-0a58d4c8cb73"],
Cell[3044, 88, 775, 19, 95, "Item",ExpressionUUID->"4bf64e9f-f3f4-4d23-9093-5b5f71e272e6"],
Cell[3822, 109, 526, 11, 74, "Item",ExpressionUUID->"df1c12bf-bba1-4329-80bc-e230b4b8638e"],
Cell[4351, 122, 453, 10, 53, "Item",ExpressionUUID->"ee2eb488-b864-4877-b43e-82b5e9c86963"],
Cell[4807, 134, 511, 15, 53, "Item",ExpressionUUID->"d7722ebe-7a40-47e7-bb62-46985b22a797"],
Cell[5321, 151, 589, 14, 74, "Item",ExpressionUUID->"1e24c2e4-ae8d-4c67-a30b-5969962eadf5"]
}, Closed]],
Cell[CellGroupData[{
Cell[5947, 170, 155, 3, 53, "Section",ExpressionUUID->"ce38a057-a7e1-4045-9994-3f859c3a23ec"],
Cell[CellGroupData[{
Cell[6127, 177, 445, 10, 30, "Input",ExpressionUUID->"acb9a596-ee97-4590-b7c4-c2b0d41d4245"],
Cell[CellGroupData[{
Cell[6597, 191, 308, 6, 24, "Print",ExpressionUUID->"f5e24435-3b62-48b8-a86b-772786f192da"],
Cell[6908, 199, 322, 6, 24, "Print",ExpressionUUID->"5b78bdf7-dfd0-4622-9587-9aa2e9b82559"],
Cell[7233, 207, 311, 6, 44, "Print",ExpressionUUID->"856b8148-d862-4573-bf2a-d2929be44eba"]
}, Open  ]]
}, Open  ]],
Cell[7571, 217, 302, 8, 30, "Input",ExpressionUUID->"1b31a025-dd42-44be-843a-4f49d44a837e"],
Cell[CellGroupData[{
Cell[7898, 229, 1400, 25, 178, "Input",ExpressionUUID->"9a5250f8-638b-48b3-bbd5-38aa922787ea"],
Cell[9301, 256, 1539, 46, 240, "Output",ExpressionUUID->"41f7cac3-656d-422e-9311-92c0d8cf7511"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[10889, 308, 204, 4, 53, "Section",ExpressionUUID->"ec751510-76d9-44ee-8131-2d2c6bfd8492"],
Cell[CellGroupData[{
Cell[11118, 316, 154, 3, 54, "Subsection",ExpressionUUID->"8fd7fa78-4e11-4316-be94-1245d0a157f7"],
Cell[CellGroupData[{
Cell[11297, 323, 1509, 33, 52, "Input",ExpressionUUID->"476e50c1-5fe3-4d96-8598-bae9ea02ce04"],
Cell[12809, 358, 1844, 49, 67, "Output",ExpressionUUID->"805fd3ae-1250-4ac8-8b5e-bc12df04ab4c"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[14702, 413, 224, 4, 38, "Subsection",ExpressionUUID->"c534b9ad-1563-415f-85aa-4498a43f981a"],
Cell[CellGroupData[{
Cell[14951, 421, 1816, 51, 115, "Input",ExpressionUUID->"d25d4d16-26e9-479b-8b73-a808c0c41c4e"],
Cell[16770, 474, 9084, 237, 234, "Output",ExpressionUUID->"cee3631f-91a1-4281-97f7-281be1b6283c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25891, 716, 1475, 31, 73, "Input",ExpressionUUID->"c34cfe15-2996-4d45-8db7-97e5d0b53a96"],
Cell[27369, 749, 2652, 69, 62, "Output",ExpressionUUID->"4c37b33f-cf33-44e3-8fa1-26e31705f5e1"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[30070, 824, 155, 3, 38, "Subsection",ExpressionUUID->"9d710606-e1e3-4475-b2d4-1e23f96252a1"],
Cell[CellGroupData[{
Cell[30250, 831, 2722, 68, 136, "Input",ExpressionUUID->"36b29b1a-d57a-49d3-b216-10bdc45b714a"],
Cell[CellGroupData[{
Cell[32997, 903, 494, 10, 24, "Print",ExpressionUUID->"ee5b16e4-6562-4f35-a24f-ac53ffd9f2eb"],
Cell[33494, 915, 482, 10, 24, "Print",ExpressionUUID->"d96f3dc0-5a08-40a7-9b85-2a14bd74503f"],
Cell[33979, 927, 5108, 134, 216, "Print",ExpressionUUID->"f771c30b-1fd5-4b4e-8e71-8d7822f3fdca"]
}, Open  ]]
}, Open  ]],
Cell[39114, 1065, 190, 2, 52, "Input",ExpressionUUID->"bc426203-5e9b-42b1-aa4d-1bb939348ee9"]
}, Closed]],
Cell[CellGroupData[{
Cell[39341, 1072, 160, 3, 38, "Subsection",ExpressionUUID->"c5293757-484e-486a-b6e5-8982937f1c45"],
Cell[CellGroupData[{
Cell[39526, 1079, 2236, 62, 220, "Input",ExpressionUUID->"a601860f-3df4-44ed-abad-242f92d65009"],
Cell[CellGroupData[{
Cell[41787, 1145, 371, 9, 24, "Print",ExpressionUUID->"f2228c21-86db-4705-a29d-6eaf50bffb4f"],
Cell[42161, 1156, 359, 9, 24, "Print",ExpressionUUID->"cd087a1d-b27f-411b-9c7d-ab0d9a9a517e"],
Cell[42523, 1167, 3829, 103, 150, "Print",ExpressionUUID->"9c243e7d-a699-47c5-8646-57518836da74"]
}, Open  ]]
}, Open  ]],
Cell[46379, 1274, 173, 2, 30, "Input",ExpressionUUID->"dbe9483a-cfba-4943-8db4-98cb1b8d4775"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[46601, 1282, 251, 4, 53, "Section",ExpressionUUID->"ff73407d-2ea2-4b4d-a2cf-1bbfce80f098"],
Cell[CellGroupData[{
Cell[46877, 1290, 1701, 44, 94, "Input",ExpressionUUID->"9f1c1820-6473-411a-8575-b14889a62391"],
Cell[48581, 1336, 1459, 43, 56, "Output",ExpressionUUID->"279ac8f8-8e35-434b-9bc2-60b1f16ed6ff"]
}, Open  ]],
Cell[50055, 1382, 802, 18, 52, "Input",ExpressionUUID->"a8447c37-6868-4dc0-a98b-8fb2b8776570"],
Cell[CellGroupData[{
Cell[50882, 1404, 224, 4, 54, "Subsection",ExpressionUUID->"0ab8b300-e6c3-4ff4-9d7c-31a3f9f59a4e"],
Cell[51109, 1410, 2797, 64, 262, "Input",ExpressionUUID->"4d6eb665-e53a-4036-9d61-b7fd2a9d303f"],
Cell[53909, 1476, 2286, 56, 178, "Input",ExpressionUUID->"dd89d57b-1008-48ed-baec-84b7d43bfd5a"]
}, Closed]],
Cell[CellGroupData[{
Cell[56232, 1537, 156, 3, 38, "Subsection",ExpressionUUID->"98ef75bc-2957-4ac1-9edc-aecca9678cb7"],
Cell[CellGroupData[{
Cell[56413, 1544, 2070, 51, 136, "Input",ExpressionUUID->"e2fb2800-e689-4b9e-ae5d-ebf55ef18540"],
Cell[58486, 1597, 3746, 87, 70, "Output",ExpressionUUID->"688e1a67-6549-4109-80c7-555460e9e8ef"]
}, Open  ]],
Cell[62247, 1687, 392, 8, 52, "Input",ExpressionUUID->"f6279b3e-251d-4a93-b9d9-a3f4ab6ba6ca"],
Cell[CellGroupData[{
Cell[62664, 1699, 534, 10, 52, "Input",ExpressionUUID->"fe84a125-bbb4-4c1d-b875-7d43a12da4c0"],
Cell[63201, 1711, 443, 10, 70, "Output",ExpressionUUID->"8d003368-b0c8-4e92-a86a-4cb9880e2c8b"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[63693, 1727, 289, 5, 38, "Subsection",ExpressionUUID->"0d464ef0-0724-4c49-b3c3-c7434feaac7d"],
Cell[63985, 1734, 1465, 39, 94, "Input",ExpressionUUID->"97ed89c6-5b8b-4c87-b6c5-0e96add38287"],
Cell[65453, 1775, 171, 2, 30, "Input",ExpressionUUID->"15cec3ad-dd82-4f41-86a5-8e6339da0488"],
Cell[CellGroupData[{
Cell[65649, 1781, 2011, 47, 115, "Input",ExpressionUUID->"1866836b-2b5a-4889-a4b6-e003e389311d"],
Cell[67663, 1830, 273, 5, 34, "Output",ExpressionUUID->"6043c10a-8e0c-41a3-a2f1-077cdf16ed93"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67973, 1840, 1089, 22, 115, "Input",ExpressionUUID->"607e3d5d-fe22-4812-9fab-15b486901f07"],
Cell[69065, 1864, 8484, 178, 243, "Output",ExpressionUUID->"3fd5d94e-0ca6-438f-a711-7cca4453498e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77586, 2047, 839, 18, 94, "Input",ExpressionUUID->"b2ee5de0-7eee-4d62-bbc2-74c5c207b444"],
Cell[78428, 2067, 8823, 182, 237, "Output",ExpressionUUID->"48e3dac8-cf5c-4c94-a4e9-07f48abaa533"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[87312, 2256, 390, 6, 53, "Section",ExpressionUUID->"2dfec59b-c7a1-48f0-be58-766b3744c448"],
Cell[CellGroupData[{
Cell[87727, 2266, 251, 4, 54, "Subsection",ExpressionUUID->"5b5062f0-f550-4176-870d-8c85facf6f8c"],
Cell[CellGroupData[{
Cell[88003, 2274, 175, 3, 45, "Subsubsection",ExpressionUUID->"4a75ccad-8040-4deb-a267-40f7c50b83a0"],
Cell[CellGroupData[{
Cell[88203, 2281, 1727, 39, 136, "Input",ExpressionUUID->"e48dea79-1e98-4a9c-9268-4aae9b047de0"],
Cell[89933, 2322, 4143, 86, 616, "Output",ExpressionUUID->"4e981a97-a92f-40b7-a171-152d8631fc92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94113, 2413, 310, 6, 30, "Input",ExpressionUUID->"86e4a968-f357-413f-95be-5a4f2d7a5100"],
Cell[94426, 2421, 521, 12, 50, "Output",ExpressionUUID->"259d510e-0284-4065-8492-2540aba669fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94984, 2438, 374, 7, 30, "Input",ExpressionUUID->"67a518d6-3c22-44fa-9176-1862b61fc156"],
Cell[95361, 2447, 646, 16, 52, "Output",ExpressionUUID->"c4143fc9-39d7-4796-ac6e-b70805067138"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96044, 2468, 353, 6, 30, "Input",ExpressionUUID->"6c1a3d36-24f6-4224-bc1b-453ea1417542"],
Cell[96400, 2476, 493, 10, 54, "Output",ExpressionUUID->"e9743a3d-5ef2-4a0d-9ce8-53e5e94ec6da"]
}, Open  ]],
Cell[96908, 2489, 353, 8, 30, "Input",ExpressionUUID->"ab03713c-2443-4ccf-a8f2-ed8550806191"],
Cell[97264, 2499, 201, 3, 35, "Text",ExpressionUUID->"da30c991-16e6-4809-86b7-9de5beee551f"],
Cell[CellGroupData[{
Cell[97490, 2506, 334, 7, 30, "Input",ExpressionUUID->"18d15901-ceeb-4a7e-8640-b2f3c53ebff0"],
Cell[97827, 2515, 11041, 324, 482, "Output",ExpressionUUID->"7db229f5-4513-49fb-a5d1-1ff174881ff0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108905, 2844, 268, 5, 30, "Input",ExpressionUUID->"04d3f918-7184-45b1-887e-9639b3d52d7d"],
Cell[109176, 2851, 926, 16, 54, "Output",ExpressionUUID->"51170cf0-eae1-439f-b2da-e39d5cfc6186"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[110151, 2873, 175, 3, 37, "Subsubsection",ExpressionUUID->"b7ce27bf-ef8b-4429-a4e9-6434979a6aa5"],
Cell[CellGroupData[{
Cell[110351, 2880, 1920, 44, 136, "Input",ExpressionUUID->"d7f05fed-fa6f-4208-ae63-cd8eee68bd76"],
Cell[112274, 2926, 4146, 86, 616, "Output",ExpressionUUID->"13474870-e4bc-42be-8fc0-2dafe71d6ab9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116457, 3017, 310, 6, 30, "Input",ExpressionUUID->"822b588a-e298-4320-8171-e4c37843afa3"],
Cell[116770, 3025, 523, 12, 50, "Output",ExpressionUUID->"37673312-60ad-45fa-8e10-21b13c303f47"]
}, Open  ]],
Cell[117308, 3040, 376, 7, 30, "Input",ExpressionUUID->"193f78c2-2fd5-4d48-af83-12b276fbbfb7"],
Cell[CellGroupData[{
Cell[117709, 3051, 459, 9, 30, "Input",ExpressionUUID->"5e13a472-184c-497c-b61d-29c905369335"],
Cell[118171, 3062, 656, 16, 45, "Output",ExpressionUUID->"5151c50e-423d-48f8-b60e-d9139b309c6b"]
}, Open  ]],
Cell[118842, 3081, 353, 8, 30, "Input",ExpressionUUID->"6cd9d8cf-84bd-46a9-9e6e-3e0d12451378"],
Cell[CellGroupData[{
Cell[119220, 3093, 375, 8, 30, "Input",ExpressionUUID->"9af9ec7b-4a47-49e7-a9fc-24d495d7fc11"],
Cell[119598, 3103, 1146, 22, 45, "Output",ExpressionUUID->"5f862ee0-7a6e-43c9-be1a-e7168ca79b21"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[120793, 3131, 179, 3, 37, "Subsubsection",ExpressionUUID->"f015201d-24dd-4757-9c5d-ba1ba52597a6"],
Cell[CellGroupData[{
Cell[120997, 3138, 2535, 56, 157, "Input",ExpressionUUID->"9653a88e-f88f-4f59-8480-d7ad44e909e6"],
Cell[123535, 3196, 8796, 187, 410, "Output",ExpressionUUID->"c64384cf-23cd-4e33-bc96-511502e7821d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132368, 3388, 310, 6, 30, "Input",ExpressionUUID->"77f08096-3dcc-4354-99f5-af282d16329e"],
Cell[132681, 3396, 1723, 50, 50, "Output",ExpressionUUID->"aa3ba05a-4e7b-45d1-8526-243ddde72b53"]
}, Open  ]],
Cell[134419, 3449, 331, 6, 30, "Input",ExpressionUUID->"6ace2133-257e-476c-8efe-d1efd5a10504"],
Cell[CellGroupData[{
Cell[134775, 3459, 561, 11, 30, "Input",ExpressionUUID->"757a95d1-06be-4da0-917b-13e6d8c1fd79"],
Cell[135339, 3472, 1017, 21, 45, "Output",ExpressionUUID->"4a950849-f387-4a50-a4c1-39eac4675bfe"]
}, Open  ]],
Cell[136371, 3496, 405, 9, 30, "Input",ExpressionUUID->"f6071f08-003e-46c8-8a00-fcc1be3702e4"],
Cell[CellGroupData[{
Cell[136801, 3509, 401, 8, 30, "Input",ExpressionUUID->"296bde31-3735-4a50-8152-0ca750120790"],
Cell[137205, 3519, 703, 16, 45, "Output",ExpressionUUID->"a0e9c863-e36c-488c-9242-9c669c8f1dce"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[137957, 3541, 244, 4, 37, "Subsubsection",ExpressionUUID->"d0e86511-4ee1-4db9-b380-0866de1f6ccf"],
Cell[CellGroupData[{
Cell[138226, 3549, 3663, 84, 178, "Input",ExpressionUUID->"41f8a898-2039-4cd8-aa39-a5e6e2a27da4"],
Cell[141892, 3635, 8412, 176, 288, "Output",ExpressionUUID->"3f9b6537-599b-448d-bf81-87a55547ba0f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150341, 3816, 314, 7, 30, "Input",ExpressionUUID->"b0200cd4-3691-42c0-8563-192acdb9bd63"],
Cell[150658, 3825, 1820, 52, 50, "Output",ExpressionUUID->"77e33220-2d85-456e-9db3-3ceaedaf90b7"]
}, Open  ]],
Cell[152493, 3880, 172, 3, 35, "Text",ExpressionUUID->"4e673fc2-aca6-47fe-9d47-fd3bb1bd35e4"],
Cell[CellGroupData[{
Cell[152690, 3887, 3827, 99, 346, "Input",ExpressionUUID->"99198889-03da-4540-8229-30b21d6fbe48"],
Cell[CellGroupData[{
Cell[156542, 3990, 431, 8, 24, "Print",ExpressionUUID->"28ba2a96-3d75-4fdf-acac-b1d5a29fa874"],
Cell[156976, 4000, 403, 8, 24, "Print",ExpressionUUID->"da425c8e-aca4-40bf-917b-23408e6ba712"],
Cell[157382, 4010, 734, 19, 24, "Print",ExpressionUUID->"44b6f6f2-8a16-486d-8938-df29f9f6763f"],
Cell[158119, 4031, 830, 23, 24, "Print",ExpressionUUID->"fe76a8b4-f488-462c-9648-277138d1f87f"],
Cell[158952, 4056, 681, 19, 24, "Print",ExpressionUUID->"cd1fef63-8724-420d-a810-defd35102402"],
Cell[159636, 4077, 403, 8, 24, "Print",ExpressionUUID->"d908d2b2-2f50-4382-a50c-b67c52c6a070"],
Cell[160042, 4087, 808, 20, 24, "Print",ExpressionUUID->"4eaee59e-5d15-4321-a168-5224d514d28a"],
Cell[160853, 4109, 829, 23, 24, "Print",ExpressionUUID->"2c44ca31-27cd-4ac3-97a4-5707b8dc3eac"],
Cell[161685, 4134, 830, 23, 24, "Print",ExpressionUUID->"2e4ee151-6784-4e26-8330-269862574bd9"],
Cell[162518, 4159, 402, 8, 24, "Print",ExpressionUUID->"bd4b4357-b283-4ad7-94b0-02931ffe1dff"]
}, Open  ]]
}, Open  ]],
Cell[162947, 4171, 283, 6, 35, "Text",ExpressionUUID->"7f9cd1ed-8f66-431f-9b2a-e8e90ea9114e"],
Cell[CellGroupData[{
Cell[163255, 4181, 1477, 40, 94, "Input",ExpressionUUID->"39cd2964-7b6a-4bb3-8492-7f870c3f5b3c"],
Cell[CellGroupData[{
Cell[164757, 4225, 759, 22, 24, "Print",ExpressionUUID->"932aec89-cd8d-42c2-8734-2e6d72df0eba"],
Cell[165519, 4249, 334, 7, 24, "Print",ExpressionUUID->"01aa2824-049d-4d5a-b6f5-cf4568fb1c25"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[165926, 4264, 353, 6, 38, "Subsection",ExpressionUUID->"46418574-0bc6-4cb2-99e8-4617bbe8fed9"],
Cell[CellGroupData[{
Cell[166304, 4274, 175, 3, 45, "Subsubsection",ExpressionUUID->"4586a3f2-f8af-4538-86e1-235563339a53"],
Cell[CellGroupData[{
Cell[166504, 4281, 1383, 35, 115, "Input",ExpressionUUID->"e30b0f0d-7331-46d5-b024-eed6c635ebd0"],
Cell[167890, 4318, 3400, 76, 225, "Output",ExpressionUUID->"b1b54903-ad5b-4491-bec8-4ef54ca39b09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171327, 4399, 422, 9, 30, "Input",ExpressionUUID->"7de993d5-4b8b-4132-baab-cd86950fa123"],
Cell[171752, 4410, 677, 19, 50, "Output",ExpressionUUID->"2309cf4d-e40c-4424-81fe-b1231dc5a35e"]
}, Open  ]],
Cell[172444, 4432, 492, 10, 30, "Input",ExpressionUUID->"50de7c87-b4b9-41fd-ac6c-b55552af1136"],
Cell[CellGroupData[{
Cell[172961, 4446, 670, 13, 30, "Input",ExpressionUUID->"ae234e54-f62c-4e5e-a31d-2888f4359b5d"],
Cell[173634, 4461, 406, 12, 45, "Output",ExpressionUUID->"2320d22e-d721-4ad5-afec-a5d417adfa45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174077, 4478, 486, 9, 30, "Input",ExpressionUUID->"09b6f7c5-ff3c-486d-a410-0d0775182862"],
Cell[174566, 4489, 2043, 51, 60, "Output",ExpressionUUID->"8c7ade8d-a064-4ee2-8f0b-a008223c9fd2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176646, 4545, 521, 11, 30, "Input",ExpressionUUID->"c53cb7e3-cae4-489e-a449-169ae8edb74f"],
Cell[177170, 4558, 328, 10, 45, "Output",ExpressionUUID->"34bd61ca-ed61-4c4e-a086-1d74bbfad577"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[177559, 4575, 359, 6, 38, "Subsection",ExpressionUUID->"2ac85cfb-7bf6-41a0-85d2-af509fa2697b"],
Cell[CellGroupData[{
Cell[177943, 4585, 228, 4, 45, "Subsubsection",ExpressionUUID->"584ef6f8-6ced-4ced-953a-7a25165dc95a"],
Cell[CellGroupData[{
Cell[178196, 4593, 1765, 44, 115, "Input",ExpressionUUID->"e128b5bf-c060-447a-a7ea-e557ea2bc8b9"],
Cell[179964, 4639, 5132, 108, 502, "Output",ExpressionUUID->"f17a40ec-ae38-4912-85a7-c8dcfbb9a233"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185133, 4752, 413, 7, 30, "Input",ExpressionUUID->"7ff5c5a0-0365-4d7a-9d10-aaf59b8e43ce"],
Cell[185549, 4761, 1847, 54, 60, "Output",ExpressionUUID->"5253312c-9615-4df5-8245-ce1f00103264"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187433, 4820, 252, 6, 30, "Input",ExpressionUUID->"97c8fa67-1ebd-4c7d-a4ff-f3f2a57bb802"],
Cell[187688, 4828, 731, 20, 50, "Output",ExpressionUUID->"408e8a23-ddf2-471a-8313-712a90865b06"]
}, Open  ]],
Cell[188434, 4851, 438, 9, 30, "Input",ExpressionUUID->"86775b87-5c89-4cc1-ad21-9a5001b3fda6"],
Cell[CellGroupData[{
Cell[188897, 4864, 667, 13, 30, "Input",ExpressionUUID->"b3c774e7-c25b-4aa8-95a4-3220e2e051f1"],
Cell[189567, 4879, 450, 13, 45, "Output",ExpressionUUID->"183f80f2-a242-4b13-ae7e-01642cdab479"]
}, Open  ]],
Cell[190032, 4895, 509, 11, 30, "Input",ExpressionUUID->"1a716795-852a-4fb3-b539-05389d56e15d"],
Cell[CellGroupData[{
Cell[190566, 4910, 665, 13, 30, "Input",ExpressionUUID->"2efcc920-44e6-49ad-bda8-f68882dd5b95"],
Cell[191234, 4925, 500, 14, 45, "Output",ExpressionUUID->"5594aba5-c1ed-4cb6-81d6-7f674251220c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191771, 4944, 956, 23, 73, "Input",ExpressionUUID->"b57fa9e7-c243-49e1-a68a-966746b3aac5"],
Cell[CellGroupData[{
Cell[192752, 4971, 366, 6, 24, "Print",ExpressionUUID->"9806d359-d912-4ef8-b8cf-1a0b2ab25301"],
Cell[193121, 4979, 384, 7, 24, "Print",ExpressionUUID->"71fb2ff0-13ad-4e24-8930-87d56116b654"],
Cell[193508, 4988, 358, 6, 24, "Print",ExpressionUUID->"df79f499-1e73-4a2b-b974-fb8f4315ae57"],
Cell[193869, 4996, 3609, 71, 440, "Print",ExpressionUUID->"cebbb253-601a-40cd-b7cf-cc8a40a9a0fd"],
Cell[197481, 5069, 575, 13, 24, "Print",ExpressionUUID->"8a0b04f2-2212-4617-bfde-269c55814874"],
Cell[198059, 5084, 612, 14, 24, "Print",ExpressionUUID->"6254ce74-6d1f-4fc1-adc4-09fa51e3b9b3"],
Cell[198674, 5100, 1046, 24, 37, "Print",ExpressionUUID->"e2dee83b-6b35-4be0-8055-b80a72b3a51e"],
Cell[199723, 5126, 533, 12, 24, "Print",ExpressionUUID->"5475b38a-55f7-40b4-815c-33b15c0cf5a5"],
Cell[200259, 5140, 384, 7, 24, "Print",ExpressionUUID->"3c913fed-2162-4713-a2b4-232db5aea34d"],
Cell[200646, 5149, 360, 6, 24, "Print",ExpressionUUID->"98c562be-cb54-4d35-89d6-fdcd40cf876b"],
Cell[201009, 5157, 2167, 46, 133, "Print",ExpressionUUID->"927de17d-26ec-43b8-8351-e18e6d0058ed"],
Cell[203179, 5205, 578, 13, 24, "Print",ExpressionUUID->"d42be639-5ddf-451d-b17b-cf008e09fb53"],
Cell[203760, 5220, 969, 25, 41, "Print",ExpressionUUID->"9a29ee56-b0a5-4cee-8c6a-4962e4898c11"],
Cell[204732, 5247, 386, 7, 24, "Print",ExpressionUUID->"17331732-6227-4c8c-9567-7f405b0fed09"]
}, Open  ]],
Cell[205133, 5257, 798, 22, 52, "Output",ExpressionUUID->"ae033d4e-670e-45dc-b38c-06d59e6116dc"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[205992, 5286, 310, 5, 38, "Subsection",ExpressionUUID->"5bd5c2ff-7b01-4467-851f-d347de6eed65"],
Cell[CellGroupData[{
Cell[206327, 5295, 175, 3, 45, "Subsubsection",ExpressionUUID->"6e428faa-30f5-460a-a200-f2519c4a1c1a"],
Cell[CellGroupData[{
Cell[206527, 5302, 1785, 41, 136, "Input",ExpressionUUID->"ab569a89-10e7-4f50-a50e-9830405e00ff"],
Cell[208315, 5345, 5505, 115, 639, "Output",ExpressionUUID->"544b643a-1d03-468b-b2d1-339300668c69"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213857, 5465, 385, 8, 30, "Input",ExpressionUUID->"fdf91bb4-6484-450b-9b4f-5e4655dc874b"],
Cell[214245, 5475, 1864, 55, 63, "Output",ExpressionUUID->"c270cff6-b39c-431a-8e5c-09cd48b2af9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216146, 5535, 389, 8, 30, "Input",ExpressionUUID->"9f359546-65ad-4c24-ab31-4fce785f0273"],
Cell[216538, 5545, 750, 20, 50, "Output",ExpressionUUID->"8af28ddf-fe5f-4247-b187-04c0f4fb90a7"]
}, Open  ]],
Cell[217303, 5568, 411, 9, 30, "Input",ExpressionUUID->"49cbf96e-08b3-4ee6-b695-73d7c890d181"],
Cell[CellGroupData[{
Cell[217739, 5581, 635, 12, 30, "Input",ExpressionUUID->"9566df48-68f0-4aca-b0ba-69138895de3d"],
Cell[218377, 5595, 445, 12, 45, "Output",ExpressionUUID->"425a993e-3137-4a1c-9e3e-ea073016cd49"]
}, Open  ]],
Cell[218837, 5610, 481, 11, 30, "Input",ExpressionUUID->"89e62f95-e961-4a27-9af2-20cb7506da1c"],
Cell[CellGroupData[{
Cell[219343, 5625, 500, 12, 30, "Input",ExpressionUUID->"2d920664-c5ad-4ac9-81fb-943b51db1cf1"],
Cell[219846, 5639, 420, 12, 45, "Output",ExpressionUUID->"011e4f29-0ec6-4be2-86f2-2a09d3df45e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220303, 5656, 879, 22, 73, "Input",ExpressionUUID->"fd3833be-0112-4899-b229-f6da054f6ebd"],
Cell[CellGroupData[{
Cell[221207, 5682, 714, 12, 24, "Print",ExpressionUUID->"bf26a41d-084a-4d78-b9bd-6bc123b42648"],
Cell[221924, 5696, 725, 12, 24, "Print",ExpressionUUID->"9806f2f0-89f4-4f54-aa6c-7bfe5425dda6"],
Cell[222652, 5710, 699, 11, 24, "Print",ExpressionUUID->"982fa2aa-00dd-4d10-bf66-fd5290fe5912"],
Cell[223354, 5723, 4394, 85, 440, "Print",ExpressionUUID->"25700e28-5c43-409a-9c10-b57c5dfba8b9"],
Cell[227751, 5810, 1086, 21, 63, "Print",ExpressionUUID->"d77526b6-a8e8-46d6-9ce1-e1b24250b6e1"],
Cell[228840, 5833, 938, 19, 24, "Print",ExpressionUUID->"d5308e1e-bbc5-41c4-b5df-748dad44012f"],
Cell[229781, 5854, 1424, 30, 37, "Print",ExpressionUUID->"5654a1b8-ba92-4bc9-a4fe-67d876791fa8"],
Cell[231208, 5886, 919, 19, 24, "Print",ExpressionUUID->"d9e876b9-063c-4d31-902c-fa1632aa862d"],
Cell[232130, 5907, 725, 12, 24, "Print",ExpressionUUID->"7d2e2b61-c00d-4d17-8b34-5a479a0b9b87"],
Cell[232858, 5921, 699, 11, 24, "Print",ExpressionUUID->"a46bd29a-be0f-4c43-bcd2-f5a84228c85d"],
Cell[233560, 5934, 3710, 71, 440, "Print",ExpressionUUID->"242777e0-d273-4d94-8ec6-d34904b80845"],
Cell[237273, 6007, 1086, 21, 63, "Print",ExpressionUUID->"88e39cb5-3876-440a-926a-4c7dfd318ec8"],
Cell[238362, 6030, 951, 19, 24, "Print",ExpressionUUID->"0e591800-27bb-404d-87b4-e1f2e55c0fec"],
Cell[239316, 6051, 1385, 29, 37, "Print",ExpressionUUID->"f9f2e4a6-ccf5-41f2-b1df-7009f69f746b"],
Cell[240704, 6082, 932, 19, 24, "Print",ExpressionUUID->"29b9bbda-60b6-4039-83c5-6be6504c368c"],
Cell[241639, 6103, 725, 12, 24, "Print",ExpressionUUID->"018846b5-0d5d-437c-89bc-accd4d813ae8"],
Cell[242367, 6117, 699, 11, 24, "Print",ExpressionUUID->"efc0aac1-64f2-4eb5-b27a-a996cc3829b2"],
Cell[243069, 6130, 2501, 51, 133, "Print",ExpressionUUID->"3b623d98-7c78-485a-9a57-da32551183fa"],
Cell[245573, 6183, 919, 18, 24, "Print",ExpressionUUID->"b2a243f9-e7f7-4cf3-99ef-088a519a014a"],
Cell[246495, 6203, 1311, 30, 41, "Print",ExpressionUUID->"135802c8-92ca-4902-b8d9-bcdc7527d97b"],
Cell[247809, 6235, 725, 12, 24, "Print",ExpressionUUID->"66a8d56b-c0e7-46a5-840a-c086b0f420c8"],
Cell[248537, 6249, 1510, 36, 41, "Print",ExpressionUUID->"6055a48b-cb55-4704-9e6c-aa5db33d4395"],
Cell[250050, 6287, 725, 12, 24, "Print",ExpressionUUID->"749b106c-76d5-4b9f-844c-446821da20e8"]
}, Open  ]],
Cell[250790, 6302, 1320, 33, 52, "Output",ExpressionUUID->"797e123d-af31-43c4-a477-383b5f368b93"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[252159, 6341, 228, 4, 45, "Subsubsection",ExpressionUUID->"44529002-8db7-41e3-9c19-cf70c2f46e6c"],
Cell[CellGroupData[{
Cell[252412, 6349, 2057, 47, 157, "Input",ExpressionUUID->"45ed3a8a-b446-45f7-8b99-3519ff0cbea7"],
Cell[254472, 6398, 9769, 211, 656, "Output",ExpressionUUID->"700f7730-e70b-4bf7-b8ce-89ec15f9b9c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264278, 6614, 385, 8, 30, "Input",ExpressionUUID->"94044a69-d89f-43c1-bf04-db8fe566db67"],
Cell[264666, 6624, 7672, 206, 292, "Output",ExpressionUUID->"da062701-fb5c-407f-9c99-4a41e31bcf07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272375, 6835, 389, 8, 30, "Input",ExpressionUUID->"394c46b5-bab6-4f3b-8bb3-2cf2c1432642"],
Cell[272767, 6845, 1316, 40, 50, "Output",ExpressionUUID->"c36446d6-f475-4df8-9868-80fc8cde4a2d"]
}, Open  ]],
Cell[274098, 6888, 411, 9, 30, "Input",ExpressionUUID->"4a81200a-cc9f-4db3-b52f-ee5bead3ff4b"],
Cell[CellGroupData[{
Cell[274534, 6901, 635, 12, 30, "Input",ExpressionUUID->"b68adcd1-c931-4ad5-86cb-ac45ee3401e4"],
Cell[275172, 6915, 423, 12, 45, "Output",ExpressionUUID->"c2640679-7238-46b4-a250-016613a43fc2"]
}, Open  ]],
Cell[275610, 6930, 481, 11, 30, "Input",ExpressionUUID->"f3dd7b27-8a06-483e-b2fb-76fd5461e4e5"],
Cell[CellGroupData[{
Cell[276116, 6945, 500, 12, 30, "Input",ExpressionUUID->"0475c8c5-841f-4434-a2c5-481ae6973289"],
Cell[276619, 6959, 394, 11, 45, "Output",ExpressionUUID->"35bbc181-4e93-459d-8f89-6ebe234ba69c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277050, 6975, 334, 7, 30, "Input",ExpressionUUID->"68eeb73c-df03-4785-aebf-742d73474971"],
Cell[277387, 6984, 44083, 1060, 934, "Output",ExpressionUUID->"d44b420a-8be5-4ebd-9b31-4d0159325cdc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[321507, 8049, 879, 22, 73, "Input",ExpressionUUID->"d981eace-cedf-42ce-b899-bf13625bca1a"],
Cell[CellGroupData[{
Cell[322411, 8075, 692, 12, 24, "Print",ExpressionUUID->"0787806d-c9fa-44dc-88e5-8754bbf7f19b"],
Cell[323106, 8089, 703, 12, 24, "Print",ExpressionUUID->"e3e39034-c362-4ce3-b57b-024e70645e31"],
Cell[323812, 8103, 675, 11, 24, "Print",ExpressionUUID->"da7458ed-6ed6-47c1-beab-63d68feb60ae"],
Cell[324490, 8116, 4424, 86, 440, "Print",ExpressionUUID->"322aa822-2d2f-44b8-bb05-07dc18bc8c5b"],
Cell[328917, 8204, 892, 18, 24, "Print",ExpressionUUID->"aa0fe8d1-809d-4725-9f3f-cd8dd1f37e51"],
Cell[329812, 8224, 914, 19, 24, "Print",ExpressionUUID->"e4edab9c-d5f7-4478-b05e-661a620408ac"],
Cell[330729, 8245, 1451, 32, 37, "Print",ExpressionUUID->"65958234-6c5f-459b-82c8-c0a0029e593a"],
Cell[332183, 8279, 837, 17, 24, "Print",ExpressionUUID->"508df3cf-5517-4943-878e-07147be583de"],
Cell[333023, 8298, 701, 12, 24, "Print",ExpressionUUID->"1f87ff80-866c-478a-9a56-d981390c9c0f"],
Cell[333727, 8312, 675, 11, 24, "Print",ExpressionUUID->"6cfbbaa8-a375-4a69-ae71-f9bb2b9a0616"],
Cell[334405, 8325, 3729, 72, 440, "Print",ExpressionUUID->"8ed88db8-15f0-4bbd-8f82-f07641d3585b"],
Cell[338137, 8399, 892, 18, 24, "Print",ExpressionUUID->"330e1880-c20b-49cb-a86d-ab511e620e69"],
Cell[339032, 8419, 927, 19, 24, "Print",ExpressionUUID->"feec27fb-a8ea-42ad-b8b4-268ccad5a4e4"],
Cell[339962, 8440, 1414, 31, 37, "Print",ExpressionUUID->"3a1a44f0-e688-4d1c-9688-5261cf1bc5aa"],
Cell[341379, 8473, 850, 17, 24, "Print",ExpressionUUID->"1a312341-5ea8-46df-bfb2-f0bf1a8f4be9"],
Cell[342232, 8492, 701, 12, 24, "Print",ExpressionUUID->"758cf016-7584-44c9-91de-fac07e0ad5f9"],
Cell[342936, 8506, 677, 11, 24, "Print",ExpressionUUID->"5f744a6c-6af3-4a1d-a2da-c76d4d74a56a"],
Cell[343616, 8519, 2494, 51, 133, "Print",ExpressionUUID->"3291a5cb-c897-494d-8f1c-c2e26b851f2d"],
Cell[346113, 8572, 895, 18, 24, "Print",ExpressionUUID->"8e4735fa-b60c-4e23-a8e3-158b17a524d2"],
Cell[347011, 8592, 1289, 30, 41, "Print",ExpressionUUID->"645da770-024e-423e-b0d1-b6d6daf0cea9"],
Cell[348303, 8624, 700, 12, 24, "Print",ExpressionUUID->"fd4c06f9-5550-45cb-846d-151e82410f27"],
Cell[349006, 8638, 1489, 36, 41, "Print",ExpressionUUID->"e68d3b5f-609d-478d-88f9-44689e77158f"],
Cell[350498, 8676, 701, 12, 24, "Print",ExpressionUUID->"e7e08489-8e09-4774-aef2-cd35ae7160dd"]
}, Open  ]],
Cell[351214, 8691, 1292, 32, 52, "Output",ExpressionUUID->"1a9b7d1f-9ae6-4fb1-9929-7efa21499081"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[352567, 8730, 209, 4, 38, "Subsection",ExpressionUUID->"fac593d7-fc0f-49ca-9662-13ed565932bc"],
Cell[CellGroupData[{
Cell[352801, 8738, 230, 4, 45, "Subsubsection",ExpressionUUID->"c8716038-b7b5-4860-ac6f-27647a5f9ee8"],
Cell[CellGroupData[{
Cell[353056, 8746, 2036, 49, 178, "Input",ExpressionUUID->"ffd8a352-616b-4c5a-b7d2-85d40c4720aa"],
Cell[355095, 8797, 6081, 131, 1327, "Output",ExpressionUUID->"e11b2275-6ac0-4259-83ff-0f9836a8207b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361213, 8933, 324, 6, 30, "Input",ExpressionUUID->"00317fc5-fe7d-4df3-a830-86967509fa4d"],
Cell[361540, 8941, 726, 19, 50, "Output",ExpressionUUID->"93f6b822-e741-4180-a9c3-152e914cda11"]
}, Open  ]],
Cell[362281, 8963, 363, 7, 30, "Input",ExpressionUUID->"8109a677-3eb9-4e2c-9b71-f4841302de95"],
Cell[CellGroupData[{
Cell[362669, 8974, 473, 9, 30, "Input",ExpressionUUID->"7d6192fc-c8eb-4b93-a9ec-8d2a64850bb3"],
Cell[363145, 8985, 618, 14, 45, "Output",ExpressionUUID->"1c2414ee-b03a-45dc-a593-a891052e5761"]
}, Open  ]],
Cell[363778, 9002, 469, 10, 30, "Input",ExpressionUUID->"1a47814a-5a27-4391-8bfe-f56386d6154f"],
Cell[CellGroupData[{
Cell[364272, 9016, 597, 12, 30, "Input",ExpressionUUID->"918ad7a7-0b82-4e8b-b176-35c5a7c59499"],
Cell[364872, 9030, 692, 14, 45, "Output",ExpressionUUID->"a97609cc-bbe7-4a35-b717-796dab69ebda"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[365613, 9050, 307, 5, 37, "Subsubsection",ExpressionUUID->"f34735d5-1d22-4cee-98d6-7af8a54db51c"],
Cell[CellGroupData[{
Cell[365945, 9059, 2555, 59, 199, "Input",ExpressionUUID->"4103be37-9603-4c4f-a623-274e6a0a7016"],
Cell[368503, 9120, 11677, 251, 672, "Output",ExpressionUUID->"e99fc96d-32b6-46ac-b0c3-2db0be5248e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380217, 9376, 324, 6, 30, "Input",ExpressionUUID->"4a7e6578-f113-4116-8ccf-ea4e374b28e8"],
Cell[380544, 9384, 1866, 55, 89, "Output",ExpressionUUID->"bbc8d9a6-e61f-43aa-907c-c00efc767958"]
}, Open  ]],
Cell[382425, 9442, 363, 7, 30, "Input",ExpressionUUID->"2aa18e9a-8634-4bd7-8321-c22b6cfb4578"],
Cell[CellGroupData[{
Cell[382813, 9453, 473, 9, 30, "Input",ExpressionUUID->"5a281722-1601-434f-988d-65d0ddb5bfe5"],
Cell[383289, 9464, 643, 14, 45, "Output",ExpressionUUID->"d3c92cff-be3b-43d2-a5e8-36bcba6bb3a8"]
}, Open  ]],
Cell[383947, 9481, 469, 10, 30, "Input",ExpressionUUID->"a3e8375a-016f-48a8-a5b4-aaa6a12be7cc"],
Cell[CellGroupData[{
Cell[384441, 9495, 597, 12, 30, "Input",ExpressionUUID->"03120e75-96e5-4812-82fc-ed6c41c1fb99"],
Cell[385041, 9509, 718, 15, 45, "Output",ExpressionUUID->"caac9c72-1df2-4915-b2d1-033599a91654"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[385808, 9530, 369, 5, 37, "Subsubsection",ExpressionUUID->"3c20519a-c22f-4dbf-8b4f-44eec47c3069"],
Cell[CellGroupData[{
Cell[386202, 9539, 3700, 89, 241, "Input",ExpressionUUID->"d5e178a7-e15a-4c8c-b1af-d118234c110a"],
Cell[389905, 9630, 10282, 219, 201, "Output",ExpressionUUID->"5f7b2405-dc1b-454f-b84b-5145143ff985"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400224, 9854, 324, 6, 30, "Input",ExpressionUUID->"46be07e3-35ca-4052-8cec-5432b07d096d"],
Cell[400551, 9862, 1932, 56, 50, "Output",ExpressionUUID->"200440d4-a64e-4101-941a-7380d60aef63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[402520, 9923, 728, 20, 30, "Input",ExpressionUUID->"ecc4f046-2c4b-4ec6-bdc5-f602a2ea2d9f"],
Cell[403251, 9945, 715, 20, 34, "Output",ExpressionUUID->"aed831e8-924c-47b1-87d6-059340a2b0d7"]
}, Open  ]],
Cell[403981, 9968, 487, 10, 30, "Input",ExpressionUUID->"85f2e32b-357e-4507-8192-837933d75f02"],
Cell[CellGroupData[{
Cell[404493, 9982, 473, 9, 30, "Input",ExpressionUUID->"83155aef-7540-48a0-a7b5-77c1f4c78dbd"],
Cell[404969, 9993, 710, 16, 45, "Output",ExpressionUUID->"490bbee2-ef29-44bc-9002-91dcdabc5a3b"]
}, Open  ]],
Cell[405694, 10012, 469, 10, 30, "Input",ExpressionUUID->"f983dfa4-49a8-4801-a02b-9af2c28f5e5b"],
Cell[CellGroupData[{
Cell[406188, 10026, 699, 13, 30, "Input",ExpressionUUID->"ca7cb8b5-6e44-4a2e-99ad-9ef9a91f3807"],
Cell[406890, 10041, 778, 16, 45, "Output",ExpressionUUID->"89f7a974-b3a7-48ba-9c12-f037b3e58ec3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[407705, 10062, 521, 11, 52, "Input",ExpressionUUID->"c8e0a461-a3f1-4999-b260-b4f0b120366d"],
Cell[408229, 10075, 14717, 365, 187, "Output",ExpressionUUID->"0552324f-3c2b-4fb2-a71b-0409cdfebc4b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[422983, 10445, 661, 14, 30, "Input",ExpressionUUID->"31fe5323-37d0-4823-953a-0432ae270a87"],
Cell[423647, 10461, 3486, 97, 86, "Output",ExpressionUUID->"0aaf1d39-00e1-4244-aaa1-7c36c5ba0bca"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[427194, 10565, 255, 4, 38, "Subsection",ExpressionUUID->"d9695421-9ec0-4cba-be4e-3711e7cfd4ac"],
Cell[CellGroupData[{
Cell[427474, 10573, 280, 4, 45, "Subsubsection",ExpressionUUID->"bc488892-2cf3-4659-9229-c12bcda7ded1"],
Cell[CellGroupData[{
Cell[427779, 10581, 4026, 93, 283, "Input",ExpressionUUID->"57d841b7-f0fa-4ab1-bc4d-cd8bbe7e7cf9"],
Cell[431808, 10676, 10006, 189, 327, "Output",ExpressionUUID->"0e74f0be-3e4b-4248-90bb-e78d7cd2cb9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[441851, 10870, 368, 8, 30, "Input",ExpressionUUID->"374a0d11-16ef-4fc3-9f4d-8245843f9f63"],
Cell[442222, 10880, 2262, 68, 89, "Output",ExpressionUUID->"f94b3147-6c9d-4628-a399-771a72aaf8a4"]
}, Open  ]],
Cell[444499, 10951, 408, 9, 30, "Input",ExpressionUUID->"e5c55b65-436a-4eca-b76e-b5abfc6a8250"],
Cell[CellGroupData[{
Cell[444932, 10964, 520, 11, 30, "Input",ExpressionUUID->"a7f5eaf1-6383-4ee8-a0f5-f8d5893a0c27"],
Cell[445455, 10977, 646, 15, 45, "Output",ExpressionUUID->"08aff6d8-2c29-4b75-8946-ad9500752c6c"]
}, Open  ]],
Cell[446116, 10995, 513, 11, 30, "Input",ExpressionUUID->"5da26a9d-72ba-4715-abe2-50e035415d8a"],
Cell[CellGroupData[{
Cell[446654, 11010, 633, 12, 30, "Input",ExpressionUUID->"137088bd-43a2-4d8a-97fb-ff9c5cbb6db5"],
Cell[447290, 11024, 766, 16, 45, "Output",ExpressionUUID->"b8ff3a42-d2c2-4a18-9f4a-0f19c85eda1d"]
}, Open  ]],
Cell[448071, 11043, 513, 11, 30, "Input",ExpressionUUID->"f49a1e2e-38ff-42c8-9b2c-e0411967600d"],
Cell[448587, 11056, 633, 12, 30, "Input",ExpressionUUID->"cead2cc3-b4d8-4e74-b889-2db7fcf57c5b"],
Cell[449223, 11070, 376, 9, 30, "Input",ExpressionUUID->"9cc6994d-1e58-41d9-8f2b-11ca0a2f208b"],
Cell[CellGroupData[{
Cell[449624, 11083, 279, 6, 30, "Input",ExpressionUUID->"5500ada7-84ab-43e6-a4f2-8fb8c0a4bd55"],
Cell[449906, 11091, 38370, 711, 147, "Output",ExpressionUUID->"71157d5e-ed60-4b72-ac64-322f19e6e466"]
}, Open  ]],
Cell[488291, 11805, 351, 9, 30, "Input",ExpressionUUID->"a3954f2e-e682-4be8-b668-498db81cf94b"],
Cell[488645, 11816, 990, 26, 30, "Input",ExpressionUUID->"220d07a5-f959-4f1a-a138-efd394e71940"],
Cell[CellGroupData[{
Cell[489660, 11846, 269, 5, 30, "Input",ExpressionUUID->"2d49bb0c-3be2-471c-be39-dca87505f870"],
Cell[489932, 11853, 12513, 316, 161, "Output",ExpressionUUID->"f127d5a3-ae33-44d0-bf8a-01932a252228"]
}, Open  ]],
Cell[CellGroupData[{
Cell[502482, 12174, 822, 22, 30, "Input",ExpressionUUID->"a0763bd1-9f96-4605-bfae-cf044a49f401"],
Cell[503307, 12198, 291, 5, 34, "Output",ExpressionUUID->"cbc36fe0-ffa2-4ad0-b99f-51aea16464b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503635, 12208, 586, 15, 30, "Input",ExpressionUUID->"6d07d40e-23f5-46d2-865f-0a7bb40b7fdf"],
Cell[504224, 12225, 177, 3, 34, "Output",ExpressionUUID->"22add57b-5b27-46d1-9ea5-ee1d7d64bac7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[504438, 12233, 588, 15, 30, "Input",ExpressionUUID->"1c952ef1-cee1-4101-9d22-cbe0162754e6"],
Cell[505029, 12250, 160, 3, 34, "Output",ExpressionUUID->"44f6ea9c-2299-4f4f-b029-5d236928b1b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[505226, 12258, 403, 10, 30, "Input",ExpressionUUID->"eb2cb08c-4f7e-4333-8b0d-e38b7ec6b872"],
Cell[505632, 12270, 15105, 379, 193, "Output",ExpressionUUID->"47497175-5a0d-4e11-b4b0-b273a1cc1db8"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)