box3579.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    637092,      18011]
NotebookOptionsPosition[    615829,      17688]
NotebookOutlinePosition[    616239,      17704]
CellTagsIndexPosition[    616196,      17701]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Remove", "[", "args", "]"}]], "Input",
 CellChangeTimes->{{3.80688299924238*^9, 3.806883004247291*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e5cb070e-35aa-411f-9160-14f6eb1e74c0"],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.807333678295426*^9, 3.8073336804506817`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"690f3a32-6220-4b3e-9447-bf73e06be9a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "PolyLogTools`"}]], "Input",
 CellChangeTimes->{{3.8068830066403303`*^9, 3.806883013846881*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e023bf63-f10c-41da-b9d6-b2243a727d95"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"(****** PolyLogTools \"\>", 
   "\[InvisibleSpace]", "\<\"1.3.1\"\>", 
   "\[InvisibleSpace]", "\<\" ******)\"\>"}],
  SequenceForm["(****** PolyLogTools ", "1.3.1", " ******)"],
  Editable->False]], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085144375153`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"74dc037d-0d67-4209-8077-d4d0acce7e8f"],

Cell[BoxData["\<\"    Authors: Claude Duhr, Falko Dulat\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.808108514448121*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"4ee0dcee-720d-4f1b-8a95-f1660c1e649d"],

Cell[BoxData["\<\"    Emails: claude.duhr@cern.ch, dulatf@slac.stanford.edu\"\
\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.80810851446012*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"df85b86f-a652-44ec-8bdf-88b1a9b4a0eb"],

Cell[BoxData["\<\"    PolyLogTools uses the implementation of the PSLQ \
algorithm by P. Bertok \
(http://library.wolfram.com/infocenter/MathSource/4263/)\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085144669304`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"1df22e63-463d-4187-b29c-7212f798e8ad"],

Cell[BoxData["\<\"    Modified By Buwai Lee, for the support of ginsh in WSL \
on windows 10. Please make sure that GiNaC & sed & gcc are installed.\"\>"], \
"Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085144719324`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"34b14269-ba40-4d65-96c2-a37108871feb"],

Cell[BoxData["\<\"*-*-*-*-*-* HPL 2.0 *-*-*-*-*-*\\n\\nAuthor: Daniel Maitre, \
University of Zurich\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085144790707`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"0c8543a4-4739-464d-9e17-06611cb9dd48"],

Cell[BoxData["\<\"Rules for minimal set loaded for weights: 2, 3, 4, 5, \
6.\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085147074647`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6143111b-c0e1-4e23-80b8-c79a9b596a92"],

Cell[BoxData["\<\"Rules for minimal set for + - weights loaded for weights: \
2, 3, 4, 5, 6.\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085154913187`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"691e1d52-9fd9-4005-8929-5e58ee04f359"],

Cell[BoxData["\<\"Table of MZVs loaded up to weight 6\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.808108515583702*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"0b136540-fc8b-4a1f-a432-b48de5efa155"],

Cell[BoxData["\<\"Table of values at I loaded up to weight 6\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.8081085170620937`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"74812994-468d-463b-a6f7-1869b304e2f6"],

Cell[BoxData["\<\"$HPLFunctions gives a list of the functions of the package.\
\\n$HPLOptions gives a list of the options of the package.\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.808108517201888*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"bad30148-e7f5-4277-9056-c9ce96e16a0a"],

Cell[BoxData["\<\"More info in hep-ph/0507152, hep-ph/0703052 and at \\n \
http://krone.physik.unizh.ch/~maitreda/HPL/\"\>"], "Print",
 CellChangeTimes->{3.806883014223867*^9, 3.807333688060843*^9, 
  3.807411626825032*^9, 3.807501998435444*^9, 3.8080156768413506`*^9, 
  3.808108517208622*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6b004d1b-3a66-462e-8c03-40ad1aeda153"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bosonicRule", "=", 
   RowBox[{
    RowBox[{"R", "[", "x__", "]"}], "\[RuleDelayed]", 
    RowBox[{"1", "/", 
     RowBox[{"Times", "@@", 
      RowBox[{"ab", "@@@", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"List", "[", "x", "]"}], ",", "4", ",", "1", ",", "1"}], 
        "]"}]}]}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"temtodmatrix", "[", "n_", "]"}], "[", "exprn_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"bosonicBit", "=", 
        RowBox[{"(", 
         RowBox[{"exprn", "//.", "bosonicRule"}], ")"}]}], ",", "etaCoeffs", 
       ",", 
       RowBox[{"rList", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"exprn", ",", 
          RowBox[{"R", "[", "__", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"etaCoeffs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{
           RowBox[{"CoefficientArrays", "[", 
            RowBox[{"#", ",", 
             RowBox[{"\[Eta]", "/@", 
              RowBox[{"Range", "[", "n", "]"}]}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"rList", "//.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"R", "[", "x__", "]"}], "\[RuleDelayed]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"ab", "@@@", 
                 RowBox[{"RotateLeft", "[", 
                  RowBox[{"Partition", "[", 
                   RowBox[{
                    RowBox[{"{", "x", "}"}], ",", "4", ",", "1", ",", "1"}], 
                   "]"}], "]"}]}], ")"}], ".", 
               RowBox[{"\[Eta]", "/@", 
                RowBox[{"{", "x", "}"}]}]}], ")"}]}], ",", 
            RowBox[{
             RowBox[{"\[Eta]", "[", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a_", ",", "b_"}], "}"}], ",", 
                RowBox[{"{", "c__", "}"}]}], "]"}], "]"}], "\[RuleDelayed]", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Eta]", "[", "a", "]"}], 
               RowBox[{"ab", "[", 
                RowBox[{"b", ",", "c"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"\[Eta]", "[", "b", "]"}], 
               RowBox[{"ab", "[", 
                RowBox[{"c", ",", "a"}], "]"}]}]}]}]}], "}"}]}], ")"}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Dmatrix", "[", "etaCoeffs", "]"}], "bosonicBit"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"DmatrixEval", "[", "fermions__", "]"}], " ", ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Dmatrix", "[", 
       RowBox[{"i_", "/;", 
        RowBox[{
         RowBox[{"Length", "[", "i", "]"}], "\[Equal]", 
         RowBox[{"Length", "[", 
          RowBox[{
           RowBox[{"{", "fermions", "}"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}], "\[RuleDelayed]", 
      RowBox[{"Product", "[", 
       RowBox[{
        RowBox[{"Det", "[", 
         RowBox[{"Array", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", 
              RowBox[{"#1", ",", 
               RowBox[{
                RowBox[{"{", "fermions", "}"}], "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "#2"}], "]"}], "]"}]}], "]"}], "]"}], 
            "&"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Length", "[", "i", "]"}], ",", 
             RowBox[{"Length", "[", "i", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"l", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"Dmatrix", "[", "i_", "]"}], "\[RuleDelayed]", "0"}]}], "}"}]}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"fuse", ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Expand", "[", "#", "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"doubleab", "[", "i_", "]"}], " ", 
        RowBox[{"Dmatrix", "[", "j_", "]"}]}], "\[RuleDelayed]", 
       RowBox[{
        RowBox[{"doubleab", "@", 
         RowBox[{"Join", "[", 
          RowBox[{"i", ",", "j"}], "]"}]}], " ", 
        RowBox[{"Dmatrix", "[", "j", "]"}]}]}], "}"}]}], "&"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rfuse", ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Expand", "[", "#", "]"}], "//.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"Dmatrix", "[", "i_", "]"}], " ", 
        RowBox[{"Dmatrix", "[", "j_", "]"}]}], "\[RuleDelayed]", 
       RowBox[{"Dmatrix", "@", 
        RowBox[{"Join", "[", 
         RowBox[{"i", ",", "j"}], "]"}]}]}], "}"}]}], "&"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"DmatrixEval3", "[", 
   RowBox[{"a_", ",", "k_"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"fermions", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", "a", "}"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Dmatrix", "[", 
        RowBox[{"i_", "/;", 
         RowBox[{
          RowBox[{"Length", "[", "i", "]"}], "\[Equal]", 
          RowBox[{"Length", "[", 
           RowBox[{"fermions", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}], 
       "\[RuleDelayed]", 
       RowBox[{"Product", "[", 
        RowBox[{
         RowBox[{"Det", "[", 
          RowBox[{"Array", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"i", "[", 
              RowBox[{"[", 
               RowBox[{"#1", ",", 
                RowBox[{"fermions", "[", 
                 RowBox[{"[", 
                  RowBox[{"l", ",", "#2"}], "]"}], "]"}]}], "]"}], "]"}], 
             "&"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Length", "[", "i", "]"}], ",", 
              RowBox[{"Length", "[", "i", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"l", ",", "k"}], "}"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Dmatrix", "[", "i_", "]"}], "\[RuleDelayed]", "0"}]}], 
     "}"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dabne", "[", "fermions__", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"doubleab", "[", 
       RowBox[{"i_", "/;", 
        RowBox[{
         RowBox[{"Length", "[", "i", "]"}], "\[Equal]", 
         RowBox[{"Length", "[", 
          RowBox[{
           RowBox[{"{", "fermions", "}"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}], "\[RuleDelayed]", 
      RowBox[{"Product", "[", 
       RowBox[{
        RowBox[{"Det", "[", 
         RowBox[{"Array", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", 
              RowBox[{"#1", ",", 
               RowBox[{
                RowBox[{"{", "fermions", "}"}], "[", 
                RowBox[{"[", 
                 RowBox[{"l", ",", "#2"}], "]"}], "]"}]}], "]"}], "]"}], 
            "&"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Length", "[", "i", "]"}], ",", 
             RowBox[{"Length", "[", "i", "]"}]}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"l", ",", "1"}], "}"}]}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"doubleab", "[", "i_", "]"}], "\[RuleDelayed]", "0"}]}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"temtodoubleab", "[", "n_", "]"}], "[", "exprn_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"etaCoeffs", ",", 
       RowBox[{"rList", "=", 
        RowBox[{"Cases", "[", 
         RowBox[{"exprn", ",", 
          RowBox[{"dab", "[", "__", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"etaCoeffs", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Normal", "[", 
          RowBox[{
           RowBox[{"CoefficientArrays", "[", 
            RowBox[{"#", ",", 
             RowBox[{"\[Eta]", "/@", 
              RowBox[{"Range", "[", "n", "]"}]}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"rList", "//.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"dab", "[", "x__", "]"}], "\[RuleDelayed]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"ab", "@@@", 
                 RowBox[{"RotateLeft", "[", 
                  RowBox[{"Partition", "[", 
                   RowBox[{
                    RowBox[{"{", "x", "}"}], ",", "4", ",", "1", ",", "1"}], 
                   "]"}], "]"}]}], ")"}], ".", 
               RowBox[{"\[Eta]", "/@", 
                RowBox[{"{", "x", "}"}]}]}], ")"}]}], ",", 
            RowBox[{
             RowBox[{"\[Eta]", "[", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"a_", ",", "b_"}], "}"}], ",", 
                RowBox[{"{", "c__", "}"}]}], "]"}], "]"}], "\[RuleDelayed]", 
             RowBox[{
              RowBox[{
               RowBox[{"\[Eta]", "[", "a", "]"}], 
               RowBox[{"ab", "[", 
                RowBox[{"b", ",", "c"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"\[Eta]", "[", "b", "]"}], 
               RowBox[{"ab", "[", 
                RowBox[{"c", ",", "a"}], "]"}]}]}]}]}], "}"}]}], ")"}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"doubleab", "[", "etaCoeffs", "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"temqlogtodab", "[", "exp_", "]"}], ":=", 
   RowBox[{"exp", "/.", 
    RowBox[{
     RowBox[{"Qlog", "[", 
      FractionBox[
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", "n", ",", "1", ",", "i_"}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"n", "-", "1"}], ",", "n", ",", "1", ",", "j_"}], "]"}]], 
      "]"}], "->", 
     FractionBox[
      RowBox[{"dab", "[", 
       RowBox[{"1", ",", "i", ",", "j", ",", 
        RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "i", ",", 
         RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "j", ",", 
         RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"prenum", "[", "m_", "]"}], "[", "exp_", "]"}], ":=", 
   RowBox[{"fuse", "[", 
    RowBox[{
     RowBox[{"exp", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"i_R", "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"temtodmatrix", "[", "m", "]"}], "[", "i", "]"}]}], ",", 
        RowBox[{"j_Qlog", "\[RuleDelayed]", 
         RowBox[{"temqlogtodab", "[", "j", "]"}]}]}], "}"}]}], "/.", 
     RowBox[{"i_dab", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"temtodoubleab", "[", "m", "]"}], "[", "i", "]"}]}]}], "]"}]}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"rprenum", "[", "m_", "]"}], "[", "exp_", "]"}], ":=", 
   RowBox[{"rfuse", "[", 
    RowBox[{
     RowBox[{"exp", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"i_R", "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"temtodmatrix", "[", "m", "]"}], "[", "i", "]"}]}], ",", 
        RowBox[{"j_Qlog", "\[RuleDelayed]", 
         RowBox[{"temqlogtodab", "[", "j", "]"}]}]}], "}"}]}], "/.", 
     RowBox[{"i_dab", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"temtodoubleab", "[", "m", "]"}], "[", "i", "]"}]}]}], "]"}]}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"capexpand", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"x___", ",", " ", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a_", ",", " ", "b_"}], "}"}], ",", " ", 
          RowBox[{"{", "c__", "}"}]}], "]"}], ",", " ", "y___"}], "]"}], " ", 
      ":>", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"b", ",", " ", "c"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"x", ",", " ", "a", ",", " ", "y"}], "]"}]}], " ", "+", " ", 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"c", ",", " ", "a"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"x", ",", " ", "b", ",", " ", "y"}], "]"}]}]}]}], ",", "\n", 
     "               ", 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"x___", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a_", ",", "b_"}], "}"}], ",", 
          RowBox[{"{", "c__", "}"}], ",", 
          RowBox[{"{", "d__", "}"}]}], "]"}], ",", "y___"}], "]"}], 
      "\[RuleDelayed]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"Length", "[", 
         RowBox[{"{", "y", "}"}], "]"}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"x", ",", "y", ",", "a", ",", "c"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"x", ",", "y", ",", "b", ",", "d"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"x", ",", "y", ",", "a", ",", "d"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"x", ",", "y", ",", "b", ",", "c"}], "]"}]}]}], 
        ")"}]}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"               ", 
  RowBox[{
   RowBox[{"randomPositiveZs", "[", "n_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Zs", "=", 
      RowBox[{"Nest", "[", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", "mat", "}"}], ",", 
          RowBox[{"Block", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"hatted", "=", 
               RowBox[{"Append", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"Append", "[", 
                    RowBox[{
                    RowBox[{"Total", "[", 
                    RowBox[{"mat", "\[LeftDoubleBracket]", 
                    RowBox[{"#1", ";;", 
                    RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "]"}], 
                    ",", "1"}], "]"}], "&"}], ")"}], "/@", 
                  RowBox[{"Range", "[", 
                   RowBox[{"2", ",", 
                    RowBox[{"Length", "[", "mat", "]"}]}], "]"}]}], ",", 
                 RowBox[{"Append", "[", 
                  RowBox[{
                   RowBox[{"PadRight", "[", 
                    RowBox[{
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    "mat", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", "1"}], 
                  "]"}]}], "]"}]}], ",", 
              RowBox[{"newRow", "=", 
               RowBox[{"RandomInteger", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"1", ",", "10"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Length", "[", "mat", "]"}], "}"}]}], "]"}]}]}], 
             "}"}], ",", 
            RowBox[{"newRow", " ", "hatted"}]}], "]"}]}], "]"}], ",", 
        RowBox[{"RandomInteger", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"n", "+", "8"}], ",", "1"}], "}"}]}], "]"}], ",", "3"}], 
       "]"}]}], ";", 
     RowBox[{"Zs", "=", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"Inverse", "[", 
          RowBox[{"Transpose", "[", 
           RowBox[{"Zs", "\[LeftDoubleBracket]", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
            "\[RightDoubleBracket]"}], "]"}], "]"}], ".", 
         RowBox[{"Transpose", "[", "Zs", "]"}]}], "]"}], 
       "\[LeftDoubleBracket]", 
       RowBox[{"5", ";;", 
        RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], ";"}], 
    ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"neabp", "[", "exp_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"exp", "/.", "\[VeryThinSpace]", "shifexp"}], "//.", 
     "\[VeryThinSpace]", "capexpand"}], "/.", "\[VeryThinSpace]", 
    RowBox[{
     RowBox[{"ab", "[", "x__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Det", "[", 
      RowBox[{"Zs", "\[LeftDoubleBracket]", 
       RowBox[{"{", "x", "}"}], "\[RightDoubleBracket]"}], "]"}]}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"shifexp", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ab", "[", 
      RowBox[{"x___", ",", 
       RowBox[{"shift", "[", 
        RowBox[{"y_", ",", "z_"}], "]"}], ",", "w___"}], "]"}], ":>", 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"x", ",", 
        RowBox[{"y", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        ",", "w"}], "]"}], "+", 
      RowBox[{"z", " ", 
       RowBox[{"ab", "[", 
        RowBox[{"x", ",", 
         RowBox[{"y", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
         ",", "w"}], "]"}]}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"uvtoab", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u1", "->", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", "1", ",", 
          RowBox[{"a", "-", "1"}], ",", "a"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", "1", ",", 
          RowBox[{"b", "-", "1"}], ",", "b"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}], ",", 
     RowBox[{"v1", "->", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"b", "-", "1"}], ",", "b"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"c", "-", "1"}], ",", "c", ",", "n", ",", "1"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", "1", ",", 
          RowBox[{"b", "-", "1"}], ",", "b"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}], ",", 
     RowBox[{"un", "->", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"b", "-", "1"}], ",", "b"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"c", "-", "1"}], ",", "c", ",", 
          RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}], ",", 
     RowBox[{"vn", "->", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}], ",", 
     RowBox[{
      SubscriptBox["\[Tau]", "u"], "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{"c", "-", "1"}], ",", "c", ",", 
           RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"n", ",", "1", ",", "2", ",", "3"}], "]"}]}], 
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"n", ",", "1", ",", 
           RowBox[{"c", "-", "1"}], ",", "c"}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", "3", ",", 
           RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}]}], ",", 
     RowBox[{
      SubscriptBox["\[Tau]", "v"], "\[Rule]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"a", "===", "2"}], ",", "0", ",", 
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"a", "-", "1"}], ",", "a", ",", 
             RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", "1", ",", "2", ",", "3"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", "1", ",", 
             RowBox[{"a", "-", "1"}], ",", "a"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", 
             RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}]}], "]"}]}], ",", 
     RowBox[{"\[CapitalDelta]1", "->", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"a", "===", "2"}], ",", 
        RowBox[{"1", "-", "v1"}], ",", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "u1", "-", "v1"}], ")"}], "2"], "-", 
          RowBox[{"4", "u1", " ", "v1"}]}], "]"}]}], "]"}]}], ",", 
     RowBox[{"\[CapitalDelta]n", "->", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"c", "===", 
         RowBox[{"n", "-", "1"}]}], ",", 
        RowBox[{"1", "-", "vn"}], ",", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "un", "-", "vn"}], ")"}], "2"], "-", 
          RowBox[{"4", "un", " ", "vn"}]}], "]"}]}], "]"}]}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"rationalpara1", "=", 
   RowBox[{"{", 
    RowBox[{"\[Tau]", "\[Rule]", 
     RowBox[{
      SubscriptBox["\[Tau]", "u"], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"v1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "vn", "-", "\[CapitalDelta]n"}], ")"}]}]}], 
         ")"}], 
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"v1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "vn", "+", "\[CapitalDelta]n"}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"un", 
           RowBox[{"(", 
            RowBox[{"1", "-", "u1", "-", "\[CapitalDelta]1"}], ")"}]}]}], 
         ")"}], 
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"un", 
           RowBox[{"(", 
            RowBox[{"1", "-", "u1", "+", "\[CapitalDelta]1"}], ")"}]}]}], 
         ")"}]}]]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rationalpara2", "=", 
   RowBox[{"{", 
    RowBox[{"\[Tau]", "\[Rule]", 
     RowBox[{
      SubscriptBox["\[Tau]", "v"], 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"u1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "un", "-", "\[CapitalDelta]n"}], ")"}]}]}], 
         ")"}], 
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"u1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"vn", 
           RowBox[{"(", 
            RowBox[{"1", "-", "v1", "-", "\[CapitalDelta]1"}], ")"}]}]}], 
         ")"}], 
        RowBox[{"(", 
         RowBox[{"t", "-", 
          RowBox[{"vn", 
           RowBox[{"(", 
            RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}], 
         ")"}]}]]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"collectlog", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"log", "[", "x_", "]"}], "+", 
       RowBox[{"log", "[", "y_", "]"}]}], "\[RuleDelayed]", 
      RowBox[{"log", "[", 
       RowBox[{"x", " ", "y"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"log", "[", "x_", "]"}], "-", 
       RowBox[{"log", "[", "y_", "]"}]}], "\[RuleDelayed]", 
      RowBox[{"log", "[", 
       FractionBox["x", "y"], "]"}]}], ",", 
     RowBox[{
      RowBox[{"k_", " ", 
       RowBox[{"log", "[", "x_", "]"}]}], "\[RuleDelayed]", 
      RowBox[{"log", "[", 
       SuperscriptBox["x", "k"], "]"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"randomPositiveZs", "[", "n_", "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Zs", "=", 
     RowBox[{"Nest", "[", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", "mat", "}"}], ",", 
         RowBox[{"Block", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"hatted", "=", 
              RowBox[{"Append", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Append", "[", 
                    RowBox[{
                    RowBox[{"Total", "[", 
                    RowBox[{"mat", "\[LeftDoubleBracket]", 
                    RowBox[{"#1", ";;", 
                    RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "]"}], 
                    ",", "1"}], "]"}], "&"}], ")"}], "/@", 
                 RowBox[{"Range", "[", 
                  RowBox[{"2", ",", 
                   RowBox[{"Length", "[", "mat", "]"}]}], "]"}]}], ",", 
                RowBox[{"Append", "[", 
                 RowBox[{
                  RowBox[{"PadRight", "[", 
                   RowBox[{
                    RowBox[{"{", "}"}], ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{
                    "mat", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}], "]"}]}], "]"}], ",", "1"}], 
                 "]"}]}], "]"}]}], ",", 
             RowBox[{"newRow", "=", 
              RowBox[{"RandomInteger", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1", ",", "10"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Length", "[", "mat", "]"}], "}"}]}], "]"}]}]}], 
            "}"}], ",", 
           RowBox[{"newRow", " ", "hatted"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"RandomInteger", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"n", "+", "8"}], ",", "1"}], "}"}]}], "]"}], ",", "3"}], 
      "]"}]}], ";", 
    RowBox[{"Zs", "=", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"Inverse", "[", 
         RowBox[{"Transpose", "[", 
          RowBox[{"Zs", "\[LeftDoubleBracket]", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
           "\[RightDoubleBracket]"}], "]"}], "]"}], ".", 
        RowBox[{"Transpose", "[", "Zs", "]"}]}], "]"}], 
      "\[LeftDoubleBracket]", 
      RowBox[{"5", ";;", 
       RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], ";"}], 
   ")"}]}], "\n", 
 RowBox[{
  RowBox[{"randomPositiveZs", "[", "20", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mom", "=", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"mom1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Binomial", "[", 
      RowBox[{
       RowBox[{"n", "+", "i"}], ",", "i"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "20"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"neab", "[", "exp_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"exp", "/.", "shifexp"}], "//.", "capexpand"}], "/.", 
    RowBox[{
     RowBox[{"ab", "[", "x__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Det", "[", 
      RowBox[{"mom", "[", 
       RowBox[{"[", 
        RowBox[{"{", "x", "}"}], "]"}], "]"}], "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"mod", "[", "x_", "]"}], ":=", 
   RowBox[{"Mod", "[", 
    RowBox[{"x", ",", "n", ",", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ztoab", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"zz", "[", 
       RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":>", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"u", "=", 
           FractionBox[
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"c", "-", "1"}], ",", "c", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}], 
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}]]}], ",", 
          RowBox[{"v", "=", 
           FractionBox[
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"d", "-", "1"}], ",", "d", ",", 
                  RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}], 
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}]]}]}], "}"}], ",", 
        FractionBox[
         RowBox[{"1", "+", "u", "-", "v", "+", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", "u"}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "u", "-", "v"}], ")"}], "2"]}]]}], "2"]}], 
       "]"}]}], ",", "\n", 
     RowBox[{
      RowBox[{"zzb", "[", 
       RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":>", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"u", "=", 
           FractionBox[
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"c", "-", "1"}], ",", "c", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}], 
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}]]}], ",", 
          RowBox[{"v", "=", 
           FractionBox[
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"d", "-", "1"}], ",", "d", ",", 
                  RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}], 
            RowBox[{
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"a", "-", "1"}], ",", "a", ",", 
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}], 
             RowBox[{"ab", "@@", 
              RowBox[{"Mod", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b", ",", 
                  RowBox[{"d", "-", "1"}], ",", "d"}], "}"}], ",", "n", ",", 
                "1"}], "]"}]}]}]]}]}], "}"}], ",", 
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"(", 
          RowBox[{"1", "+", "u", "-", "v", "-", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "4"}], " ", "u"}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", "u", "-", "v"}], ")"}], "2"]}]]}], ")"}]}]}],
        "]"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"xx", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}], ",", "x_"}], 
    "]"}], ":=", 
   RowBox[{"Which", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"x", "\[Equal]", "a"}], ",", 
     FractionBox[
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", 
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}], ",", "b"}], "}"}]}], "]"}]}], 
       "]"}], 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"d", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "d", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"d", "+", "1"}], "]"}], ",", "a"}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"b", "-", "1"}], "]"}], ",", "b", ",", 
         RowBox[{"mod", "[", 
          RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "]"}]}]], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Equal]", 
      RowBox[{"Mod", "[", 
       RowBox[{
        RowBox[{"a", "-", "1"}], ",", "n", ",", "1"}], "]"}]}], ",", 
     FractionBox[
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}], ",", "b"}], "}"}]}], "]"}]}], 
       "]"}], 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"d", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "d", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"d", "+", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"a", "-", "1"}], "]"}]}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"b", "-", "1"}], "]"}], ",", "b", ",", 
         RowBox[{"mod", "[", 
          RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "]"}]}]], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Equal]", "b"}], ",", 
     FractionBox[
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "a", "]"}], ",", 
            RowBox[{"mod", "[", "b", "]"}]}], "}"}]}], "]"}]}], "]"}], 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", "a"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "c", "]"}], ",", 
            RowBox[{"mod", "[", "b", "]"}]}], "}"}]}], "]"}]}], "]"}]], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Equal]", 
      RowBox[{"mod", "[", 
       RowBox[{"b", "-", "1"}], "]"}]}], ",", 
     FractionBox[
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", "c"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "a", "]"}], ",", 
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}]}], "}"}]}], "]"}]}], "]"}], 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", "a"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "c", "]"}], ",", 
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}]}], "}"}]}], "]"}]}], "]"}]], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Equal]", 
      RowBox[{"mod", "[", "c", "]"}]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"d", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "d", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"d", "+", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "c", "]"}]}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"a", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "a", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"b", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "b", "]"}]}], "]"}]}], 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", "a"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "b", "]"}], ",", 
            RowBox[{"mod", "[", "c", "]"}]}], "}"}]}], "]"}]}], "]"}]], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"x", "\[Equal]", 
      RowBox[{"mod", "[", 
       RowBox[{"c", "-", "1"}], "]"}]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"d", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "d", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"d", "+", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"c", "-", "1"}], "]"}]}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"mod", "[", 
          RowBox[{"a", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "a", "]"}], ",", 
         RowBox[{"mod", "[", 
          RowBox[{"b", "-", "1"}], "]"}], ",", 
         RowBox[{"mod", "[", "b", "]"}]}], "]"}]}], 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"mod", "[", 
         RowBox[{"d", "-", "1"}], "]"}], ",", 
        RowBox[{"mod", "[", "d", "]"}], ",", 
        RowBox[{"mod", "[", 
         RowBox[{"d", "+", "1"}], "]"}], ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"a", "-", "1"}], "]"}], ",", "a"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"mod", "[", 
             RowBox[{"b", "-", "1"}], "]"}], ",", 
            RowBox[{"mod", "[", "b", "]"}], ",", 
            RowBox[{"mod", "[", 
             RowBox[{"c", "-", "1"}], "]"}]}], "}"}]}], "]"}]}], "]"}]]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"chi", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}], ",", "x_"}], 
    "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"xx", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
          "]"}]}], ")"}], 
       RowBox[{"-", "1"}]], "-", 
      RowBox[{"zzb", "[", 
       RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "]"}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"xx", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
          "]"}]}], ")"}], 
       RowBox[{"-", "1"}]], "-", 
      RowBox[{"zz", "[", 
       RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "]"}]}]], "/.", 
    "ztoab"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tchi", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "}"}], ",", "x_"}], 
    "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"xx", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}], ",", "x"}], "]"}]}], ")"}], 
       RowBox[{"-", "1"}]], "-", 
      RowBox[{"zz", "[", 
       RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "]"}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"xx", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "c", ",", 
             RowBox[{"d", "-", "1"}]}], "}"}], ",", "x"}], "]"}]}], ")"}], 
       RowBox[{"-", "1"}]], "-", 
      RowBox[{"zzb", "[", 
       RowBox[{"d", ",", "a", ",", "b", ",", "c"}], "]"}]}]], "/.", 
    "ztoab"}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.80688303791805*^9, 3.806883067921363*^9}, {
  3.807335139043457*^9, 3.807335161720784*^9}, {3.807335248198667*^9, 
  3.807335288341893*^9}, {3.8073353972603197`*^9, 3.807335398253462*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"6fc89a46-9534-497c-8d52-5fc77621292d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dabtoeta", "=", 
   RowBox[{
    RowBox[{"dab", "[", "x__", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"Apply", "[", 
      RowBox[{"ab", ",", 
       RowBox[{"Partition", "[", 
        RowBox[{
         RowBox[{"{", "x", "}"}], ",", "4", ",", "1", ",", "5"}], "]"}], ",", 
       RowBox[{"{", "1", "}"}]}], "]"}], ".", 
     RowBox[{"\[Eta]", "/@", 
      RowBox[{"{", "x", "}"}]}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"abfactor", "[", "exp_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"lis", "=", 
       RowBox[{
        RowBox[{"Union", "@@", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"exp", "//.", "shifexp"}], "//.", "capexpand"}], ",", 
           "_ab", ",", "Infinity"}], "]"}]}], "/.", 
        RowBox[{"ab", "\[Rule]", "List"}]}]}], "}"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{
          RowBox[{
           FractionBox["exp", 
            RowBox[{"ab", "@@@", 
             RowBox[{"Subsets", "[", 
              RowBox[{"lis", ",", 
               RowBox[{"{", "4", "}"}]}], "]"}]}]], "//", "neab"}], ",", 
          "_Integer"}], "]"}], "=!=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"ab", "@@@", 
        RowBox[{
         RowBox[{"Subsets", "[", 
          RowBox[{"lis", ",", 
           RowBox[{"{", "4", "}"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Position", "[", 
            RowBox[{
             RowBox[{
              FractionBox["exp", 
               RowBox[{"ab", "@@@", 
                RowBox[{"Subsets", "[", 
                 RowBox[{"lis", ",", 
                  RowBox[{"{", "4", "}"}]}], "]"}]}]], "//", "neab"}], ",", 
             "_Integer"}], "]"}], "]"}], "]"}], "]"}]}], ",", "exp"}], 
      "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ordercup2", "[", "exp_", "]"}], ":=", 
    RowBox[{"SortBy", "[", 
     RowBox[{"exp", ",", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Head", "[", "#", "]"}], "===", "cap"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"#", "/.", 
               RowBox[{"cap", "\[RuleDelayed]", "List"}]}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9"}], "}"}]}], ",", "10", ",", "0.5"}], "]"}],
          ",", " ", "#"}], "]"}], "&"}]}], "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"sortR2", "=", 
   RowBox[{"{", 
    RowBox[{"i_R", ":>", 
     RowBox[{
      RowBox[{"ordercup2", "[", "i", "]"}], 
      RowBox[{
       RowBox[{"Signature", "[", "i", "]"}], "/", 
       RowBox[{"Signature", "[", 
        RowBox[{"ordercup2", "[", "i", "]"}], "]"}]}]}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"repR1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a_", ",", "b_"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"c_", ",", "n", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "x___", ",", "a_",
         ",", "y___", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}], ",", "m__"}], "]"}]}], "]"}], 
      "\[RuleDelayed]", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"a", ",", "b", ",", "n", ",", 
           RowBox[{"n", "+", "1"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"c", ",", "x", ",", "a", ",", "y"}], "]"}]}], 
        RowBox[{"ab", "[", 
         RowBox[{"x", ",", "a", ",", "y", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"n", ",", 
              RowBox[{"n", "+", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}], "]"}]], 
       RowBox[{"R", "[", 
        RowBox[{"c", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", "n", ",", 
             RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "x", ",", "a", 
         ",", "y"}], "]"}], 
       RowBox[{"R", "[", 
        RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", 
         RowBox[{"n", "+", "1"}]}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"b_", ",", "a_"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"c_", ",", "n", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "x___", ",", "a_",
         ",", "y___", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}], ",", "m__"}], "]"}]}], "]"}], 
      "\[RuleDelayed]", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"a", ",", "b", ",", "n", ",", 
           RowBox[{"n", "+", "1"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"c", ",", "x", ",", "a", ",", "y"}], "]"}]}], 
        RowBox[{"ab", "[", 
         RowBox[{"x", ",", "a", ",", "y", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"n", ",", 
              RowBox[{"n", "+", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}], "]"}]], 
       RowBox[{"R", "[", 
        RowBox[{"c", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", "n", ",", 
             RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "x", ",", "a", 
         ",", "y"}], "]"}], 
       RowBox[{"R", "[", 
        RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", 
         RowBox[{"n", "+", "1"}]}], "]"}]}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"repR2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", "a___", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"c_", ",", "n", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "d___", ",", 
       RowBox[{"n", "+", "1"}], ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"n", ",", 
           RowBox[{"n", "+", "1"}]}], "}"}], ",", "m__"}], "]"}]}], "]"}], 
     "\[RuleDelayed]", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"c", ",", "d", ",", 
          RowBox[{"n", "+", "1"}]}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{"a", ",", "n", ",", 
          RowBox[{"n", "+", "1"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"c", ",", "a", ",", 
          RowBox[{"n", "+", "1"}]}], "]"}], 
        RowBox[{"ab", "[", 
         RowBox[{"d", ",", "n", ",", 
          RowBox[{"n", "+", "1"}]}], "]"}]}]], 
      RowBox[{"R", "[", 
       RowBox[{"c", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", "a", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"c", ",", "n", ",", 
            RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "d", ",", "n"}], 
       "]"}], 
      RowBox[{"R", "[", 
       RowBox[{"a", ",", "c", ",", "n", ",", 
        RowBox[{"n", "+", "1"}]}], "]"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"qlogtodabm", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Qlog", "[", 
      FractionBox[
       RowBox[{"ab", "[", 
        RowBox[{"7", ",", "8", ",", "1", ",", "i_"}], "]"}], 
       RowBox[{"ab", "[", 
        RowBox[{"7", ",", "8", ",", "1", ",", "j_"}], "]"}]], "]"}], 
     "\[RuleDelayed]", 
     FractionBox[
      RowBox[{"dab", "[", 
       RowBox[{"1", ",", "i", ",", "j", ",", 
        RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "i", ",", 
         RowBox[{"n", "-", "1"}], ",", "n"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "j", ",", 
         RowBox[{"n", "-", "1"}], ",", "n"}], "]"}]}]]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"preab", "[", "exp_", "]"}], ":=", 
   RowBox[{"neab", "[", 
    FractionBox["exp", 
     RowBox[{"ab", "@@@", 
      RowBox[{"Subsets", "[", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"n", "+", "1"}], "]"}], ",", 
        RowBox[{"{", "4", "}"}]}], "]"}]}]], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"numabfactor", "[", "exp_", "]"}], ":=", 
   RowBox[{"ab", "@@@", 
    RowBox[{
     RowBox[{"Subsets", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"n", "+", "1"}], "]"}], ",", 
       RowBox[{"{", "4", "}"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{
         RowBox[{
          FractionBox["exp", 
           RowBox[{"ab", "@@@", 
            RowBox[{"Subsets", "[", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"n", "+", "1"}], "]"}], ",", 
              RowBox[{"{", "4", "}"}]}], "]"}]}]], "//", "neab"}], ",", 
         "_Integer"}], "]"}], "]"}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"inumabfactor", "[", "exp_", "]"}], ":=", 
   RowBox[{"ab", "@@@", 
    RowBox[{
     RowBox[{"Subsets", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"n", "+", "1"}], "]"}], ",", 
       RowBox[{"{", "4", "}"}]}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox["exp", 
             RowBox[{"ab", "@@@", 
              RowBox[{"Subsets", "[", 
               RowBox[{
                RowBox[{"Range", "[", 
                 RowBox[{"n", "+", "1"}], "]"}], ",", 
                RowBox[{"{", "4", "}"}]}], "]"}]}]], ")"}], 
           RowBox[{"-", "1"}]], "//", "neab"}], ",", "_Integer"}], "]"}], 
       "]"}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"dabsimp", "[", "exp_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"f1", ",", "f2", ",", "f3"}], "}"}], ",", 
      RowBox[{
       RowBox[{"f1", "=", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"exp", "/.", "dabcapexpand"}], "/.", "dabtoeta"}], "//", 
          "neab"}], "//", "Simplify"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"f2", "=", 
        RowBox[{"dab", "@@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"f1", ",", 
              RowBox[{"\[Eta]", "[", "_", "]"}], ",", "Infinity"}], "]"}], "/.", 
            RowBox[{"\[Eta]", "\[Rule]", "List"}]}], "//", "Flatten"}], 
          ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"f3", "=", 
        RowBox[{"Times", "@@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               FractionBox["exp", "f2"], "/.", "dabcapexpand"}], "/.", 
              "dabtoeta"}], "//", "neab"}], "//", "Simplify"}], "//", 
           "numabfactor"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", " ", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  FractionBox["exp", 
                   RowBox[{"f2", "*", "f3"}]], "/.", "dabcapexpand"}], "/.", 
                 "dabtoeta"}], "//", "neab"}], "//", "Simplify"}], ")"}], "/.", 
             RowBox[{"i_\[Eta]", "\[RuleDelayed]", "1"}]}], "//", "neab"}], 
           "]"}], "<", "10"}], ",", 
         RowBox[{
          RowBox[{"f2", "*", "f3", " ", 
           RowBox[{"(", " ", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                FractionBox["exp", 
                 RowBox[{"f2", "*", "f3"}]], "/.", "dabcapexpand"}], "/.", 
               "dabtoeta"}], "//", "neab"}], "//", "Simplify"}], ")"}]}], "/.",
           "sortall"}], ",", "exp"}], "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"absim", "[", "exp_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "f1", "}"}], ",", 
     RowBox[{
      RowBox[{"f1", "=", 
       RowBox[{"Times", "@@", 
        RowBox[{"(", 
         RowBox[{"exp", "//", "numabfactor"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{
           FractionBox["exp", "f1"], "//", "neab"}], "]"}], "<", "10"}], ",", 
        RowBox[{"f1", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["exp", "f1"], "//", "neab"}], ")"}]}], ",", "exp"}], 
       "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"uvtoz", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u1", "\[RuleDelayed]", 
      RowBox[{"z1", " ", "z1b"}]}], ",", 
     RowBox[{"v1", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "z1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "z1b"}], ")"}]}]}], ",", 
     RowBox[{"un", "\[RuleDelayed]", 
      RowBox[{"zn", " ", "znb"}]}], ",", 
     RowBox[{"vn", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "zn"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", "znb"}], ")"}]}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ztouv", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"z1", "\[RuleDelayed]", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", "u1", "-", "v1", "+", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "u1", "-", "v1"}], ")"}], "2"], "-", 
           RowBox[{"4", "u1", " ", "v1"}]}], "]"}]}], ")"}]}]}], ",", 
     RowBox[{"z1b", "\[RuleDelayed]", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", "u1", "-", "v1", "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "u1", "-", "v1"}], ")"}], "2"], "-", 
           RowBox[{"4", "u1", " ", "v1"}]}], "]"}]}], ")"}]}]}], ",", 
     RowBox[{"zn", "\[RuleDelayed]", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", "un", "-", "vn", "+", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "un", "-", "vn"}], ")"}], "2"], "-", 
           RowBox[{"4", "un", " ", "vn"}]}], "]"}]}], ")"}]}]}], ",", 
     RowBox[{"znb", "\[RuleDelayed]", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"(", 
        RowBox[{"1", "+", "un", "-", "vn", "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "un", "-", "vn"}], ")"}], "2"], "-", 
           RowBox[{"4", "un", " ", "vn"}]}], "]"}]}], ")"}]}]}]}], "}"}]}], 
  ";"}]}], "Code",
 CellChangeTimes->{
  3.806883079900283*^9, {3.806884450707679*^9, 3.806884547499549*^9}, {
   3.80688464906146*^9, 3.8068846521489973`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"957c8e03-c1b3-493c-8588-04155f5e4cbc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mutoab", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
     RowBox[{"\[Nu]", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"xx6", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], 
     ",", 
     RowBox[{"xx7", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
     ",", 
     RowBox[{"yy6", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
     RowBox[{"yy7", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"f", "[", "6", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"8", ",", "9", ",", "1", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], 
     ",", 
     RowBox[{
      RowBox[{"f", "[", "7", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"8", ",", "9", ",", "1", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"g", "[", "6", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"8", ",", "9", ",", "1", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], 
     ",", 
     RowBox[{
      RowBox[{"g", "[", "7", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"8", ",", "9", ",", "1", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"9", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"h1", "[", "7", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"7", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
         "2"], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"hn", "[", "7", "]"}], "\[RuleDelayed]", 
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",",
           "5", ",", 
          RowBox[{"cap", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"7", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "3"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"9", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
         "2"], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"4", ",", "5", ",", "9", ",", "8"}], "]"}]}]]}]}], "}"}]}], 
  ";"}]}], "Code",
 CellChangeTimes->{
  3.806883103603207*^9, 3.8068834333239517`*^9, 3.806884584463174*^9, {
   3.806884659215708*^9, 3.8068846676025457`*^9}, {3.807333742278852*^9, 
   3.807333742577896*^9}, {3.807333835911356*^9, 3.807333855087654*^9}, {
   3.8073339598788757`*^9, 3.807333960799848*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"9c45b689-bf59-4d8b-93ee-ef8d2ceeecc2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "9"}], ";"}]], "Input",
 CellChangeTimes->{{3.807335321311686*^9, 3.807335339198187*^9}, {
  3.807335415722035*^9, 3.807335462486061*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"739e1117-b707-4c3f-8c98-26871e4b7e99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "temqlogtodab", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8073353573279753`*^9, 3.80733536242155*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"6e9c1813-4686-4ed0-9739-73ffa2edf6b2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"xytoab", ",", "mutoab"}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807333860158141*^9, 3.80733387138684*^9}, {
  3.807333930086431*^9, 3.807333938315049*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"d67ed8cb-6185-4c8f-acb0-d4c2cf2aa897"],

Cell[CellGroupData[{

Cell[BoxData["xytoab"], "Input",
 CellChangeTimes->{{3.8073339402372513`*^9, 3.8073339417491293`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"b4860042-016e-47f6-84cd-1a15c798c880"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"xx6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"xx7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"yy6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"yy7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "6", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], 
   ",", 
   RowBox[{
    RowBox[{"f", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "6", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "7", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"h1", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "8"}], "]"}]}]]}], ",", 
   RowBox[{"\[Mu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"\[Nu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.80733394215096*^9, 3.807333966509202*^9}, 
   3.8074116653487177`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"9d5b034f-3bf1-4901-accb-129206507d90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Thread", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}], "->", 
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{"n", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}], 
        " ", 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"a", "-", "1"}], ",", "a", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{"n", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}], 
        " ", 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]], ",", 
      FractionBox[
       RowBox[{" ", 
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"n", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"n", "-", "1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}], 
         " ", 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{"a", "-", "1"}], ",", "a", ",", 
           RowBox[{"b", "-", "1"}], ",", "b"}], "]"}]}]}], 
       RowBox[{
        RowBox[{"ab", "[", 
         RowBox[{"n", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{"n", "-", "1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"b", "-", "1"}], ",", "b"}], "}"}]}], "]"}]}], "]"}], 
        " ", 
        RowBox[{"ab", "[", 
         RowBox[{
          RowBox[{"b", "-", "1"}], ",", "b", ",", 
          RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "3"}], ",", 
     RowBox[{"b", "\[Rule]", "5"}], ",", 
     RowBox[{"c", "\[Rule]", "7"}], ",", 
     RowBox[{"n", "\[Rule]", "9"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.806884598449197*^9, 3.8068846336292553`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"f3b27a85-3cd8-479d-8041-beb166a9cdc3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Mu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"\[Nu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.806884611588092*^9, 3.806884634945839*^9}},
 CellLabel->
  "Out[111]=",ExpressionUUID->"13684ea7-9369-4393-b488-89d9b46b76b2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "\[Nu]", "]"}]], "Input",
 CellChangeTimes->{{3.8068836374482517`*^9, 3.8068836565149403`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"815e3bbd-21c9-41a0-baf9-8c87e71d18f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalizebox2", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Mu]", "=", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"n", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", 
                RowBox[{"n", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}], 
          " ", 
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"a", "-", "1"}], ",", "a", ",", 
            RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"n", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", 
                RowBox[{"n", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}], 
          " ", 
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"b", "-", "1"}], ",", "b", ",", 
            RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}], ",", 
       RowBox[{"\[Nu]", "=", 
        FractionBox[
         RowBox[{" ", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"n", "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}],
            " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"a", "-", "1"}], ",", "a", ",", 
             RowBox[{"b", "-", "1"}], ",", "b"}], "]"}]}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"n", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", 
                RowBox[{"n", "-", "1"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"b", "-", "1"}], ",", "b"}], "}"}]}], "]"}]}], "]"}], 
          " ", 
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"b", "-", "1"}], ",", "b", ",", 
            RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{"1", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "]"}]}], 
              RowBox[{"ab", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
                RowBox[{"cap", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "]"}]}], 
               "]"}]]}], ")"}]}]}], 
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "n"}], "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "]"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "c"}]}], "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", "c", ",", 
                 "n"}], "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", "c", ",", 
                 "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}], 
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{"1", ",", "c", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "]"}]}], 
              RowBox[{"ab", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
                RowBox[{"cap", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", "c"}], 
                   "}"}]}], "]"}]}], "]"}]]}], ")"}]}]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", "c"}], "}"}]}],
             "]"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", "c"}], 
          "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", "c"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn"}]}], 
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "c"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", "c"}], 
          "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1"}], "}"}]}], 
          "]"}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn"}], "+", 
          FractionBox[
           RowBox[{"2", " ", "u1", " ", "vn", " ", 
            RowBox[{"ab", "[", 
             RowBox[{"1", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "b"}], ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}]}], 
              "]"}]}], "]"}]]}], 
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c", ",", "n"}], 
                "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}], ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}]}], "]"}]}], 
          "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}]}], "}"}]}], "]"}]}], "]"}]], 
        "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{"b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c", ",", "n"}], 
                "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", "b", ",", 
                 "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}], 
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn"}], "+", 
          FractionBox[
           RowBox[{"2", " ", "u1", " ", "vn", " ", 
            RowBox[{"ab", "[", 
             RowBox[{"1", ",", "b", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}]}], 
              "]"}]}], "]"}]]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"b", ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}]}], "]"}]}], 
          "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", "b"}], "}"}]}],
             "]"}]}], "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", "b", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
                 RowBox[{"cap", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "a"}], ",", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}]}], 
                  "]"}]}], "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{"1", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}], 
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn"}], "+", 
          FractionBox[
           RowBox[{"2", " ", "u1", " ", "vn", " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", "a"}], ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "c"}], ",", "c", ",", "n"}], "]"}]}], 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "a"}], ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"a", ",", "n"}], "}"}]}], "]"}]}], "]"}]]}]], "]"}], 
       " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "a"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "a"}], ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}]}], "]"}]}], 
          "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "a"}], ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn"}], "-", 
          FractionBox[
           RowBox[{"2", " ", "u1", " ", "vn", " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "1"}], "+", "a"}], ",", "a", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{"a", ",", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", "n"}], "]"}]}], 
           RowBox[{"ab", "[", 
            RowBox[{"a", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "a"}], ",", "n"}], "}"}]}], 
              "]"}]}], "]"}]]}], 
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
                 RowBox[{"cap", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}]}], 
                  "]"}]}], "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{"1", ",", "a", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "n"}], ",", "n"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}]]}], 
            ")"}]}]}]], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", "a"}], 
          "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"a", ",", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "b"}], ",", "b"}], "}"}]}], "]"}]}], 
          "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{"a", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ",", "c"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"dlog", "[", 
        RowBox[{"t", "-", 
         FractionBox[
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"\[Mu]", "+", "\[Nu]"}], ")"}]}], 
          RowBox[{"\[Mu]", "-", "\[Nu]"}]]}], "]"}], " ", 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "a"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1", ",", "a"}], 
          "]"}]], "]"}], " ", 
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "1"}], "+", "c"}], ",", "c", ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "a"}], ",", "a"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "1"}], "+", "n"}], ",", "n", ",", "1"}], "}"}]}], 
          "]"}]}], "]"}]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.794615233831006*^9, 3.7946152885895085`*^9}, {
   3.7946249539162292`*^9, 3.7946249540888023`*^9}, 3.7947834721663857`*^9, {
   3.8068834746080713`*^9, 3.806883498047861*^9}, 3.8070001165554943`*^9},
 CellLabel->
  "In[223]:=",ExpressionUUID->"1783f566-1071-4c0d-80d7-4d3591fbec21"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rationalizebox2", "[", 
  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]], "Input",
 CellChangeTimes->{{3.807000120165279*^9, 3.807000124076124*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"a0018079-3055-43e3-84eb-f8bde416dcae"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn"}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
     RowBox[{"cap", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "4", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"5", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}]], 
    "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "-", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"3", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"3", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"3", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    RowBox[{"t", "-", 
     FractionBox[
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]], "+", 
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"9", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "8"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"9", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "8"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
         RowBox[{"ab", "[", 
          RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]]}], "]"}], 
   " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"6", ",", "7", ",", "4", ",", "5", ",", 
     RowBox[{"cap", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Output",
 CellChangeTimes->{3.8070001247229137`*^9},
 CellLabel->
  "Out[224]=",ExpressionUUID->"14bc6852-1d90-49e7-9761-091707513a2a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalizeintegral2", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "n_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Mu]", "=", 
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"n", "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}],
            " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"a", "-", "1"}], ",", "a", ",", 
             RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"n", "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], "]"}],
            " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"b", "-", "1"}], ",", "b", ",", 
             RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}], ",", 
        RowBox[{"\[Nu]", "=", 
         FractionBox[
          RowBox[{" ", 
           RowBox[{
            RowBox[{"ab", "[", 
             RowBox[{"n", ",", 
              RowBox[{"cap1", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1", ",", 
                  RowBox[{"n", "-", "1"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"b", "-", "1"}], ",", "b"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"c", "-", "1"}], ",", "c"}], "}"}]}], "]"}]}], 
             "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{
              RowBox[{"a", "-", "1"}], ",", "a", ",", 
              RowBox[{"b", "-", "1"}], ",", "b"}], "]"}]}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"n", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"n", "-", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"a", "-", "1"}], ",", "a"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"b", "-", "1"}], ",", "b"}], "}"}]}], "]"}]}], "]"}],
            " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"b", "-", "1"}], ",", "b", ",", 
             RowBox[{"c", "-", "1"}], ",", "c"}], "]"}]}]]}]}], "}"}], ",", 
      RowBox[{
       RowBox[{"Li", "[", 
        FractionBox[
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn"}]}], 
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
       RowBox[{"Li", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"t", "-", 
            RowBox[{"u1", " ", "vn", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
          "\[Nu]"}], 
         RowBox[{"\[Mu]", " ", 
          RowBox[{"(", 
           RowBox[{"t", "-", 
            RowBox[{"u1", " ", "vn", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"log", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
           "\[Nu]"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"t", "+", 
             RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
           RowBox[{"(", 
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
        " ", 
        RowBox[{"log", "[", 
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn"}]}], 
            RowBox[{"t", "+", 
             RowBox[{"u1", " ", "vn"}]}]]}], 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"t", "-", 
               RowBox[{"u1", " ", "vn", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", 
                  RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
             "\[Nu]"}], 
            RowBox[{"\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{"t", "-", 
               RowBox[{"u1", " ", "vn", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
         "]"}]}]}]}], "]"}], "//.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.79462511799317*^9, 3.7946251534861903`*^9}, {
  3.7946252274459095`*^9, 
  3.794625234256652*^9}},ExpressionUUID->"c8dbc266-2661-46b0-be5c-\
212dd00fd3d9"],

Cell[CellGroupData[{

Cell[TextData[{
 "1. Component of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"R", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"8", ",", "9", ",", "1"}], ")"}]}], ",", "4", ",", "5", ",", 
      "6", ",", "7"}], "]"}], 
    RowBox[{"Qlog", "[", 
     FractionBox[
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "\[RightAngleBracket]"}], 
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "\[RightAngleBracket]"}]],
      "]"}]}], TraditionalForm]],ExpressionUUID->
  "c14f0786-88a7-4e3c-97f4-94a1d5efe002"]
}], "Subsubsection",
 CellChangeTimes->{{3.807334050650908*^9, 
  3.8073342253153477`*^9}},ExpressionUUID->"9ed1f878-a44b-4186-b5f3-\
0fce779624f6"],

Cell[BoxData[
 RowBox[{"(*", "*******)"}]], "Input",
 CellChangeTimes->{{3.808108795927478*^9, 
  3.808108799173583*^9}},ExpressionUUID->"de05301b-3ee3-4f66-8ec7-\
7d4a8845831c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"temp0", "=", 
   RowBox[{
    RowBox[{"ToFibrationBasis", "[", 
     RowBox[{
      RowBox[{"LiToG", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", 
           FractionBox[
            RowBox[{"(", 
             RowBox[{"t", "+", 
              RowBox[{"un", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2"}], "+", "v1"}], ")"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"t", "-", 
               RowBox[{"un", " ", "v1"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"t", " ", "+", 
               RowBox[{"un", " ", "v1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"v1", " ", "\[Nu]"}]}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"v1", " ", "\[Nu]"}]}], ")"}]}]}]}], ")"}]}]], 
           "]"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Li", "[", 
              FractionBox[
               RowBox[{"2", " ", "un", " ", "v1"}], 
               RowBox[{"t", "+", 
                RowBox[{"un", " ", "v1"}]}]], "]"}]}], "+", 
            RowBox[{"Li", "[", 
             FractionBox[
              RowBox[{"t", "-", 
               RowBox[{"t", " ", "v1", " ", "\[Nu]"}], "-", 
               RowBox[{"un", " ", "v1", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"v1", " ", "\[Nu]"}]}], ")"}]}]}], 
              RowBox[{"t", "-", 
               RowBox[{"un", " ", "v1", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}]], "]"}], "-", 
            RowBox[{
             FractionBox["1", "2"], " ", 
             RowBox[{"log", "[", 
              FractionBox[
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"t", "-", 
                  RowBox[{"un", " ", "v1"}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{"t", "-", 
                  RowBox[{"un", " ", "v1", " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"t", "+", 
                  RowBox[{"un", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "v1"}], ")"}]}]}], ")"}], " ", 
                "v1", " ", 
                RowBox[{"(", 
                 RowBox[{"t", "+", 
                  RowBox[{"un", " ", "v1"}]}], ")"}], " ", "\[Nu]"}]], "]"}], 
             " ", 
             RowBox[{"log", "[", 
              RowBox[{"-", 
               FractionBox[
                RowBox[{"2", " ", "un", " ", "v1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"t", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"v1", " ", "\[Nu]"}]}], ")"}]}], "+", 
                   RowBox[{"un", " ", "v1", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"v1", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "+", 
                   RowBox[{"un", " ", "v1"}]}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"un", " ", "v1", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}], 
              "]"}]}]}], ")"}]}], "//.", 
         RowBox[{
          RowBox[{"un", " ", "v1"}], " ", "\[Rule]", "unv1"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
           RowBox[{"PolyLog", "[", 
            RowBox[{"2", ",", "x"}], "]"}]}], ",", 
          RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "un", ",", "v1", ",", "unv1", ",", "\[Nu]"}], 
       "}"}]}], "]"}], "//.", 
    RowBox[{"unv1", "\[Rule]", 
     RowBox[{"un", " ", "v1"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.808108896389745*^9, 3.808108941685182*^9}, {
   3.808109007457752*^9, 3.808109037180701*^9}, {3.808189698409233*^9, 
   3.8081896997056007`*^9}, 3.8081922459384317`*^9, {3.80819680589377*^9, 
   3.8081968509329414`*^9}, {3.8081968903183804`*^9, 3.808196952584174*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"234675e7-54ab-4f5f-af6c-696e115180b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ComputeSymbol", "[", "temp0", "]"}], "/.", 
  RowBox[{"CiTi", "\[Rule]", "Tensor"}]}]], "Input",
 CellChangeTimes->{{3.8081922563778267`*^9, 3.808192281550518*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"5cd5c196-2f1c-4885-a08d-85a1bb22cac3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"temp1", "=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"hhh", "=", 
       RowBox[{"GIntegrate", "[", 
        RowBox[{"temp0", ",", "t"}], "]"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"hhh", "/.", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"v1", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "vn", "+", "\[CapitalDelta]n"}], ")"}]}], 
          ")"}]}]}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{"hhh", "/.", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"un", " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", "v1"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp1", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{"Collect", "[", 
        RowBox[{"#", ",", "_G"}], "]"}], "]"}], "&"}], "/@", "temp1"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.808109608261217*^9, 3.808109625151986*^9}, {
   3.808109659053753*^9, 3.808109670986275*^9}, {3.808110808090238*^9, 
   3.8081108218194013`*^9}, {3.8081896467188053`*^9, 3.808189655259009*^9}, {
   3.8081897474181805`*^9, 3.808189768551137*^9}, 3.808190112480581*^9, {
   3.808190202473405*^9, 3.8081902420617933`*^9}, 3.808190297385322*^9, {
   3.808196966171871*^9, 3.808196977800989*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"b8529afb-6785-4b43-80a2-02a282e568a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"temp2", "=", 
   RowBox[{
    RowBox[{"SymbolMap", "[", "temp1", "]"}], "/.", 
    RowBox[{"CiTi", "\[Rule]", "Tensor"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.808190224039954*^9, 3.8081902247236843`*^9}, {
  3.808190339868573*^9, 3.8081903622201324`*^9}, {3.808190398236394*^9, 
  3.8081904065491304`*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"a84e7151-361d-4ca1-bf96-fd826d6496dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"temp2", ">>", "temp2222"}], ";"}]], "Input",
 CellChangeTimes->{{3.8081904373432484`*^9, 3.808190462049933*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"b905e04a-6977-43ce-8b82-85c3c208c167"],

Cell[BoxData[
 RowBox[{"(*", "*******)"}]], "Input",
 CellChangeTimes->{{3.808108541367302*^9, 
  3.8081085427706385`*^9}},ExpressionUUID->"cd222a38-5a81-4838-9220-\
118eae99c7d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"compon1", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          RowBox[{"t", "-", 
           FractionBox[
            RowBox[{"u1", " ", "vn", " ", 
             RowBox[{"(", 
              RowBox[{"\[Mu]", "+", "\[Nu]"}], ")"}]}], 
            RowBox[{"\[Mu]", "-", "\[Nu]"}]]}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon1", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon1", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon1", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon1", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon1", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon1", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon1", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.80688355693347*^9, 3.8068836267692347`*^9}, {
  3.806883668347536*^9, 3.806883749195676*^9}, {3.807334244851313*^9, 
  3.8073342575140343`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"790cbbf1-79e3-4c43-8b15-5091cea283c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"compon1", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.8081895898845987`*^9, 3.808189593844686*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"1cfa5edf-80bf-4ad6-9b12-566749aa01b4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "z1b"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "z1b", "\[CircleTimes]", "\[Mu]"}], "2"], 
  "-", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "z1b", "\[CircleTimes]", "\[Nu]"}], "2"], 
  "+", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "z1b"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}], 
   "2"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "-", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "z1b"}], "2"], 
  "-", 
  FractionBox[
   RowBox[{"z1b", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "\[Mu]"}], 
   "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"zn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}], "2"],
   "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  FractionBox[
   RowBox[{"\[Mu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", "z1b"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"\[Mu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", "\[Nu]"}], 
   "2"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"\[Mu]", "\[CircleTimes]", "zn", "\[CircleTimes]", "\[Nu]"}], "2"],
   "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"\[Mu]", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "z1b"}], 
   "2"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Mu]", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "z1b"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]", 
    "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b", "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b", "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "zn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "zn", "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"\[Nu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", "z1b"}], "2"], 
  "-", 
  FractionBox[
   RowBox[{"\[Nu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", "\[Mu]"}], 
   "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", "z1b", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"\[Nu]", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "z1b"}], 
   "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "z1b"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "z1b", 
    "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "z1b"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "z1b"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", "z1b"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "z1b", "-", 
      RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"\[Mu]", "-", 
      RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}], "\[CircleTimes]", "\[Nu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "zn", 
    "\[CircleTimes]", "\[Nu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", "\[Mu]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", 
      RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    "\[Mu]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "zn"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", "\[Mu]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"zn", "-", "\[Nu]", "+", 
      RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "\[CircleTimes]", "\[Nu]", 
    "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.8081895943151894`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"170053b1-3fc1-40bd-b259-8c0425293b08"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "2. Component of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"R", "[", 
     RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"8", ",", "9", ",", "1"}], ")"}]}]}], "]"}], 
    RowBox[{"Qlog", "[", 
     FractionBox[
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "\[RightAngleBracket]"}], 
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "\[RightAngleBracket]"}]],
      "]"}]}], TraditionalForm]],ExpressionUUID->
  "9c781dcd-0723-40c7-8a98-3ca7a78e1f82"],
 " "
}], "Subsubsection",
 CellChangeTimes->{{3.807334334489554*^9, 
  3.807334391988649*^9}},ExpressionUUID->"5df72bdb-964b-41b9-a54b-\
608180453de0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"compon2", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "-", 
            RowBox[{"u1", " ", "vn"}]}], 
           RowBox[{"t", "+", 
            RowBox[{"u1", " ", "vn", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon2", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon2", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon2", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon2", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon2", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon2", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon2", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.806884085930522*^9, 3.806884098810787*^9}, {
  3.8068849589330807`*^9, 3.806884959578392*^9}, {3.80688518538063*^9, 
  3.806885218861787*^9}, {3.806885399786997*^9, 3.8068854955627813`*^9}, {
  3.806885587267014*^9, 3.8068857295177517`*^9}, {3.8068857925031137`*^9, 
  3.8068858689086733`*^9}, {3.806886027725533*^9, 3.8068860474283733`*^9}, {
  3.80733440291199*^9, 3.807334413849661*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"588306b7-e419-422f-9826-1b93c8312939"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.806884952122201*^9, 3.806884967726919*^9}, {
   3.806885738067574*^9, 3.806885761269971*^9}, {3.806885875769187*^9, 
   3.806885896385357*^9}, {3.806886065299057*^9, 3.806886074591213*^9}, 
   3.807334401619482*^9},ExpressionUUID->"71987996-a9c6-42ee-b4e2-\
d2cb5c328905"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"GetSymbolAlphabet", "[", 
   RowBox[{"compon2", "[", "4", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.806886137247167*^9, 3.806886140391309*^9}, 
   3.8073344059280787`*^9, {3.807334476099575*^9, 3.807334481427843*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"a1597955-60c7-49c5-928d-24d942f23d16"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.806886145556632*^9, 3.8073344824982557`*^9, 
  3.8075027107584524`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"2aec416f-0c77-47ba-a5d4-5bdce7daaa24"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\n3. Component of ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"R", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
          RowBox[{"(", 
           RowBox[{"8", ",", "9", ",", "1"}], ")"}]}]}], "]"}], 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{"8", ",", "9", ",", "1", ",", "6"}], 
          "\[RightAngleBracket]"}], 
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{"8", ",", "9", ",", "1", ",", "7"}], 
          "\[RightAngleBracket]"}]], "]"}]}], "+", 
      RowBox[{
       RowBox[{"R", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
          RowBox[{"(", 
           RowBox[{"8", ",", "9", ",", "1"}], ")"}]}], ",", "4", ",", "5", 
         ",", "6", ",", "7"}], "]"}], 
       RowBox[{"Qlog", "[", 
        FractionBox[
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{"8", ",", "9", ",", "1", ",", "2"}], 
          "\[RightAngleBracket]"}], 
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{"8", ",", "9", ",", "1", ",", "3"}], 
          "\[RightAngleBracket]"}]], "]"}]}]}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"af169fa3-8174-4b51-8ec8-dfd010e97791"]
}], "Subsubsection",
 CellChangeTimes->{{3.806886165951954*^9, 3.8068861709120903`*^9}, 
   3.807334410562456*^9, {3.80733449002765*^9, 3.807334587077424*^9}, 
   3.8073348518606663`*^9},ExpressionUUID->"62c6f199-66a7-473e-9e09-\
bea29fec34cc"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.807334487980926*^9, 
  3.807334487984619*^9}},ExpressionUUID->"52a29666-cf78-43f3-8f8c-\
8dbeafd0d962"],

Cell["3.1 Algebraic part: ", "Text",
 CellChangeTimes->{{3.807334600587122*^9, 
  3.807334609618799*^9}},ExpressionUUID->"2213dfd0-deb7-4620-b838-\
1e3769f74a7f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "1", "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1"}], 
         RowBox[{"1", "-", "z1b"}]], ",", 
        FractionBox[
         RowBox[{"u1", "-", "z1"}], 
         RowBox[{"u1", "-", "z1b"}]]}], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1b", "z1"], ",", 
        FractionBox[
         RowBox[{"u1", "-", "z1"}], 
         RowBox[{"u1", "-", "z1b"}]]}], "]"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "zn"}], 
         RowBox[{"1", "-", "znb"}]], ",", 
        FractionBox[
         RowBox[{"un", "-", "zn"}], 
         RowBox[{"un", "-", "znb"}]]}], "]"}]}], "-", 
     RowBox[{
      FractionBox["1", "2"], 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["znb", "zn"], ",", 
        FractionBox[
         RowBox[{"un", "-", "zn"}], 
         RowBox[{"un", "-", "znb"}]]}], "]"}]}]}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8073346736546497`*^9, 3.8073347175098963`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"285c78fd-6c84-4813-be13-851e728bdb15"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"rationalpart", "[", "1", "]"}], "=", 
  RowBox[{
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{"SymbolExpand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"compon1", "[", "4", "]"}], "+", 
          RowBox[{"compon2", "[", "4", "]"}], "-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"algebraicpart", "[", "1", "]"}], "/.", 
            RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], ")"}]}], "/.", 
         "uvtoz"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
          FractionBox["v1", 
           RowBox[{"1", "-", "z1b"}]]}], ",", 
         RowBox[{
          RowBox[{"1", "-", "znb"}], "\[RuleDelayed]", 
          FractionBox["vn", 
           RowBox[{"1", "-", "zn"}]]}]}], "}"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}], "/.", 
   RowBox[{"CiTi", "\[RuleDelayed]", "Tensor"}]}]}]], "Input",
 CellChangeTimes->{{3.806886178672632*^9, 3.8068863773610773`*^9}, {
  3.80688660403657*^9, 3.8068866054261208`*^9}, {3.807334594504225*^9, 
  3.8073345951340837`*^9}, {3.807334634242971*^9, 3.80733466074271*^9}, {
  3.8073347240809813`*^9, 3.807334797749716*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"73df5839-7561-4099-b805-87fe84e0d38b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"u1", ",", "u1", ",", "\[Mu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"u1", ",", "u1", ",", "\[Nu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"u1", ",", "v1", ",", "\[Mu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"u1", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"u1", ",", "\[Nu]", ",", "\[Nu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"un", ",", "un", ",", "\[Mu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"un", ",", "vn", ",", "\[Mu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"un", ",", "vn", ",", "\[Nu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"un", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"v1", ",", "u1", ",", "\[Mu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"v1", ",", "u1", ",", "\[Nu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"v1", ",", "v1", ",", "\[Mu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"v1", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"vn", ",", "un", ",", "\[Mu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"vn", ",", "vn", ",", "\[Mu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"vn", ",", "vn", ",", "\[Nu]"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"vn", ",", "\[Mu]", ",", "\[Nu]"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Tensor", "[", 
    RowBox[{"vn", ",", "\[Nu]", ",", "\[Nu]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.806886189489478*^9, 3.80688620187416*^9}, {
   3.806886263012167*^9, 3.8068863108833714`*^9}, {3.8068863634011374`*^9, 
   3.806886378060401*^9}, 3.806886606964962*^9, 3.807334614767517*^9, 
   3.807334661209936*^9, 3.807334742163683*^9, 3.807334798347671*^9, 
   3.807411958985985*^9, 3.807502739437067*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"992629b7-605f-4358-8797-f701bb8e6007"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "4. Component of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
         RowBox[{"(", 
          RowBox[{"8", ",", "9", ",", "1"}], ")"}]}], ",", "4", ",", "5", ",",
         "6", ",", "7"}], "]"}], 
      RowBox[{"Qlog", "[", 
       FractionBox[
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"8", ",", "9", ",", "1", ",", "2"}], 
         "\[RightAngleBracket]"}], 
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"8", ",", "9", ",", "1", ",", "3"}], 
         "\[RightAngleBracket]"}]], "]"}]}], "-", 
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
         RowBox[{"(", 
          RowBox[{"8", ",", "9", ",", "1"}], ")"}]}]}], "]"}], 
      RowBox[{"Qlog", "[", 
       FractionBox[
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"8", ",", "9", ",", "1", ",", "6"}], 
         "\[RightAngleBracket]"}], 
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"8", ",", "9", ",", "1", ",", "7"}], 
         "\[RightAngleBracket]"}]], "]"}]}]}], ")"}], TraditionalForm]],
  ExpressionUUID->"3e53f590-2fa9-47f3-98ed-4444d870306a"],
 "\[LineSeparator]"
}], "Subsubsection",
 CellChangeTimes->{{3.807334856047083*^9, 3.807334894577302*^9}, 
   3.8075027970614157`*^9},ExpressionUUID->"08347e52-87e2-4bd5-8776-\
03c7f9657f8c"],

Cell["Note that this part satisfies:", "Text",
 CellChangeTimes->{{3.80733489947646*^9, 
  3.8073349397567387`*^9}},ExpressionUUID->"11500fb9-0854-4228-b53e-\
896384fc9c20"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fuse", "[", 
     RowBox[{
      RowBox[{"rprenum", "[", "9", "]"}], "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Qlog", "[", 
            FractionBox[
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}]], "]"}], " ", 
           RowBox[{"R", "[", 
            RowBox[{"6", ",", "7", ",", "4", ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
          "-", 
          RowBox[{
           RowBox[{"Qlog", "[", 
            FractionBox[
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}], 
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
           RowBox[{"R", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], 
            "]"}]}]}], ")"}]}], "-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Qlog", "[", 
            FractionBox[
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", 
               RowBox[{"cap", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}]], "]"}]}], 
          " ", 
          RowBox[{"R", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}]}], 
         "+", 
         RowBox[{
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
          RowBox[{"R", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "7"}], "]"}]}], 
         "-", 
         RowBox[{
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}], " ", 
          RowBox[{"R", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "6", ",", "7"}], "]"}]}], 
         "+", 
         RowBox[{
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}], " ", 
          RowBox[{"R", "[", 
           RowBox[{"2", ",", "3", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
         "-", 
         RowBox[{
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}], " ", 
          RowBox[{"R", "[", 
           RowBox[{"2", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
         "+", 
         RowBox[{
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}], " ", 
          RowBox[{"R", "[", 
           RowBox[{"3", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}]}], 
        ")"}]}], "]"}], "]"}], "/.", 
    RowBox[{"dabne", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "2"}], "}"}], "]"}]}], "/.", 
   RowBox[{"DmatrixEval3", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", "3"}], "]"}]}], "//", 
  "neab"}]], "Input",
 CellChangeTimes->{{3.807335007703479*^9, 3.8073350976600657`*^9}, {
  3.8073354839372168`*^9, 3.807335631818668*^9}, {3.807335742106824*^9, 
  3.8073357970315733`*^9}, {3.80733583053015*^9, 3.807335887234449*^9}, {
  3.8073361131319733`*^9, 3.807336117507066*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"a681b6d9-d0bf-461a-9f18-274915248694"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.807335098151947*^9, 3.8073351794469433`*^9, 3.807335229968844*^9, 
   3.807335264507964*^9, {3.807335474630645*^9, 3.807335632284638*^9}, {
   3.8073357518344803`*^9, 3.807335797452744*^9}, {3.80733583530266*^9, 
   3.807335888796504*^9}, 3.807336121413722*^9, 3.8074119666657667`*^9, 
   3.8075028101788893`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"73b7f3f8-20de-472c-9a63-dea5f7133b55"]
}, Open  ]],

Cell["We introduce", "Text",
 CellChangeTimes->{{3.807335640108654*^9, 3.8073356863669357`*^9}, {
  3.8073358115763187`*^9, 3.807335826415169*^9}, {3.807336146427162*^9, 
  3.807336151831335*^9}},ExpressionUUID->"beb8fe2b-9c5f-49ae-9b39-\
d35469a7666d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"comdiff", "=", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"compon1", "[", "4", "]"}], "-", 
      RowBox[{"compon2", "[", "4", "]"}]}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807336155807891*^9, 3.807336160556933*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"f09c00e4-bf28-4edc-b7e2-a18c234b7357"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of R[2,3,4,5,7] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"4", ",", "5", ",", "7"}], ")"}]}]}], 
     "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "\[RightAngleBracket]"}]], 
   TraditionalForm]], "Input",ExpressionUUID->
  "d2a98f7b-78ab-448f-a4d5-8aa34a564f34"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.8073362151515903`*^9, 3.807336335535602*^9}, {
  3.8074170167478867`*^9, 
  3.807417016899613*^9}},ExpressionUUID->"9edca72d-a9a8-4b29-b219-\
ff6bdc63f4ba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"compon3", "[", "1", "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "+", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy7"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx7"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx7", ",", "yy7", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon3", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon3", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon3", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon3", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon3", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"compon3", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon3", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.807336357263392*^9, 3.8073363680861607`*^9}, 
   3.8074119719789248`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"782bcdb9-28ef-4645-8e39-797e45d4ca23"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"realationmatrix7", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon3", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rule7", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix7", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon3", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx7", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx7", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"yy7", " ", "\[Mu]"}], "+", 
             RowBox[{"yy7", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy7", "+", "\[Nu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx7", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8068866214017353`*^9, 3.806886635736258*^9}, {
   3.807000020613654*^9, 3.8070000410276613`*^9}, 3.807336159608902*^9, {
   3.807336456568441*^9, 3.8073364679420013`*^9}, {3.807336688788612*^9, 
   3.807336689063437*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"1d7d29ef-8084-47fd-8cbd-74ce9c678998"],

Cell[CellGroupData[{

Cell[BoxData["rule7"], "Input",
 CellChangeTimes->{{3.807503047489459*^9, 3.8075030506392546`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"199605c8-8507-4097-b08b-d131936894a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"xx7", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
     RowBox[{"xx7", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx7", "-", "\[Nu]"}], ")"}]}], "yy7"]}], ",", 
   RowBox[{
    RowBox[{"\[Mu]", "-", 
     RowBox[{"yy7", " ", "\[Mu]"}], "+", 
     RowBox[{"yy7", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"yy7", "-", "\[Mu]"}], ")"}], " ", "\[Nu]"}], "xx7"]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "yy7", "+", "\[Nu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "xx7"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"yy7", "-", "\[Mu]"}], ")"}], " ", "\[Nu]"}], 
     RowBox[{"xx7", " ", "\[Mu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "+", "xx7", "-", "\[Mu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "yy7"}], ")"}], " ", "\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx7", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{"yy7", " ", "\[Nu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"yy7", "-", "\[Mu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"xx7", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{"xx7", " ", "yy7"}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8075030512655435`*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"a648e3bc-e540-4367-8cc5-3a0b0c58c858"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "7"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx7", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx7", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "7"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx7", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx7", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807411999530139*^9, 3.807412202503017*^9}, {
  3.8074122433572474`*^9, 3.807412269693033*^9}, {3.807412368417077*^9, 
  3.8074124275346813`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"feab2ed6-ba3a-47f2-a459-37d92b571b91"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.807412254469707*^9, 3.807412270306566*^9}, {
   3.807412417634512*^9, 3.807412428375433*^9}, 3.8075030652762585`*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"8adbaf00-98af-4740-a9c4-fdb7a769a202"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.807412251997122*^9, 
  3.807412252006385*^9}},ExpressionUUID->"c43d87ec-197f-407a-880c-\
c4aa594f37bd"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8074121417105293`*^9, {3.807412206839731*^9, 
   3.807412245932691*^9}},ExpressionUUID->"cf04aff9-746c-44fc-afd0-\
9f2ecaf51d93"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8074122492771883`*^9, 
  3.8074122492840014`*^9}},ExpressionUUID->"4c6c8df2-a859-4a0a-882d-\
c3d819e91d21"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "7"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "7"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "7"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "7"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.807412307648183*^9, 3.8074123422666893`*^9}, {
  3.807412448272044*^9, 3.807412537069043*^9}, {3.8074126827249126`*^9, 
  3.8074126878232307`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"7c81b18b-4320-42cd-bdd9-b6786501414a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "2", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"SymbolExpand", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"compon3", "[", "4", "]"}], "-", "comdiff"}], "/.", 
                 "rule7"}], "]"}], "/.", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"1", "-", 
                   RowBox[{"yy7", " ", "z1b"}]}], "\[RuleDelayed]", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "-", "z1", "-", 
                    RowBox[{"xx7", " ", "z1"}]}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "z1b"}], ")"}], 
                   RowBox[{"f", "[", "7", "]"}]}]}], ",", 
                 RowBox[{
                  RowBox[{"1", "-", "yy7", "+", 
                   RowBox[{"yy7", " ", "zn"}]}], ":>", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"xx7", "-", "znb", "-", 
                    RowBox[{"xx7", " ", "znb"}]}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "zn"}], ")"}], 
                   RowBox[{"g", "[", "7", "]"}]}]}]}], "}"}]}], ")"}], "-", 
             RowBox[{"algebraicpart", "[", "2", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "7"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx7", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx7", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "7"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx7", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx7", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"xx7", "-", "\[Nu]"}], ")"}], ":>", 
           FractionBox["yy7", 
            RowBox[{"vn", "  ", 
             RowBox[{"g", "[", "7", "]"}], "\[Mu]"}]]}], ",", 
          RowBox[{
           RowBox[{"xx7", "-", "znb", "-", 
            RowBox[{"xx7", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"hn", "[", "7", "]"}], 
            RowBox[{
             RowBox[{"xx7", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx7", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "7", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx7", " ", "z1b"}]}]]}]}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"g", "[", "7", "]"}], ":>", 
         FractionBox[
          RowBox[{"v1", " ", 
           RowBox[{"f", "[", "7", "]"}]}], 
          RowBox[{"vn", " ", "\[Nu]", " "}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8073364860978727`*^9, 3.8073364893246603`*^9}, {
  3.807336697101692*^9, 3.807336740211905*^9}, {3.8074125491144247`*^9, 
  3.8074125834896812`*^9}, {3.80741261499092*^9, 3.807412618244831*^9}, {
  3.807412668400785*^9, 3.8074126785973063`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"04e4b0bf-09da-4ff7-8b90-8a521ebbc9a7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"rationalpart", "[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807336718234592*^9, 3.807336722928774*^9}, {
  3.807412629825448*^9, 3.8074126329742947`*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"7a03fee3-7693-4d1f-be82-8bec7bed86af"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u1", ",", "un", ",", "v1", ",", "vn", ",", "xx7", ",", 
   RowBox[{"1", "+", "xx7"}], ",", 
   RowBox[{"1", "-", "yy7"}], ",", "yy7", ",", "\[Mu]", ",", "\[Nu]", ",", 
   RowBox[{"f", "[", "7", "]"}], ",", 
   RowBox[{"h1", "[", "7", "]"}], ",", 
   RowBox[{"hn", "[", "7", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8073367233634777`*^9, 3.807336742951758*^9}, {
   3.807412596779089*^9, 3.807412633778763*^9}, 3.8074126908053102`*^9, 
   3.807503101145842*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"15046b8f-973a-4004-b610-e7b05a29e1ef"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.807336496712759*^9, 3.807336580034925*^9}, 
   3.8073366867464743`*^9},ExpressionUUID->"fa71be37-61f9-4129-bda0-\
9d17242f06c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"h1", "[", "6", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"6", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
           "2"], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
       RowBox[{
        RowBox[{"hn", "[", "6", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"6", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
           "2"], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}]]}]}], "}"}]}],
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8070001468389263`*^9, 3.8070001475116777`*^9}, {
   3.8070002119840937`*^9, 3.80700026798202*^9}, {3.8070003119368067`*^9, 
   3.8070003228325357`*^9}, {3.807000389275831*^9, 3.807000393353269*^9}, 
   3.807336352917491*^9, {3.807344499991555*^9, 3.807344505942107*^9}, 
   3.807412704438394*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"1ca3935f-37a4-435f-9ad7-138caf4a1cb7"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8070003473102713`*^9, 3.807000376185975*^9}, 
   3.80722663730742*^9, 
   3.807336355554657*^9},ExpressionUUID->"6531f00e-7e9d-42df-9b4c-\
07a64a3c5e3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of -R[2,3,4,5,6] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"4", ",", "5", ",", "6"}], ")"}]}]}], 
     "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "\[RightAngleBracket]"}]], 
   TraditionalForm]], "Input",ExpressionUUID->
  "9e921f1a-166e-42f9-a2f5-0879c3c0afd2"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.807000487272254*^9, 3.8070005149675922`*^9}, 
   3.807226636129238*^9, {3.807416987682249*^9, 3.807416992750801*^9}, {
   3.807417023461356*^9, 3.807417038963456*^9}, {3.8075031695975976`*^9, 
   3.807503169795141*^9}},ExpressionUUID->"4fb80d6b-fb10-4393-bee4-\
6b2af77ab808"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon4", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"dlog", "[", 
           FractionBox[
            RowBox[{"t", "+", 
             RowBox[{"uv", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{"2", "yy6"}]}], ")"}]}]}], 
            RowBox[{"t", "-", 
             RowBox[{"uv", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"2", "xx6"}]}], ")"}]}]}]], "]"}]}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx6", ",", "yy6", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8072264908161077`*^9, 3.807226517639884*^9}, {
  3.8072266003979273`*^9, 3.807226603373746*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"1c4eecde-5ada-46e6-8204-34ded64b9c4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon4", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon4", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon4", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon4", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon4", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807226644515452*^9, 3.807226655843101*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"da29108b-20e6-4514-bacb-e7cf6ff2d062"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon4", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon4", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8072267450928307`*^9, 3.807226749132834*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"74f7da54-2f31-45c3-a5bd-ac064b5a00ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"realationmatrix6", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon4", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.80722680068585*^9, 3.807226806253129*^9}, 
   3.8074128341637077`*^9},
 CellLabel->
  "In[106]:=",ExpressionUUID->"1297596a-9299-48f4-9d8b-b356120ce242"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon4", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8074128777541847`*^9, 3.807412889615967*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"ba58c019-9cf2-453c-af4a-9b9feae294f0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx6", ",", 
   RowBox[{"1", "+", "xx6"}], ",", 
   RowBox[{"1", "-", "yy6"}], ",", "yy6", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx6", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", 
    RowBox[{"yy6", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx6", "-", "zn", "-", 
    RowBox[{"xx6", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "yy6", "+", 
    RowBox[{"yy6", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx6", "-", "\[Mu]"}], ",", 
   RowBox[{"yy6", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx6", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"1", "-", "yy6", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx6", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx6", " ", "\[Nu]"}]}], ",", 
   RowBox[{"\[Mu]", "-", 
    RowBox[{"yy6", " ", "\[Mu]"}], "+", 
    RowBox[{"yy6", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807412890060998*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"c1acbc88-7f1e-436c-a99b-b48d1ddd3d28"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rule6", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix6", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon4", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx6", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx6", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"yy6", " ", "\[Mu]"}], "+", 
             RowBox[{"yy6", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy6", "+", "\[Nu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx6", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.807226824875472*^9, 3.80722682738236*^9}, {
  3.807227206890285*^9, 3.807227241622307*^9}, {3.807412849382112*^9, 
  3.8074128620808764`*^9}, {3.807412908461961*^9, 3.80741292890588*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"7b797a96-0080-43ba-be21-2e570151b7f2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"compon4", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon4", "[", "4", "]"}], "+", "comdiff"}], "/.", 
       RowBox[{"(", "rule6", ")"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "-", 
         RowBox[{"yy6", " ", "z1b"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1", "-", 
           RowBox[{"xx6", " ", "z1"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b"}], ")"}], 
         RowBox[{"f", "[", "6", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"1", "-", "yy6", "+", 
         RowBox[{"yy6", " ", "zn"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xx6", "-", "znb", "-", 
           RowBox[{"xx6", " ", "znb"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "zn"}], ")"}], 
         RowBox[{"g", "[", "6", "]"}]}]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GetSymbolAlphabet", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.807226859749569*^9, 3.807226875406775*^9}, {
   3.807227135914209*^9, 3.8072271708832912`*^9}, 3.807227260463389*^9, {
   3.807227315820034*^9, 3.807227321905417*^9}, {3.807412939852199*^9, 
   3.8074129463299303`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"b46973f5-99d1-40b6-b73e-1a41186719dd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx6", ",", 
   RowBox[{"1", "+", "xx6"}], ",", 
   RowBox[{"1", "-", "yy6"}], ",", "yy6", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1", "-", 
    RowBox[{"xx6", " ", "z1"}]}], ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx6", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx6", "-", "zn", "-", 
    RowBox[{"xx6", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"xx6", "-", "znb", "-", 
    RowBox[{"xx6", " ", "znb"}]}], ",", "\[Mu]", ",", 
   RowBox[{"xx6", "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"g", "[", "6", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.807226876559143*^9, 3.807227173318668*^9, 
  3.807227262499858*^9, 3.807227325117175*^9, 3.807412950001959*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"e93cefce-000a-4d7f-9a03-d370a70216a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "6"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx6", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx6", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "6"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx6", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx6", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807413012794485*^9, 3.807413036482758*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"ddeeff2f-8397-4e57-8b08-4163c8d8cf15"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.807413037718947*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"97bdcb13-1bc9-4205-b64e-073a8f419412"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "3", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "6"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "6"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "6"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "6"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8074129626754208`*^9, 3.807412993875599*^9}, 
   3.807413043310611*^9},
 CellLabel->
  "In[113]:=",ExpressionUUID->"72ebc99e-6769-4188-ac2e-434aa54445bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"compon4", "[", "5", "]"}]}], "-", 
             RowBox[{"algebraicpart", "[", "3", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "6"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx6", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx6", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "6"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx6", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx6", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"xx6", "-", "\[Nu]"}], ")"}], ":>", 
           FractionBox["yy6", 
            RowBox[{"vn", "  ", 
             RowBox[{"g", "[", "6", "]"}], "\[Mu]"}]]}], ",", 
          RowBox[{
           RowBox[{"xx6", "-", "znb", "-", 
            RowBox[{"xx6", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"-", 
             RowBox[{"hn", "[", "6", "]"}]}], 
            RowBox[{
             RowBox[{"xx6", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx6", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "6", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx6", " ", "z1b"}]}]]}]}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"g", "[", "6", "]"}], ":>", 
         FractionBox[
          RowBox[{"v1", " ", 
           RowBox[{"f", "[", "6", "]"}]}], 
          RowBox[{"vn", " ", "\[Nu]", " "}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807227346549191*^9, 3.807227408541101*^9}, {
   3.807227455434338*^9, 3.8072274992939253`*^9}, {3.807413086639057*^9, 
   3.807413191706669*^9}, 3.807413279912476*^9},
 CellLabel->
  "In[120]:=",ExpressionUUID->"93fbb7e0-253f-40be-8506-c1c249ae94ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"rationalpart", "[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807227482723813*^9, 3.8072275051681013`*^9}, {
  3.807413165389662*^9, 3.807413172578671*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"a6b2247e-084b-4462-826e-30a0b2f6a987"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u1", ",", "un", ",", "v1", ",", "vn", ",", "xx6", ",", 
   RowBox[{"1", "+", "xx6"}], ",", 
   RowBox[{"1", "-", "yy6"}], ",", "yy6", ",", "\[Mu]", ",", "\[Nu]", ",", 
   RowBox[{"f", "[", "6", "]"}], ",", 
   RowBox[{"h1", "[", "6", "]"}], ",", 
   RowBox[{"hn", "[", "6", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.807227488872106*^9, 3.807227505583702*^9}, {
   3.807413173046067*^9, 3.8074131938304987`*^9}, 3.8074132830793867`*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"d9acbb93-6fb5-44ca-8454-f103358e86d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["xytoab"], "Input",
 CellChangeTimes->{{3.80722743254722*^9, 3.807227433171218*^9}},
 CellLabel->
  "In[751]:=",ExpressionUUID->"2d84e7a1-edc7-4be4-bfa5-9fe9b63277eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"xx6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"xx7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"yy6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"yy7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "6", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], 
   ",", 
   RowBox[{
    RowBox[{"f", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "6", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "7", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"h1", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "8"}], "]"}]}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.807227433736991*^9},
 CellLabel->
  "Out[751]=",ExpressionUUID->"16779278-8da1-48cf-953e-7f12bfe07af1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"hn", "[", "6", "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx6", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx6", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]}]], ",", 
        FractionBox[
         RowBox[{"h1", "[", "6", "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx6", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b", "-", 
            RowBox[{"xx6", " ", "z1b"}]}], ")"}]}]]}], "}"}], "/.", "ztouv"}],
      "/.", "xytoab"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.80734425196845*^9, 3.807344388905182*^9}, {
  3.807344420289627*^9, 3.8073444673132973`*^9}, {3.807413266189385*^9, 
  3.807413270797155*^9}, {3.807413775356018*^9, 3.807413811969846*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"c2e84de3-3160-47d5-8ec2-bdd42742f5a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.807344457723795*^9, 3.807413271492322*^9, {3.807413807568214*^9, 
   3.8074138125309677`*^9}},
 CellLabel->
  "Out[123]=",ExpressionUUID->"12a8632c-b41b-42b0-bfd5-90ca124b6ae6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of R[2,3,5,6,7] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"5", ",", "6", ",", "7"}], ")"}]}]}], 
     "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"2", ",", "3", ",", "5"}], ")"}]}]}], 
     "\[RightAngleBracket]"}]], TraditionalForm]], "Input",ExpressionUUID->
  "fe98eeef-6215-4050-9c35-fcb2a55b6f05"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.807344397454967*^9, 3.807344413225718*^9}, {
  3.807417105824485*^9, 
  3.807417164159025*^9}},ExpressionUUID->"864da520-c895-49ee-9412-\
d432cef4e540"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8073444819043713`*^9, 3.807344492224783*^9}, 
   3.807417103152944*^9, {3.807436739260289*^9, 
   3.807436739720935*^9}},ExpressionUUID->"6832d1f8-22b1-4b32-81d3-\
3a131facadac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dlog", "[", 
   FractionBox[
    RowBox[{"t", "+", 
     RowBox[{"u1", " ", "vn", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"5", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ")"}]}]}], 
    RowBox[{"t", "+", 
     RowBox[{"u1", " ", "vn"}], "+", 
     FractionBox[
      RowBox[{"2", " ", "u1", " ", "vn", " ", 
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}]], 
   "]"}], " "}]], "Input",ExpressionUUID->"49033d29-a839-464d-b79e-\
92a927286c04"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx5", ":>", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
       ",", 
       RowBox[{"yy5", ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"5", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]}], "}"}], 
     ",", "xytoab"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807227965303485*^9, 3.8072280186709547`*^9}},
 CellLabel->
  "In[764]:=",ExpressionUUID->"05f5ece0-0779-4e06-8ddb-37dde4923eb0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon5", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy5"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx5"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx5", ",", "yy5", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon5", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon5", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon5", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon5", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon5", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon5", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon5", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807227760595793*^9, 3.807227827268655*^9}, {
  3.807413840228923*^9, 3.807413844215267*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"d37f929e-cf3a-4ee1-a29c-12868da7e520"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon5", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8072278583175783`*^9, 3.807227954947339*^9}, {
   3.807228030546303*^9, 3.807228049789289*^9}, 3.807413839286952*^9, 
   3.807413870139216*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"b538f158-1829-4f09-943a-f82d2804375a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx5", ",", 
   RowBox[{"1", "+", "xx5"}], ",", 
   RowBox[{"1", "-", "yy5"}], ",", "yy5", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx5", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "z1b", "+", 
    RowBox[{"yy5", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx5", "-", "zn", "-", 
    RowBox[{"xx5", " ", "zn"}]}], ",", 
   RowBox[{"yy5", "+", "zn", "-", 
    RowBox[{"yy5", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx5", "-", "\[Mu]"}], ",", 
   RowBox[{"1", "-", "yy5", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx5", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"yy5", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx5", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx5", " ", "\[Nu]"}]}], ",", 
   RowBox[{
    RowBox[{"yy5", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
    RowBox[{"yy5", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807413871391144*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"bc7648b6-516d-4071-ae43-4d233fbe99c5"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"realationmatrix5", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon5", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rule5", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix5", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon5", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx5", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx5", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"yy5", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
             RowBox[{"yy5", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy5", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx5", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8072281155340433`*^9, 3.807228120966639*^9}, {
   3.8074138611923523`*^9, 3.807413882422524*^9}, 3.8074140996785192`*^9},
 CellLabel->
  "In[132]:=",ExpressionUUID->"8948f68c-0154-4483-9e0a-ebac8ad6ea41"],

Cell[CellGroupData[{

Cell[BoxData["rule5"], "Input",
 CellChangeTimes->{{3.807414281725569*^9, 3.807414289667748*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"823ce23a-aece-4c4f-9ba0-65a20261834f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"xx5", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
     RowBox[{"xx5", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx5", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{"1", "-", "yy5"}]]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"yy5", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
     RowBox[{"yy5", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"yy5", "+", "\[Nu]"}], ")"}]}], 
     RowBox[{"1", "+", "xx5"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "yy5", "-", "\[Mu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"xx5", " ", "\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"yy5", "+", "\[Nu]"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "xx5"}], ")"}], " ", "\[Nu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "+", "xx5", "-", "\[Mu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"yy5", " ", "\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx5", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "yy5"}], ")"}], " ", "\[Nu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx5", "-", "\[Nu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"yy5", "+", "\[Nu]"}], ")"}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "xx5"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "yy5"}], ")"}], " ", "\[Nu]"}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.807414285608705*^9, 3.807414290031053*^9}},
 CellLabel->
  "Out[135]=",ExpressionUUID->"2f06c75e-020b-4bd1-ba20-ed7ada3f1928"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.807228177383576*^9, 3.807228188053883*^9}, 
   3.807413869157134*^9},ExpressionUUID->"b6b3307e-6e8d-45c4-9c8b-\
491a4f7446db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx5", ",", 
   RowBox[{"1", "+", "xx5"}], ",", 
   RowBox[{"1", "-", "yy5"}], ",", "yy5", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx5", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "z1b", "+", 
    RowBox[{"yy5", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx5", "-", "zn", "-", 
    RowBox[{"xx5", " ", "zn"}]}], ",", 
   RowBox[{"yy5", "+", "zn", "-", 
    RowBox[{"yy5", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx5", "-", "\[Mu]"}], ",", 
   RowBox[{"1", "-", "yy5", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx5", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"yy5", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx5", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx5", " ", "\[Nu]"}]}], ",", 
   RowBox[{
    RowBox[{"yy5", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
    RowBox[{"yy5", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807228189212434*^9},
 CellLabel->
  "Out[768]=",ExpressionUUID->"0901d2ec-95c7-4e65-903e-0eb8a4b1e43a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "5"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx5", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx5", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "5"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx5", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx5", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807228151390424*^9, 3.807228159774599*^9}, {
   3.807228225223127*^9, 3.807228308724811*^9}, 3.8074138801400003`*^9, {
   3.807414327223892*^9, 3.807414361157198*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"ddb97e79-5742-4d6d-a28d-ba04d03a7844"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "4", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "5"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "5"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "5"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "5"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "5", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{" ", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}]}]}]]}], ",", 
       RowBox[{
        RowBox[{"g", "[", "5", "]"}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}]}], "  ", 
          ")"}]}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"h1", "[", "5", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"5", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           "2"]}]]}], ",", 
       RowBox[{
        RowBox[{"hn", "[", "5", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"5", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           "2"]}]]}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.807414378734861*^9, 3.807414391590187*^9}, {
  3.807414515865724*^9, 3.807414516348007*^9}, {3.807436758925349*^9, 
  3.807436759278255*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"7d4cd382-ad04-45e7-91e5-937c10ec0ef3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon5", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon5", "[", "4", "]"}], "-", "comdiff"}], "/.", 
       RowBox[{"(", "rule5", ")"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "-", "z1b", "+", 
         RowBox[{"yy5", " ", "z1b"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1", "-", 
           RowBox[{"xx5", " ", "z1"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b"}], ")"}], 
         RowBox[{"f", "[", "5", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"yy5", "+", "zn", "-", 
         RowBox[{"yy5", " ", "zn"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xx5", "-", "znb", "-", 
           RowBox[{"xx5", " ", "znb"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "zn"}], ")"}], 
         RowBox[{"g", "[", "5", "]"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellLabel->
  "In[204]:=",ExpressionUUID->"057b62ce-6655-4a64-8276-ec24ebc563e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"compon5", "[", "5", "]"}], "-", 
             RowBox[{"algebraicpart", "[", "4", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "5"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx5", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx5", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "5"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx5", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx5", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx5", "-", "znb", "-", 
            RowBox[{"xx5", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"-", 
             RowBox[{"hn", "[", "5", "]"}]}], 
            RowBox[{
             RowBox[{"xx5", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx5", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "5", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx5", " ", "z1b"}]}]]}], ",", 
          RowBox[{
           RowBox[{"f", "[", "5", "]"}], "->", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "yy5"}], ")"}], " ", "\[Nu]"}], 
            RowBox[{"v1", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "xx5"}], "+", "\[Nu]"}], ")"}]}]]}], ",", 
          RowBox[{
           RowBox[{"g", "[", "5", "]"}], "->", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", "yy5"}], 
            RowBox[{"vn", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "xx5"}], "+", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], 
       "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807414432012123*^9, 3.8074144796942253`*^9}, {
   3.807414667852838*^9, 3.807414694616927*^9}, {3.807414730634932*^9, 
   3.8074147676159687`*^9}, {3.807416131910976*^9, 3.807416145682081*^9}, {
   3.8074161876951838`*^9, 3.807416187867206*^9}, {3.807416237861437*^9, 
   3.807416252262521*^9}, 3.807416927309754*^9},
 CellLabel->
  "In[205]:=",ExpressionUUID->"b8a08dc8-e098-4766-b9fc-2717b422dd17"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"rationalpart", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8072283255593557`*^9, 3.807228341687489*^9}, {
   3.807229205469331*^9, 3.807229229116762*^9}, 3.807414415530107*^9, {
   3.807415894051755*^9, 3.807415945283393*^9}, {3.8074160419724092`*^9, 
   3.807416043529397*^9}, {3.807416168404313*^9, 3.807416173081168*^9}, {
   3.807416262378417*^9, 3.8074162768648643`*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"053543a7-b260-42fc-ba97-132bbbd5bcf3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u1", ",", "un", ",", "v1", ",", "vn", ",", "xx5", ",", 
   RowBox[{"1", "+", "xx5"}], ",", 
   RowBox[{"1", "-", "yy5"}], ",", "yy5", ",", "\[Mu]", ",", 
   RowBox[{"xx5", "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"h1", "[", "5", "]"}], ",", 
   RowBox[{"hn", "[", "5", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.807229233120929*^9, 3.807414567577832*^9, {3.8074146867414083`*^9, 
   3.807414697524393*^9}, {3.807414742974373*^9, 3.8074147707137957`*^9}, {
   3.807415899693922*^9, 3.807415945841927*^9}, 3.807416043979355*^9, {
   3.807416150580579*^9, 3.8074161912729063`*^9}, {3.807416257416107*^9, 
   3.8074162775565147`*^9}, 3.8074169317609167`*^9, 3.807436772816864*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"0289092b-d2ac-4e45-8061-5e64ccee3680"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"h1", "[", "5", "]"}], "/.", "xytoab"}]], "Input",
 CellChangeTimes->{{3.8074159630725603`*^9, 3.807416020996601*^9}, {
   3.807416055955618*^9, 3.807416062880912*^9}, 3.8074161224791*^9, {
   3.807416208105468*^9, 3.807416229252429*^9}, {3.807416296308339*^9, 
   3.8074163020593987`*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"0f67e01e-4abc-4409-8645-f9cc843bc984"],

Cell[BoxData[
 RowBox[{"h1", "[", "5", "]"}]], "Output",
 CellChangeTimes->{
  3.8074161234821453`*^9, {3.807416215823152*^9, 3.807416230020918*^9}, 
   3.8074163024075737`*^9},
 CellLabel->
  "Out[177]=",ExpressionUUID->"06e3c881-da6e-4ffd-974f-f7067fd44823"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of -R[2,3,4,6,7] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", ",", "3"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"4", ",", "6", ",", "7"}], ")"}]}]}], 
     "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"2", ",", "3", ",", "4"}], ")"}]}]}], 
     "\[RightAngleBracket]"}]], TraditionalForm]], "Input",ExpressionUUID->
  "3ceaf392-3070-4fef-8301-45d94136a68a"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.807483693191793*^9, 
  3.807483708070462*^9}},ExpressionUUID->"81601943-41ff-413a-8dbb-\
49799ca5af46"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "+", 
            RowBox[{"u1", " ", "vn"}], "+", 
            FractionBox[
             RowBox[{"2", " ", "u1", " ", "vn", " ", 
              RowBox[{"ab", "[", 
               RowBox[{"1", ",", "4", ",", "8", ",", "9"}], "]"}], " ", 
              RowBox[{"ab", "[", 
               RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
             RowBox[{"ab", "[", 
              RowBox[{"8", ",", "9", ",", "1", ",", 
               RowBox[{"cap", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], 
              "]"}]]}], 
           RowBox[{"t", "+", 
            RowBox[{"u1", " ", "vn", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               FractionBox[
                RowBox[{"2", " ", 
                 RowBox[{"ab", "[", 
                  RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
                 RowBox[{"ab", "[", 
                  RowBox[{"4", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
                RowBox[{
                 RowBox[{"ab", "[", 
                  RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
                 RowBox[{"ab", "[", 
                  RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
              ")"}]}]}]], "]"}]}], "-", 
        RowBox[{"dlog", "[", 
         FractionBox[
          RowBox[{"t", "-", 
           RowBox[{"uv", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", "yy4"}]}], ")"}]}]}], 
          RowBox[{"t", "-", 
           RowBox[{"uv", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"2", "xx4"}]}], ")"}]}]}]], "]"}]}], "/.", 
       RowBox[{"dlog", "\[RuleDelayed]", "log"}]}], "//.", "collectlog"}], "/.",
      "xytoab"}], "/.", 
    RowBox[{"uv", "\[RuleDelayed]", 
     RowBox[{"u1", " ", "vn"}]}]}], "//", "neabp"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.807483788632825*^9, 3.8074838596175127`*^9}},
 CellLabel->
  "In[213]:=",ExpressionUUID->"d20e5aea-52db-4b6f-9044-58328ed0c79f"],

Cell[BoxData[
 RowBox[{"log", "[", "1", "]"}]], "Output",
 CellChangeTimes->{{3.807483806789094*^9, 3.807483860583872*^9}},
 CellLabel->
  "Out[213]=",ExpressionUUID->"493a89ea-4ac8-4768-84f9-a9eecfb874b0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx4", ":>", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}], 
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
       ",", 
       RowBox[{"yy4", ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]}], "}"}], 
     ",", "xytoab"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807483756488607*^9, 3.807483773985139*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"1bf1f874-30a3-43b0-94f8-f4f4f0759902"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon6", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy4"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx4"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx4", ",", "yy4", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon6", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon6", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon6", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon6", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon6", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon6", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon6", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807483887000239*^9, 3.807483887143943*^9}, {
  3.8074839546115522`*^9, 3.807483993554833*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"4872e5c1-caee-4723-93b6-a1ce4ee56ad9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon6", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807484058851968*^9, 3.80748407944211*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"a936c60b-e07c-4416-8b8a-b41003de2a94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx4", ",", 
   RowBox[{"1", "+", "xx4"}], ",", 
   RowBox[{"1", "-", "yy4"}], ",", "yy4", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx4", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "z1b", "+", 
    RowBox[{"yy4", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx4", "-", "zn", "-", 
    RowBox[{"xx4", " ", "zn"}]}], ",", 
   RowBox[{"yy4", "+", "zn", "-", 
    RowBox[{"yy4", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx4", "-", "\[Mu]"}], ",", 
   RowBox[{"1", "-", "yy4", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx4", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"yy4", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx4", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx4", " ", "\[Nu]"}]}], ",", 
   RowBox[{
    RowBox[{"yy4", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
    RowBox[{"yy4", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.80748406515455*^9, 3.807484079871105*^9}},
 CellLabel->
  "Out[216]=",ExpressionUUID->"a3a38c6c-44af-4da7-9806-acbaccdcf624"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"realationmatrix4", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon6", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rule4", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix4", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon6", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx4", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx4", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"yy4", " ", "\[Mu]"}], "+", "\[Nu]", "-", 
             RowBox[{"yy4", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy4", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx4", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.807484106436956*^9, 3.807484144939822*^9}},
 CellLabel->
  "In[217]:=",ExpressionUUID->"6817c46c-27b5-47b9-8f3e-3117b013b04e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"First", "/@", "rule4"}], ")"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Last", "/@", "rule4"}], ")"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}]], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "@", "rule4"}]}], "}"}]}], "]"}], "/.", "xytoab"}], "//",
   "neabp"}]], "Input",
 CellChangeTimes->{{3.807484147949171*^9, 3.807484149786662*^9}, {
  3.807488129489357*^9, 3.807488208976883*^9}},
 CellLabel->
  "In[260]:=",ExpressionUUID->"f878e7a7-7faf-48c4-abf8-de3fdefd24ad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8074841501868963`*^9, 3.807488139921586*^9, {3.807488184170356*^9, 
   3.807488209726759*^9}},
 CellLabel->
  "Out[260]=",ExpressionUUID->"e42dcf96-2c51-4c9f-aa27-3fd829acc150"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon6", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon6", "[", "4", "]"}], "-", "comdiff"}], "/.", 
       RowBox[{"(", "rule4", ")"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "-", "z1b", "+", 
         RowBox[{"yy4", " ", "z1b"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1", "-", 
           RowBox[{"xx4", " ", "z1"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b"}], ")"}], 
         RowBox[{"f", "[", "4", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"yy4", "+", "zn", "-", 
         RowBox[{"yy4", " ", "zn"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xx4", "-", "znb", "-", 
           RowBox[{"xx4", " ", "znb"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "zn"}], ")"}], 
         RowBox[{"g", "[", "4", "]"}]}]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807484409197419*^9, 3.807484445509303*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"e5d5b774-f6cc-48bf-9511-1f60553d6df3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"1", "-", "z1b", "+", 
          RowBox[{"yy4", " ", "z1b"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx4", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b"}], ")"}], 
          RowBox[{"f", "[", "4", "]"}]}]], ",", 
        FractionBox[
         RowBox[{"yy4", "+", "zn", "-", 
          RowBox[{"yy4", " ", "zn"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx4", "-", "znb", "-", 
            RowBox[{"xx4", " ", "znb"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "zn"}], ")"}], 
          RowBox[{"g", "[", "4", "]"}]}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx4", "-", "znb", "-", 
            RowBox[{"xx4", " ", "znb"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"xx4", "-", "zn", "-", 
            RowBox[{"xx4", " ", "zn"}]}], ")"}]}], 
         RowBox[{"hn", "[", "4", "]"}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx4", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b", "-", 
            RowBox[{"xx4", " ", "z1b"}]}], ")"}]}], 
         RowBox[{"h1", "[", "4", "]"}]]}], "}"}], "/.", "xytoab"}], "/.", 
     "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.8074841887647657`*^9, 3.807484224581891*^9}, {
  3.8074842830708313`*^9, 3.807484317420732*^9}, {3.807484395712288*^9, 
  3.8074844027969522`*^9}, {3.80748479411145*^9, 3.80748485996373*^9}},
 CellLabel->
  "In[233]:=",ExpressionUUID->"731746e1-002f-45a9-ac12-82ffd197defe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1", ",", 
   RowBox[{"-", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.807484207130872*^9, 3.8074842251221037`*^9}, 
   3.807484318116046*^9, 3.80748440337364*^9, 3.8074848248520737`*^9, 
   3.807484860371109*^9},
 CellLabel->
  "Out[233]=",ExpressionUUID->"8a0896b0-70ab-4d26-a989-e00f42dc91e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "4"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx4", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx4", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "4"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807485381194858*^9, 3.80748539856916*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"fc88c42c-11ed-404c-ba57-9a59c95c0a26"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.8074853991747923`*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"c4e9fbd2-527c-4b10-983c-cc0ac985114e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "4", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{" ", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}]}]}]]}], ",", 
       RowBox[{
        RowBox[{"g", "[", "4", "]"}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}]}], "  ", 
          ")"}]}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"h1", "[", "4", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           "2"]}]]}], ",", 
       RowBox[{
        RowBox[{"hn", "[", "4", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           "2"]}]]}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.80748424847369*^9, 3.807484274489895*^9}, {
  3.807484372108244*^9, 3.807484389151085*^9}, {3.807484746081163*^9, 
  3.8074847783976307`*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"b6300e06-415b-4360-abb8-b827108aa8db"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "5", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "4"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "4"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "4"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "4"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.80748541947153*^9, 3.807485431028451*^9}},
 CellLabel->
  "In[235]:=",ExpressionUUID->"3c491bd3-0025-4cb5-8445-a576afbfca98"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"compon6", "[", "5", "]"}], "-", 
             RowBox[{"algebraicpart", "[", "5", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "4"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx4", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx4", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "4"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx4", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx4", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx4", "-", "znb", "-", 
            RowBox[{"xx4", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"-", 
             RowBox[{"hn", "[", "4", "]"}]}], 
            RowBox[{
             RowBox[{"xx4", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx4", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "4", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx4", " ", "z1b"}]}]]}], ",", 
          RowBox[{
           RowBox[{"f", "[", "4", "]"}], "->", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "yy4"}], ")"}], " ", "\[Nu]"}], 
            RowBox[{"v1", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "xx4"}], "+", "\[Nu]"}], ")"}]}]]}], ",", 
          RowBox[{
           RowBox[{"g", "[", "4", "]"}], "->", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", "yy4"}], 
            RowBox[{"vn", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "xx4"}], "+", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], 
       "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807485453717497*^9, 3.807485549814045*^9}},
 CellLabel->
  "In[238]:=",ExpressionUUID->"9c2c3908-5d09-493e-91e3-ecccbb433b7b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"rationalpart", "[", "5", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807484277218238*^9, 3.807484277220332*^9}, {
  3.807484453698876*^9, 3.8074844581726418`*^9}, {3.807485536548336*^9, 
  3.807485559297871*^9}},
 CellLabel->
  "In[240]:=",ExpressionUUID->"4556de0f-51ed-46dc-8357-f40f9479e5db"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"u1", ",", "un", ",", "v1", ",", "vn", ",", "xx4", ",", 
   RowBox[{"1", "+", "xx4"}], ",", 
   RowBox[{"1", "-", "yy4"}], ",", "yy4", ",", "\[Mu]", ",", 
   RowBox[{"xx4", "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"h1", "[", "4", "]"}], ",", 
   RowBox[{"hn", "[", "4", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8074844586636*^9, {3.8074855412330523`*^9, 3.807485559759109*^9}},
 CellLabel->
  "Out[240]=",ExpressionUUID->"fafc2f41-c7e4-458f-a07e-a18fd64f2b07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "[", "4", "]"}], "/", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "yy4"}], ")"}], " ", "\[Nu]"}], 
          RowBox[{"v1", " ", "\[Mu]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "xx4"}], "+", "\[Nu]"}], ")"}]}]]}], ",", 
        RowBox[{
         RowBox[{"g", "[", "4", "]"}], "/", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", "yy4"}], 
          RowBox[{"vn", " ", "\[Mu]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "xx4"}], "+", "\[Nu]"}], ")"}]}]]}]}], "}"}], "/.", 
      "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807484322614978*^9, 3.8074843702221613`*^9}, {
  3.807485579729806*^9, 3.807485596604417*^9}},
 CellLabel->
  "In[241]:=",ExpressionUUID->"68489008-07ba-4b64-ad83-77f40c2e2e50"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.8074843561571083`*^9, 3.807485597460146*^9},
 CellLabel->
  "Out[241]=",ExpressionUUID->"dca4dd4f-af15-47ed-9331-32dd5f3b0e6a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of R[3,4,5,6,7] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"3", ",", "4", ",", "5"}], ")"}]}]}], 
     "\[RightAngleBracket]"}]], TraditionalForm]], "Input",ExpressionUUID->
  "631cea25-7740-404f-a90e-e56a9858777c"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.807487520712192*^9, 3.807487544484042*^9}, 
   3.807487704623062*^9},ExpressionUUID->"54e79418-b048-40c2-82b5-\
2dca3c25e4d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"u1", " ", "vn"}], "-", 
          FractionBox[
           RowBox[{"2", " ", "u1", " ", "vn", " ", 
            RowBox[{"ab", "[", 
             RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
            RowBox[{"ab", "[", 
             RowBox[{"3", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
           RowBox[{"ab", "[", 
            RowBox[{"3", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}], 
         RowBox[{"t", "-", 
          RowBox[{"u1", " ", "vn", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"2", " ", 
               RowBox[{"ab", "[", 
                RowBox[{"8", ",", "9", ",", "1", ",", 
                 RowBox[{"cap", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"6", ",", "7"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], 
                "]"}]}], 
              RowBox[{
               RowBox[{"ab", "[", 
                RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
            ")"}]}]}]], "]"}], " ", "-", 
       RowBox[{"dlog", "[", 
        FractionBox[
         RowBox[{"t", "+", 
          RowBox[{"uv", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", "yy3"}]}], ")"}]}]}], 
         RowBox[{"t", "-", 
          RowBox[{"uv", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"2", "xx3"}]}], ")"}]}]}]], "]"}]}], "/.", 
      RowBox[{"uv", "\[RuleDelayed]", 
       RowBox[{"u1", " ", "vn"}]}]}], "/.", "xytoab"}], "/.", 
    RowBox[{"dlog", "\[RuleDelayed]", "log"}]}], "//.", "collectlog"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.807487709560701*^9, 3.80748778855795*^9}},
 CellLabel->
  "In[245]:=",ExpressionUUID->"55326dd1-5fe9-45df-ae9c-de4b43a45d0c"],

Cell[BoxData[
 RowBox[{"log", "[", "1", "]"}]], "Output",
 CellChangeTimes->{{3.807487767906617*^9, 3.807487788969749*^9}},
 CellLabel->
  "Out[245]=",ExpressionUUID->"f3c710c0-ec45-40d8-b906-38e773b47604"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.807487746768351*^9, 
  3.8074877477331257`*^9}},ExpressionUUID->"b4b35e0b-8f05-456f-9427-\
d57fce9ac19b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx3", ":>", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
       RowBox[{"yy3", ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"3", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
         RowBox[{"ab", "[", 
          RowBox[{"3", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"4", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807487609939045*^9, 3.807487694958641*^9}},
 CellLabel->
  "In[242]:=",ExpressionUUID->"e01f9cf6-1cae-4ac5-8a66-6a39a1e0e177"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon7", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "+", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy3"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx3"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx3", ",", "yy3", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon7", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon7", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon7", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon7", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon7", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon7", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon7", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807487807729282*^9, 3.807487817442268*^9}, {
  3.807487849849431*^9, 3.807487876159328*^9}},
 CellLabel->
  "In[246]:=",ExpressionUUID->"51051d2f-fe30-4270-a757-ab96af3c7e66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon7", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807487893698008*^9, 3.8074879208458967`*^9}},
 CellLabel->
  "In[247]:=",ExpressionUUID->"95b5b1d7-5369-4cf0-bd86-bcf067f47e15"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx3", ",", 
   RowBox[{"1", "+", "xx3"}], ",", 
   RowBox[{"1", "-", "yy3"}], ",", "yy3", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx3", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", 
    RowBox[{"yy3", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx3", "-", "zn", "-", 
    RowBox[{"xx3", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "yy3", "+", 
    RowBox[{"yy3", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx3", "-", "\[Mu]"}], ",", 
   RowBox[{"yy3", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx3", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"1", "-", "yy3", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx3", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx3", " ", "\[Nu]"}]}], ",", 
   RowBox[{"\[Mu]", "-", 
    RowBox[{"yy3", " ", "\[Mu]"}], "+", 
    RowBox[{"yy3", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807487921350161*^9},
 CellLabel->
  "Out[247]=",ExpressionUUID->"a16a1dc1-43b3-451a-ab75-2e0f22a1427d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"realationmatrix3", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon7", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rule3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix3", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon7", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx3", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx3", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"yy3", " ", "\[Mu]"}], "+", 
             RowBox[{"yy3", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy3", "+", "\[Nu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx3", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.807487948728732*^9, 3.80748801705081*^9}, {
  3.807488055791963*^9, 3.8074880615212812`*^9}, {3.807488107636093*^9, 
  3.807488107824376*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"639f0cac-ddb2-4db1-b253-ed84d759cbeb"],

Cell[CellGroupData[{

Cell[BoxData["rule3"], "Input",
 CellChangeTimes->{{3.8074880671723747`*^9, 3.8074880693743896`*^9}, {
  3.807488110152482*^9, 3.8074881110147333`*^9}},
 CellLabel->
  "In[255]:=",ExpressionUUID->"695a5f6e-2cc1-4bf2-8062-a9528671519f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"xx3", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
     RowBox[{"xx3", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{"\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "yy3"]}], ",", 
   RowBox[{
    RowBox[{"\[Mu]", "-", 
     RowBox[{"yy3", " ", "\[Mu]"}], "+", 
     RowBox[{"yy3", " ", "\[Nu]"}]}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"yy3", "-", "\[Mu]"}], ")"}], " ", "\[Nu]"}], "xx3"]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "yy3", "+", "\[Nu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "xx3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"yy3", "-", "\[Mu]"}], ")"}], " ", "\[Nu]"}], 
     RowBox[{"xx3", " ", "\[Mu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "+", "xx3", "-", "\[Mu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "yy3"}], ")"}], " ", "\[Mu]", " ", 
      RowBox[{"(", 
       RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{"yy3", " ", "\[Nu]"}]]}], ",", 
   RowBox[{
    RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"yy3", "-", "\[Mu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], 
     RowBox[{"xx3", " ", "yy3"}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8074880699702682`*^9, 3.807488111999796*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"fb6bd046-d8b4-4d31-9ade-368efff12d9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"rule3", "/.", "xytoab"}], "//", "neabp"}]], "Input",
 CellChangeTimes->{{3.807488073949744*^9, 3.807488086015018*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"406a5d62-974d-42f2-bde9-0e64b3b66de5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1129426160708309829113936209", 
      "105646435796557917975670554"]}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["1129426160708309829113936209", 
      "105646435796557917975670554"]}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["6287731664401446583429560", "7695417889414661977335377"]}], 
    "\[Rule]", 
    FractionBox["6287731664401446583429560", "7695417889414661977335377"]}], 
   ",", 
   RowBox[{
    FractionBox["86706947934880", "3304947550776513"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["86706947934880", "3304947550776513"]}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["698523163342408063", "80177519261721258"]}], "\[Rule]", 
    FractionBox["698523163342408063", "80177519261721258"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["403115669550990961565", "55225845938768031586"]}], 
    "\[Rule]", 
    RowBox[{"-", 
     FractionBox["403115669550990961565", "55225845938768031586"]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8074880790074673`*^9, 3.807488113429268*^9}},
 CellLabel->
  "Out[256]=",ExpressionUUID->"4411489f-ab41-49be-b050-cf1d3fcb93ca"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon7", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon7", "[", "4", "]"}], "-", "comdiff"}], "/.", 
       RowBox[{"(", "rule3", ")"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "-", 
         RowBox[{"yy3", " ", "z1b"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1", "-", 
           RowBox[{"xx3", " ", "z1"}]}], ")"}], 
         RowBox[{"f", "[", "3", "]"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"1", "-", "yy3", "+", 
         RowBox[{"yy3", " ", "zn"}]}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xx3", "-", "znb", "-", 
           RowBox[{"xx3", " ", "znb"}]}], ")"}], 
         RowBox[{"g", "[", "3", "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "zn"}], ")"}]}]}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.807488266465355*^9, 3.807488309462639*^9}, {
  3.807489250382522*^9, 3.807489273351568*^9}},
 CellLabel->
  "In[309]:=",ExpressionUUID->"56e908d9-54fd-43bf-9759-e1713dc47c23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon7", "[", "5", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.807488312184885*^9, 3.807488320255917*^9}},
 CellLabel->
  "In[310]:=",ExpressionUUID->"452457fa-c325-4bbf-acce-c552db86f73b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx3", ",", 
   RowBox[{"1", "+", "xx3"}], ",", 
   RowBox[{"1", "-", "yy3"}], ",", "yy3", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1", "-", 
    RowBox[{"xx3", " ", "z1"}]}], ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx3", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx3", "-", "zn", "-", 
    RowBox[{"xx3", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"xx3", "-", "znb", "-", 
    RowBox[{"xx3", " ", "znb"}]}], ",", "\[Mu]", ",", 
   RowBox[{"xx3", "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"f", "[", "3", "]"}], ",", 
   RowBox[{"g", "[", "3", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8074883205642633`*^9, 3.807489281065069*^9},
 CellLabel->
  "Out[310]=",ExpressionUUID->"fa12850b-e73d-4848-b41d-7fa2f66bb280"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"1", "-", 
          RowBox[{"yy3", " ", "z1b"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx3", " ", "z1"}]}], ")"}], 
          RowBox[{"f", "[", "3", "]"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b"}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{"1", "-", "yy3", "+", 
          RowBox[{"yy3", " ", "zn"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx3", "-", "znb", "-", 
            RowBox[{"xx3", " ", "znb"}]}], ")"}], 
          RowBox[{"g", "[", "3", "]"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "zn"}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx3", "-", "znb", "-", 
            RowBox[{"xx3", " ", "znb"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"xx3", "-", "zn", "-", 
            RowBox[{"xx3", " ", "zn"}]}], ")"}]}], 
         RowBox[{"-", 
          RowBox[{"hn", "[", "3", "]"}]}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx3", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b", "-", 
            RowBox[{"xx3", " ", "z1b"}]}], ")"}]}], 
         RowBox[{"-", 
          RowBox[{"h1", "[", "3", "]"}]}]]}], "}"}], "/.", "xytoab"}], "/.", 
     "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neab"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807488332608283*^9, 3.807488409096756*^9}, 
   3.807488443267909*^9, {3.807488896027598*^9, 3.8074889001207247`*^9}, {
   3.807488979987905*^9, 3.807488989210825*^9}, {3.807489233364463*^9, 
   3.807489240738027*^9}, {3.807489419083851*^9, 3.807489439889433*^9}, {
   3.8074896806048107`*^9, 3.80748968182543*^9}},
 CellLabel->
  "In[319]:=",ExpressionUUID->"d785349b-e1f9-4844-aa54-9f061b824f19"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.807488357933765*^9, 3.807488409755458*^9}, 
   3.807488443864534*^9, 3.80748899073886*^9, 3.807489241746364*^9, 
   3.807489440627903*^9, {3.8074896602178164`*^9, 3.8074896830311117`*^9}},
 CellLabel->
  "Out[319]=",ExpressionUUID->"80e26880-87bf-461c-9d6c-9d2bf4091c79"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "3", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"3", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], "]"}]}]]}], ",", 
       RowBox[{
        RowBox[{"g", "[", "3", "]"}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"3", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
          ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"hn", "[", "3", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"3", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], "2"], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], 
       ",", 
       RowBox[{
        RowBox[{"h1", "[", "3", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"3", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], "2"], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807488527299588*^9, 3.807488528840844*^9}, {
   3.8074885592484922`*^9, 3.807488642649033*^9}, {3.80748875941883*^9, 
   3.807488775075161*^9}, {3.80748885797403*^9, 3.80748888933855*^9}, {
   3.807489193304763*^9, 3.8074892272997828`*^9}, {3.807489446756876*^9, 
   3.8074894496916523`*^9}, {3.807489609259528*^9, 3.807489656246772*^9}, 
   3.807489778307199*^9, 
   3.80749061253966*^9},ExpressionUUID->"58e5404c-2ac9-41af-aa12-\
713f33484d1a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "3", "]"}], "/.", "xytoab"}]], "Input",
 CellChangeTimes->{{3.807490599101098*^9, 3.8074906044701653`*^9}},
 CellLabel->
  "In[351]:=",ExpressionUUID->"5f75556b-13b2-4e8b-a1a5-84c5493230ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ab", "[", 
     RowBox[{"9", ",", 
      RowBox[{"cap1", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"9", ",", 
      RowBox[{"cap1", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"ab", "[", 
     RowBox[{"3", ",", 
      RowBox[{"cap1", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"9", ",", 
      RowBox[{"cap1", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
    RowBox[{"ab", "[", 
     RowBox[{
      RowBox[{"cap", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
      "5", ",", 
      RowBox[{"cap", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"6", ",", "7"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.807490604817231*^9},
 CellLabel->
  "Out[351]=",ExpressionUUID->"d30a7675-0afb-4f52-a2fa-3667b12c5145"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "3"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx3", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx3", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "3"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx3", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx3", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807489713567964*^9, 3.807489728025638*^9}},
 CellLabel->
  "In[320]:=",ExpressionUUID->"6b472f3c-0887-4634-9aa3-00242e392a69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.807489728938595*^9},
 CellLabel->
  "Out[320]=",ExpressionUUID->"2b6ac188-d504-49ba-a455-b88a09b505bb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "6", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "3"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "3"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "3"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "3"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.807489742722724*^9, 3.807489757338805*^9}},
 CellLabel->
  "In[321]:=",ExpressionUUID->"5b976316-a396-410a-970b-1ac344271e14"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "6", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"compon7", "[", "5", "]"}], "-", 
             RowBox[{"algebraicpart", "[", "6", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "3"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx3", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx3", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "3"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx3", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx3", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx3", "-", "znb", "-", 
            RowBox[{"xx3", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"-", 
             RowBox[{"hn", "[", "3", "]"}]}], 
            RowBox[{
             RowBox[{"xx3", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx3", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "3", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx3", " ", "z1b"}]}]]}], ",", 
          RowBox[{
           RowBox[{"f", "[", "3", "]"}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "yy3"}], " ", "\[Nu]"}], 
            RowBox[{"v1", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{"xx3", "-", "\[Nu]"}], ")"}], " "}]]}], ",", 
          RowBox[{
           RowBox[{"g", "[", "3", "]"}], ":>", 
           FractionBox["yy3", 
            RowBox[{"vn", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8074897816274757`*^9, 3.8074898390925007`*^9}, {
  3.8074899203498373`*^9, 3.8074899245224857`*^9}, {3.807489980278206*^9, 
  3.8074900199736032`*^9}},
 CellLabel->
  "In[333]:=",ExpressionUUID->"56e56e33-19af-40fa-925f-db45dfe8f7c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"rationalpart", "[", "6", "]"}], ",", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"z1b", "|", "znb"}]}], "]"}]}], "&"}]}], "]"}], "//", 
  "SymbolFactor"}]], "Input",
 CellChangeTimes->{{3.807489842014267*^9, 3.8074898901818132`*^9}},
 CellLabel->
  "In[334]:=",ExpressionUUID->"d406bf7e-0f50-488e-ace4-9ccd27217865"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8074898461941633`*^9, 3.8074898909398212`*^9}, 
   3.8074899296880617`*^9, 3.807490024842143*^9},
 CellLabel->
  "Out[334]=",ExpressionUUID->"0e6a21e1-db59-41db-969b-4fce83080e56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rationalpart", "[", "6", "]"}]], "Input",
 CellChangeTimes->{{3.807489906297127*^9, 3.80748991022602*^9}, {
  3.807489946868298*^9, 3.807489972797719*^9}, {3.807490030315198*^9, 
  3.807490035401443*^9}},
 CellLabel->
  "In[335]:=",ExpressionUUID->"ba64bff4-11ce-491e-9ca1-1c88946429d6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "4"]}], " ", 
   RowBox[{"u1", "\[CircleTimes]", "u1", "\[CircleTimes]", "\[Mu]"}]}], "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "u1", "\[CircleTimes]", "\[Nu]"}], "4"], 
  "-", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", "xx3"}], "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", "yy3"}], "2"], "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "v1", "\[CircleTimes]", "\[Nu]"}], "2"], 
  "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "yy3", "\[CircleTimes]", "xx3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "yy3", "\[CircleTimes]", "yy3"}], "2"], 
  "-", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "xx3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "yy3"}], "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "+", 
  RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"u1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "xx3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "yy3"}]}], "+", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "xx3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "yy3"}], "-", 
  FractionBox[
   RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "-", 
  RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"u1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "xx3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"u1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "yy3"}]}], "-", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "un", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "-", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "vn", "\[CircleTimes]", "yy3"}], "2"], "+", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "vn", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", "vn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "vn", "\[CircleTimes]", "\[Nu]"}], "4"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "xx3", "\[CircleTimes]", "yy3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", "yy3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "yy3", "\[CircleTimes]", "yy3"}], "2"], 
  "-", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "xx3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "yy3"}], "+", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "+", 
  RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"un", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "yy3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"un", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "yy3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"un", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "yy3"}]}], "+", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "u1", "\[CircleTimes]", "yy3"}], "2"], "-", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "u1", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", "u1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "u1", "\[CircleTimes]", "\[Nu]"}], "4"], 
  "+", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "v1", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "xx3", "\[CircleTimes]", "yy3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", "yy3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "yy3", "\[CircleTimes]", "yy3"}], "2"], 
  "+", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "xx3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "yy3"}], "-", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "-", 
  RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"v1", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "yy3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"v1", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "yy3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"v1", "\[CircleTimes]", 
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "yy3"}]}], "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", "xx3"}], "2"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", "yy3"}], "2"], "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "un", "\[CircleTimes]", "\[Nu]"}], "2"], 
  "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "vn", "\[CircleTimes]", "\[Mu]"}], "4"], 
  "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "vn", "\[CircleTimes]", "\[Nu]"}], "4"], 
  "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "yy3", "\[CircleTimes]", "xx3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "yy3", "\[CircleTimes]", "yy3"}], "2"], 
  "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "xx3"}], "2"], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "yy3"}], "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "-", 
  RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"vn", "\[CircleTimes]", "\[Mu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "xx3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"xx3", "-", "\[Nu]"}], ")"}], "\[CircleTimes]", "yy3"}]}], "-", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "xx3"}], "2"], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "yy3"}], "+", 
  FractionBox[
   RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "\[Mu]"}], "2"],
   "+", 
  RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", 
   RowBox[{"(", 
    RowBox[{"xx3", "-", "\[Nu]"}], ")"}]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"vn", "\[CircleTimes]", "\[Nu]", "\[CircleTimes]", "\[Nu]"}]}], 
   "4"], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "xx3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"vn", "\[CircleTimes]", 
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "yy3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    "yy3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}], "\[CircleTimes]", "xx3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", "yy3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    "xx3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "xx3", "\[CircleTimes]", 
    "yy3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}], "\[CircleTimes]", "xx3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "+", "xx3"}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}], "\[CircleTimes]", "yy3"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    "xx3"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[CircleTimes]", "yy3", "\[CircleTimes]", 
    RowBox[{"(", 
     RowBox[{"1", "-", "yy3"}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.807489910894209*^9, {3.8074899431644983`*^9, 3.807489973847492*^9}, 
   3.807490035867378*^9},
 CellLabel->
  "Out[335]=",ExpressionUUID->"d56edd20-22c1-4a98-ab9c-1acbd0a56c22"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Component of -R[2,4,5,6,7] Qlog[",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "\[RightAngleBracket]"}], 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{"8", ",", "9", ",", "1", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"6", ",", "7"}], ")"}], "\[Intersection]", 
       RowBox[{"(", 
        RowBox[{"2", ",", "4", ",", "5"}], ")"}]}]}], 
     "\[RightAngleBracket]"}]], TraditionalForm]], "Input",ExpressionUUID->
  "e9a2b1c2-a139-47c1-a803-da05b9389569"],
 "] -  comdiff"
}], "Subsubsection",
 CellChangeTimes->{{3.807490103630374*^9, 
  3.807490115387344*^9}},ExpressionUUID->"1564932a-be64-474d-a784-\
3226d52d74ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xx2", ":>", 
        FractionBox[
         RowBox[{"ab", "[", 
          RowBox[{"8", ",", "9", ",", "1", ",", 
           RowBox[{"cap", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
       RowBox[{"yy2", ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"4", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]}], "}"}]}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"dlog", "[", 
           FractionBox[
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                  RowBox[{"ab", "[", 
                   RowBox[{"8", ",", "9", ",", "1", ",", 
                    RowBox[{"cap", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"6", ",", "7"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], 
                   "]"}]}], 
                 RowBox[{
                  RowBox[{"ab", "[", 
                   RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
                  RowBox[{"ab", "[", 
                   RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
               ")"}]}]}], 
            RowBox[{"t", "-", 
             RowBox[{"u1", " ", "vn"}], "+", 
             FractionBox[
              RowBox[{"2", " ", "u1", " ", "vn", " ", 
               RowBox[{"ab", "[", 
                RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
               RowBox[{"ab", "[", 
                RowBox[{"2", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
              RowBox[{"ab", "[", 
               RowBox[{"2", ",", 
                RowBox[{"cap1", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"4", ",", "5"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"6", ",", "7"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]], 
           "]"}]}], "-", 
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "+", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy2"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx2"}]}], ")"}]}]}]], "]"}]}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", "xytoab"}], "/.", 
      RowBox[{"dlog", "\[RuleDelayed]", "log"}]}], "//.", "collectlog"}], "//",
     "neabp"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.80749013514664*^9, 3.8074902431423807`*^9}},
 CellLabel->
  "In[340]:=",ExpressionUUID->"33f6988a-3595-4f85-96c5-0e1df9161c7a"],

Cell[BoxData[
 RowBox[{"log", "[", "1", "]"}]], "Output",
 CellChangeTimes->{{3.8074902158475513`*^9, 3.807490247616197*^9}},
 CellLabel->
  "Out[340]=",ExpressionUUID->"3f5f66f3-c316-45a9-a2c3-4f539242a2fc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Complement", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{"yy2", ":>", 
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", 
          RowBox[{"cap1", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"4", ",", "5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"6", ",", "7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}], "}"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807490251267952*^9, 3.807490304044149*^9}},
 CellLabel->
  "In[343]:=",ExpressionUUID->"188af720-1453-4d58-b97e-ce9be2d7cff9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon8", "[", "1", "]"}], "=", 
   RowBox[{"ToFibrationBasis", "[", 
    RowBox[{
     RowBox[{"LiToG", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"dlog", "[", 
          FractionBox[
           RowBox[{"t", "+", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", "yy2"}]}], ")"}]}]}], 
           RowBox[{"t", "-", 
            RowBox[{"uv", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", "xx2"}]}], ")"}]}]}]], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{"t", "-", 
              RowBox[{"u1", " ", "vn"}]}], 
             RowBox[{"t", "+", 
              RowBox[{"u1", " ", "vn"}]}]], "]"}], "-", 
           RowBox[{"Li", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
              "\[Nu]"}], 
             RowBox[{"\[Mu]", " ", 
              RowBox[{"(", 
               RowBox[{"t", "-", 
                RowBox[{"u1", " ", "vn", " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}], 
           "+", 
           RowBox[{
            FractionBox["1", "2"], " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
               "\[Nu]"}], 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}], ")"}], " ", "\[Mu]", " ", 
               RowBox[{"(", 
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn", " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]], "]"}],
             " ", 
            RowBox[{"log", "[", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"t", "-", 
                 RowBox[{"u1", " ", "vn"}]}], 
                RowBox[{"t", "+", 
                 RowBox[{"u1", " ", "vn"}]}]]}], 
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], " ", 
                 "\[Nu]"}], 
                RowBox[{"\[Mu]", " ", 
                 RowBox[{"(", 
                  RowBox[{"t", "-", 
                   RowBox[{"u1", " ", "vn", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "\[Nu]"}]}], ")"}]}]}], ")"}]}]]}]], 
             "]"}]}]}], ")"}]}], "/.", 
        RowBox[{"vn", "\[RuleDelayed]", 
         RowBox[{"uv", "/", "u1"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"dlog", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "x", "]"}], ",", "t"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"Li", "[", "x_", "]"}], "\[RuleDelayed]", 
          RowBox[{"PolyLog", "[", 
           RowBox[{"2", ",", "x"}], "]"}]}], ",", 
         RowBox[{"log", "\[RuleDelayed]", "Log"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "t", ",", "xx2", ",", "yy2", ",", "uv", ",", "\[Mu]", ",", "\[Nu]"}], 
      "}"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon8", "[", "2", "]"}], "=", 
   RowBox[{"ComputeSymbol", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon8", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"vn", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "v1", "+", "\[CapitalDelta]1"}], ")"}]}]}]}], 
      ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{"GIntegrate", "[", 
         RowBox[{
          RowBox[{"compon8", "[", "1", "]"}], ",", "t"}], "]"}], "]"}], "/.", 
       RowBox[{"t", "->", 
        RowBox[{"u1", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "un", "+", "\[CapitalDelta]n"}], ")"}]}]}]}], 
      ")"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon8", "[", "3", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon8", "[", "2", "]"}], "/.", 
        RowBox[{"uv", "\[RuleDelayed]", 
         RowBox[{"u1", " ", "vn"}]}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]1", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "u1", "+", "v1", "+", 
           RowBox[{"2", " ", "z1"}]}]}], ",", 
         RowBox[{"\[CapitalDelta]n", "\[Rule]", 
          RowBox[{
           RowBox[{"-", "1"}], "-", "un", "+", "vn", "+", 
           RowBox[{"2", " ", "zn"}]}]}]}], "}"}]}], "]"}], "//.", "uvtoz"}], 
    "]"}]}], ";", 
  RowBox[{
   RowBox[{"compon8", "[", "4", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"compon8", "[", "3", "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Mu]", "-", 
          RowBox[{"z1b", " ", "\[Mu]"}], "-", "\[Nu]"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[Nu]", "v1"]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"u1", "-", "z1"}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b", "-", 
           RowBox[{"z1b", " ", "\[Nu]"}]}], ")"}], "\[RuleDelayed]", 
         FractionBox[
          RowBox[{"\[Nu]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}], "\[Mu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Mu]", "+", 
           RowBox[{"zn", " ", "\[Mu]"}]}], ")"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], "un"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"zn", "-", "un"}], ")"}], "\[Nu]"}]]}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"zn", "-", "\[Nu]", "+", 
           RowBox[{"zn", " ", "\[Nu]"}]}], ")"}], "->", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}]}], 
          RowBox[{"vn", " ", "\[Mu]"}]]}]}], "}"}]}], "//.", "uvtoz"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8074902932763033`*^9, 3.807490295602511*^9}, {
  3.807490336593771*^9, 3.8074903827075043`*^9}},
 CellLabel->
  "In[345]:=",ExpressionUUID->"8e03a4ab-a91b-4bec-86bd-2afc64123105"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetSymbolAlphabet", "[", 
  RowBox[{"compon8", "[", "4", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8074903994017267`*^9, 3.807490421010394*^9}},
 CellLabel->
  "In[346]:=",ExpressionUUID->"e8283aea-a60b-41e1-8aa5-58aaa9651c1c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"xx2", ",", 
   RowBox[{"1", "+", "xx2"}], ",", 
   RowBox[{"1", "-", "yy2"}], ",", "yy2", ",", 
   RowBox[{"1", "-", "z1"}], ",", "z1", ",", 
   RowBox[{"1", "-", "z1b"}], ",", "z1b", ",", 
   RowBox[{"1", "-", "z1b", "-", 
    RowBox[{"xx2", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", 
    RowBox[{"yy2", " ", "z1b"}]}], ",", 
   RowBox[{"1", "-", "zn"}], ",", "zn", ",", 
   RowBox[{"xx2", "-", "zn", "-", 
    RowBox[{"xx2", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "yy2", "+", 
    RowBox[{"yy2", " ", "zn"}]}], ",", 
   RowBox[{"1", "-", "znb"}], ",", "znb", ",", 
   RowBox[{"1", "+", "xx2", "-", "\[Mu]"}], ",", 
   RowBox[{"yy2", "-", "\[Mu]"}], ",", "\[Mu]", ",", 
   RowBox[{"1", "-", 
    RowBox[{"z1b", " ", "\[Mu]"}]}], ",", 
   RowBox[{"xx2", "-", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ",", "\[Nu]", ",", 
   RowBox[{"1", "-", "yy2", "+", "\[Nu]"}], ",", 
   RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ",", 
   RowBox[{
    RowBox[{"xx2", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
    RowBox[{"xx2", " ", "\[Nu]"}]}], ",", 
   RowBox[{"\[Mu]", "-", 
    RowBox[{"yy2", " ", "\[Mu]"}], "+", 
    RowBox[{"yy2", " ", "\[Nu]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807490421483774*^9},
 CellLabel->
  "Out[346]=",ExpressionUUID->"5578504c-f1d1-415f-b89d-9921c2760b37"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8074901781519623`*^9},ExpressionUUID->"f0e3fd33-b2ec-45d4-9f4c-\
2e776a0be3f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"realationmatrix2", "=", 
   RowBox[{
    RowBox[{"Rationalize", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"randomPositiveZs", "[", "20", "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"N", "[", 
           RowBox[{
            RowBox[{"Log", "/@", 
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"Join", "[", 
                   RowBox[{
                    RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"GetSymbolAlphabet", "[", 
                    RowBox[{"compon8", "[", "4", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                    "]"}], "&"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
                   "]"}], "/.", "xytoab"}], "/.", "mutoab"}], "/.", 
                RowBox[{"uvtoab", "[", 
                 RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", 
               "neabp"}], "]"}]}], ",", "50"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}], "//", "NullSpace"}], "//",
       "RowReduce"}], "]"}], "/.", 
    RowBox[{"x_", "\[RuleDelayed]", 
     RowBox[{"0", "/;", 
      RowBox[{
       RowBox[{"Abs", "[", "x", "]"}], "<", 
       SuperscriptBox["10", 
        RowBox[{"-", "30"}]]}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rule2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"realationmatrix2", ".", 
           RowBox[{"(", 
            RowBox[{"log", "/@", 
             RowBox[{"Join", "[", 
              RowBox[{
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"GetSymbolAlphabet", "[", 
                  RowBox[{"compon8", "[", "4", "]"}], "]"}], ",", 
                 RowBox[{
                  RowBox[{"FreeQ", "[", 
                   RowBox[{"#", ",", 
                    RowBox[{"z1", "|", "z1b", "|", "zn", "|", "znb"}]}], 
                   "]"}], "&"}]}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"u1", ",", "v1", ",", "un", ",", "vn"}], "}"}]}], 
              "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"log", "[", 
            RowBox[{
             RowBox[{"xx2", " ", "\[Mu]"}], "-", "\[Nu]", "-", 
             RowBox[{"xx2", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"\[Mu]", "-", 
             RowBox[{"yy2", " ", "\[Mu]"}], "+", 
             RowBox[{"yy2", " ", "\[Nu]"}]}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "yy2", "+", "\[Nu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "+", "xx2", "-", "\[Mu]"}], "]"}], ",", 
           RowBox[{"log", "[", 
            RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], "]"}]}], "}"}]}], 
        "]"}], "]"}], ")"}], "//.", "collectlog"}], "/.", 
    RowBox[{
     RowBox[{"log", "[", "x_", "]"}], "\[RuleDelayed]", "x"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.807490436492495*^9, 3.8074904635653477`*^9}},
 CellLabel->
  "In[347]:=",ExpressionUUID->"d1d938b4-cada-4049-9768-3e7b444949de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"rule2", "/.", "xytoab"}], "//", "neabp"}]], "Input",
 CellChangeTimes->{{3.8074904947786913`*^9, 3.807490494938636*^9}},
 CellLabel->
  "In[350]:=",ExpressionUUID->"db253eae-3d73-49b6-927b-c61eb46368fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["10383007627761370580373", "137736225760287516215"]}], 
    "\[Rule]", 
    RowBox[{"-", 
     FractionBox["10383007627761370580373", "137736225760287516215"]}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["16482665207524120896", "2263597435495055201899"]}], 
    "\[Rule]", 
    FractionBox["16482665207524120896", "2263597435495055201899"]}], ",", 
   RowBox[{
    FractionBox["7950561505920", "227628796854851"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["7950561505920", "227628796854851"]}]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["58570013358831", "2600271949765"]}], "\[Rule]", 
    FractionBox["58570013358831", "2600271949765"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["7469123554737928", "2633730916884095"]}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["7469123554737928", "2633730916884095"]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.807490554591239*^9},
 CellLabel->
  "Out[350]=",ExpressionUUID->"8161da0a-ac57-4b6d-84be-472134b75948"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"xytoab", "=", 
   RowBox[{"Union", "[", 
    RowBox[{"xytoab", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "2", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "3"}], "}"}]}], "]"}]}], "]"}]}]]}], ",", 
       RowBox[{
        RowBox[{"g", "[", "2", "]"}], ":>", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"9", ",", "3"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
             ",", "5", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
          ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"hn", "[", "2", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], "2"], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], 
       ",", 
       RowBox[{
        RowBox[{"h1", "[", "2", "]"}], ":>", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", 
            ",", "5", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}], 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], "2"], 
          SuperscriptBox[
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}]}], 
      "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807490622470364*^9, 3.807490687892684*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"2630f372-4d97-4a7e-a21d-e98bd897d660"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"1", "-", 
          RowBox[{"yy2", " ", "z1b"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx2", " ", "z1"}]}], ")"}], 
          RowBox[{"f", "[", "2", "]"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b"}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{"1", "-", "yy2", "+", 
          RowBox[{"yy2", " ", "zn"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx2", "-", "znb", "-", 
            RowBox[{"xx2", " ", "znb"}]}], ")"}], 
          RowBox[{"g", "[", "2", "]"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "zn"}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xx2", "-", "znb", "-", 
            RowBox[{"xx2", " ", "znb"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"xx2", "-", "zn", "-", 
            RowBox[{"xx2", " ", "zn"}]}], ")"}]}], 
         RowBox[{"-", 
          RowBox[{"hn", "[", "2", "]"}]}]], ",", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx2", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1b", "-", 
            RowBox[{"xx2", " ", "z1b"}]}], ")"}]}], 
         RowBox[{"-", 
          RowBox[{"h1", "[", "2", "]"}]}]]}], "}"}], "/.", "xytoab"}], "/.", 
     "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neab"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.807490705075836*^9, 3.8074907434521933`*^9}},
 CellLabel->
  "In[353]:=",ExpressionUUID->"7315c79e-33be-497e-92b9-956041a179d7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.807490744781039*^9},
 CellLabel->
  "Out[353]=",ExpressionUUID->"f8d6ee59-7ae4-4dc6-a3f1-386fb0790fde"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"compon8", "[", "5", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{"SymbolExpand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"compon8", "[", "4", "]"}], "-", "comdiff"}], "/.", 
       RowBox[{"(", "rule2", ")"}]}], "]"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "-", 
         RowBox[{"yy2", " ", "z1b"}]}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx2", " ", "z1"}]}], ")"}]}], 
         RowBox[{"f", "[", "2", "]"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"z1b", " ", "\[Mu]"}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "z1b"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"1", "-", "yy2", "+", 
         RowBox[{"yy2", " ", "zn"}]}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"xx2", "-", "znb", "-", 
            RowBox[{"xx2", " ", "znb"}]}], ")"}]}], 
         RowBox[{"g", "[", "2", "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"zn", " ", "\[Mu]"}], "-", "\[Nu]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", "zn"}], ")"}]}]}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8074907719553127`*^9, 3.8074908063629837`*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"de848873-cd2e-4142-b41e-063ab919e5cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         RowBox[{"tchi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "2"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1", "+", 
            RowBox[{"xx2", " ", "z1"}]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "z1b", "+", 
            RowBox[{"xx2", " ", "z1b"}]}], ")"}]]], ",", 
        FractionBox[
         RowBox[{"chi", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "2"}], 
          "]"}], 
         FractionBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx2", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"xx2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
           ")"}]]]}], "}"}], "/.", "xytoab"}], "/.", "ztouv"}], "/.", 
    RowBox[{"uvtoab", "[", 
     RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]}], "//", "neabp"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.8074908273660307`*^9, 3.807490840082346*^9}},
 CellLabel->
  "In[355]:=",ExpressionUUID->"c0948052-98cb-45ab-866f-31ce543f67ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.807490840652792*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"9958d326-a98a-49cb-9f2a-b0f84e53d4c8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"algebraicpart", "[", "7", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "4"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"aTensor", "[", 
       RowBox[{"v1", ",", 
        FractionBox["z1", "z1b"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "2"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"u1", ",", 
        FractionBox[
         RowBox[{"1", "-", "z1b"}], 
         RowBox[{"1", "-", "z1"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"tChi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", "2"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{"z1b", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1b"}], ")"}]}], 
          RowBox[{"z1", 
           RowBox[{"(", 
            RowBox[{"1", "-", "z1"}], ")"}]}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"vn", ",", 
        FractionBox["zn", "znb"], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "2"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}], "+", 
      RowBox[{"aTensor", "[", 
       RowBox[{"un", ",", 
        FractionBox[
         RowBox[{"1", "-", "znb"}], 
         RowBox[{"1", "-", "zn"}]], ",", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"Chi", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", "2"}], 
           "]"}], "2"], 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "znb"}], ")"}], "znb"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "zn"}], ")"}], "zn"}]]}]}], "]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8074908536991587`*^9, 3.807490864659257*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"282875b8-0b79-4c27-83da-ad6fa3e1df9e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"rationalpart", "[", "7", "]"}], "=", 
   RowBox[{"SymbolExpand", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"SymbolExpand", "[", 
       RowBox[{
        RowBox[{"SymbolExpand", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"compon8", "[", "5", "]"}], "-", 
             RowBox[{"algebraicpart", "[", "7", "]"}]}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"tChi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "1"}], "}"}], ",", 
                 "2"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1", "+", 
                  RowBox[{"xx2", " ", "z1"}]}], ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "z1b", "+", 
                  RowBox[{"xx2", " ", "z1b"}]}], ")"}]]}], ",", 
              RowBox[{
               RowBox[{"Chi", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "}"}], ",", 
                 "2"}], "]"}], ":>", 
               FractionBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}], 
                 ")"}], 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"xx2", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "znb"}], ")"}]}], "+", "znb"}], 
                 ")"}]]}]}], "}"}]}], "/.", 
           RowBox[{"aTensor", "\[RuleDelayed]", "CiTi"}]}], "/.", "uvtoz"}], 
         "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"xx2", "-", "znb", "-", 
            RowBox[{"xx2", " ", "znb"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"-", 
             RowBox[{"hn", "[", "2", "]"}]}], 
            RowBox[{
             RowBox[{"xx2", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "zn"}], ")"}]}], "+", "zn"}]]}], ",", 
          RowBox[{
           RowBox[{"1", "-", "z1", "-", 
            RowBox[{"xx2", " ", "z1"}]}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{"h1", "[", "2", "]"}], 
            RowBox[{
             RowBox[{"-", "1"}], "+", "z1b", "+", 
             RowBox[{"xx2", " ", "z1b"}]}]]}], ",", 
          RowBox[{
           RowBox[{"f", "[", "2", "]"}], "\[RuleDelayed]", 
           FractionBox[
            RowBox[{
             RowBox[{"-", "yy2"}], " ", "\[Nu]"}], 
            RowBox[{"v1", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{"xx2", "-", "\[Nu]"}], ")"}], " "}]]}], ",", 
          RowBox[{
           RowBox[{"g", "[", "2", "]"}], ":>", 
           FractionBox["yy2", 
            RowBox[{"vn", " ", "\[Mu]", " ", 
             RowBox[{"(", 
              RowBox[{"xx2", "-", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"1", "-", "z1"}], "\[RuleDelayed]", 
         FractionBox["v1", 
          RowBox[{"1", "-", "z1b"}]]}], ",", 
        RowBox[{
         RowBox[{"1", "-", "zn"}], "\[RuleDelayed]", 
         FractionBox["vn", 
          RowBox[{"1", "-", "znb"}]]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"z1", "\[RuleDelayed]", 
        FractionBox["u1", "z1b"]}], ",", 
       RowBox[{"zn", "\[RuleDelayed]", 
        FractionBox["un", "znb"]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807490877155896*^9, 3.8074909529125957`*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"8f10f7b8-7b23-4817-896e-ea08b13012c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"rationalpart", "[", "7", "]"}], ",", 
    RowBox[{
     RowBox[{"!", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"z1b", "|", "znb"}]}], "]"}]}], "&"}]}], "]"}], "//", 
  "SymbolFactor"}]], "Input",
 CellChangeTimes->{{3.807490971944055*^9, 3.807490972152418*^9}},
 CellLabel->
  "In[358]:=",ExpressionUUID->"f0d3d7cf-a84d-4b59-b42a-821f853411c7"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.8074909727034063`*^9},
 CellLabel->
  "Out[358]=",ExpressionUUID->"06bb0c09-85a4-4b76-8e45-8175cdda7e6d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{"ab", "[", 
           RowBox[{"8", ",", "9", ",", "1", ",", 
            RowBox[{"cap", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn"}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
     RowBox[{"cap", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"6", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "4", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "4", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"5", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"1", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}]], 
    "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "3", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn"}], "+", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"2", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    FractionBox[
     RowBox[{"t", "+", 
      RowBox[{"u1", " ", "vn"}], "-", 
      FractionBox[
       RowBox[{"2", " ", "u1", " ", "vn", " ", 
        RowBox[{"ab", "[", 
         RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
        RowBox[{"ab", "[", 
         RowBox[{"3", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
       RowBox[{"ab", "[", 
        RowBox[{"3", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}], 
     RowBox[{"t", "-", 
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], 
        ")"}]}]}]], "]"}], " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], "]"}], 
   " ", 
   RowBox[{"R", "[", 
    RowBox[{"3", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"dlog", "[", 
    RowBox[{"t", "-", 
     FractionBox[
      RowBox[{"u1", " ", "vn", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]], "+", 
         FractionBox[
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
          RowBox[{
           RowBox[{"ab", "[", 
            RowBox[{"9", ",", 
             RowBox[{"cap1", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "8"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
           RowBox[{"ab", "[", 
            RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
         RowBox[{
          RowBox[{"ab", "[", 
           RowBox[{"9", ",", 
            RowBox[{"cap1", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "8"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"2", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
          RowBox[{"ab", "[", 
           RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"9", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "8"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
         RowBox[{"ab", "[", 
          RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
        RowBox[{
         RowBox[{"ab", "[", 
          RowBox[{"9", ",", 
           RowBox[{"cap1", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "8"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
         RowBox[{"ab", "[", 
          RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}]]}], "]"}], 
   " ", 
   RowBox[{"Qlog", "[", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}]], "]"}], " ", 
   RowBox[{"R", "[", 
    RowBox[{"6", ",", "7", ",", "4", ",", "5", ",", 
     RowBox[{"cap", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Input",ExpressionUUID->"99edc765-cf5a-4e74-b36a-\
53d8a53fc7a0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"finalresult", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"Qlog", "[", 
             FractionBox[
              RowBox[{"ab", "[", 
               RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}], 
              RowBox[{"ab", "[", 
               RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], 
            " ", 
            RowBox[{"R", "[", 
             RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}],
            "+", 
           RowBox[{
            RowBox[{"Qlog", "[", 
             FractionBox[
              RowBox[{"ab", "[", 
               RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
              RowBox[{"ab", "[", 
               RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}]], "]"}], 
            " ", 
            RowBox[{"R", "[", 
             RowBox[{"6", ",", "7", ",", "4", ",", "5", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], 
             "]"}]}]}], ")"}]}], ",", " ", 
        RowBox[{
         RowBox[{"Qlog", "[", 
          FractionBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", "7"}], "]"}]], "]"}], " ", 
         RowBox[{"R", "[", 
          RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "7"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", "6"}], "]"}]], "]"}]}], 
         " ", 
         RowBox[{"R", "[", 
          RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "]"}]}], ",",
         " ", 
        RowBox[{
         RowBox[{"Qlog", "[", 
          FractionBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
          "]"}], " ", 
         RowBox[{"R", "[", 
          RowBox[{"2", ",", "3", ",", "5", ",", "6", ",", "7"}], "]"}]}], ",",
         
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"2", ",", "3"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}]}], " ", 
         RowBox[{"R", "[", 
          RowBox[{"2", ",", "3", ",", "4", ",", "6", ",", "7"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"Qlog", "[", 
          FractionBox[
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], 
           RowBox[{"ab", "[", 
            RowBox[{"8", ",", "9", ",", "1", ",", 
             RowBox[{"cap", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"6", ",", "7"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
          "]"}], " ", 
         RowBox[{"R", "[", 
          RowBox[{"3", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Qlog", "[", 
           FractionBox[
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], 
            RowBox[{"ab", "[", 
             RowBox[{"8", ",", "9", ",", "1", ",", 
              RowBox[{"cap", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"6", ",", "7"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}]], 
           "]"}]}], " ", 
         RowBox[{"R", "[", 
          RowBox[{"2", ",", "4", ",", "5", ",", "6", ",", "7"}], "]"}]}]}], 
       "}"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"rationalpart", "[", "i", "]"}], "+", 
         RowBox[{"algebraicpart", "[", "i", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "7"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.807491087018368*^9, 3.80749117146672*^9}, {
  3.807491220589916*^9, 3.8074912213550787`*^9}, {3.8074912735540743`*^9, 
  3.8074913116094646`*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"e3fe05cb-1d6a-4ea1-8edc-82e09eb74c79"],

Cell["\<\
Note that, still need to make substitution {z1->z[1,3,5,9], \
zn->z[3,5,7,9],z1b->zb[1,3,5,9], \
znb->zb[3,5,7,9],u1->u[1,3,5,7],v1->v[1,3,5,7],un->u[3,5,7,9],vn->v[3,5,7,9]} \
for algebraic part. The substitution for rational part is uvtoab and xytoab\
\>", "Text",
 CellChangeTimes->{{3.807491371584778*^9, 
  3.807491551133335*^9}},ExpressionUUID->"ea237bd9-b2a6-44ff-a8d0-\
bfa982410cc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"uvtoab", "[", 
  RowBox[{"3", ",", "5", ",", "7", ",", "9"}], "]"}]], "Input",
 CellChangeTimes->{{3.807491460520184*^9, 3.807491469476891*^9}, {
  3.807491526145749*^9, 3.807491527513937*^9}},
 CellLabel->
  "In[367]:=",ExpressionUUID->"549a7c5e-5bc3-4220-8db7-dabfb2be87c6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"u1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", "1", ",", "2", ",", "3"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", "1", ",", "4", ",", "5"}], "]"}]}]]}], ",", 
   RowBox[{"v1", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"6", ",", "7", ",", "9", ",", "1"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", "1", ",", "4", ",", "5"}], "]"}]}]]}], ",", 
   RowBox[{"un", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{"vn", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    SubscriptBox["\[Tau]", "u"], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"6", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", "1", ",", "2", ",", "3"}], "]"}]}], 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", "1", ",", "6", ",", "7"}], "]"}]}]]}]}], ",", 
   RowBox[{
    SubscriptBox["\[Tau]", "v"], "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"\[CapitalDelta]1", "\[Rule]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "u1", "-", "v1"}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "u1", " ", "v1"}]}]]}], ",", 
   RowBox[{"\[CapitalDelta]n", "\[Rule]", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "un", "-", "vn"}], ")"}], "2"], "-", 
      RowBox[{"4", " ", "un", " ", "vn"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.807491470019628*^9, 3.80749155303328*^9},
 CellLabel->
  "Out[367]=",ExpressionUUID->"b08b4cec-7427-4a23-89c9-39cb6f92b137"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["xytoab"], "Input",
 CellChangeTimes->{{3.807491555105967*^9, 3.8074915559027*^9}},
 CellLabel->
  "In[368]:=",ExpressionUUID->"4f09a87d-51ae-4304-a7b2-18fd83898162"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"xx6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"xx7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "7", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"yy6", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"yy7", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "7", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"\[Mu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"\[Nu]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"xx2", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"xx3", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"xx4", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"xx5", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "]"}]}], "]"}], 
     RowBox[{"ab", "[", 
      RowBox[{"8", ",", "9", ",", "1", ",", 
       RowBox[{"cap", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"yy2", "\[RuleDelayed]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}]}], ",", 
   RowBox[{"yy3", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"3", ",", "4", ",", "5", ",", "9"}], "]"}]}], 
     RowBox[{"ab", "[", 
      RowBox[{"3", ",", 
       RowBox[{"cap1", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "9"}], "}"}]}], "]"}]}], "]"}]]}], ",", 
   RowBox[{"yy4", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{"yy5", "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"5", ",", "6", ",", "7", ",", "9"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "2", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", "2"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "3"}], "}"}]}], "]"}]}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "3", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", "3"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"3", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "4", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "5", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"f", "[", "6", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}]]}], 
   ",", 
   RowBox[{
    RowBox[{"f", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"8", ",", "9", ",", "1", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"9", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "6", ",", "7", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "2", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"9", ",", "3"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "3", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"3", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"9", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"g", "[", "4", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "5", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "5", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "6", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"g", "[", "7", "]"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "8"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"ab", "[", 
        RowBox[{
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
         "5", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "7", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"2", ",", "3", ",", "8", ",", "9"}], "]"}], " ", 
       RowBox[{"ab", "[", 
        RowBox[{"9", ",", 
         RowBox[{"cap1", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"6", ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"h1", "[", "2", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"h1", "[", "3", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"3", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"h1", "[", "4", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
       "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"h1", "[", "5", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"5", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"1", ",", "4", ",", "5", ",", "9"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
       "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"h1", "[", "6", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"6", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"h1", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "1"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "2", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "2", ",", "8", ",", "9"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "3", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"3", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"1", ",", "3", ",", "8", ",", "9"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "]"}], "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "4", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
       "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "5", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"5", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"5", ",", "6", ",", "7"}], "}"}]}], "]"}]}], "]"}], 
       "2"]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "6", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"6", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "8", ",", "9"}], "]"}]}]]}], ",", 
   RowBox[{
    RowBox[{"hn", "[", "7", "]"}], "\[RuleDelayed]", 
    FractionBox[
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}], ",", "4", ",", 
        "5", ",", 
        RowBox[{"cap", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6", ",", "7"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "1"}], "}"}]}], "]"}]}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "]"}], " ", 
      RowBox[{"ab", "[", 
       RowBox[{"7", ",", 
        RowBox[{"cap1", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "8"}], "}"}]}], "]"}]}], "]"}]}], 
     RowBox[{
      RowBox[{"ab", "[", 
       RowBox[{"2", ",", "3", ",", "6", ",", "7"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"ab", "[", 
        RowBox[{"8", ",", "9", ",", "1", ",", 
         RowBox[{"cap", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "3"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "7"}], "}"}]}], "]"}]}], "]"}], "2"], 
      " ", 
      RowBox[{"ab", "[", 
       RowBox[{"4", ",", "5", ",", "9", ",", "8"}], "]"}]}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.807491556304521*^9},
 CellLabel->
  "Out[368]=",ExpressionUUID->"5d45587a-a0aa-4811-bef5-b7a969659504"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{966.75, 577.5},
WindowMargins->{{58.875, Automatic}, {31.5, Automatic}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 14, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"ad7049ec-dfbc-4bd7-8d7e-1db002d95dc4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 205, 3, 28, "Input",ExpressionUUID->"e5cb070e-35aa-411f-9160-14f6eb1e74c0"],
Cell[766, 25, 199, 3, 28, "Input",ExpressionUUID->"690f3a32-6220-4b3e-9447-bf73e06be9a4"],
Cell[CellGroupData[{
Cell[990, 32, 203, 3, 28, "Input",ExpressionUUID->"e023bf63-f10c-41da-b9d6-b2243a727d95"],
Cell[CellGroupData[{
Cell[1218, 39, 523, 12, 21, "Print",ExpressionUUID->"74dc037d-0d67-4209-8077-d4d0acce7e8f"],
Cell[1744, 53, 335, 6, 21, "Print",ExpressionUUID->"4ee0dcee-720d-4f1b-8a95-f1660c1e649d"],
Cell[2082, 61, 356, 7, 21, "Print",ExpressionUUID->"df85b86f-a652-44ec-8bdf-88b1a9b4a0eb"],
Cell[2441, 70, 436, 8, 40, "Print",ExpressionUUID->"1df22e63-463d-4187-b29c-7212f798e8ad"],
Cell[2880, 80, 432, 8, 40, "Print",ExpressionUUID->"34b14269-ba40-4d65-96c2-a37108871feb"],
Cell[3315, 90, 382, 7, 57, "Print",ExpressionUUID->"0c8543a4-4739-464d-9e17-06611cb9dd48"],
Cell[3700, 99, 358, 7, 21, "Print",ExpressionUUID->"6143111b-c0e1-4e23-80b8-c79a9b596a92"],
Cell[4061, 108, 374, 7, 21, "Print",ExpressionUUID->"691e1d52-9fd9-4005-8929-5e58ee04f359"],
Cell[4438, 117, 333, 6, 21, "Print",ExpressionUUID->"0b136540-fc8b-4a1f-a432-b48de5efa155"],
Cell[4774, 125, 342, 6, 21, "Print",ExpressionUUID->"74812994-468d-463b-a6f7-1869b304e2f6"],
Cell[5119, 133, 417, 7, 40, "Print",ExpressionUUID->"bad30148-e7f5-4277-9056-c9ce96e16a0a"],
Cell[5539, 142, 398, 7, 40, "Print",ExpressionUUID->"6b004d1b-3a66-462e-8c03-40ad1aeda153"]
}, Open  ]]
}, Open  ]],
Cell[5964, 153, 47378, 1359, 1217, "Code",ExpressionUUID->"6fc89a46-9534-497c-8d52-5fc77621292d"],
Cell[53345, 1514, 16159, 479, 671, "Code",ExpressionUUID->"957c8e03-c1b3-493c-8588-04155f5e4cbc"],
Cell[69507, 1995, 16543, 454, 113, "Code",ExpressionUUID->"9c45b689-bf59-4d8b-93ee-ef8d2ceeecc2"],
Cell[86053, 2451, 261, 5, 84, "Input",ExpressionUUID->"739e1117-b707-4c3f-8c98-26871e4b7e99"],
Cell[86317, 2458, 237, 5, 28, "Input",ExpressionUUID->"6e9c1813-4686-4ed0-9739-73ffa2edf6b2"],
Cell[86557, 2465, 361, 8, 28, "Input",ExpressionUUID->"d67ed8cb-6185-4c8f-acb0-d4c2cf2aa897"],
Cell[CellGroupData[{
Cell[86943, 2477, 181, 2, 28, "Input",ExpressionUUID->"b4860042-016e-47f6-84cd-1a15c798c880"],
Cell[87127, 2481, 15574, 448, 455, "Output",ExpressionUUID->"9d5b034f-3bf1-4901-accb-129206507d90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102738, 2934, 3202, 95, 120, "Input",ExpressionUUID->"f3b27a85-3cd8-479d-8041-beb166a9cdc3"],
Cell[105943, 3031, 2075, 62, 51, "Output",ExpressionUUID->"13684ea7-9369-4393-b488-89d9b46b76b2"]
}, Open  ]],
Cell[108033, 3096, 211, 3, 28, "Input",ExpressionUUID->"815e3bbd-21c9-41a0-baf9-8c87e71d18f1"],
Cell[108247, 3101, 28339, 783, 733, "Input",ExpressionUUID->"1783f566-1071-4c0d-80d7-4d3591fbec21"],
Cell[CellGroupData[{
Cell[136611, 3888, 260, 5, 28, "Input",ExpressionUUID->"a0018079-3055-43e3-84eb-f8bde416dcae"],
Cell[136874, 3895, 18512, 519, 571, "Output",ExpressionUUID->"14bc6852-1d90-49e7-9761-091707513a2a"]
}, Open  ]],
Cell[155401, 4417, 6179, 175, 195, "Input",ExpressionUUID->"c8dbc266-2661-46b0-be5c-212dd00fd3d9"],
Cell[CellGroupData[{
Cell[161605, 4596, 856, 24, 45, "Subsubsection",ExpressionUUID->"9ed1f878-a44b-4186-b5f3-0fce779624f6"],
Cell[162464, 4622, 178, 4, 28, "Input",ExpressionUUID->"de05301b-3ee3-4f66-8ec7-7d4a8845831c"],
Cell[162645, 4628, 5123, 131, 237, "Input",ExpressionUUID->"234675e7-54ab-4f5f-af6c-696e115180b4"],
Cell[167771, 4761, 282, 6, 28, "Input",ExpressionUUID->"5cd5c196-2f1c-4885-a08d-85a1bb22cac3"],
Cell[168056, 4769, 1572, 43, 48, "Input",ExpressionUUID->"b8529afb-6785-4b43-80a2-02a282e568a4"],
Cell[169631, 4814, 430, 10, 28, "Input",ExpressionUUID->"a84e7151-361d-4ca1-bf96-fd826d6496dd"],
Cell[170064, 4826, 230, 5, 28, "Input",ExpressionUUID->"b905e04a-6977-43ce-8b82-85c3c208c167"],
Cell[170297, 4833, 180, 4, 28, "Input",ExpressionUUID->"cd222a38-5a81-4838-9220-118eae99c7d0"],
Cell[170480, 4839, 8043, 224, 441, "Input",ExpressionUUID->"790cbbf1-79e3-4c43-8b15-5091cea283c1"],
Cell[CellGroupData[{
Cell[178548, 5067, 207, 3, 28, "Input",ExpressionUUID->"1cfa5edf-80bf-4ad6-9b12-566749aa01b4"],
Cell[178758, 5072, 62147, 1919, 2313, "Output",ExpressionUUID->"170053b1-3fc1-40bd-b259-8c0425293b08"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[240954, 6997, 853, 24, 54, "Subsubsection",ExpressionUUID->"5df72bdb-964b-41b9-a54b-608180453de0"],
Cell[241810, 7023, 8347, 229, 422, "Input",ExpressionUUID->"588306b7-e419-422f-9826-1b93c8312939"],
Cell[250160, 7254, 321, 5, 28, "Input",ExpressionUUID->"71987996-a9c6-42ee-b4e2-d2cb5c328905"],
Cell[CellGroupData[{
Cell[250506, 7263, 360, 6, 48, "Input",ExpressionUUID->"a1597955-60c7-49c5-928d-24d942f23d16"],
Cell[250869, 7271, 626, 14, 32, "Output",ExpressionUUID->"2aec416f-0c77-47ba-a5d4-5bdce7daaa24"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[251544, 7291, 1723, 46, 80, "Subsubsection",ExpressionUUID->"62c6f199-66a7-473e-9e09-bea29fec34cc"],
Cell[253270, 7339, 152, 3, 28, "Input",ExpressionUUID->"52a29666-cf78-43f3-8f8c-8dbeafd0d962"],
Cell[253425, 7344, 162, 3, 35, "Text",ExpressionUUID->"2213dfd0-deb7-4620-b838-1e3769f74a7f"],
Cell[253590, 7349, 1426, 43, 103, "Input",ExpressionUUID->"285c78fd-6c84-4813-be13-851e728bdb15"],
Cell[CellGroupData[{
Cell[255041, 7396, 1550, 39, 121, "Input",ExpressionUUID->"73df5839-7561-4099-b805-87fe84e0d38b"],
Cell[256594, 7437, 2798, 79, 160, "Output",ExpressionUUID->"992629b7-605f-4358-8797-f701bb8e6007"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[259441, 7522, 1592, 44, 78, "Subsubsection",ExpressionUUID->"08347e52-87e2-4bd5-8776-03c7f9657f8c"],
Cell[261036, 7568, 173, 3, 34, "Text",ExpressionUUID->"11500fb9-0854-4228-b53e-896384fc9c20"],
Cell[CellGroupData[{
Cell[261234, 7575, 6603, 171, 178, "Input",ExpressionUUID->"a681b6d9-d0bf-461a-9f18-274915248694"],
Cell[267840, 7748, 445, 7, 32, "Output",ExpressionUUID->"73b7f3f8-20de-472c-9a63-dea5f7133b55"]
}, Open  ]],
Cell[268300, 7758, 253, 4, 34, "Text",ExpressionUUID->"beb8fe2b-9c5f-49ae-9b39-d35469a7666d"],
Cell[268556, 7764, 387, 10, 51, "Input",ExpressionUUID->"f09c00e4-bf28-4edc-b7e2-a18c234b7357"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268980, 7779, 797, 22, 51, "Subsubsection",ExpressionUUID->"9edca72d-a9a8-4b29-b219-ff6bdc63f4ba"],
Cell[269780, 7803, 8126, 228, 260, "Input",ExpressionUUID->"782bcdb9-28ef-4645-8e39-797e45d4ca23"],
Cell[277909, 8033, 3841, 96, 217, "Input",ExpressionUUID->"1d7d29ef-8084-47fd-8cbd-74ce9c678998"],
Cell[CellGroupData[{
Cell[281775, 8133, 178, 2, 28, "Input",ExpressionUUID->"199605c8-8507-4097-b08b-d131936894a5"],
Cell[281956, 8137, 1566, 47, 59, "Output",ExpressionUUID->"a648e3bc-e540-4367-8cc5-3a0b0c58c858"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283559, 8189, 1689, 49, 84, "Input",ExpressionUUID->"feab2ed6-ba3a-47f2-a459-37d92b571b91"],
Cell[285251, 8240, 292, 5, 32, "Output",ExpressionUUID->"8adbaf00-98af-4740-a9c4-fdb7a769a202"]
}, Open  ]],
Cell[285558, 8248, 152, 3, 28, "Input",ExpressionUUID->"c43d87ec-197f-407a-880c-c4aa594f37bd"],
Cell[285713, 8253, 180, 4, 28, "Input",ExpressionUUID->"cf04aff9-746c-44fc-afd0-9f2ecaf51d93"],
Cell[285896, 8259, 156, 3, 28, "Input",ExpressionUUID->"4c6c8df2-a859-4a0a-882d-c3d819e91d21"],
Cell[286055, 8264, 2804, 85, 127, "Input",ExpressionUUID->"7c81b18b-4320-42cd-bdd9-b6786501414a"],
Cell[288862, 8351, 5534, 142, 214, "Input",ExpressionUUID->"04e4b0bf-09da-4ff7-8b90-8a521ebbc9a7"],
Cell[CellGroupData[{
Cell[294421, 8497, 305, 5, 28, "Input",ExpressionUUID->"7a03fee3-7693-4d1f-be82-8bec7bed86af"],
Cell[294729, 8504, 587, 11, 32, "Output",ExpressionUUID->"15046b8f-973a-4004-b610-e7b05a29e1ef"]
}, Open  ]],
Cell[295331, 8518, 177, 3, 28, "Input",ExpressionUUID->"fa71be37-61f9-4129-bda0-9d17242f06c4"],
Cell[295511, 8523, 4069, 108, 126, "Input",ExpressionUUID->"1ca3935f-37a4-435f-9ad7-138caf4a1cb7"],
Cell[299583, 8633, 202, 4, 28, "Input",ExpressionUUID->"6531f00e-7e9d-42df-9b4c-07a64a3c5e3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[299822, 8642, 918, 23, 51, "Subsubsection",ExpressionUUID->"4fb80d6b-fb10-4393-bee4-6b2af77ab808"],
Cell[300743, 8667, 4599, 125, 153, "Input",ExpressionUUID->"1c4eecde-5ada-46e6-8204-34ded64b9c4e"],
Cell[305345, 8794, 1784, 51, 66, "Input",ExpressionUUID->"da29108b-20e6-4514-bacb-e7cf6ff2d062"],
Cell[307132, 8847, 2080, 60, 55, "Input",ExpressionUUID->"74f7da54-2f31-45c3-a5bd-ac064b5a00ee"],
Cell[309215, 8909, 1893, 49, 120, "Input",ExpressionUUID->"1297596a-9299-48f4-9d8b-b356120ce242"],
Cell[CellGroupData[{
Cell[311133, 8962, 255, 5, 28, "Input",ExpressionUUID->"ba58c019-9cf2-453c-af4a-9b9feae294f0"],
Cell[311391, 8969, 1362, 34, 52, "Output",ExpressionUUID->"c1acbc88-7f1e-436c-a99b-b48d1ddd3d28"]
}, Open  ]],
Cell[312768, 9006, 2068, 51, 86, "Input",ExpressionUUID->"7b797a96-0080-43ba-be21-2e570151b7f2"],
Cell[CellGroupData[{
Cell[314861, 9061, 1675, 46, 48, "Input",ExpressionUUID->"b46973f5-99d1-40b6-b73e-1a41186719dd"],
Cell[316539, 9109, 999, 23, 32, "Output",ExpressionUUID->"e93cefce-000a-4d7f-9a03-d370a70216a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[317575, 9137, 1591, 48, 84, "Input",ExpressionUUID->"ddeeff2f-8397-4e57-8b08-4163c8d8cf15"],
Cell[319169, 9187, 198, 5, 32, "Output",ExpressionUUID->"97bdcb13-1bc9-4205-b64e-073a8f419412"]
}, Open  ]],
Cell[319382, 9195, 2732, 85, 123, "Input",ExpressionUUID->"72ebc99e-6769-4188-ac2e-434aa54445bd"],
Cell[322117, 9282, 4070, 110, 152, "Input",ExpressionUUID->"93fbb7e0-253f-40be-8506-c1c249ae94ee"],
Cell[CellGroupData[{
Cell[326212, 9396, 309, 6, 31, "Input",ExpressionUUID->"a6b2247e-084b-4462-826e-30a0b2f6a987"],
Cell[326524, 9404, 565, 11, 35, "Output",ExpressionUUID->"d9acbb93-6fb5-44ca-8454-f103358e86d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[327126, 9420, 180, 3, 31, "Input",ExpressionUUID->"2d84e7a1-edc7-4be4-bfa5-9fe9b63277eb"],
Cell[327309, 9425, 13657, 392, 299, "Output",ExpressionUUID->"16779278-8da1-48cf-953e-7f12bfe07af1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341003, 9822, 1423, 41, 53, "Input",ExpressionUUID->"c2e84de3-3160-47d5-8ec2-bdd42742f5a0"],
Cell[342429, 9865, 313, 9, 35, "Output",ExpressionUUID->"12a8632c-b41b-42b0-bfd5-90ca124b6ae6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[342791, 9880, 960, 27, 56, "Subsubsection",ExpressionUUID->"864da520-c895-49ee-9412-d432cef4e540"],
Cell[343754, 9909, 227, 4, 31, "Input",ExpressionUUID->"6832d1f8-22b1-4b32-81d3-3a131facadac"],
Cell[343984, 9915, 1348, 37, 82, "Input",ExpressionUUID->"49033d29-a839-464d-b79e-92a927286c04"],
Cell[345335, 9954, 1499, 41, 53, "Input",ExpressionUUID->"05f5ece0-0779-4e06-8ddb-37dde4923eb0"],
Cell[346837, 9997, 8054, 227, 224, "Input",ExpressionUUID->"d37f929e-cf3a-4ee1-a29c-12868da7e520"],
Cell[CellGroupData[{
Cell[354916, 10228, 353, 7, 31, "Input",ExpressionUUID->"b538f158-1829-4f09-943a-f82d2804375a"],
Cell[355272, 10237, 1375, 34, 59, "Output",ExpressionUUID->"bc7648b6-516d-4071-ae43-4d233fbe99c5"]
}, Open  ]],
Cell[356662, 10274, 3722, 95, 150, "Input",ExpressionUUID->"8948f68c-0154-4483-9e0a-ebac8ad6ea41"],
Cell[CellGroupData[{
Cell[360409, 10373, 180, 3, 31, "Input",ExpressionUUID->"823ce23a-aece-4c4f-9ba0-65a20261834f"],
Cell[360592, 10378, 1782, 54, 56, "Output",ExpressionUUID->"2f06c75e-020b-4bd1-ba20-ed7ada3f1928"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362411, 10437, 175, 3, 31, "Input",ExpressionUUID->"b6b3307e-6e8d-45c4-9c8b-491a4f7446db"],
Cell[362589, 10442, 1375, 34, 59, "Output",ExpressionUUID->"0901d2ec-95c7-4e65-903e-0eb8a4b1e43a"]
}, Open  ]],
Cell[363979, 10479, 1715, 50, 63, "Input",ExpressionUUID->"ddb97e79-5742-4d6d-a28d-ba04d03a7844"],
Cell[365697, 10531, 10463, 294, 316, "Input",ExpressionUUID->"7d4cd382-ad04-45e7-91e5-937c10ec0ef3"],
Cell[376163, 10827, 1370, 40, 31, "Input",ExpressionUUID->"057b62ce-6655-4a64-8276-ec24ebc563e0"],
Cell[377536, 10869, 4450, 119, 152, "Input",ExpressionUUID->"b8a08dc8-e098-4766-b9fc-2717b422dd17"],
Cell[CellGroupData[{
Cell[382011, 10992, 532, 9, 31, "Input",ExpressionUUID->"053543a7-b260-42fc-ba97-132bbbd5bcf3"],
Cell[382546, 11003, 813, 15, 35, "Output",ExpressionUUID->"0289092b-d2ac-4e45-8061-5e64ccee3680"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383396, 11023, 407, 8, 31, "Input",ExpressionUUID->"0f67e01e-4abc-4409-8645-f9cc843bc984"],
Cell[383806, 11033, 260, 6, 35, "Output",ExpressionUUID->"06e3c881-da6e-4ffd-974f-f7067fd44823"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[384115, 11045, 912, 26, 56, "Subsubsection",ExpressionUUID->"81601943-41ff-413a-8dbb-49799ca5af46"],
Cell[CellGroupData[{
Cell[385052, 11075, 2423, 64, 81, "Input",ExpressionUUID->"d20e5aea-52db-4b6f-9044-58328ed0c79f"],
Cell[387478, 11141, 206, 4, 35, "Output",ExpressionUUID->"493a89ea-4ac8-4768-84f9-a9eecfb874b0"]
}, Open  ]],
Cell[387699, 11148, 1497, 41, 53, "Input",ExpressionUUID->"1bf1f874-30a3-43b0-94f8-f4f4f0759902"],
Cell[389199, 11191, 8056, 227, 224, "Input",ExpressionUUID->"4872e5c1-caee-4723-93b6-a1ce4ee56ad9"],
Cell[CellGroupData[{
Cell[397280, 11422, 252, 5, 31, "Input",ExpressionUUID->"a936c60b-e07c-4416-8b8a-b41003de2a94"],
Cell[397535, 11429, 1398, 34, 59, "Output",ExpressionUUID->"a3a38c6c-44af-4da7-9806-acbaccdcf624"]
}, Open  ]],
Cell[398948, 11466, 3644, 94, 150, "Input",ExpressionUUID->"6817c46c-27b5-47b9-8f3e-3117b013b04e"],
Cell[CellGroupData[{
Cell[402617, 11564, 707, 21, 53, "Input",ExpressionUUID->"f878e7a7-7faf-48c4-abf8-de3fdefd24ad"],
Cell[403327, 11587, 362, 10, 35, "Output",ExpressionUUID->"e42dcf96-2c51-4c9f-aa27-3fd829acc150"]
}, Open  ]],
Cell[403704, 11600, 1436, 41, 31, "Input",ExpressionUUID->"e5d5b774-f6cc-48bf-9511-1f60553d6df3"],
Cell[CellGroupData[{
Cell[405165, 11645, 2168, 60, 77, "Input",ExpressionUUID->"731746e1-002f-45a9-ac12-82ffd197defe"],
Cell[407336, 11707, 360, 8, 35, "Output",ExpressionUUID->"8a0896b0-70ab-4d26-a989-e00f42dc91e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[407733, 11720, 1590, 48, 63, "Input",ExpressionUUID->"fc88c42c-11ed-404c-ba57-9a59c95c0a26"],
Cell[409326, 11770, 200, 5, 35, "Output",ExpressionUUID->"c4e9fbd2-527c-4b10-983c-cc0ac985114e"]
}, Open  ]],
Cell[409541, 11778, 7908, 213, 199, "Input",ExpressionUUID->"b6300e06-415b-4360-abb8-b827108aa8db"],
Cell[417452, 11993, 2703, 84, 123, "Input",ExpressionUUID->"3c491bd3-0025-4cb5-8445-a576afbfca98"],
Cell[420158, 12079, 4171, 115, 152, "Input",ExpressionUUID->"9c2c3908-5d09-493e-91e3-ecccbb433b7b"],
Cell[CellGroupData[{
Cell[424354, 12198, 358, 7, 31, "Input",ExpressionUUID->"4556de0f-51ed-46dc-8357-f40f9479e5db"],
Cell[424715, 12207, 515, 11, 35, "Output",ExpressionUUID->"fafc2f41-c7e4-458f-a07e-a18fd64f2b07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[425267, 12223, 1156, 34, 52, "Input",ExpressionUUID->"68489008-07ba-4b64-ad83-77f40c2e2e50"],
Cell[426426, 12259, 222, 5, 35, "Output",ExpressionUUID->"dca4dd4f-af15-47ed-9331-32dd5f3b0e6a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[426697, 12270, 763, 20, 56, "Subsubsection",ExpressionUUID->"54e79418-b048-40c2-82b5-2dca3c25e4d3"],
Cell[CellGroupData[{
Cell[427485, 12294, 2455, 66, 81, "Input",ExpressionUUID->"55326dd1-5fe9-45df-ae9c-de4b43a45d0c"],
Cell[429943, 12362, 206, 4, 35, "Output",ExpressionUUID->"f3c710c0-ec45-40d8-b906-38e773b47604"]
}, Open  ]],
Cell[430164, 12369, 154, 3, 31, "Input",ExpressionUUID->"b4b35e0b-8f05-456f-9427-d57fce9ac19b"],
Cell[430321, 12374, 1538, 42, 53, "Input",ExpressionUUID->"e01f9cf6-1cae-4ac5-8a66-6a39a1e0e177"],
Cell[431862, 12418, 8054, 227, 224, "Input",ExpressionUUID->"51051d2f-fe30-4270-a757-ab96af3c7e66"],
Cell[CellGroupData[{
Cell[439941, 12649, 255, 5, 31, "Input",ExpressionUUID->"95b5b1d7-5369-4cf0-bd86-bcf067f47e15"],
Cell[440199, 12656, 1362, 34, 59, "Output",ExpressionUUID->"a16a1dc1-43b3-451a-ab75-2e0f22a1427d"]
}, Open  ]],
Cell[441576, 12693, 3743, 96, 150, "Input",ExpressionUUID->"639f0cac-ddb2-4db1-b253-ed84d759cbeb"],
Cell[CellGroupData[{
Cell[445344, 12793, 235, 4, 31, "Input",ExpressionUUID->"695a5f6e-2cc1-4bf2-8062-a9528671519f"],
Cell[445582, 12799, 1592, 48, 56, "Output",ExpressionUUID->"fb6bd046-d8b4-4d31-9ade-368efff12d9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[447211, 12852, 236, 5, 31, "Input",ExpressionUUID->"406a5d62-974d-42f2-bde9-0e64b3b66de5"],
Cell[447450, 12859, 1214, 33, 94, "Output",ExpressionUUID->"4411489f-ab41-49be-b050-cf1d3fcb93ca"]
}, Open  ]],
Cell[448679, 12895, 1475, 43, 31, "Input",ExpressionUUID->"56e908d9-54fd-43bf-9759-e1713dc47c23"],
Cell[CellGroupData[{
Cell[450179, 12942, 253, 5, 31, "Input",ExpressionUUID->"452457fa-c325-4bbf-acce-c552db86f73b"],
Cell[450435, 12949, 932, 22, 35, "Output",ExpressionUUID->"fa12850b-e73d-4848-b41d-7fa2f66bb280"]
}, Open  ]],
Cell[CellGroupData[{
Cell[451404, 12976, 2329, 64, 77, "Input",ExpressionUUID->"d785349b-e1f9-4844-aa54-9f061b824f19"],
Cell[453736, 13042, 387, 7, 35, "Output",ExpressionUUID->"80e26880-87bf-461c-9d6c-9d2bf4091c79"]
}, Open  ]],
Cell[454138, 13052, 8597, 223, 199, "Input",ExpressionUUID->"58e5404c-2ac9-41af-aa12-713f33484d1a"],
Cell[CellGroupData[{
Cell[462760, 13279, 234, 5, 31, "Input",ExpressionUUID->"5f75556b-13b2-4e8b-a1a5-84c5493230ad"],
Cell[462997, 13286, 2410, 74, 57, "Output",ExpressionUUID->"d30a7675-0afb-4f52-a2fa-3667b12c5145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[465444, 13365, 1591, 48, 63, "Input",ExpressionUUID->"6b472f3c-0887-4634-9aa3-00242e392a69"],
Cell[467038, 13415, 198, 5, 35, "Output",ExpressionUUID->"2b6ac188-d504-49ba-a455-b88a09b505bb"]
}, Open  ]],
Cell[467251, 13423, 2704, 84, 123, "Input",ExpressionUUID->"5b976316-a396-410a-970b-1ac344271e14"],
Cell[469958, 13509, 4124, 111, 152, "Input",ExpressionUUID->"56e56e33-19af-40fa-925f-db45dfe8f7c0"],
Cell[CellGroupData[{
Cell[474107, 13624, 451, 13, 33, "Input",ExpressionUUID->"d406bf7e-0f50-488e-ace4-9ccd27217865"],
Cell[474561, 13639, 231, 4, 35, "Output",ExpressionUUID->"0e6a21e1-db59-41db-969b-4fce83080e56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[474829, 13648, 311, 6, 31, "Input",ExpressionUUID->"ba64bff4-11ce-491e-9ca1-1c88946429d6"],
Cell[475143, 13656, 18775, 541, 463, "Output",ExpressionUUID->"d56edd20-22c1-4a98-ab9c-1acbd0a56c22"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[493967, 14203, 741, 20, 56, "Subsubsection",ExpressionUUID->"1564932a-be64-474d-a784-3226d52d74ed"],
Cell[CellGroupData[{
Cell[494733, 14227, 4068, 109, 133, "Input",ExpressionUUID->"33f6988a-3595-4f85-96c5-0e1df9161c7a"],
Cell[498804, 14338, 208, 4, 35, "Output",ExpressionUUID->"3f5f66f3-c316-45a9-a2c3-4f539242a2fc"]
}, Open  ]],
Cell[499027, 14345, 926, 26, 53, "Input",ExpressionUUID->"188af720-1453-4d58-b97e-ce9be2d7cff9"],
Cell[499956, 14373, 8058, 227, 224, "Input",ExpressionUUID->"8e03a4ab-a91b-4bec-86bd-2afc64123105"],
Cell[CellGroupData[{
Cell[508039, 14604, 255, 5, 31, "Input",ExpressionUUID->"e8283aea-a60b-41e1-8aa5-58aaa9651c1c"],
Cell[508297, 14611, 1362, 34, 59, "Output",ExpressionUUID->"5578504c-f1d1-415f-b89d-9921c2760b37"]
}, Open  ]],
Cell[509674, 14648, 130, 3, 31, "Input",ExpressionUUID->"f0e3fd33-b2ec-45d4-9f4c-2e776a0be3f5"],
Cell[509807, 14653, 3646, 94, 150, "Input",ExpressionUUID->"d1d938b4-cada-4049-9768-3e7b444949de"],
Cell[CellGroupData[{
Cell[513478, 14751, 238, 5, 31, "Input",ExpressionUUID->"db253eae-3d73-49b6-927b-c61eb46368fb"],
Cell[513719, 14758, 1094, 30, 94, "Output",ExpressionUUID->"8161da0a-ac57-4b6d-84be-472134b75948"]
}, Open  ]],
Cell[514828, 14791, 8277, 218, 199, "Input",ExpressionUUID->"2630f372-4d97-4a7e-a21d-e98bd897d660"],
Cell[CellGroupData[{
Cell[523130, 15013, 2060, 60, 77, "Input",ExpressionUUID->"7315c79e-33be-497e-92b9-956041a179d7"],
Cell[525193, 15075, 256, 7, 35, "Output",ExpressionUUID->"f8d6ee59-7ae4-4dc6-a3f1-386fb0790fde"]
}, Open  ]],
Cell[525464, 15085, 1510, 44, 31, "Input",ExpressionUUID->"de848873-cd2e-4142-b41e-063ab919e5cf"],
Cell[CellGroupData[{
Cell[526999, 15133, 1588, 48, 63, "Input",ExpressionUUID->"c0948052-98cb-45ab-866f-31ce543f67ff"],
Cell[528590, 15183, 198, 5, 35, "Output",ExpressionUUID->"9958d326-a98a-49cb-9f2a-b0f84e53d4c8"]
}, Open  ]],
Cell[528803, 15191, 2706, 84, 123, "Input",ExpressionUUID->"282875b8-0b79-4c27-83da-ad6fa3e1df9e"],
Cell[531512, 15277, 4018, 109, 152, "Input",ExpressionUUID->"8f10f7b8-7b23-4817-896e-ea08b13012c3"],
Cell[CellGroupData[{
Cell[535555, 15390, 449, 13, 33, "Input",ExpressionUUID->"f0d3d7cf-a84d-4b59-b42a-821f853411c7"],
Cell[536007, 15405, 155, 3, 35, "Output",ExpressionUUID->"06bb0c09-85a4-4b76-8e45-8175cdda7e6d"]
}, Open  ]],
Cell[536177, 15411, 18441, 517, 404, "Input",ExpressionUUID->"99edc765-cf5a-4e74-b36a-53d8a53fc7a0"],
Cell[554621, 15930, 6527, 171, 175, "Input",ExpressionUUID->"e3fe05cb-1d6a-4ea1-8edc-82e09eb74c79"],
Cell[561151, 16103, 402, 8, 36, "Text",ExpressionUUID->"ea237bd9-b2a6-44ff-a8d0-bfa982410cc4"],
Cell[CellGroupData[{
Cell[561578, 16115, 300, 6, 31, "Input",ExpressionUUID->"549a7c5e-5bc3-4220-8db7-dabfb2be87c6"],
Cell[561881, 16123, 3009, 84, 105, "Output",ExpressionUUID->"b08b4cec-7427-4a23-89c9-39cb6f92b137"]
}, Open  ]],
Cell[CellGroupData[{
Cell[564927, 16212, 179, 3, 31, "Input",ExpressionUUID->"4f09a87d-51ae-4304-a7b2-18fd83898162"],
Cell[565109, 16217, 50692, 1467, 1082, "Output",ExpressionUUID->"5d45587a-a0aa-4811-bef5-b7a969659504"]
}, Open  ]]
}, Open  ]]
}
]
*)