CountingInEFT_original_version.nb

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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    401828,      11025]
NotebookOptionsPosition[    386499,      10755]
NotebookOutlinePosition[    387002,      10774]
CellTagsIndexPosition[    386959,      10771]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Counting operators in Effective Field Theories", "Title",
 CellChangeTimes->{{3.867663017322501*^9, 
  3.867663028303277*^9}},ExpressionUUID->"d46217a4-32c1-4844-8e06-\
546954f8460d"],

Cell["\<\
by Jon\[AAcute]\[SHacek] Dujava   [ https://github.com/jdujava/CountingInEFT ]\
\>", "Author",
 CellChangeTimes->{{3.867663269543338*^9, 3.867663289150105*^9}, {
  3.8695360297356787`*^9, 3.8695360852641687`*^9}, {3.8695486220489197`*^9, 
  3.869548622912086*^9}, {3.869548666394038*^9, 3.86954867039769*^9}, {
  3.869548705809416*^9, 
  3.869548706573472*^9}},ExpressionUUID->"6b452623-8c39-4bcf-a977-\
cff0cbb5eca7"],

Cell[TextData[{
 "This is an accompanying Mathematica ",
 StyleBox["\[MathematicaIcon]",
  FontSize->24],
 " notebook to the ",
 ButtonBox["bachelor thesis",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://github.com/jdujava/CountingInEFT/blob/main/CountingInEFT.\
pdf"], None},
  ButtonNote->
   "https://github.com/jdujava/CountingInEFT/blob/main/CountingInEFT.pdf"],
 " with the same title,\nused for calculations in Section 5. We apply the \
developed group theoretical formalism to count \noperators for a single \
scalar field, and also a more complex  case of the electromagnetic field. \n\
Throughout the notebook we use ",
 StyleBox["q",
  FontColor->RGBColor[0, 0, 1]],
 " as a grading parameter corresponding to derivatives."
}], "Text",
 CellChangeTimes->{{3.869535748857335*^9, 3.869535996722693*^9}, {
   3.869536107796083*^9, 3.8695361206251707`*^9}, {3.869536815305542*^9, 
   3.869536815641944*^9}, {3.8695376793631887`*^9, 3.869537679364215*^9}, {
   3.869548513088525*^9, 3.869548515569406*^9}, {3.869548556276116*^9, 
   3.869548583559882*^9}, {3.8695488398764067`*^9, 3.869548935533424*^9}, {
   3.8695489867760363`*^9, 3.869549066493704*^9}, 3.869549133147147*^9, {
   3.869549248061647*^9, 
   3.8695493214334383`*^9}},ExpressionUUID->"4e1d67bb-f14c-4135-8c0e-\
5cbb4f241604"],

Cell[CellGroupData[{

Cell["Misc functions", "Section",
 CellChangeTimes->{{3.867571783187276*^9, 3.867571791228703*^9}, {
  3.8675756116594954`*^9, 3.867575614432526*^9}, {3.867663032964135*^9, 
  3.8676630363754683`*^9}},ExpressionUUID->"794fe1e9-d4b7-4781-86c7-\
11ac1b0f9f9d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "helper", " ", "function", " ", "to", " ", "format", " ", "and", " ", 
    "count", " ", "the", " ", "output", " ", "of", " ", 
    RowBox[{"Roots", "[", "...", "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{"TallyThis", "=", 
    RowBox[{
     RowBox[{"Flatten", "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"ToRules", "@", "#"}], "}"}], " ", "/.", 
         RowBox[{"Rule", "->", "List"}]}], " ", "//", " ", "Tally"}], ")"}]}],
      "&"}]}], " ", ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.867664717775629*^9, 3.8676647200183268`*^9}, {
  3.869535081152977*^9, 3.8695351490025663`*^9}, {3.8695503768634167`*^9, 
  3.869550377180854*^9}},ExpressionUUID->"3b35da99-8fd9-40f8-a865-\
cb60383663b9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "extending", " ", "Simplify", " ", "by", " ", "the", " ", "transformation",
     " ", "function", " ", "of", " ", "Cancel", " ", "with", " ", "automatic",
     " ", "extension", " ", "to", " ", "roots", " ", "of", " ", "unity"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"without", " ", "this"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "sometimes", " ", "Mathematica", " ", "calulates", " ", "wrong", " ", 
       "residues"}], "..."}], " ", "see", " ", "next", " ", "section"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"CancelExtension", "[", "f_", "]"}], ":=", 
    RowBox[{"Cancel", "[", 
     RowBox[{"f", ",", 
      RowBox[{"Extension", "\[Rule]", "Automatic"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SimplifyCancel", "[", "f_", "]"}], ":=", 
    RowBox[{"Simplify", "[", 
     RowBox[{"f", ",", 
      RowBox[{"TransformationFunctions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"CancelExtension", ",", "Automatic"}], "}"}]}], ",", 
      RowBox[{"TimeConstraint", "\[Rule]", "10"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplifyCancel", "[", "f_", "]"}], ":=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"f", ",", 
      RowBox[{"TransformationFunctions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"CancelExtension", ",", "Automatic"}], "}"}]}]}], 
     "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8544459018425713`*^9, 3.854445920899569*^9}, {
   3.854445979575186*^9, 3.8544460066281033`*^9}, {3.85444630156667*^9, 
   3.854446303821948*^9}, {3.854446348220899*^9, 3.854446370693242*^9}, {
   3.854446402163889*^9, 3.854446403525092*^9}, {3.854446825470883*^9, 
   3.854446832020091*^9}, {3.8544471159516697`*^9, 3.8544471405100594`*^9}, {
   3.854447540580348*^9, 3.854447550016005*^9}, {3.8566911099314127`*^9, 
   3.8566911120042343`*^9}, {3.866976342996633*^9, 3.866976343105657*^9}, {
   3.8669870888810453`*^9, 3.866987089008608*^9}, {3.867578871780078*^9, 
   3.867578872145953*^9}, {3.867658878887076*^9, 3.867658979136766*^9}, {
   3.867659092667492*^9, 3.867659094434545*^9}, {3.8676591311224413`*^9, 
   3.8676591346254807`*^9}, {3.8676594779860163`*^9, 3.867659489113645*^9}, {
   3.867659520515472*^9, 3.86765954083055*^9}, {3.867659611586279*^9, 
   3.8676596122854633`*^9}, {3.867659792262123*^9, 3.867659798188078*^9}, {
   3.867659848961779*^9, 3.867659869465485*^9}, {3.867660128777286*^9, 
   3.867660130974615*^9}, {3.867660948105144*^9, 3.867660948551442*^9}, {
   3.867661130583742*^9, 3.867661130823719*^9}, 3.867664713624722*^9, {
   3.869535173896304*^9, 3.869535316410198*^9}, {3.869535411943206*^9, 
   3.869535413040909*^9}, {3.869537732464822*^9, 3.869537742488447*^9}, {
   3.869557878710168*^9, 
   3.869557879071417*^9}},ExpressionUUID->"4790f6c9-2ee9-4b40-8eb8-\
57e248296399"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "helper", " ", "function", " ", "to", " ", "factor", " ", "out", " ", 
    "some", " ", "terms", " ", "from", " ", "an", " ", "expression"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "used", " ", "to", " ", "bring", " ", "Hilbert", " ", "series", " ", "to", 
    " ", "their", " ", "\"\<canonical form\>\""}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FactorOut", "[", 
     RowBox[{"f_List", ",", "factor_"}], "]"}], ":=", 
    RowBox[{"Flatten", "@", 
     RowBox[{"MapAt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"FactorOut", "[", 
         RowBox[{"#", ",", "factor"}], "]"}], "&"}], ",", "f", ",", "1"}], 
      "]"}]}]}], "\n", 
   RowBox[{
    RowBox[{"FactorOut", "[", 
     RowBox[{"f_", ",", "factor_"}], "]"}], ":=", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"rest", "=", 
        RowBox[{"Cancel", "[", 
         RowBox[{"f", "/", "factor"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"rest", "===", 
         RowBox[{"f", "/", "factor"}]}], ",", "\[IndentingNewLine]", "f", ",",
         "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ExpandNumerator", "@", 
           RowBox[{"FullSimplify", "@", "rest"}]}], ",", "factor"}], "}"}]}], 
       "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
     "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8543659511991653`*^9, 3.854366015774249*^9}, {
   3.854366053949772*^9, 3.854366151599998*^9}, {3.85436618841238*^9, 
   3.8543661899081173`*^9}, {3.854366263926372*^9, 3.8543662820647087`*^9}, 
   3.854366322808639*^9, {3.8543663726800957`*^9, 3.854366372888185*^9}, {
   3.8543665830879107`*^9, 3.8543665845592117`*^9}, {3.854366700010538*^9, 
   3.854366785284607*^9}, {3.854366837628181*^9, 3.8543668625704317`*^9}, {
   3.8543669563476877`*^9, 3.85436696562071*^9}, {3.854367175349861*^9, 
   3.8543671765532627`*^9}, {3.854367475663397*^9, 3.854367502478174*^9}, {
   3.854367592862443*^9, 3.854367649487378*^9}, 3.854367775331854*^9, {
   3.854368324936247*^9, 3.85436838135003*^9}, {3.85436849307738*^9, 
   3.854368499202489*^9}, {3.85436854673365*^9, 3.854368548235236*^9}, {
   3.854368736877632*^9, 3.8543687383123407`*^9}, {3.854369176311404*^9, 
   3.854369197190629*^9}, {3.854369441334749*^9, 3.854369449418289*^9}, {
   3.854377985938653*^9, 3.854377987801832*^9}, {3.854386968780857*^9, 
   3.854386971330792*^9}, {3.867661504322968*^9, 3.867661511877331*^9}, {
   3.867661585133521*^9, 3.867661594299535*^9}, {3.869535322178479*^9, 
   3.869535400028688*^9}, {3.869574183592794*^9, 3.869574195677124*^9}},
 CellLabel->
  "In[436]:=",ExpressionUUID->"2e444cfc-7d43-4456-8d25-bc48c14da71f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"for", " ", "example"}], " ", ".."}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"FactorOut", "[", 
   RowBox[{
    RowBox[{"1", "-", 
     SuperscriptBox["q", "8"]}], ",", 
    RowBox[{"1", "-", 
     SuperscriptBox["q", "2"]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8695740810364017`*^9, 3.86957410336086*^9}, {
  3.869574218396758*^9, 3.869574231107449*^9}},
 CellLabel->
  "In[441]:=",ExpressionUUID->"f5098363-e6d6-4ae3-91ad-0b94d927bf23"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox["q", "6"], "+", 
     SuperscriptBox["q", "4"], "+", 
     SuperscriptBox["q", "2"], "+", "1"}], ",", 
    RowBox[{"1", "-", 
     SuperscriptBox["q", "2"]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.869574099226474*^9, 3.869574132265236*^9}, {
   3.869574184757393*^9, 3.869574202601788*^9}, 3.869574233027732*^9},
 CellLabel->
  "Out[441]=",ExpressionUUID->"315bc52a-08b5-4e83-8160-57e88f02fcd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Times", "@@", 
  RowBox[{"FactorOut", "[", 
   RowBox[{
    RowBox[{"1", "-", 
     SuperscriptBox["q", "8"]}], ",", 
    RowBox[{"1", "-", 
     SuperscriptBox["q", "2"]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.869574111691823*^9, 3.8695741129641047`*^9}},
 CellLabel->
  "In[442]:=",ExpressionUUID->"b02491d9-54c0-44cf-bd24-316badc45fed"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["q", "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["q", "6"], "+", 
     SuperscriptBox["q", "4"], "+", 
     SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.869574113429358*^9, {3.86957420576327*^9, 3.869574234330326*^9}},
 CellLabel->
  "Out[442]=",ExpressionUUID->"ecec7ed3-cd9a-4ef0-8f2e-1bd5f827c309"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"%", "==", 
   RowBox[{"1", "-", 
    SuperscriptBox["q", "8"]}]}], " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8695741178629637`*^9, 3.869574125955714*^9}},
 CellLabel->
  "In[443]:=",ExpressionUUID->"acad0927-8cad-46ad-962b-b5bf1f1b899e"],

Cell[BoxData[
 FormBox["True", TraditionalForm]], "Output",
 CellChangeTimes->{
  3.869574126275737*^9, {3.8695742099386587`*^9, 3.869574235568799*^9}},
 CellLabel->
  "Out[443]=",ExpressionUUID->"90395b6a-bb93-4a7a-8751-fc7edc3df0e6"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mathematica is sometimes wrong", "Section",
 CellChangeTimes->{{3.869548402707242*^9, 
  3.869548407968651*^9}},ExpressionUUID->"1a927533-dd05-4c3b-91e1-\
7f2d452fbbcb"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"consider", " ", "following", " ", "term"}], ",", " ", 
   RowBox[{
   "which", " ", "is", " ", "actually", " ", "the", " ", "last", " ", 
    "summand", " ", "of", " ", 
    RowBox[{"IntegrandsScalar", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.8695501901022377`*^9, 3.869550197478615*^9}, {
  3.869550269908084*^9, 
  3.869550292202958*^9}},ExpressionUUID->"84bbe220-141d-4e4d-983d-\
782823ab7446"],

Cell[BoxData[
 RowBox[{
  RowBox[{"term", "=", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "10"]}], ")"}], " ", 
     SuperscriptBox["x", "3"], " ", 
     SuperscriptBox["y", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", "x"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", "x"}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", "y"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", "y"}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"x", "-", "y"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"x", " ", "y"}]}], ")"}]}], 
    RowBox[{"20", " ", 
     SuperscriptBox["\[Pi]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "5"], "-", 
       SuperscriptBox["x", "5"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "5"], " ", 
        SuperscriptBox["x", "5"]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "5"], "-", 
       SuperscriptBox["y", "5"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "5"], " ", 
        SuperscriptBox["y", "5"]}], "-", "1"}], ")"}]}]]}], ";"}]], "Input",
 CellChangeTimes->{{3.853574502189842*^9, 3.8535745378734283`*^9}, {
   3.8535747445728827`*^9, 3.853574746467349*^9}, {3.853574780058545*^9, 
   3.853574781776017*^9}, {3.853574852518618*^9, 3.853574852811564*^9}, {
   3.853575164930929*^9, 3.853575176800325*^9}, 3.855507357630788*^9, {
   3.869549573378759*^9, 3.869549594555521*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"25b019a3-0c2d-4c5c-82dd-b533249b28c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "try", " ", "to", " ", "calculate", " ", "one", " ", "particular", " ", 
    "residue", " ", "using", " ", "Mathematica", " ", "function", " ", 
    RowBox[{"Residue", "[", "...", "]"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"res1", "=", 
   RowBox[{"Residue", "[", 
    RowBox[{"term", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"-", 
         RadicalBox[
          RowBox[{"-", "1"}], "5"]}], " ", "q"}]}], "}"}]}], "]"}], 
   " "}]}]], "Input",
 CellChangeTimes->{{3.853574540740863*^9, 3.853574682303877*^9}, {
   3.85357477139748*^9, 3.853574821185408*^9}, {3.853574857648471*^9, 
   3.853574880268067*^9}, {3.853575063222035*^9, 3.853575103222211*^9}, 
   3.853575205416709*^9, {3.8540398429304028`*^9, 3.854039847571858*^9}, {
   3.855507362584148*^9, 3.8555073629348087`*^9}, {3.869549596467786*^9, 
   3.869549596796241*^9}, {3.869549881989243*^9, 3.8695499003079557`*^9}, 
   3.869550405620021*^9, {3.869550475882082*^9, 3.869550497478429*^9}, {
   3.869551105222055*^9, 3.869551105741037*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"96e00ba3-894b-4c84-bafc-e993a42215e5"],

Cell[BoxData[
 FormBox["0", TraditionalForm]], "Output",
 CellChangeTimes->{{3.853574553452224*^9, 3.853574687544348*^9}, {
   3.853574750885686*^9, 3.8535748234567204`*^9}, {3.853574855030341*^9, 
   3.8535748807202587`*^9}, {3.853575065643659*^9, 3.853575103554152*^9}, {
   3.853575178886489*^9, 3.853575205723672*^9}, 3.853576800814515*^9, 
   3.853681498136673*^9, 3.853681611782619*^9, 3.854039689528803*^9, 
   3.854039728933433*^9, {3.854039843787095*^9, 3.854039847893725*^9}, 
   3.8540989437849073`*^9, 3.85550673826877*^9, 3.8555073634298487`*^9, 
   3.869549597252398*^9, {3.869549884584072*^9, 3.869549900682498*^9}, 
   3.869550406214636*^9, {3.869550476214517*^9, 3.869550505538529*^9}, 
   3.8695511109865294`*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"a4d5782c-4acd-49e2-8c89-75345facee4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "use", " ", "formula", " ", "for", " ", "residue", " ", "in", 
    " ", "the", " ", "case", " ", "of", " ", "a", " ", "simple", " ", 
    "pole"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "also", " ", "try", " ", "to", " ", "calculate", " ", "with", 
    " ", "several", " ", "equivalent", " ", "expressions"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a", "=", 
    RowBox[{"term", " ", 
     RowBox[{"(", 
      RowBox[{"x", "+", 
       RowBox[{
        RadicalBox[
         RowBox[{"-", "1"}], "5"], " ", "q"}]}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b", "=", 
    RowBox[{"Cancel", "[", 
     RowBox[{"term", " ", 
      RowBox[{"(", 
       RowBox[{"x", "+", 
        RowBox[{
         RadicalBox[
          RowBox[{"-", "1"}], "5"], " ", "q"}]}], ")"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"c", "=", 
    RowBox[{"Cancel", "[", 
     RowBox[{
      RowBox[{"term", " ", 
       RowBox[{"(", 
        RowBox[{"x", "+", 
         RowBox[{
          RadicalBox[
           RowBox[{"-", "1"}], "5"], " ", "q"}]}], ")"}]}], ",", 
      RowBox[{"Extension", "\[Rule]", 
       RadicalBox[
        RowBox[{"-", "1"}], "5"]}]}], " ", "]"}]}]}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQbWDoliGz7Y3j/iebC0D09yjHNhD9c89nML3OxqkH
RNdJFE0G0fe+3w36D6QvVXWEgmjeD0pxIJotRCAeRHcUn/96eucbRyZr2W8g
muf63NVTrrxxzONQ3giip/wx3A+iJ8+adgREZ0RuegmiC+I834DoE8eWfQDR
RyaLfwTRezYWfQXRZcniP0G0z5Ych6lAOmF1H5i+k8V4DkRbruQG002TJS6D
6LaE6VdAdN4Lmbsguurn94cg+n0Yq/I0kDnH/4LpxVHR1TOAdN/tuQ0gWu+m
6TwQvUu7eT6Izjnivx1Em0VJ7gPRAIjLsa0=
  
  "],ExpressionUUID->"26bd0520-f1ab-4246-8123-c7a85c32e519"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "10"]}], ")"}], " ", 
    SuperscriptBox["x", "3"], " ", 
    SuperscriptBox["y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", "q"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", "x"}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", "y"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", "y"}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"x", " ", "y"}]}], ")"}]}], 
   RowBox[{"20", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "5"], "-", 
      SuperscriptBox["x", "5"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "5"], " ", 
       SuperscriptBox["x", "5"]}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "5"], "-", 
      SuperscriptBox["y", "5"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "5"], " ", 
       SuperscriptBox["y", "5"]}], "-", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577728602*^9, 3.869557788316633*^9}, 
   3.86955790375309*^9, 3.869558012467504*^9, 3.869558184774584*^9},
 CellLabel->
  "Out[275]=",ExpressionUUID->"8cd88d12-7328-437b-bb03-929157d74f13"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "10"], "-", "1"}], ")"}], " ", 
    SuperscriptBox["x", "3"], " ", 
    SuperscriptBox["y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", "q"}], "+", "x"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", " ", "y"}], "-", "1"}], ")"}]}], 
   RowBox[{"20", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", "x"}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"q", " ", 
       SuperscriptBox["x", "3"]}], "+", 
      SuperscriptBox["x", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox["x", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       SuperscriptBox["x", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"q", " ", "x"}], "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", "y"}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", 
       SuperscriptBox["y", "3"]}], "+", 
      SuperscriptBox["y", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox["y", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       SuperscriptBox["y", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", "y"}], "+", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577728602*^9, 3.869557788316633*^9}, 
   3.86955790375309*^9, 3.869558012467504*^9, 3.869558184806068*^9},
 CellLabel->
  "Out[276]=",ExpressionUUID->"e0d9f8dd-b594-4d81-b805-e78b0f99bdec"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RadicalBox[
     RowBox[{"-", "1"}], "5"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "10"], "-", "1"}], ")"}], " ", 
    SuperscriptBox["x", "3"], " ", 
    SuperscriptBox["y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", " ", "y"}], "-", "1"}], ")"}]}], 
   RowBox[{"20", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "3"], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "5"}]], " ", 
       SuperscriptBox["q", "2"], " ", "x"}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "5"}]], " ", 
       SuperscriptBox["q", "2"], " ", "x"}], "+", 
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", 
       SuperscriptBox["q", "2"], " ", "x"}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "5"}]], " ", "q", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", "q", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", 
       SuperscriptBox["x", "3"]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox["x", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       SuperscriptBox["x", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["x", "2"]}], "+", 
      RowBox[{"q", " ", "x"}], "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", "y"}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", 
       SuperscriptBox["y", "3"]}], "+", 
      SuperscriptBox["y", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox["y", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       SuperscriptBox["y", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", "y"}], "+", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577728602*^9, 3.869557788316633*^9}, 
   3.86955790375309*^9, 3.869558012467504*^9, 3.8695581848388977`*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"8517c357-716d-46b5-9864-70ca367e2621"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "use", " ", "formula", " ", "for", " ", "residue", " ", "in", 
    " ", "the", " ", "case", " ", "of", " ", "a", " ", "simple", " ", 
    "pole"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"res2", "=", 
    RowBox[{
     RowBox[{"Limit", "[", 
      RowBox[{"a", ",", 
       RowBox[{"x", "->", 
        RowBox[{
         RowBox[{"-", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"]}], " ", "q"}]}]}], "]"}], " ", "//", " ", 
     "SimplifyCancel"}]}], "\[IndentingNewLine]", 
   RowBox[{"res3", "=", 
    RowBox[{
     RowBox[{"Limit", "[", 
      RowBox[{"b", ",", 
       RowBox[{"x", "->", 
        RowBox[{
         RowBox[{"-", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"]}], " ", "q"}]}]}], "]"}], " ", "//", " ", 
     "SimplifyCancel"}]}], "\[IndentingNewLine]", 
   RowBox[{"res4", "=", 
    RowBox[{
     RowBox[{"Limit", "[", 
      RowBox[{"c", ",", 
       RowBox[{"x", "->", 
        RowBox[{
         RowBox[{"-", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"]}], " ", "q"}]}]}], "]"}], " ", "//", " ", 
     "SimplifyCancel"}]}]}]}]], "Input",
 CellChangeTimes->{{3.869557771506222*^9, 3.869557785643096*^9}, {
  3.869558026623831*^9, 3.869558076734789*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"804fe748-09de-46bb-a382-5a764d11d45b"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RadicalBox[
     RowBox[{"-", "1"}], "5"], " ", 
    SuperscriptBox["y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        RadicalBox[
         RowBox[{"-", "1"}], "5"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"]}], ")"}], " ", 
        SuperscriptBox["q", "4"], " ", "y"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RadicalBox[
          RowBox[{"-", "1"}], "5"]}], ")"}], " ", 
       SuperscriptBox["q", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "2"], "+", "1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RadicalBox[
          RowBox[{"-", "1"}], "5"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"4", "/", "5"}]]}], ")"}], " ", 
       SuperscriptBox["q", "2"], " ", "y"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"4", "/", "5"}]], "-", "1"}], ")"}], " ", "q", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "2"], "+", "1"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "5"}]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RadicalBox[
          RowBox[{"-", "1"}], "5"]}], ")"}], " ", "y"}]}], ")"}]}], 
   RowBox[{"100", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "8"], " ", 
       SuperscriptBox["y", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "7"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "5"], "+", 
         SuperscriptBox["y", "3"]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["q", "6"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "6"], "+", 
         SuperscriptBox["y", "4"], "+", 
         SuperscriptBox["y", "2"]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["q", "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "7"], "+", 
         SuperscriptBox["y", "5"], "+", 
         SuperscriptBox["y", "3"], "+", "y"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "8"], "+", 
         SuperscriptBox["y", "6"], "+", 
         SuperscriptBox["y", "4"], "+", 
         SuperscriptBox["y", "2"], "+", "1"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "7"], "+", 
         SuperscriptBox["y", "5"], "+", 
         SuperscriptBox["y", "3"], "+", "y"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "6"], "+", 
         SuperscriptBox["y", "4"], "+", 
         SuperscriptBox["y", "2"]}], ")"}]}], "+", 
      RowBox[{"q", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["y", "5"], "+", 
         SuperscriptBox["y", "3"]}], ")"}]}], "+", 
      SuperscriptBox["y", "4"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577072213984`*^9, 3.869557731321227*^9}, {
   3.8695577673575897`*^9, 3.869557789944561*^9}, {3.8695580164724216`*^9, 
   3.8695580915210953`*^9}, 3.869558272069347*^9},
 CellLabel->
  "Out[278]=",ExpressionUUID->"1b425d84-fd6a-4f28-87c0-e56335d974ec"],

Cell[BoxData[
 FormBox["0", TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577072213984`*^9, 3.869557731321227*^9}, {
   3.8695577673575897`*^9, 3.869557789944561*^9}, {3.8695580164724216`*^9, 
   3.8695580915210953`*^9}, 3.8695582722549133`*^9},
 CellLabel->
  "Out[279]=",ExpressionUUID->"6c1d2b6e-e5ec-4928-a518-270348d8df48"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"4", "/", "5"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "10"], "-", "1"}], ")"}], " ", 
    SuperscriptBox["y", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", "q"}], "+", "y"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", "q", " ", "y"}], "+", "1"}], ")"}]}], 
   RowBox[{"20", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "/", "5"}]], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "5"}]]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"4", "/", "5"}]]}]}], ")"}], " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"4", "/", "5"}]], " ", 
       SuperscriptBox["q", "8"]}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"3", "/", "5"}]], " ", 
       SuperscriptBox["q", "6"]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "5"}]], " ", 
       SuperscriptBox["q", "4"]}], "-", 
      RowBox[{
       RadicalBox[
        RowBox[{"-", "1"}], "5"], " ", 
       SuperscriptBox["q", "2"]}], "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", "y"}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", 
       SuperscriptBox["y", "3"]}], "+", 
      SuperscriptBox["y", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox["y", "4"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "3"], " ", 
       SuperscriptBox["y", "3"]}], "+", 
      RowBox[{
       SuperscriptBox["q", "2"], " ", 
       SuperscriptBox["y", "2"]}], "+", 
      RowBox[{"q", " ", "y"}], "+", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8695577072213984`*^9, 3.869557731321227*^9}, {
   3.8695577673575897`*^9, 3.869557789944561*^9}, {3.8695580164724216`*^9, 
   3.8695580915210953`*^9}, 3.869558272279024*^9},
 CellLabel->
  "Out[280]=",ExpressionUUID->"6a893b00-8720-4ad9-a2ee-f6dfdfcef36f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"res2", " ", "==", " ", "res4"}], " ", "//", " ", 
  "FullSimplifyCancel"}]], "Input",
 CellChangeTimes->{{3.8695529403079453`*^9, 3.869552960161125*^9}, {
  3.869557807112133*^9, 3.8695578465248833`*^9}, {3.869558155273574*^9, 
  3.869558171695961*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"6c482a73-fe1b-4c37-8410-6ff814824fbb"],

Cell[BoxData[
 FormBox["True", TraditionalForm]], "Output",
 CellChangeTimes->{{3.869552946359921*^9, 3.869552962258527*^9}, {
   3.869557804522614*^9, 3.869557846832239*^9}, 3.86955803302325*^9, 
   3.8695580935235567`*^9, {3.869558153186339*^9, 3.869558172025044*^9}, 
   3.8695582738095903`*^9},
 CellLabel->
  "Out[281]=",ExpressionUUID->"d8607638-7eec-4f2d-b0bd-dfa3f6308cd1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"we", " ", "obtained", " ", "different", " ", "results"}], 
      "..."}], " ", "mathematica", " ", "has", " ", "sometimes", " ", 
     "problems", " ", "recognising", " ", "zeros", " ", "of", " ", 
     "polynomials", "\[IndentingNewLine]", "  ", "of", " ", "sufficient", " ",
      "degree"}], ",", " ", 
    RowBox[{"so", " ", 
     RowBox[{"Residue", "[", "...", "]"}], " ", "or", " ", 
     RowBox[{"Limit", "[", "...", "]"}], " ", "sometimes", " ", "do", " ", 
     "not", " ", "recognize", " ", "the", " ", "pole"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"in", " ", "this", " ", "case"}], ",", " ", 
    RowBox[{
    "calculation", " ", "of", " ", "the", " ", "limit", " ", "with", " ", 
     "the", " ", "original", " ", "expression", " ", "leads", " ", "to", " ", 
     "the", " ", "correct", " ", "result"}], ",", "\[IndentingNewLine]", 
    "   ", 
    RowBox[{
    "but", " ", "in", " ", "general", " ", "we", " ", "do", " ", "not", " ", 
     "have", " ", "such", " ", "pretty", " ", "factorized", " ", 
     "denominators"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.869551112807466*^9, 3.869551141664195*^9}, {
   3.86955117778474*^9, 3.869551197863944*^9}, {3.8695512289602747`*^9, 
   3.869551428575906*^9}, {3.869551507825695*^9, 3.869551540535059*^9}, {
   3.869558281709816*^9, 3.8695583722069597`*^9}, {3.869558431072803*^9, 
   3.869558673716387*^9}, {3.869558717650299*^9, 3.8695587224739237`*^9}, 
   3.869558759452726*^9},ExpressionUUID->"88b807db-4c6c-4bcf-98b1-\
9cbf05bb6e02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"it", " ", "seems", " ", "that", " ", "applying", " ", 
    RowBox[{"Cancel", "[", "...", "]"}], " ", "with", " ", "proper", " ", 
    "\"\<Extension -> ...\>\"", " ", "solves", " ", "this", " ", "issue"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "this", " ", "is", " ", "the", " ", "reason", " ", "why", " ", "we", " ", 
     "often", " ", "work", " ", "with", " ", "extended", " ", "function", " ", 
     RowBox[{"CancelExtension", "[", "...", "]"}]}], ",", " ", 
    RowBox[{"SimplifyCancel", "[", "...", "]"}], ",", " ", 
    "\[IndentingNewLine]", "   ", 
    RowBox[{"and", " ", 
     RowBox[{"FullSimplifyCancel", "[", "...", "]"}]}], ",", " ", 
    RowBox[{
    "which", " ", "are", " ", "also", " ", "more", " ", "efficient", " ", 
     "in", " ", "simplifying", " ", "expression", " ", "we", " ", 
     "encounter"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.869551112807466*^9, 3.869551141664195*^9}, {
  3.86955117778474*^9, 3.869551197863944*^9}, {3.8695512289602747`*^9, 
  3.869551428575906*^9}, {3.869551507825695*^9, 3.869551540535059*^9}, {
  3.869558281709816*^9, 3.8695583722069597`*^9}, {3.869558431072803*^9, 
  3.869558673716387*^9}, {3.869558717650299*^9, 3.8695587224739237`*^9}, {
  3.869558759452726*^9, 
  3.8695588880968647`*^9}},ExpressionUUID->"7a2cdcc9-47ad-4454-9ce1-\
cf8ae183ae4b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Single scalar field", "Chapter",
 CellChangeTimes->{{3.8676629678426*^9, 3.8676630084804688`*^9}, {
  3.867664691000258*^9, 
  3.86766469122169*^9}},ExpressionUUID->"7b4d1cf8-53dd-4b57-836d-\
6af94b653aee"],

Cell[CellGroupData[{

Cell[TextData[{
 "Graded character of SPGM ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["R", "\[CapitalPhi]"], TraditionalForm]],ExpressionUUID->
  "30c52b69-71ff-4a2e-b220-a4ca405da6ff"]
}], "Section",
 CellChangeTimes->{{3.8675739269973183`*^9, 3.867573930625811*^9}, {
  3.8675765651856813`*^9, 
  3.867576637057271*^9}},ExpressionUUID->"d1f3d3be-8f41-4737-826c-\
effbf11923c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"graded", " ", "character", " ", "of", " ", "S", 
     RowBox[{"(", "square", ")"}]}], ",", " ", 
    RowBox[{"see", " ", "Example", " ", "3.93"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"P", "[", "dim_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OddQ", "[", "dim", "]"}], ",", 
       FractionBox["1", 
        RowBox[{"1", "-", "q"}]], ",", "1"}], "]"}], " ", 
     RowBox[{"Product", "[", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"q", " ", 
            RowBox[{"x", "[", "i", "]"}]}]}], ")"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"q", "/", 
            RowBox[{"x", "[", "i", "]"}]}]}], ")"}]}]], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         FractionBox["dim", "2"]}], "}"}]}], "]"}]}], "//", 
    "Simplify"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8535193629194527`*^9, 3.85351950987061*^9}, {
  3.853519632857699*^9, 3.853519650751828*^9}, {3.8535201801506233`*^9, 
  3.85352021230056*^9}, {3.8535205462911777`*^9, 3.8535205570769176`*^9}, {
  3.853523907212435*^9, 3.853523909713171*^9}, {3.854091549331655*^9, 
  3.854091577473658*^9}, {3.855503568699638*^9, 3.855503611691415*^9}, {
  3.8555038263735037`*^9, 3.855503894066424*^9}, {3.855504364122096*^9, 
  3.855504364440958*^9}, {3.85565800469348*^9, 3.855658006617153*^9}, {
  3.867575541772565*^9, 3.8675755492835293`*^9}, {3.867575580067424*^9, 
  3.8675755825878487`*^9}, {3.867575746364197*^9, 3.867575847308831*^9}, {
  3.867577166601116*^9, 3.867577167576538*^9}, {3.867577205505149*^9, 
  3.867577222603962*^9}, {3.86757730297899*^9, 3.867577304212229*^9}, {
  3.869535571906805*^9, 3.869535629217174*^9}, {3.8695356696063347`*^9, 
  3.869535716266612*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"708cea87-7b3e-4300-bdf3-9ee644ad5047"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"P", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8535202139355917`*^9, 3.853520218262793*^9}, {
   3.853520743018201*^9, 3.853520743732575*^9}, 3.853520833439015*^9, {
   3.853522684635747*^9, 3.8535227418020573`*^9}, {3.854098233881208*^9, 
   3.854098234046796*^9}, {3.855503898192834*^9, 3.855503923977017*^9}, {
   3.85550398072148*^9, 3.8555039809466543`*^9}, {3.855504366455427*^9, 
   3.85550436676996*^9}, {3.8555044259219103`*^9, 3.855504426101117*^9}, {
   3.867574044138579*^9, 3.867574044694461*^9}, {3.86757472971902*^9, 
   3.8675747304844303`*^9}, {3.867575815064337*^9, 3.8675758362912807`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"2f5ef577-364a-4014-b522-5f8edcd12431"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"x", "(", "1", ")"}], " ", 
    RowBox[{"x", "(", "2", ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.853520218574929*^9, 3.853520559963085*^9, 3.853520744266767*^9, 
   3.8535208341219063`*^9, {3.8535226856489077`*^9, 3.853522742132298*^9}, 
   3.8535239109502068`*^9, 3.853555203715639*^9, {3.853772940423296*^9, 
   3.853772943134338*^9}, 3.8537731278856363`*^9, 3.85409158875415*^9, {
   3.85409823080645*^9, 3.854098234495817*^9}, 3.855503616569162*^9, {
   3.855503896296979*^9, 3.855503924401383*^9}, {3.8555039773485413`*^9, 
   3.855503981236169*^9}, 3.855504367071724*^9, 3.855504426471766*^9, 
   3.855658007751206*^9, 3.867573990509066*^9, {3.8675740329303207`*^9, 
   3.8675740453427677`*^9}, 3.8675747307896833`*^9, {3.867575817280249*^9, 
   3.867575848698381*^9}, {3.867577207916799*^9, 3.867577223922968*^9}, 
   3.867577305147407*^9, 3.867577512434023*^9, {3.8676478371130457`*^9, 
   3.86764788246506*^9}, 3.867648887965568*^9, 3.868502496540118*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"506f9b90-981d-433e-8f87-75d3007a713b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "see", " ", "Derivation", " ", "4.6", " ", "and", " ", "also", " ", 
    "Proposition", " ", "4.5"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]Rscalar", "[", "dim_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "2"]}], ")"}], 
    RowBox[{"P", "[", "dim", "]"}], " "}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.853523927364848*^9, 3.853524003089082*^9}, {
   3.853555582846987*^9, 3.853555583137467*^9}, {3.8555043728925343`*^9, 
   3.85550437330171*^9}, {3.867575527330429*^9, 3.867575528221806*^9}, {
   3.867576519761755*^9, 3.867576521838331*^9}, {3.8675766171289797`*^9, 
   3.867576639699774*^9}, {3.867577183757956*^9, 3.867577199251873*^9}, {
   3.867577232290181*^9, 3.867577232925448*^9}, 3.867577307740685*^9, {
   3.867663971023511*^9, 3.867663971140274*^9}, {3.869535653634069*^9, 
   3.869535660823482*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"89e4a310-a844-4138-87b7-d0afea0f468b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]Rscalar", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.853523963002144*^9, 3.853523966856641*^9}, {
  3.853555586392308*^9, 3.85355558766361*^9}, {3.8555039901168003`*^9, 
  3.855504000707851*^9}, {3.8675740548094*^9, 3.867574055334672*^9}, {
  3.867574733387115*^9, 3.867574734349016*^9}, {3.867575530168573*^9, 
  3.867575530878359*^9}, {3.867576515150957*^9, 3.867576529562695*^9}, {
  3.867577229363681*^9, 3.867577230113697*^9}, {3.867663974773864*^9, 
  3.867663974847293*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"8c07efb0-de64-4f62-9ca5-fae11548991a"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "2"]}], ")"}], " ", 
    RowBox[{"x", "(", "1", ")"}], " ", 
    RowBox[{"x", "(", "2", ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.853523967146999*^9, 3.8535240044930143`*^9}, 
   3.8535552053226833`*^9, 3.853555588358715*^9, 3.853772960376279*^9, 
   3.853773134346682*^9, {3.855503988151108*^9, 3.855504001141926*^9}, 
   3.855504374319626*^9, 3.855658010052846*^9, 3.8675739924124403`*^9, 
   3.867574055818983*^9, 3.867574691964559*^9, 3.86757473471255*^9, 
   3.867574811988227*^9, {3.867575531249778*^9, 3.867575534760824*^9}, {
   3.867576526125967*^9, 3.867576529835497*^9}, 3.867576642459031*^9, {
   3.867577190239986*^9, 3.8675772369176292`*^9}, 3.867577308913336*^9, 
   3.8675775135573673`*^9, {3.867647853468171*^9, 3.867647880440257*^9}, 
   3.867663975150504*^9, 3.868502497874579*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"4fa15d22-2c3f-4de7-a760-25a5f626a507"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Graded character of MPGM ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["J", "\[CapitalPhi]"], TraditionalForm]],ExpressionUUID->
  "a4f45fc7-85ee-40af-96f5-792880693c6f"],
 " \[LongDash] the Plethystic Exponential"
}], "Section",
 CellChangeTimes->{{3.8675758954987373`*^9, 3.8675759009697723`*^9}, {
  3.867662552582088*^9, 3.867662571363983*^9}, {3.867663062160268*^9, 
  3.867663065924004*^9}},ExpressionUUID->"ded2f8f9-a3cc-43c8-bb18-\
a87e9b8c30e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"see", " ", "Remark", " ", "3.73"}], ",", " ", 
    RowBox[{"where", " ", 
     RowBox[{"f", "[", "k", "]"}], " ", "represents", " ", "that", " ", 
     "arguments", " ", "are", " ", "to", " ", "be", " ", "raised", " ", "to", 
     " ", "the", " ", "kth", " ", "power"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PE", "[", "max_", "]"}], ":=", 
   RowBox[{"Exp", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        SuperscriptBox["\[Phi]", "k"], "k"], 
       RowBox[{"f", "[", "k", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "max"}], "}"}]}], "]"}], "]"}], 
   " "}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852888925449184*^9, 3.852888985912739*^9}, 
   3.852891449630836*^9, {3.8528914996653633`*^9, 3.852891529487076*^9}, {
   3.8528915910397778`*^9, 3.8528916171555853`*^9}, {3.852891667663062*^9, 
   3.852891669506547*^9}, {3.852891755766239*^9, 3.852891783498955*^9}, {
   3.852891820364215*^9, 3.852891859233159*^9}, {3.852891891812405*^9, 
   3.852891920717857*^9}, {3.852891971659007*^9, 3.852892006493855*^9}, {
   3.8528921580798903`*^9, 3.852892160367682*^9}, {3.852893302598329*^9, 
   3.852893304228015*^9}, 3.852979168197912*^9, {3.853086727243458*^9, 
   3.85308673177551*^9}, {3.853768232341387*^9, 3.853768235419918*^9}, {
   3.8675759417145967`*^9, 3.867575941831689*^9}, {3.86757724149543*^9, 
   3.867577242250887*^9}, {3.867662506425439*^9, 3.867662506584116*^9}, {
   3.869536438039752*^9, 3.869536493434853*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"e604f9ef-6282-45f6-b166-7e682ded1b8c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PE", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8543970360890837`*^9, 3.854397040449054*^9}, {
  3.8675759461898746`*^9, 3.867575946326111*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"7506fdb4-c6ea-4b56-b7ab-6f0de15efe7f"],

Cell[BoxData[
 FormBox[
  RowBox[{"exp", "(", 
   RowBox[{
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"f", "(", "4", ")"}], " ", 
     SuperscriptBox["\[Phi]", "4"]}], "+", 
    RowBox[{
     FractionBox["1", "3"], " ", 
     RowBox[{"f", "(", "3", ")"}], " ", 
     SuperscriptBox["\[Phi]", "3"]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"f", "(", "2", ")"}], " ", 
     SuperscriptBox["\[Phi]", "2"]}], "+", 
    RowBox[{
     RowBox[{"f", "(", "1", ")"}], " ", "\[Phi]"}]}], ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.852892161143462*^9, 3.852893305338572*^9, 3.852894048815751*^9, 
   3.852901095437958*^9, 3.852902222695343*^9, 3.85290228331432*^9, 
   3.852903849782547*^9, 3.852906053239449*^9, 3.8529212119648247`*^9, 
   3.852922715976571*^9, 3.852929032114512*^9, 3.852973421670269*^9, 
   3.8529782373087254`*^9, 3.852979717767192*^9, 3.8529879282236032`*^9, 
   3.852990168797647*^9, 3.853068059866811*^9, 3.853079769916792*^9, {
   3.853082454128764*^9, 3.85308246705448*^9}, {3.853086723678809*^9, 
   3.85308673205403*^9}, 3.853086782399557*^9, 3.853093417775673*^9, 
   3.853172715377112*^9, 3.853243074532449*^9, 3.853343475559226*^9, 
   3.853513974806497*^9, 3.853555102931669*^9, 3.853565494327334*^9, 
   3.853565906833281*^9, 3.853566418656652*^9, 3.853574131305874*^9, 
   3.8535781130439034`*^9, 3.85359456295724*^9, 3.853679690635819*^9, 
   3.853690404002945*^9, 3.8537492490841846`*^9, 3.853763198886286*^9, 
   3.853763652668236*^9, 3.853766891052018*^9, {3.853768223448578*^9, 
   3.853768236647972*^9}, {3.854397034821993*^9, 3.854397040704072*^9}, 
   3.855505113600103*^9, 3.855660926879959*^9, 3.8675751583547773`*^9, 
   3.867575949474271*^9, 3.867577243815896*^9, 3.867577515614159*^9, 
   3.867662509948674*^9, 3.868502500223803*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"1fbd2dec-de17-449e-8c80-226d4be429b2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"coefficient", " ", "in", " ", "front", " ", "of", " ", 
    SuperscriptBox["\[Phi]", "r"]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"PEpick\[Phi]", "[", "r_", "]"}], ":=", 
   RowBox[{
    RowBox[{"SeriesCoefficient", "[", 
     RowBox[{
      RowBox[{"PE", "[", "r", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", "r"}], "}"}]}], "]"}], " ", "//", 
    "Expand"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.85289168119865*^9, 3.852891719779003*^9}, {
  3.852891780100925*^9, 3.852891780426504*^9}, {3.852891864879958*^9, 
  3.852891869466662*^9}, {3.852891929355933*^9, 3.852891949084896*^9}, {
  3.852892012096717*^9, 3.8528920597659817`*^9}, {3.852892165806631*^9, 
  3.852892167995071*^9}, {3.8529899562519484`*^9, 3.852989958865942*^9}, {
  3.8529900467665863`*^9, 3.852990048643216*^9}, {3.853086735263094*^9, 
  3.8530867480941687`*^9}, {3.853086887474269*^9, 3.853086887710318*^9}, {
  3.853093383176532*^9, 3.8530933862646914`*^9}, {3.857921076317197*^9, 
  3.857921076917638*^9}, {3.867575964015296*^9, 3.867575964716857*^9}, {
  3.867576052423287*^9, 3.867576057420644*^9}, {3.8675762705014963`*^9, 
  3.8675762916213827`*^9}, {3.8675763851150417`*^9, 3.867576386311363*^9}, {
  3.869536503606312*^9, 3.869536507470475*^9}, {3.869536650743976*^9, 
  3.869536682480728*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"1a949c98-1b58-4a81-aff3-b20fcafd7f73"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PEpick\[Phi]", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8535560893550777`*^9, 3.8535560895801163`*^9}, {
  3.854397042586954*^9, 3.854397064479061*^9}, {3.857921118401276*^9, 
  3.8579211801665087`*^9}, {3.857921211731238*^9, 3.8579212353948174`*^9}, {
  3.867575967255351*^9, 3.867575967744095*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"129f5daa-d28c-40b7-ad81-c32858269f7d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"f", "(", "1", ")"}], "4"], "24"], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"f", "(", "2", ")"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "(", "1", ")"}], "2"]}], "+", 
   RowBox[{
    FractionBox["1", "3"], " ", 
    RowBox[{"f", "(", "3", ")"}], " ", 
    RowBox[{"f", "(", "1", ")"}]}], "+", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"f", "(", "2", ")"}], "2"], "8"], "+", 
   FractionBox[
    RowBox[{"f", "(", "4", ")"}], "4"]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.852892168427249*^9, 3.852893313140296*^9, 3.852894049930141*^9, 
   3.8529022240039377`*^9, 3.852902284241145*^9, 3.8529038518490677`*^9, 
   3.852906056170862*^9, 3.852921221962226*^9, 3.8529227182199697`*^9, 
   3.852929033426365*^9, 3.852973422696501*^9, 3.852978237404895*^9, 
   3.852979717831245*^9, 3.852987928256979*^9, 3.852989959173423*^9, 
   3.852990051278273*^9, 3.852990168828937*^9, 3.853068059965104*^9, 
   3.853079772889027*^9, {3.853082454162333*^9, 3.85308246708615*^9}, {
   3.8530867356639833`*^9, 3.8530867483399477`*^9}, 3.853086782439891*^9, 
   3.853086888017421*^9, {3.853093384579095*^9, 3.85309338784875*^9}, 
   3.8535560900901613`*^9, {3.8537682252511187`*^9, 3.853768238090004*^9}, 
   3.8540984467949953`*^9, {3.8543970429637814`*^9, 3.8543970647746162`*^9}, 
   3.8556609280489273`*^9, 3.857922309165609*^9, 3.867575972005087*^9, {
   3.867576272045107*^9, 3.867576293376416*^9}, 3.8675763874836617`*^9, 
   3.8675772451629972`*^9, 3.867577516762731*^9, 3.867662512317171*^9, 
   3.8685025015215673`*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"cc2e81d4-60bc-4410-9d49-12ccb07fdd81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"perform", " ", "the", " ", "\"\<Plethystic substitution\>\""}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PlethysticSub", "[", 
      RowBox[{"arg_", ",", "vars_", ",", "k_"}], "]"}], ":=", 
     RowBox[{"arg", "/.", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "->", 
          SuperscriptBox["#", "k"]}], "&"}], "/@", "vars"}], ")"}]}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PlethysticSub", "[", 
     RowBox[{"arg_", ",", "k_"}], "]"}], ":=", 
    RowBox[{"arg", "/.", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "->", 
         SuperscriptBox["#", "k"]}], "&"}], "/@", 
       RowBox[{"Variables", "[", "arg", "]"}]}], ")"}]}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.853555104731804*^9, 3.853555184086329*^9}, {
  3.854375855396718*^9, 3.85437586764214*^9}, {3.854375922290038*^9, 
  3.854375934152505*^9}, {3.8695366990692873`*^9, 3.869536712711953*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"8acd3134-8c7a-4551-9db2-d8cfe5595592"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"PlethysticSub", "[", 
    RowBox[{
     RowBox[{"\[Phi]", " ", "\[Alpha]", " ", "k"}], ",", 
     RowBox[{"Variables", "[", 
      RowBox[{"\[Phi]", " ", "k"}], "]"}], ",", "4"}], "]"}], ",", 
   RowBox[{"PlethysticSub", "[", 
    RowBox[{
     RowBox[{"\[Phi]", " ", "\[Alpha]", " ", "k"}], ",", "4"}], "]"}]}], 
  "}"}]], "Input",
 CellChangeTimes->{{3.853555186336296*^9, 3.853555222166737*^9}, {
  3.853555387097455*^9, 3.853555387730443*^9}, {3.853555598000296*^9, 
  3.853555599146234*^9}, {3.8535560196842422`*^9, 3.8535560282366877`*^9}, {
  3.853772994474924*^9, 3.8537729948032722`*^9}, {3.8543758781383657`*^9, 
  3.85437595525381*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"b8612638-10ab-426e-a8fd-a75a0f84a9e6"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Alpha]", " ", 
     SuperscriptBox["k", "4"], " ", 
     SuperscriptBox["\[Phi]", "4"]}], ",", 
    RowBox[{
     SuperscriptBox["\[Alpha]", "4"], " ", 
     SuperscriptBox["k", "4"], " ", 
     SuperscriptBox["\[Phi]", "4"]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8535552135662613`*^9, 3.853555222665304*^9}, 
   3.8535553882603903`*^9, {3.853555593371655*^9, 3.853555599728949*^9}, {
   3.853556020366522*^9, 3.853556029126093*^9}, {3.853772990645095*^9, 
   3.853772995372485*^9}, 3.853773135821772*^9, 3.854098294778493*^9, {
   3.854375869031999*^9, 3.854375955550487*^9}, 3.855504029369272*^9, 
   3.855504378726419*^9, 3.855504994651146*^9, 3.8556609297784033`*^9, 
   3.867575163131712*^9, 3.867575979627433*^9, 3.8675763396094513`*^9, 
   3.867576390848837*^9, 3.8675772464641447`*^9, 3.8675775180059853`*^9, 
   3.867662517596711*^9, 3.868502503355558*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"fa27ad8f-fef3-4d18-9abc-baf143629e3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlethysticSub", "[", 
  RowBox[{
   RowBox[{"\[Chi]Rscalar", "[", "4", "]"}], ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.867577546460122*^9, 3.867577548284854*^9}, {
  3.867577629755925*^9, 3.867577632308898*^9}, {3.8685024726656713`*^9, 
  3.868502472807561*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"80836472-b8ba-4d1e-bd4d-5499d43d6825"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "8"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"x", "(", "1", ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"x", "(", "2", ")"}], "4"]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "-", 
      SuperscriptBox[
       RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], "-", 
      SuperscriptBox[
       RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8675775487527733`*^9, {3.867577630335341*^9, 3.867577632740266*^9}, 
   3.867662518393134*^9, 3.8685024731239367`*^9, 3.86850250431376*^9},
 CellLabel->"Out[52]=",ExpressionUUID->"c5ef9919-0fc7-42c8-bea5-65bcd87ed3b2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"see", " ", "Derivation", " ", "4.7"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]Jscalar", "[", 
    RowBox[{"dim_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"PEpick\[Phi]", "[", "r", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", "k_", "]"}], ":>", " ", 
      RowBox[{"PlethysticSub", "[", 
       RowBox[{
        RowBox[{"\[Chi]Rscalar", "[", "dim", "]"}], ",", "k"}], "]"}]}], 
     "}"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.853556527370667*^9, 3.8535566045097837`*^9}, {
  3.85355664730621*^9, 3.853556677708147*^9}, {3.855504539826845*^9, 
  3.85550454015172*^9}, {3.867576032706172*^9, 3.8675760759500437`*^9}, {
  3.867576185127033*^9, 3.867576200602768*^9}, {3.867576358751733*^9, 
  3.86757637899783*^9}, {3.867577150764268*^9, 3.867577153341783*^9}, {
  3.867577250594262*^9, 3.867577251177408*^9}, {3.8675777210438223`*^9, 
  3.8675777212914867`*^9}, {3.867662522921278*^9, 3.867662523052122*^9}, {
  3.867663980955357*^9, 3.867663981067999*^9}, {3.86850248697955*^9, 
  3.868502487202526*^9}, {3.869536726026658*^9, 3.869536755090712*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"6957b27b-c645-44a4-b2ba-3d03241bf2f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]Jscalar", "[", 
  RowBox[{"4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.853556680374105*^9, 3.853556710940461*^9}, {
  3.85377306157495*^9, 3.853773061917901*^9}, {3.853773140345346*^9, 
  3.853773142548962*^9}, {3.854098491784289*^9, 3.854098491914542*^9}, {
  3.855504069217121*^9, 3.855504078926162*^9}, {3.855504548795862*^9, 
  3.855504575242034*^9}, {3.8675751852331676`*^9, 3.86757518583869*^9}, {
  3.867576084333168*^9, 3.867576085311359*^9}, {3.867576203374794*^9, 
  3.867576205772551*^9}, {3.867577156085292*^9, 3.867577157687649*^9}, {
  3.8676639824683027`*^9, 3.867663982932263*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"f06206c9-4536-4756-9a2c-0a2e930a54ff"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["q", "2"]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "4"]}], 
    RowBox[{"24", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "1", ")"}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "2", ")"}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "8"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "4"]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["q", "2"]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "4"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "4"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "1", ")"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "2"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "2"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["q", "4"]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "4"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], " ", 
     
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], "2"]}]], 
   "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "2"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "6"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "4"]}], 
    RowBox[{"3", " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", 
       RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", 
        RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "3"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "3"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", 
       RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", 
        RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "3"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "3"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.853556686738872*^9, 3.853556711256839*^9}, {
   3.853773054691675*^9, 3.85377306233258*^9}, 3.853773142860313*^9, 
   3.854098492396237*^9, {3.855504067420169*^9, 3.855504079218009*^9}, 
   3.855504401057519*^9, {3.855504546262711*^9, 3.855504575572995*^9}, 
   3.8556609313135653`*^9, 3.8579223175480967`*^9, {3.867575164732358*^9, 
   3.8675751862717113`*^9}, 3.8675760346586227`*^9, {3.8675760780938272`*^9, 
   3.8675760856462193`*^9}, 3.867576206310474*^9, {3.867576343325317*^9, 
   3.86757639216588*^9}, 3.867577159559988*^9, 3.867577252618051*^9, 
   3.867577519501609*^9, 3.867577723831421*^9, 3.867662532061976*^9, 
   3.867663983341465*^9, {3.8685024887575903`*^9, 3.868502505708112*^9}},
 CellLabel->"Out[54]=",ExpressionUUID->"fade63bf-f1dd-42ea-8ed3-3b4bae0da709"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Measure in Weyl integration formula", "Section",
 CellChangeTimes->{{3.867575230021739*^9, 3.8675752384252234`*^9}, 
   3.867575459705304*^9},ExpressionUUID->"bcc7dffc-99e2-4b1a-a859-\
91cf114455ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "see", " ", "Theorem", " ", "3.97", " ", "and", " ", "Example", " ", 
    "3.99"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dgTorus", "[", "dim_", "]"}], ":=", 
    RowBox[{
     RowBox[{"Product", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        FractionBox["1", 
         RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", 
          RowBox[{"x", "[", "i", "]"}]}]], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"OddQ", "[", "dim", "]"}], ",", 
          RowBox[{"1", "-", 
           RowBox[{"x", "[", "i", "]"}]}], ",", "1"}], "]"}], " ", 
        "\[IndentingNewLine]", 
        RowBox[{"Product", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"x", "[", "i", "]"}], 
              RowBox[{"x", "[", "j", "]"}]}]}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"x", "[", "i", "]"}], 
              RowBox[{"x", "[", "j", "]"}]]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"i", "+", "1"}], ",", 
            FractionBox["dim", "2"]}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         FractionBox["dim", "2"]}], "}"}]}], "\[IndentingNewLine]", "]"}], 
     " ", "//", " ", "Simplify"}]}], ";"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852906716219817*^9, 3.852906719566079*^9}, {
   3.85290679199234*^9, 3.852907020095519*^9}, {3.8529229876223507`*^9, 
   3.8529230015462027`*^9}, {3.853086584966077*^9, 3.853086656316619*^9}, {
   3.8530881637611217`*^9, 3.853088163940905*^9}, {3.85351616595085*^9, 
   3.853516172778171*^9}, {3.853521991418165*^9, 3.853522086156231*^9}, {
   3.853522168396657*^9, 3.8535222083495493`*^9}, {3.853556942470192*^9, 
   3.853556957317936*^9}, {3.853557346043199*^9, 3.8535573467267103`*^9}, {
   3.853558885008847*^9, 3.853558885276712*^9}, {3.853560288431437*^9, 
   3.853560288627695*^9}, {3.853768152569079*^9, 3.853768152781685*^9}, {
   3.8537682681060753`*^9, 3.8537682708991737`*^9}, {3.855657981380093*^9, 
   3.855657983460126*^9}, {3.85626634801792*^9, 3.856266348366259*^9}, 
   3.867575314382165*^9, {3.867575468696485*^9, 3.86757547903442*^9}, {
   3.867575647785911*^9, 3.867575703218045*^9}, {3.867663115679758*^9, 
   3.8676631323970137`*^9}, {3.8695367787881393`*^9, 3.869536802271209*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"2367489f-0b40-443f-8e2c-5005bb47536a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dgTorus", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8538634720506887`*^9, 3.8538634723448133`*^9}, {
  3.854098557981289*^9, 3.854098563135442*^9}, {3.8562654559129753`*^9, 
  3.856265456068417*^9}, {3.867575484609056*^9, 3.867575487136142*^9}, {
  3.8676626140264*^9, 3.8676626301380167`*^9}, {3.8676626696621*^9, 
  3.8676626930880938`*^9}, {3.867663136926848*^9, 3.867663141458282*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"00d307ce-aa98-40e1-aea0-c0390a6e5ac3"],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "(", "1", ")"}], "-", 
       RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "(", "1", ")"}], " ", 
        RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Pi]", "2"], " ", 
     RowBox[{"x", "(", "1", ")"}], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "2", ")"}], "2"]}]]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.852906934003014*^9, 3.852907038875355*^9}, {
   3.852922998677156*^9, 3.852923001945034*^9}, 3.8529230376352577`*^9, 
   3.852928438881055*^9, 3.852929051428794*^9, {3.852973431281373*^9, 
   3.852973439184888*^9}, 3.852978240075438*^9, 3.85297971804468*^9, 
   3.852987928458376*^9, 3.8529901722275057`*^9, 3.8530680603415537`*^9, {
   3.853082454354931*^9, 3.85308246721493*^9}, {3.8530865855472393`*^9, 
   3.853086656655024*^9}, 3.8530867826619883`*^9, 3.853088164328829*^9, 
   3.853172715742647*^9, 3.8532430749909678`*^9, 3.853343475933092*^9, 
   3.8535139750468903`*^9, 3.853516594239861*^9, 3.853521829711115*^9, {
   3.853522048950815*^9, 3.853522086551291*^9}, {3.853522166206455*^9, 
   3.853522208621945*^9}, 3.85355510297867*^9, {3.8535569431216087`*^9, 
   3.85355695780457*^9}, 3.8535573474787493`*^9, 3.853558885578351*^9, 
   3.853560289054419*^9, 3.853565494376238*^9, 3.853565906910437*^9, 
   3.853566418690894*^9, 3.853574131340029*^9, 3.853578113086257*^9, 
   3.853594563012164*^9, 3.853679690696084*^9, 3.853690404101194*^9, 
   3.853749249138075*^9, 3.8537631989298277`*^9, 3.8537636527071342`*^9, 
   3.853766891096938*^9, 3.853768153048479*^9, 3.853768269695149*^9, 
   3.8537683248364267`*^9, {3.8538634700388947`*^9, 3.8538634727242813`*^9}, {
   3.854098558749991*^9, 3.854098563753029*^9}, 3.8555051242522497`*^9, 
   3.855657985019794*^9, {3.8562654567406187`*^9, 3.85626546733619*^9}, 
   3.8562663293905487`*^9, {3.856266381862336*^9, 3.856266385334845*^9}, 
   3.867575242276846*^9, 3.867575487597981*^9, 3.867577258844493*^9, {
   3.867662614568421*^9, 3.867662630516169*^9}, {3.8676626701657743`*^9, 
   3.867662693435306*^9}, {3.867663121374146*^9, 3.867663141741343*^9}, 
   3.867663986309575*^9, 3.868502509000588*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"ab9a9a67-3844-485e-a5ec-c39e4004ff56"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Integrands, poles and residues", "Section",
 CellChangeTimes->{{3.867576681504797*^9, 3.867576683263892*^9}, {
  3.869571742465869*^9, 
  3.8695717459695187`*^9}},ExpressionUUID->"d6d4710d-f203-4f84-8ad7-\
9e568a7d8717"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "returns", " ", "a", " ", "list", " ", "of", " ", "summands", " ", "of", 
    " ", "a", " ", "given", " ", "expression"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Summands", "[", "f_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Head", "@", "f"}], "===", "Plus"}], ",", 
     RowBox[{"List", "@@", "f"}], ",", 
     RowBox[{"{", "f", "}"}]}], "]"}]}]}]], "Input",
 InitializationCell->True,
 CellLabel->"In[15]:=",ExpressionUUID->"15850c90-e844-4303-ae8e-d5ecf1a521a2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrands", " ", "corresponding", " ", "to", " ", "multi"}], 
     "-", 
     RowBox[{
     "particle", " ", "graded", " ", "module", " ", "with", " ", "chraded", 
      " ", "character", " ", 
      RowBox[{"charJ", "[", "...", "]"}]}]}], ",", " ", 
    RowBox[{"see", " ", "Derivation", " ", "4.17"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Integrands", "[", 
    RowBox[{"dim_", ",", "r_", ",", "charJ_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"dgTorus", "[", "dim", "]"}], 
    FractionBox["1", 
     RowBox[{"P", "[", "dim", "]"}]], 
    RowBox[{"Summands", "[", 
     RowBox[{"charJ", "[", 
      RowBox[{"dim", ",", "r"}], "]"}], "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852973568224141*^9, 3.852973653280808*^9}, 
   3.852973712533058*^9, {3.8529900802320757`*^9, 3.852990100130665*^9}, 
   3.853074017557764*^9, {3.853074168223461*^9, 3.8530741708925047`*^9}, 
   3.853088209850113*^9, {3.8530892830945377`*^9, 3.853089311765953*^9}, 
   3.8530932297236032`*^9, {3.853093307829504*^9, 3.853093308324932*^9}, {
   3.8535571764743137`*^9, 3.853557225500257*^9}, {3.853557268923431*^9, 
   3.853557269140518*^9}, {3.853566480088821*^9, 3.853566490949498*^9}, {
   3.853568008029121*^9, 3.853568008900592*^9}, {3.8535697535579853`*^9, 
   3.853569783458449*^9}, {3.853684584128645*^9, 3.853684599035143*^9}, {
   3.853684645550786*^9, 3.85368466243014*^9}, {3.853684697737666*^9, 
   3.85368469902357*^9}, {3.8536853250368423`*^9, 3.853685329263502*^9}, {
   3.853758570258336*^9, 3.8537586004904203`*^9}, {3.853766965152384*^9, 
   3.853766988078896*^9}, {3.853767287653425*^9, 3.8537673546275463`*^9}, {
   3.853767587478242*^9, 3.853767606538309*^9}, {3.853767695178823*^9, 
   3.853767695644025*^9}, {3.853767726119*^9, 3.8537677391632643`*^9}, {
   3.854098609761922*^9, 3.854098624197442*^9}, {3.85439723301064*^9, 
   3.854397279659347*^9}, {3.855398217192449*^9, 3.855398277121399*^9}, 
   3.8556608913900347`*^9, {3.85661603269403*^9, 3.8566160812890167`*^9}, {
   3.8667394799718847`*^9, 3.866739551369689*^9}, {3.866739615101811*^9, 
   3.86673962502984*^9}, {3.8667408333874474`*^9, 3.866740834458366*^9}, {
   3.8667409211308193`*^9, 3.866740934922861*^9}, {3.867576734548748*^9, 
   3.8675768879370327`*^9}, {3.867577104172274*^9, 3.867577117676614*^9}, {
   3.8675772708841867`*^9, 3.8675772914897223`*^9}, {3.867658744581808*^9, 
   3.867658747162642*^9}, {3.867663183384379*^9, 3.867663183672723*^9}, {
   3.867663993744648*^9, 3.8676639938832493`*^9}, {3.867664200006192*^9, 
   3.8676642083851023`*^9}, {3.869537783490724*^9, 3.869537845727539*^9}, {
   3.869537881632019*^9, 3.8695378950258207`*^9}, {3.869537936860902*^9, 
   3.8695379482088547`*^9}, {3.869560359407572*^9, 3.86956037077689*^9}, {
   3.869570243806329*^9, 3.869570274112157*^9}, 
   3.8695731697847843`*^9},ExpressionUUID->"e0c2ea3d-977f-4f66-b484-\
c920251dcf7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"IntegrandsScalar", "[", 
   RowBox[{"dim_", ",", "r_"}], "]"}], ":=", 
  RowBox[{"Integrands", "[", 
   RowBox[{"dim", ",", "r", ",", "\[Chi]Jscalar"}], "]"}], " "}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852973568224141*^9, 3.852973653280808*^9}, 
   3.852973712533058*^9, {3.8529900802320757`*^9, 3.852990100130665*^9}, 
   3.853074017557764*^9, {3.853074168223461*^9, 3.8530741708925047`*^9}, 
   3.853088209850113*^9, {3.8530892830945377`*^9, 3.853089311765953*^9}, 
   3.8530932297236032`*^9, {3.853093307829504*^9, 3.853093308324932*^9}, {
   3.8535571764743137`*^9, 3.853557225500257*^9}, {3.853557268923431*^9, 
   3.853557269140518*^9}, {3.853566480088821*^9, 3.853566490949498*^9}, {
   3.853568008029121*^9, 3.853568008900592*^9}, {3.8535697535579853`*^9, 
   3.853569783458449*^9}, {3.853684584128645*^9, 3.853684599035143*^9}, {
   3.853684645550786*^9, 3.85368466243014*^9}, {3.853684697737666*^9, 
   3.85368469902357*^9}, {3.8536853250368423`*^9, 3.853685329263502*^9}, {
   3.853758570258336*^9, 3.8537586004904203`*^9}, {3.853766965152384*^9, 
   3.853766988078896*^9}, {3.853767287653425*^9, 3.8537673546275463`*^9}, {
   3.853767587478242*^9, 3.853767606538309*^9}, {3.853767695178823*^9, 
   3.853767695644025*^9}, {3.853767726119*^9, 3.8537677391632643`*^9}, {
   3.854098609761922*^9, 3.854098624197442*^9}, {3.85439723301064*^9, 
   3.854397279659347*^9}, {3.855398217192449*^9, 3.855398277121399*^9}, 
   3.8556608913900347`*^9, {3.85661603269403*^9, 3.8566160812890167`*^9}, {
   3.8667394799718847`*^9, 3.866739551369689*^9}, {3.866739615101811*^9, 
   3.86673962502984*^9}, {3.8667408333874474`*^9, 3.866740834458366*^9}, {
   3.8667409211308193`*^9, 3.866740934922861*^9}, {3.867576734548748*^9, 
   3.8675768879370327`*^9}, {3.867577104172274*^9, 3.867577117676614*^9}, {
   3.8675772708841867`*^9, 3.8675772914897223`*^9}, {3.867658744581808*^9, 
   3.867658747162642*^9}, {3.867663183384379*^9, 3.867663183672723*^9}, {
   3.867663993744648*^9, 3.8676639938832493`*^9}, {3.867664200006192*^9, 
   3.8676642083851023`*^9}, {3.869537783490724*^9, 3.869537845727539*^9}, {
   3.869537881632019*^9, 3.8695378950258207`*^9}, {3.869537936860902*^9, 
   3.8695379482088547`*^9}, {3.869560359407572*^9, 3.86956037077689*^9}, {
   3.869570243806329*^9, 3.869570274112157*^9}, 3.8695731697847843`*^9},
 CellLabel->
  "In[353]:=",ExpressionUUID->"190982a4-129c-4f48-ae82-e50456dd87b5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegrandsScalar", "[", 
  RowBox[{"4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.867577091318431*^9, 3.8675770963125143`*^9}, {
  3.867658755724984*^9, 3.86765877926082*^9}, {3.867659151513867*^9, 
  3.8676591518577757`*^9}, {3.867662720985496*^9, 3.867662772699101*^9}, {
  3.8676628116045847`*^9, 3.867662817381259*^9}, {3.867662867318338*^9, 
  3.8676628732680893`*^9}, {3.867664213082425*^9, 3.867664213192277*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"317dceb6-6dcd-4759-8bb5-8b0815bca0e7"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"96", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"32", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], 
       " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], 
        "2"]}]]}], ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"12", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "3"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "3"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8675770967229843`*^9, 3.867577123998106*^9}, {
   3.8675772657005444`*^9, 3.867577314522743*^9}, 3.867577754293434*^9, {
   3.867658751973597*^9, 3.867658779675478*^9}, {3.867662720189433*^9, 
   3.867662768200149*^9}, {3.867662809019609*^9, 3.8676628124001427`*^9}, {
   3.867662869928114*^9, 3.867662873635144*^9}, 3.8676639951703863`*^9, {
   3.867664210914324*^9, 3.867664213615252*^9}, 3.8685025117116327`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"2eac4af2-114a-4019-a094-d5a8b015ba15"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "find", " ", "all", " ", "poles", " ", "of", " ", "a", " ", "given", " ", 
    "variable", " ", "for", " ", "every", " ", "integrand"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"TallyThis", "[", "...", "]"}], " ", "organizes", " ", "them", 
     " ", "neatly"}], ",", " ", 
    RowBox[{
    "and", " ", "counting", " ", "the", " ", "degrees", " ", "of", " ", 
     "poles"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"getPolesAll", "[", 
    RowBox[{"integrands_", ",", "var_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"TallyThis", "@", 
      RowBox[{"Roots", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Denominator", "@", "#"}], "==", "0"}], ",", "var"}], 
       "]"}]}], " ", "&"}], " ", "/@", " ", "integrands"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852975047246933*^9, 3.852975143510709*^9}, {
   3.852975224232379*^9, 3.852975237726858*^9}, 3.852975286766265*^9, {
   3.852976196503293*^9, 3.852976198904662*^9}, {3.852989141933155*^9, 
   3.852989154723865*^9}, {3.853070486857626*^9, 3.853070495738056*^9}, {
   3.8530707085304403`*^9, 3.853070711370328*^9}, {3.8530712063785353`*^9, 
   3.853071225043291*^9}, {3.853071323546492*^9, 3.853071324207947*^9}, 
   3.8530718890422792`*^9, {3.853073148649787*^9, 3.8530731969237823`*^9}, {
   3.853073256477199*^9, 3.853073259791876*^9}, {3.853073681281823*^9, 
   3.853073683427629*^9}, {3.853073896636208*^9, 3.853073897422123*^9}, {
   3.853074117947206*^9, 3.853074118163321*^9}, {3.8530748586561604`*^9, 
   3.853074869721727*^9}, {3.853082368081221*^9, 3.8530824626581984`*^9}, {
   3.853082498842123*^9, 3.85308250567327*^9}, {3.8530825599911613`*^9, 
   3.853082561807147*^9}, {3.853089268881516*^9, 3.853089269566378*^9}, {
   3.853089321773612*^9, 3.853089335190398*^9}, {3.853093030426854*^9, 
   3.853093060218213*^9}, {3.853093333490547*^9, 3.853093336519307*^9}, {
   3.853175908264585*^9, 3.853175925007412*^9}, {3.85356514389809*^9, 
   3.853565173842141*^9}, {3.8535652411113863`*^9, 3.853565247585453*^9}, {
   3.853565440410047*^9, 3.853565475251051*^9}, 3.853565680791608*^9, {
   3.8535657478106422`*^9, 3.853565765405794*^9}, {3.853566037058207*^9, 
   3.853566105771063*^9}, {3.853566225022955*^9, 3.853566232952222*^9}, {
   3.853566327114238*^9, 3.853566329526238*^9}, {3.8535664522089653`*^9, 
   3.8535664549225616`*^9}, {3.853566496284589*^9, 3.853566519928364*^9}, {
   3.853566580318095*^9, 3.8535666116047583`*^9}, {3.853567458131666*^9, 
   3.853567459722636*^9}, {3.853568323729889*^9, 3.8535683369756813`*^9}, {
   3.853569436865436*^9, 3.853569490290176*^9}, {3.853569605701305*^9, 
   3.8535696066804123`*^9}, {3.853579688417457*^9, 3.853579696008613*^9}, {
   3.853580011420116*^9, 3.853580074954956*^9}, {3.853580579149377*^9, 
   3.853580585648817*^9}, 3.8535807401841803`*^9, {3.853581930889629*^9, 
   3.853581967046997*^9}, {3.853582039808062*^9, 3.8535820484682207`*^9}, {
   3.8535823895405188`*^9, 3.853582390242395*^9}, {3.8535825867334957`*^9, 
   3.85358268901961*^9}, {3.853594571329241*^9, 3.85359457287407*^9}, {
   3.853594941412077*^9, 3.853594943845237*^9}, {3.853595103730009*^9, 
   3.853595109864086*^9}, {3.853595273729349*^9, 3.853595274582213*^9}, {
   3.853597959548038*^9, 3.853597966127138*^9}, {3.853682514271873*^9, 
   3.8536825172417717`*^9}, {3.8536836204926033`*^9, 
   3.8536836275912313`*^9}, {3.853685410911128*^9, 3.853685417844101*^9}, {
   3.853688344598673*^9, 3.85368835161486*^9}, {3.853688979322633*^9, 
   3.853688988866667*^9}, {3.8536890689256487`*^9, 3.853689153516129*^9}, {
   3.8536892678368673`*^9, 3.8536892727865467`*^9}, {3.85368944297367*^9, 
   3.853689450225267*^9}, {3.853689483587173*^9, 3.853689487246242*^9}, {
   3.853689531914731*^9, 3.85368953681531*^9}, {3.853763276593575*^9, 
   3.8537633359181223`*^9}, {3.853763366461556*^9, 3.853763543482566*^9}, {
   3.853763583286173*^9, 3.853763607156151*^9}, {3.853763699021994*^9, 
   3.853763716677256*^9}, {3.853771191618125*^9, 3.8537711951178017`*^9}, {
   3.853943777627454*^9, 3.853943786491499*^9}, {3.854099235570372*^9, 
   3.854099269878344*^9}, {3.8540993098161077`*^9, 3.854099317703525*^9}, {
   3.854099410823502*^9, 3.854099438137411*^9}, {3.8543635558902893`*^9, 
   3.8543635613458347`*^9}, {3.854363641190444*^9, 3.854363645445181*^9}, {
   3.8543646155611153`*^9, 3.8543646408107433`*^9}, {3.854364682790999*^9, 
   3.854364700249669*^9}, {3.854364775284438*^9, 3.854364776889732*^9}, {
   3.854446667996118*^9, 3.854446698042001*^9}, {3.854446838763214*^9, 
   3.854446839522623*^9}, {3.854449107179307*^9, 3.854449136709943*^9}, {
   3.855660071449007*^9, 3.855660190234281*^9}, {3.85566035430468*^9, 
   3.855660381807949*^9}, {3.855660563917652*^9, 3.85566062792484*^9}, 
   3.855660842817905*^9, {3.866741146517654*^9, 3.8667411648845654`*^9}, {
   3.86765895514062*^9, 3.867658993213272*^9}, {3.8676590975917873`*^9, 
   3.867659100363172*^9}, {3.8676601825356903`*^9, 3.867660182813159*^9}, {
   3.867660370610504*^9, 3.8676603780747004`*^9}, 3.867660435053838*^9, {
   3.868502516829805*^9, 3.868502520023953*^9}, 3.869535022019609*^9, 
   3.8695351613794537`*^9, {3.869570378868805*^9, 3.869570761908546*^9}, {
   3.86957080835174*^9, 3.869570948583516*^9}, {3.869570984731636*^9, 
   3.869570987205287*^9}, {3.869571029866271*^9, 
   3.869571157388014*^9}},ExpressionUUID->"6a5f0009-49da-45d5-a565-\
3716bb7dfe92"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "select", " ", "out", " ", "only", " ", "poles", " ", "inside", " ", 
     "unit", " ", "circle", " ", 
     RowBox[{"(", 
      RowBox[{"assuming", " ", "|", "q", "|", 
       RowBox[{"<", "1"}]}], ")"}], " ", "just", " ", "by", " ", 
     "arbitrarily", " ", "evaluating", " ", "for", " ", "q"}], "=", 
    RowBox[{"1", "/", "2"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "combination", " ", "\"\<// PowerExpand // FullSimplify\>\"", " ", 
     "transforms", " ", "terms", " ", 
     SqrtBox[
      RowBox[{"-", 
       SuperscriptBox["q", "2"]}]]}], " ", "\[Function]", " ", 
    "\[ImaginaryI]q"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getPolesInside", "[", 
     RowBox[{"integrands_", ",", "var_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"#", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "/.", 
               RowBox[{"{", 
                RowBox[{"q", "->", 
                 FractionBox["1", "2"]}], "}"}]}], "]"}], "<", "1"}], "&"}]}],
           "]"}], "&"}], "/@", " ", 
        RowBox[{"getPolesAll", "[", 
         RowBox[{"integrands", ",", "var"}], "]"}]}], " ", "//", 
       "FullSimplify"}], "//", " ", "PowerExpand"}], "//", "FullSimplify"}]}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "pick", " ", "first", " ", "variable", " ", "excludung", " ", "q", " ", 
     "and", " ", "find", " ", "its", " ", "poles", " ", "inside", " ", "unit",
      " ", "circle"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"getPolesInside", "[", "integrands_", "]"}], ":=", 
    RowBox[{"getPolesInside", "[", 
     RowBox[{"integrands", ",", 
      RowBox[{"First", "@", 
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Variables", "[", "integrands", "]"}], ",", "q"}], "]"}]}]}],
      "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852975047246933*^9, 3.852975143510709*^9}, {
   3.852975224232379*^9, 3.852975237726858*^9}, 3.852975286766265*^9, {
   3.852976196503293*^9, 3.852976198904662*^9}, {3.852989141933155*^9, 
   3.852989154723865*^9}, {3.853070486857626*^9, 3.853070495738056*^9}, {
   3.8530707085304403`*^9, 3.853070711370328*^9}, {3.8530712063785353`*^9, 
   3.853071225043291*^9}, {3.853071323546492*^9, 3.853071324207947*^9}, 
   3.8530718890422792`*^9, {3.853073148649787*^9, 3.8530731969237823`*^9}, {
   3.853073256477199*^9, 3.853073259791876*^9}, {3.853073681281823*^9, 
   3.853073683427629*^9}, {3.853073896636208*^9, 3.853073897422123*^9}, {
   3.853074117947206*^9, 3.853074118163321*^9}, {3.8530748586561604`*^9, 
   3.853074869721727*^9}, {3.853082368081221*^9, 3.8530824626581984`*^9}, {
   3.853082498842123*^9, 3.85308250567327*^9}, {3.8530825599911613`*^9, 
   3.853082561807147*^9}, {3.853089268881516*^9, 3.853089269566378*^9}, {
   3.853089321773612*^9, 3.853089335190398*^9}, {3.853093030426854*^9, 
   3.853093060218213*^9}, {3.853093333490547*^9, 3.853093336519307*^9}, {
   3.853175908264585*^9, 3.853175925007412*^9}, {3.85356514389809*^9, 
   3.853565173842141*^9}, {3.8535652411113863`*^9, 3.853565247585453*^9}, {
   3.853565440410047*^9, 3.853565475251051*^9}, 3.853565680791608*^9, {
   3.8535657478106422`*^9, 3.853565765405794*^9}, {3.853566037058207*^9, 
   3.853566105771063*^9}, {3.853566225022955*^9, 3.853566232952222*^9}, {
   3.853566327114238*^9, 3.853566329526238*^9}, {3.8535664522089653`*^9, 
   3.8535664549225616`*^9}, {3.853566496284589*^9, 3.853566519928364*^9}, {
   3.853566580318095*^9, 3.8535666116047583`*^9}, {3.853567458131666*^9, 
   3.853567459722636*^9}, {3.853568323729889*^9, 3.8535683369756813`*^9}, {
   3.853569436865436*^9, 3.853569490290176*^9}, {3.853569605701305*^9, 
   3.8535696066804123`*^9}, {3.853579688417457*^9, 3.853579696008613*^9}, {
   3.853580011420116*^9, 3.853580074954956*^9}, {3.853580579149377*^9, 
   3.853580585648817*^9}, 3.8535807401841803`*^9, {3.853581930889629*^9, 
   3.853581967046997*^9}, {3.853582039808062*^9, 3.8535820484682207`*^9}, {
   3.8535823895405188`*^9, 3.853582390242395*^9}, {3.8535825867334957`*^9, 
   3.85358268901961*^9}, {3.853594571329241*^9, 3.85359457287407*^9}, {
   3.853594941412077*^9, 3.853594943845237*^9}, {3.853595103730009*^9, 
   3.853595109864086*^9}, {3.853595273729349*^9, 3.853595274582213*^9}, {
   3.853597959548038*^9, 3.853597966127138*^9}, {3.853682514271873*^9, 
   3.8536825172417717`*^9}, {3.8536836204926033`*^9, 
   3.8536836275912313`*^9}, {3.853685410911128*^9, 3.853685417844101*^9}, {
   3.853688344598673*^9, 3.85368835161486*^9}, {3.853688979322633*^9, 
   3.853688988866667*^9}, {3.8536890689256487`*^9, 3.853689153516129*^9}, {
   3.8536892678368673`*^9, 3.8536892727865467`*^9}, {3.85368944297367*^9, 
   3.853689450225267*^9}, {3.853689483587173*^9, 3.853689487246242*^9}, {
   3.853689531914731*^9, 3.85368953681531*^9}, {3.853763276593575*^9, 
   3.8537633359181223`*^9}, {3.853763366461556*^9, 3.853763543482566*^9}, {
   3.853763583286173*^9, 3.853763607156151*^9}, {3.853763699021994*^9, 
   3.853763716677256*^9}, {3.853771191618125*^9, 3.8537711951178017`*^9}, {
   3.853943777627454*^9, 3.853943786491499*^9}, {3.854099235570372*^9, 
   3.854099269878344*^9}, {3.8540993098161077`*^9, 3.854099317703525*^9}, {
   3.854099410823502*^9, 3.854099438137411*^9}, {3.8543635558902893`*^9, 
   3.8543635613458347`*^9}, {3.854363641190444*^9, 3.854363645445181*^9}, {
   3.8543646155611153`*^9, 3.8543646408107433`*^9}, {3.854364682790999*^9, 
   3.854364700249669*^9}, {3.854364775284438*^9, 3.854364776889732*^9}, {
   3.854446667996118*^9, 3.854446698042001*^9}, {3.854446838763214*^9, 
   3.854446839522623*^9}, {3.854449107179307*^9, 3.854449136709943*^9}, {
   3.855660071449007*^9, 3.855660190234281*^9}, {3.85566035430468*^9, 
   3.855660381807949*^9}, {3.855660563917652*^9, 3.85566062792484*^9}, 
   3.855660842817905*^9, {3.866741146517654*^9, 3.8667411648845654`*^9}, {
   3.86765895514062*^9, 3.867658993213272*^9}, {3.8676590975917873`*^9, 
   3.867659100363172*^9}, {3.8676601825356903`*^9, 3.867660182813159*^9}, {
   3.867660370610504*^9, 3.8676603780747004`*^9}, 3.867660435053838*^9, {
   3.868502516829805*^9, 3.868502520023953*^9}, 3.869535022019609*^9, 
   3.8695351613794537`*^9, {3.869570378868805*^9, 3.869570761908546*^9}, {
   3.86957080835174*^9, 3.869570948583516*^9}, {3.869570984731636*^9, 
   3.869570987205287*^9}, {3.869571029866271*^9, 
   3.8695712136163054`*^9}},ExpressionUUID->"60c8cb61-dd3b-43fe-b9d0-\
3fe910c0d650"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"integrands44", "=", 
  RowBox[{"IntegrandsScalar", "[", 
   RowBox[{"4", ",", "4"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8676591552806673`*^9, 3.8676591608454027`*^9}, {
  3.867659404912518*^9, 3.8676594051632423`*^9}, {3.867660540440254*^9, 
  3.867660545078578*^9}, {3.867664218082418*^9, 3.867664223825507*^9}},
 CellLabel->
  "In[311]:=",ExpressionUUID->"8def1bdb-ab00-4967-8365-53429a379754"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"96", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"32", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], 
       " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], 
        "2"]}]]}], ",", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"12", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "3"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "3"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], ",", 
    
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.867659161494474*^9, 3.867659405452709*^9, 3.867659491818392*^9, {
   3.867659525311742*^9, 3.867659542721306*^9}, 3.86765961407325*^9, 
   3.867659800363853*^9, {3.867659855956873*^9, 3.867659871206479*^9}, 
   3.86766021148282*^9, 3.86766043771793*^9, 3.867660467807275*^9, 
   3.8676605465003567`*^9, 3.867663997557959*^9, {3.8676642205141478`*^9, 
   3.867664225136313*^9}, 3.86850252251868*^9, 3.869570949948885*^9, 
   3.869570988455975*^9, 3.8695712382870398`*^9},
 CellLabel->
  "Out[311]=",ExpressionUUID->"cfcad3be-ed44-4777-90a5-c6b06bee0b6f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Roots", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Denominator", "@", "#"}], "==", "0"}], ",", 
     RowBox[{"x", "[", "1", "]"}]}], "]"}], " ", "&"}], " ", "/@", " ", 
  "integrands44"}], "\[IndentingNewLine]", 
 RowBox[{"getPolesAll", "[", 
  RowBox[{"integrands44", ",", 
   RowBox[{"x", "[", "1", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"getPolesInside", "[", "integrands44", "]"}]}], "Input",
 CellChangeTimes->{{3.867660439220586*^9, 3.867660518192507*^9}, {
  3.8676605487466593`*^9, 3.867660554377039*^9}, {3.8676642268109283`*^9, 
  3.867664232309629*^9}},
 CellLabel->
  "In[312]:=",ExpressionUUID->"63f6866b-d22a-429a-89dd-b81918cc5828"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox["1", "q"]}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox["1", "q"]}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox["1", "q"]}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]], " ", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{
       RowBox[{"-", 
        RadicalBox[
         RowBox[{"-", "1"}], "3"]}], " ", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", "/", "3"}]], "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox[
        RadicalBox[
         RowBox[{"-", "1"}], "3"], "q"]}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"\[ImaginaryI]", " ", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", "q"}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["\[ImaginaryI]", "q"]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox["1", "q"]}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      RowBox[{"-", 
       FractionBox["\[ImaginaryI]", "q"]}]}], "\[Or]", 
     RowBox[{
      RowBox[{"x", "(", "1", ")"}], "\[LongEqual]", 
      FractionBox["1", "q"]}]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.867660446024123*^9, 3.867660519102542*^9}, 
   3.867660554784275*^9, 3.867663998696868*^9, {3.867664228041304*^9, 
   3.867664232686775*^9}, 3.868502523704563*^9, 3.869570950679531*^9, 
   3.8695709890847054`*^9, 3.869571240170518*^9},
 CellLabel->
  "Out[312]=",ExpressionUUID->"804d1783-13ff-47e5-8d61-509203b69c87"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "3"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["1", "q"], "3"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["1", "q"], "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", 
         FractionBox["1", "q"]}], "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["1", "q"], "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", 
         FractionBox["1", "q"]}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         RowBox[{"-", 
          RadicalBox[
           RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], "q", "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"2", "/", "3"}]], "q"], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", 
         FractionBox[
          RadicalBox[
           RowBox[{"-", "1"}], "3"], "q"]}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["1", "q"], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], "q", "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["\[ImaginaryI]", "q"], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", 
         FractionBox["1", "q"]}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", 
         FractionBox["\[ImaginaryI]", "q"]}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        FractionBox["1", "q"], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.867660446024123*^9, 3.867660519102542*^9}, 
   3.867660554784275*^9, 3.867663998696868*^9, {3.867664228041304*^9, 
   3.867664232686775*^9}, 3.868502523704563*^9, 3.869570950679531*^9, 
   3.8695709890847054`*^9, 3.86957124017367*^9},
 CellLabel->
  "Out[313]=",ExpressionUUID->"90eac1e4-2a4a-4549-bb7e-54d996ad14fd"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "3"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "2"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], "q", "2"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         RowBox[{"-", 
          RadicalBox[
           RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], "q", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{"-", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], 
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"},
       {
        RowBox[{"x", "(", "1", ")"}], "q", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.867660446024123*^9, 3.867660519102542*^9}, 
   3.867660554784275*^9, 3.867663998696868*^9, {3.867664228041304*^9, 
   3.867664232686775*^9}, 3.868502523704563*^9, 3.869570950679531*^9, 
   3.8695709890847054`*^9, 3.8695712401768503`*^9},
 CellLabel->
  "Out[314]=",ExpressionUUID->"eeb6ade1-fa69-4574-a74d-5a814276808f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "calculate", " ", "residue", " ", "of", " ", "function", " ", "f", " ", 
    "at", " ", "a", " ", "pole", " ", "of", " ", "a", " ", "finite", " ", 
    "degree", " ", "using", " ", "standard", " ", "formula"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"#1", " ", "<->", " ", 
    RowBox[{
     RowBox[{"poledata", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "<->", " ", "variable"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"#2", " ", "<->", " ", 
    RowBox[{
     RowBox[{"poledata", "[", 
      RowBox[{"[", "2", "]"}], "]"}], " ", "<->", " ", 
     RowBox[{"location", " ", "of", " ", "pole"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"#3", " ", "<->", " ", 
    RowBox[{
     RowBox[{"poledata", "[", 
      RowBox[{"[", "3", "]"}], "]"}], " ", "<->", " ", 
     RowBox[{"degree", " ", "of", " ", "pole"}]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"getResidue", "[", 
    RowBox[{"f_", ",", "poledata_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Limit", "[", 
      RowBox[{
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#3", "-", "1"}], ")"}], "!"}]], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Cancel", "[", 
           RowBox[{
            RowBox[{"f", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"#1", "-", "#2"}], ")"}], "#3"]}], " ", ",", 
            RowBox[{"Extension", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"#2", " ", "/.", " ", 
               RowBox[{"q", "->", "1"}]}], ")"}]}]}], "]"}], " ", ",", 
          RowBox[{"{", 
           RowBox[{"#1", ",", 
            RowBox[{"#3", "-", "1"}]}], "}"}]}], "]"}]}], ",", 
       RowBox[{"#1", " ", "->", " ", "#2"}]}], "]"}], "&"}], " ", "@@", " ", 
    "poledata"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJwd0Gso63EcBvB1jOSFaHJLy5k1W3OJlNV5wbw4TieWqIVSDBOZW8rcT5NO
J45M0/rztxXFGmUuuSxK0hQ11+INL5RbZ+a2g5bb7/m9+PZ58Tz11Perqja3
/AuHw4khB58yb5X8BZdc3O8pgr4Z0Sq48iik+nWp1VAbF6uBHOtRIxSd/aM6
Z3yaYfqavRMqlpnf8CpL9Rc6LoM8tK+pf4aeotbSHKI9U1kBu8cFbbBGUNoO
T/UmPeQWyAww7n2IoR5wR2F8c+UEzYMrLDAhe/wesi7eA/S7K37PJfIjeqhe
u8Sehz1l7Cq05YduwtePoC1oCs93wjKbbgcmBWhOoIHLULXWzmsYnvh2AyPn
de4GYmCa7A56pTyFZNEl/2U2K+HsfonAQXS+tFIt57ViePvdSDWEhYi8uy55
9YaI2qErG+w7JH/f4zFw3T/ZBB/5WVTZ/4H+QWJVW7cexs+zwzB1b5IasFRl
g8KpizloeUjcgu5k8Tb82bLOMsTQFN4IVBiHo8zEQ/efb7CQ7UuDrEqdAceO
635AraiJau2dzobS6gMF/ARV/C47
  
  "],ExpressionUUID->"09148097-12b7-44ec-84c8-4b3e0a38698a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"integrands44", "[", 
  RowBox[{"[", 
   RowBox[{"-", "1"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"getResidue", "[", 
   RowBox[{"%", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", "[", "1", "]"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", "q"}], ",", "1"}], "}"}]}], "]"}], " ", "//",
   "FullSimplifyCancel"}]}], "Input",
 CellChangeTimes->{{3.8695717957168827`*^9, 3.869571809895754*^9}, {
  3.869571853636921*^9, 3.869571922179728*^9}},
 CellLabel->
  "In[337]:=",ExpressionUUID->"300cd9e4-5a57-46fc-bf88-eadb5de5ee32"],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "8"]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"x", "(", "1", ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "(", "1", ")"}], "-", 
       RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
     RowBox[{"x", "(", "2", ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "(", "1", ")"}], " ", 
        RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", 
       RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", 
        RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"q", "-", 
       RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"q", " ", 
        RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["\[Pi]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.869571810792439*^9, {3.869571867633563*^9, 3.869571922455879*^9}},
 CellLabel->
  "Out[337]=",ExpressionUUID->"8d9db42f-524b-490a-9316-e54ebf8bc47f"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "64"], "+", 
      FractionBox["\[ImaginaryI]", "64"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["q", "2"]}]}], ")"}], " ", 
    RowBox[{"x", "(", "2", ")"}]}], 
   RowBox[{
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"x", "(", "2", ")"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"q", "+", 
      RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "2", ")"}]}], "-", "\[ImaginaryI]"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.869571810792439*^9, {3.869571867633563*^9, 3.86957192247294*^9}},
 CellLabel->
  "Out[338]=",ExpressionUUID->"bd8d9c61-53b1-41eb-b4c2-b48699c37632"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Integration, calculation of Hilbert series", "Section",
 CellChangeTimes->{{3.869571753674994*^9, 
  3.869571766568858*^9}},ExpressionUUID->"02e73e2c-66b0-4191-aec4-\
6ec998be6376"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "given", " ", "list", " ", "of", " ", "integrands", " ", "and", " ", 
     "corresponding", " ", "poles"}], ",", " ", 
    RowBox[{
    "we", " ", "simply", " ", "apply", " ", "residue", " ", "theorem", 
     "\[IndentingNewLine]", "  ", "to", " ", "calculate", " ", "an", " ", 
     "integral", " ", "around", " ", "the", " ", "unit", " ", "circle"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"IntegrateOnce", "[", 
    RowBox[{"integrands_", ",", "poles_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"ParallelTable", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SimplifyCancel", "[", 
      RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]", " ", 
       RowBox[{"getResidue", "[", 
        RowBox[{
         RowBox[{"integrands", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"poles", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "@", "integrands"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"Length", "@", 
        RowBox[{"poles", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", 
    "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8529258811227016`*^9, 3.852925925931327*^9}, {
   3.852925990663267*^9, 3.852926035548348*^9}, {3.852926137604464*^9, 
   3.852926144300685*^9}, {3.8529306479312477`*^9, 3.852930649163335*^9}, {
   3.852931004645911*^9, 3.852931004992237*^9}, {3.852975313186474*^9, 
   3.852975313410143*^9}, {3.853074078063883*^9, 3.853074079749793*^9}, {
   3.853074132611844*^9, 3.8530741332931747`*^9}, {3.853074239787759*^9, 
   3.853074267462029*^9}, {3.8530743048130493`*^9, 3.8530743054144363`*^9}, {
   3.8530836980792103`*^9, 3.853083698778368*^9}, {3.8530891852820873`*^9, 
   3.853089186516019*^9}, {3.853516606055936*^9, 3.8535166178012533`*^9}, {
   3.85351666798803*^9, 3.853516676345299*^9}, {3.8535167897618217`*^9, 
   3.8535167984091167`*^9}, {3.8535173397942333`*^9, 3.853517366355547*^9}, {
   3.8535667717228527`*^9, 3.853566886196713*^9}, {3.8535676867984247`*^9, 
   3.853567688359849*^9}, {3.8535744252697268`*^9, 3.853574425553939*^9}, {
   3.8535801269982033`*^9, 3.85358015745389*^9}, {3.853580258444523*^9, 
   3.8535802586924143`*^9}, {3.853580649589061*^9, 3.853580651156489*^9}, {
   3.853580700400729*^9, 3.853580700946591*^9}, {3.8535818813296633`*^9, 
   3.853581882054474*^9}, {3.853581927894268*^9, 3.853581928485186*^9}, {
   3.853682086664719*^9, 3.8536821650962353`*^9}, {3.8536822165012083`*^9, 
   3.853682219254534*^9}, {3.853682261539106*^9, 3.853682263355363*^9}, {
   3.853682297062007*^9, 3.853682317866191*^9}, {3.85368236033216*^9, 
   3.853682367951151*^9}, {3.853682415294437*^9, 3.853682446368085*^9}, {
   3.853689322375676*^9, 3.853689327894145*^9}, {3.853689402210436*^9, 
   3.853689402772958*^9}, {3.853751695723256*^9, 3.853751702586873*^9}, {
   3.8537517363100758`*^9, 3.853751737537397*^9}, {3.853751773098151*^9, 
   3.853751775958164*^9}, 3.853763813845652*^9, {3.854125432363893*^9, 
   3.854125451628746*^9}, {3.854125528061355*^9, 3.8541255569288197`*^9}, {
   3.8541256352395353`*^9, 3.854125666535139*^9}, {3.854446031813135*^9, 
   3.854446032412848*^9}, {3.854446145223215*^9, 3.854446146740408*^9}, {
   3.854447267071005*^9, 3.854447267790065*^9}, {3.85444734492288*^9, 
   3.85444734660334*^9}, {3.854449699537307*^9, 3.854449699789115*^9}, {
   3.85669107670394*^9, 3.8566910901018133`*^9}, {3.867649026531856*^9, 
   3.86764904222305*^9}, {3.867660596384193*^9, 3.8676606035405483`*^9}, {
   3.8676611405028553`*^9, 3.8676611535814962`*^9}, {3.86766119719464*^9, 
   3.867661199034878*^9}, {3.869572288875948*^9, 3.86957239236563*^9}, 
   3.869572781275922*^9},ExpressionUUID->"7876b6dd-82e5-4cbd-be69-\
a383eba8b7dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "performs", " ", "contour", " ", "integration", " ", "for", " ", "every",
       " ", "variable", " ", 
      RowBox[{"x", "[", "i", "]"}], " ", "around"}], " ", "|", 
     RowBox[{"x", "[", "i", "]"}], "|"}], "=", "1"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"takes", " ", "given", " ", "integrands"}], ",", " ", 
    RowBox[{
    "variable", " ", "by", " ", "variable", " ", "finds", " ", "its", " ", 
     "poles", " ", "and", " ", "corresponding", " ", "residues"}], ",", 
    "\[IndentingNewLine]", "   ", 
    RowBox[{"and", " ", "adds", " ", "them", " ", "together"}], ",", " ", 
    RowBox[{"thus", " ", "calculating", " ", "Hilbert", " ", "series"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"IntegrateWhole", "[", "integrands_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Block", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"data", "=", "integrands"}], ",", "poles", ",", " ", 
       RowBox[{"howmany", " ", "=", " ", 
        RowBox[{"Length", "@", 
         RowBox[{"DeleteCases", "[", 
          RowBox[{
           RowBox[{"Variables", "@", "integrands"}], ",", "q"}], "]"}]}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Echo", "[", 
       RowBox[{"data", ",", "\"\<Integrands:\>\""}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"poles", " ", "=", " ", 
          RowBox[{"getPolesInside", "[", "data", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Echo", "[", 
          RowBox[{"poles", ",", "\"\<Poles:\>\""}], "]"}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"data", "=", 
          RowBox[{"IntegrateOnce", "[", 
           RowBox[{"data", ",", "poles"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Echo", "[", 
            RowBox[{"data", " ", ",", " ", "\"\<Calculated residues\>\""}], 
            "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"data", "=", 
            RowBox[{"ParallelMap", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"FullSimplifyCancel", "@", 
                RowBox[{"Total", "@", "#"}]}], "&"}], ",", "data"}], "]"}]}], 
           ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"data", "=", 
          RowBox[{"ParallelMap", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"SimplifyCancel", "@", 
              RowBox[{"Together", "@", 
               RowBox[{"Total", "@", "#"}]}]}], "&"}], ",", "data"}], "]"}]}],
          ";", "\[IndentingNewLine]", 
         RowBox[{"Echo", "[", 
          RowBox[{"data", ",", "\"\<Intermediate result:\>\""}], "]"}]}], ",",
         "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "howmany"}], "}"}]}], "\[IndentingNewLine]", "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"data", "=", 
       RowBox[{"data", "//", "FullSimplifyCancel"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Total", "@", "data"}], "//", "Together"}], "//", 
        "FullSimplifyCancel"}], "//", "ExpandNumerator"}]}]}], 
    "\[IndentingNewLine]", "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852926158808632*^9, 3.8529261826499968`*^9}, {
   3.8529262180915117`*^9, 3.852926232961217*^9}, {3.852926317182467*^9, 
   3.8529263222879467`*^9}, {3.8529263882212477`*^9, 
   3.8529265511105347`*^9}, {3.852926615242495*^9, 3.8529268329670973`*^9}, {
   3.8529268820725117`*^9, 3.8529269421656322`*^9}, {3.852927305067975*^9, 
   3.8529273100410967`*^9}, {3.8529285764795303`*^9, 3.852928594232875*^9}, {
   3.852930697503414*^9, 3.852930705373975*^9}, {3.8529307395693502`*^9, 
   3.852930745621827*^9}, {3.852930800686269*^9, 3.852930809299286*^9}, {
   3.852930993240983*^9, 3.852930994106903*^9}, {3.852974784581471*^9, 
   3.852974804521846*^9}, {3.852974836655962*^9, 3.8529749516176233`*^9}, {
   3.852975152996181*^9, 3.852975214100881*^9}, 3.852975246067471*^9, 
   3.852980291021612*^9, {3.852989166055986*^9, 3.852989169625654*^9}, {
   3.852990418037621*^9, 3.852990423125743*^9}, 3.8535166813655252`*^9, {
   3.853516910370823*^9, 3.8535169139229097`*^9}, {3.8535173447262573`*^9, 
   3.853517362647121*^9}, {3.8535669962130337`*^9, 3.853567012923333*^9}, {
   3.85356710211528*^9, 3.8535671165183363`*^9}, {3.8535677114426537`*^9, 
   3.853567739800208*^9}, {3.853567949243738*^9, 3.853567950173135*^9}, 
   3.8535679814906483`*^9, {3.853568043348549*^9, 3.8535680450068407`*^9}, {
   3.853568095132757*^9, 3.853568103224478*^9}, 3.853568190753229*^9, {
   3.853568468266499*^9, 3.8535684820145206`*^9}, {3.853568525205262*^9, 
   3.8535685333398542`*^9}, {3.853569676802052*^9, 3.85356970016892*^9}, {
   3.853574430465282*^9, 3.853574432563962*^9}, {3.853580263019741*^9, 
   3.8535802963779697`*^9}, {3.8535803901158447`*^9, 3.853580393003446*^9}, {
   3.853581605601988*^9, 3.8535816061555643`*^9}, {3.8535818422728043`*^9, 
   3.853581867025488*^9}, {3.853582567453341*^9, 3.853582568508203*^9}, {
   3.853597243934628*^9, 3.853597244619553*^9}, {3.853598144498829*^9, 
   3.853598181642321*^9}, {3.853598287154771*^9, 3.853598289367282*^9}, {
   3.853598390973892*^9, 3.853598393828224*^9}, {3.8536004069724283`*^9, 
   3.8536004166445103`*^9}, {3.8536825965514097`*^9, 3.853682599833667*^9}, {
   3.853689006444076*^9, 3.853689007140464*^9}, {3.853689298248775*^9, 
   3.853689299017988*^9}, {3.853749818201811*^9, 3.8537498193556747`*^9}, {
   3.8537498811949863`*^9, 3.8537499204204206`*^9}, {3.853749965651181*^9, 
   3.853750018624761*^9}, {3.853750464224626*^9, 3.853750465140802*^9}, {
   3.853750497113576*^9, 3.853750513716065*^9}, {3.853750570233444*^9, 
   3.853750584420657*^9}, {3.8537510564582853`*^9, 3.853751086072658*^9}, {
   3.853751124333069*^9, 3.853751169494814*^9}, {3.853751237250307*^9, 
   3.853751281161872*^9}, {3.853751350011833*^9, 3.853751464449326*^9}, {
   3.8537515250748987`*^9, 3.853751558536021*^9}, {3.853751622421607*^9, 
   3.8537516371224203`*^9}, {3.8537516841509457`*^9, 
   3.8537516851463127`*^9}, {3.8537526506754227`*^9, 3.853752651312057*^9}, {
   3.85375291476274*^9, 3.8537529566563*^9}, {3.853753113064188*^9, 
   3.8537531138912773`*^9}, {3.853753195921927*^9, 3.853753219129084*^9}, {
   3.853753258922532*^9, 3.853753346595923*^9}, {3.853753409993038*^9, 
   3.853753447746562*^9}, {3.853753768532139*^9, 3.853753774490683*^9}, {
   3.853753999681182*^9, 3.853754000643038*^9}, {3.853754487467407*^9, 
   3.8537544944728317`*^9}, {3.853758233576515*^9, 3.853758241130642*^9}, {
   3.8537582788385983`*^9, 3.853758279019232*^9}, {3.853758316377524*^9, 
   3.8537583173001127`*^9}, {3.853758820157605*^9, 3.853758837107018*^9}, {
   3.853763952917862*^9, 3.853763961060359*^9}, {3.853764431723537*^9, 
   3.853764467421397*^9}, {3.8537655412043543`*^9, 3.853765546896953*^9}, {
   3.8537659453623247`*^9, 3.8537659510189333`*^9}, {3.853864276511326*^9, 
   3.853864282562097*^9}, {3.8540419133358173`*^9, 3.8540419284739733`*^9}, {
   3.8541003296674337`*^9, 3.854100333808982*^9}, {3.8541004230068893`*^9, 
   3.85410042567028*^9}, {3.85410074554495*^9, 3.854100748502037*^9}, {
   3.854103240370207*^9, 3.854103241146205*^9}, {3.854103650333417*^9, 
   3.85410365591425*^9}, {3.854122546114332*^9, 3.8541225466967087`*^9}, {
   3.854124633007869*^9, 3.854124634528434*^9}, {3.8541261958756323`*^9, 
   3.854126196539559*^9}, {3.854363735771634*^9, 3.854363737975136*^9}, {
   3.854365717727684*^9, 3.85436573970393*^9}, {3.8543657841059217`*^9, 
   3.854365784892269*^9}, {3.8544357504649057`*^9, 3.8544357664290648`*^9}, {
   3.854436025885553*^9, 3.85443602662998*^9}, {3.8544361807384253`*^9, 
   3.854436212150778*^9}, 3.85443665403528*^9, {3.854437072840068*^9, 
   3.8544370753959103`*^9}, {3.854437142140201*^9, 3.854437233441465*^9}, {
   3.854437329051681*^9, 3.854437336175787*^9}, {3.8544373775260143`*^9, 
   3.8544373797661448`*^9}, {3.854437502036771*^9, 3.854437590463595*^9}, {
   3.854438041557107*^9, 3.854438066603119*^9}, {3.854438116679329*^9, 
   3.8544381834151773`*^9}, {3.854438250278551*^9, 3.8544382516947117`*^9}, {
   3.854440800631874*^9, 3.854440831091358*^9}, {3.854446161313879*^9, 
   3.854446278610043*^9}, {3.854446315781211*^9, 3.8544463163836727`*^9}, {
   3.85444678614307*^9, 3.854446787391881*^9}, {3.854446936406891*^9, 
   3.854446955509653*^9}, {3.8544469882703123`*^9, 3.854446989012065*^9}, {
   3.854447021816536*^9, 3.854447070357562*^9}, {3.854447397737385*^9, 
   3.8544474933194923`*^9}, {3.854447556548522*^9, 3.854447557044881*^9}, {
   3.854447591069025*^9, 3.854447591429303*^9}, 3.854447651455497*^9, {
   3.854448160938128*^9, 3.854448166862049*^9}, {3.854449299860721*^9, 
   3.8544493005335197`*^9}, {3.854449475976679*^9, 3.854449561019405*^9}, {
   3.8544497096760187`*^9, 3.854449745555717*^9}, {3.85445863526091*^9, 
   3.854458659717814*^9}, {3.854458726538652*^9, 3.854458733369316*^9}, {
   3.854458772468485*^9, 3.8544587730551243`*^9}, {3.8544588091553087`*^9, 
   3.8544588245061913`*^9}, {3.854458978670957*^9, 3.8544589795052156`*^9}, 
   3.854459018810902*^9, {3.8544629101332006`*^9, 3.854462914389721*^9}, {
   3.854463895037763*^9, 3.854463895985374*^9}, {3.854463935539345*^9, 
   3.85446394607656*^9}, {3.8554012646591177`*^9, 3.8554012697450666`*^9}, {
   3.8555088518018017`*^9, 3.85550885502205*^9}, {3.8555089582220793`*^9, 
   3.855508966217712*^9}, 3.855509159851617*^9, 3.855658138720623*^9, 
   3.855658211299136*^9, {3.856004496028347*^9, 3.8560044971337023`*^9}, {
   3.8560092272508097`*^9, 3.856009308112967*^9}, {3.856009613382279*^9, 
   3.8560096142500668`*^9}, {3.856685846485754*^9, 3.856685914103631*^9}, {
   3.856686371331749*^9, 3.8566863734891577`*^9}, {3.856691100385858*^9, 
   3.856691100868443*^9}, {3.8579237417198133`*^9, 3.8579237446971817`*^9}, 
   3.8595379944940233`*^9, {3.8595382434271708`*^9, 3.8595382443629923`*^9}, {
   3.862387150147727*^9, 3.862387155371519*^9}, 3.862387251499856*^9, {
   3.866976364633398*^9, 3.8669763708751287`*^9}, {3.8675774416689034`*^9, 
   3.8675774496240053`*^9}, {3.86757780200173*^9, 3.867577805208768*^9}, {
   3.867578324387487*^9, 3.867578325532349*^9}, {3.867578631700001*^9, 
   3.8675786327232647`*^9}, {3.8676514311627007`*^9, 
   3.8676514320302353`*^9}, {3.867651508263598*^9, 3.867651509695856*^9}, {
   3.867651591585948*^9, 3.867651598934229*^9}, {3.867651706467619*^9, 
   3.8676517102844477`*^9}, {3.867651745835875*^9, 3.867651748923215*^9}, 
   3.867651817024455*^9, {3.867651934776351*^9, 3.867651952434689*^9}, {
   3.867652518147316*^9, 3.86765255098343*^9}, {3.867652592141615*^9, 
   3.8676526043674393`*^9}, {3.867652931000257*^9, 3.867652934089172*^9}, {
   3.867653137599889*^9, 3.8676531529868517`*^9}, {3.8676531998138638`*^9, 
   3.867653230268667*^9}, {3.867653302933173*^9, 3.8676533292576323`*^9}, {
   3.8676606057273617`*^9, 3.86766061615077*^9}, {3.8676612258597183`*^9, 
   3.867661247450581*^9}, {3.86766424098969*^9, 3.86766424559305*^9}, {
   3.869572708160512*^9, 3.8695727229422483`*^9}, {3.869572778061982*^9, 
   3.8695728309022913`*^9}, {3.869572915371667*^9, 3.8695729262177277`*^9}, {
   3.8695729574235687`*^9, 3.869573078479518*^9}, {3.869573126885529*^9, 
   3.869573136486884*^9}, {3.869573214411582*^9, 3.869573316583152*^9}, {
   3.869573365704314*^9, 3.869573493248337*^9}, {3.86957353562941*^9, 
   3.869573544506538*^9}, {3.869573580335445*^9, 3.869573584030225*^9}, {
   3.86957369076681*^9, 3.869573724686426*^9}, 3.8695737716970177`*^9},
 CellLabel->
  "In[407]:=",ExpressionUUID->"1f10716d-cb97-47f8-8dee-da87368cb1ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ComputeHilbertScalar", "[", 
   RowBox[{"d_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"IntegrateWhole", "[", 
    RowBox[{"IntegrandsScalar", "[", 
     RowBox[{"d", ",", "k"}], "]"}], "]"}], " ", "//", " ", 
   "AbsoluteTiming"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852925251927618*^9, 3.852925611664256*^9}, {
   3.852925656976626*^9, 3.852925751782477*^9}, {3.852925807547799*^9, 
   3.852925814991459*^9}, {3.85292696041888*^9, 3.852926989456499*^9}, {
   3.8529270426843643`*^9, 3.852927115041164*^9}, {3.85292715051264*^9, 
   3.852927150777019*^9}, {3.852929657201954*^9, 3.852929662026307*^9}, 
   3.852930849122575*^9, {3.8529312864626093`*^9, 3.8529312867720633`*^9}, {
   3.852931317388893*^9, 3.8529313657468567`*^9}, {3.8529313984942627`*^9, 
   3.852931405725253*^9}, {3.852931468335554*^9, 3.852931486798965*^9}, {
   3.852975360448265*^9, 3.8529753729616337`*^9}, {3.852990151980517*^9, 
   3.852990152343863*^9}, 3.8530892046265574`*^9, {3.853093088207767*^9, 
   3.853093095729741*^9}, {3.853516817681518*^9, 3.8535168763918257`*^9}, 
   3.8535169575999947`*^9, {3.853517009738681*^9, 3.853517014546342*^9}, 
   3.8535172829692574`*^9, {3.853557485529955*^9, 3.853557488801013*^9}, {
   3.853580299560601*^9, 3.8535803062976933`*^9}, {3.853679754711794*^9, 
   3.853679772551279*^9}, {3.853763802686812*^9, 3.8537638099071627`*^9}, {
   3.8541259488263063`*^9, 3.8541259577887278`*^9}, {3.854126027734939*^9, 
   3.8541260286780767`*^9}, {3.854449566567853*^9, 3.854449566753538*^9}, 
   3.8556581372530622`*^9, 3.8556582121754847`*^9, {3.866739645500318*^9, 
   3.8667396776620417`*^9}, {3.867577417383815*^9, 3.867577432856885*^9}, 
   3.867659112081663*^9, {3.8676606228416643`*^9, 3.867660630330059*^9}, {
   3.867664153263946*^9, 3.867664154093376*^9}, {3.867664293450799*^9, 
   3.8676642936008987`*^9}},
 CellLabel->
  "In[408]:=",ExpressionUUID->"9b6907b0-365a-41e4-a4de-4909439aa67a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"time", ",", "resultScalar"}], "}"}], "=", 
  RowBox[{"ComputeHilbertScalar", "[", 
   RowBox[{"4", ",", "6"}], "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz1tI02EABfD519JITFTwIZgUCEmxBwnFSM2GbcSU6AKVNXC5geRIJhKo
oKZs+N/Uic7bcDmjoNKF2trA4QVjxSJaLq85Sw2ZNnvQbc50re98D4ff2zmc
U5JH16UMh8M5QwI1g5NNX53evLDoLAt9OWoztP9ppwaGTTaYtXp0HPr7HdOQ
e778PWRVHz5Cm3/xE/wnP7YOZUVx1MHIXA90fE78DWs7F0KwKbUxDEUZr4K7
xO7nJmqZW93gI6ru65XwxdrL136iNiHpDeQJNNPwyXGpHRoKbjsht/ge1ZPS
NguFnk5q73f9CryclvwDRsWfvBRAT01MPswJCeug8rGJyppGtfDBTys1YL7q
2yeW3nTtwQnFKPMXOxfHqOJ6yzkouWOjcl26MshscuRw5+6QEl7jW6m2t7e0
kFchpi4lRawdEBsO3L+gtaqNOSQ63z2jzjkqr+hmyA8vI4QDU+kiGN68QK3S
uXpbvnnzYqWyPjhWXLndQdREVFPjSyxGHVEi8AzATDZtBM4vN5vhQ0uBvodY
M2/sg6Ejsj0DsWVJQU3Pbv7ylGgvVM/AnfFgdD9xKzEhBiafEMhhRlxUBTzN
L2mFBncplVXcWDcSVfzdDRhc7vLBBZ7SD/8DKaeOUw==
  "],
 CellLabel->
  "In[601]:=",ExpressionUUID->"7ebb98a6-9110-49a0-b40a-bb1b038c9007"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Integrands:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "2"]}], ")"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"2880", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "5"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "4"]}], ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"192", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "3"], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], 
         "3"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "4"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"64", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], 
        " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], 
         "2"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "2"]}], ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"192", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "6"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"72", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "3"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], "2"], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "3"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}], 
         "2"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "2"]}], ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"72", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "2"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"32", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"32", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"20", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "5"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "5"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "5"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "5"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "5"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "5"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "5"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "5"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}], 
       RowBox[{"24", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "6"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "6"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "6"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "6"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "6"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "6"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "6"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "6"]}], "-", "1"}], ")"}]}]]}]}], 
    "}"}]}], TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.86957713280344*^9},ExpressionUUID->"b3910150-e172-47f0-bf13-c72b3caf81ff"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Poles:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "5"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "3"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "4"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], " ", "q"}], "2"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "5"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"4", "/", "5"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "5"]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"3", "/", "5"}]]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RadicalBox[
           RowBox[{"-", "1"}], "3"], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"2", "/", "3"}]]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869577132878517*^9},ExpressionUUID->"0ff2bf9f-8da4-44a6-af2c-\
804f2477f4ef"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Intermediate result:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "8"]}], "-", 
          RowBox[{"5", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "7"]}], "+", 
          RowBox[{"31", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "6"]}], "-", 
          RowBox[{"30", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "5"]}], "+", 
          RowBox[{"76", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "4"]}], "-", 
          RowBox[{"30", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "3"]}], "+", 
          RowBox[{"31", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "2"]}], "-", 
          RowBox[{"5", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           "q"}], "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"1440", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "5"]}], 
       ")"}]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], 
       RowBox[{"96", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "+", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "2"]}]]}], ",", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "+", 
         SuperscriptBox["q", "2"], "+", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "3"]}], 
      RowBox[{"32", " ", "\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "2"]}]], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"x", "(", "2", ")"}]}], " ", 
           SuperscriptBox["q", "10"]}], "+", 
          RowBox[{"3", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "9"]}], "-", 
          RowBox[{"12", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "8"]}], "+", 
          RowBox[{"9", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "7"]}], "-", 
          RowBox[{"27", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "6"]}], "+", 
          RowBox[{"16", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "5"]}], "-", 
          RowBox[{"27", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"9", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "3"]}], "-", 
          RowBox[{"12", " ", 
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "2"]}], "+", 
          RowBox[{"3", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           "q"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"96", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "4"], "-", "1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}], ")"}]}], ",", 
     
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[ImaginaryI]", " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "8"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "7"]}], "+", 
            RowBox[{
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "6"]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "4"]}], "+", 
            RowBox[{
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             "q"}], "+", 
            RowBox[{"x", "(", "2", ")"}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RadicalBox[
              RowBox[{"-", "1"}], "3"]}], ")"}], "5"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RadicalBox[
              RowBox[{"-", "1"}], "3"]}], ")"}], "4"], " ", "\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"\[ImaginaryI]", " ", 
                SqrtBox["3"]}]}], ")"}], " ", 
             SuperscriptBox["q", "2"]}], "+", "2"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{"2", "/", "3"}]], " ", 
             SuperscriptBox["q", "4"]}], "-", 
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "3"], " ", 
             SuperscriptBox["q", "2"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"q", "-", 
            RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "+", 
             RowBox[{
              RowBox[{"x", "(", "2", ")"}], " ", "q"}], "+", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["q", "2"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
             RowBox[{"q", " ", 
              RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "2"]}], 
         ")"}]}], ")"}]}], ",", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", "\[ImaginaryI]"}], "+", 
            SqrtBox["3"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "12"]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "11"]}], "+", 
            RowBox[{"5", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "10"]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "9"]}], "+", 
            RowBox[{"6", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "8"]}], "-", 
            RowBox[{"5", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "7"]}], "+", 
            RowBox[{"12", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "6"]}], "-", 
            RowBox[{"5", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "5"]}], "+", 
            RowBox[{"6", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "4"]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             SuperscriptBox["q", "3"]}], "+", 
            RowBox[{"5", " ", 
             RowBox[{"x", "(", "2", ")"}], " ", 
             SuperscriptBox["q", "2"]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
             "q"}], "+", 
            RowBox[{"x", "(", "2", ")"}]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"8", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RadicalBox[
             RowBox[{"-", "1"}], "3"]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RadicalBox[
              RowBox[{"-", "1"}], "3"]}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"2", "/", "3"}]]}], ")"}], " ", "\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "-", 
             RadicalBox[
              RowBox[{"-", "1"}], "3"], "+", "1"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"-", "1"}], ")"}], 
               RowBox[{"2", "/", "3"}]], " ", 
              SuperscriptBox["q", "2"]}], "-", "1"}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"q", "-", 
             RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{"q", "+", 
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "3"], " ", 
             RowBox[{"x", "(", "2", ")"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RadicalBox[
                RowBox[{"-", "1"}], "3"]}], ")"}], " ", 
             RowBox[{"x", "(", "2", ")"}]}], "-", "q"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "q"}], " ", 
             RowBox[{"x", "(", "2", ")"}]}], "+", 
            RadicalBox[
             RowBox[{"-", "1"}], "3"], "-", "1"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"q", " ", 
              RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"x", "(", "2", ")"}]}], "+", 
            RadicalBox[
             RowBox[{"-", "1"}], "3"]}], ")"}]}], ")"}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", "\[ImaginaryI]"}], "+", 
          SqrtBox["3"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "10"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "5"]}], "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"8", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]]}], ")"}], " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RadicalBox[
            RowBox[{"-", "1"}], "3"], " ", 
           SuperscriptBox["q", "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RadicalBox[
            RowBox[{"-", "1"}], "3"], " ", 
           SuperscriptBox["q", "2"]}], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"2", "/", "3"}]], " ", 
           SuperscriptBox["q", "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"2", "/", "3"}]], " ", 
           SuperscriptBox["q", "2"]}], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{
           RadicalBox[
            RowBox[{"-", "1"}], "3"], " ", 
           RowBox[{"x", "(", "2", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RadicalBox[
              RowBox[{"-", "1"}], "3"]}], ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "q"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "q"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", 
          RadicalBox[
           RowBox[{"-", "1"}], "3"], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", 
          RadicalBox[
           RowBox[{"-", "1"}], "3"]}], ")"}]}], ")"}]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], 
       RowBox[{"16", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"], " ", 
           SuperscriptBox["q", "8"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "8"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "4"]}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}]}]]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "6"], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "\[ImaginaryI]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "+", "\[ImaginaryI]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"x", "(", "2", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"x", "(", "2", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "\[ImaginaryI]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "\[ImaginaryI]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}], ")"}]}], ",", 
     
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", 
          RowBox[{"9", " ", 
           RadicalBox[
            RowBox[{"-", "1"}], "10"]}], "-", 
          RowBox[{"9", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"3", "/", "10"}]]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"7", "/", "10"}]], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"9", "/", "10"}]]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RadicalBox[
            RowBox[{"-", "1"}], "5"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RadicalBox[
           RowBox[{"-", "1"}], "5"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "5"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          RowBox[{"2", " ", 
           RadicalBox[
            RowBox[{"-", "1"}], "5"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"3", "/", "5"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"2", "/", "5"}]]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"3", "/", "5"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"4", "/", "5"}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "5"}]], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"3", "/", "5"}]]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"4", "/", "5"}]]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"4", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "5"}]], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"3", "/", "5"}]]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"4", "/", "5"}]]}]}], ")"}], " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", 
          RowBox[{
           RowBox[{"x", "(", "2", ")"}], " ", 
           SuperscriptBox["q", "3"]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"], " ", 
           SuperscriptBox["q", "2"]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"], " ", "q"}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "+", 
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}], ")"}]}], ",", 
     
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], 
       RowBox[{"12", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"], " ", 
           SuperscriptBox["q", "8"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"], "+", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
           SuperscriptBox["q", "6"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "8"], "+", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"], "+", "1"}], ")"}], " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"], "+", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
           SuperscriptBox["q", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}]}]]}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869577133982277*^9},ExpressionUUID->"089afe0e-1044-4d93-8f08-\
66d3d14bf9a5"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Poles:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "5"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "4"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "-", "\[ImaginaryI]"}], ")"}], " ", "q"}], "2"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "+", "\[ImaginaryI]"}], ")"}], " ", "q"}], "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "3"], "-", "1"}], ")"}], "2"], " ", "q"}], 
         "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "3"], "-", "1"}], ")"}], "2"], " ", "q"}], 
         "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "5"]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"4", "/", "5"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{"3", "/", "5"}]]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "5"}]], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "-", "\[ImaginaryI]"}], ")"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "+", "\[ImaginaryI]"}], ")"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"q", "-", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"], " ", "q"}]}], ")"}]}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"q", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"], " ", "q"}]}], ")"}]}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869577134107965*^9},ExpressionUUID->"a454d62f-92f9-4ca0-84f8-\
4aac3dfe59be"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Intermediate result:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "8"], "+", 
       SuperscriptBox["q", "6"], "+", 
       RowBox[{"6", " ", 
        SuperscriptBox["q", "4"]}], "+", 
       SuperscriptBox["q", "2"], "+", "1"}], 
      RowBox[{"720", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], "8"]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
       RowBox[{"48", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "+", "1"}], ")"}], "3"]}]]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "+", 
         SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
      RowBox[{"16", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", "1"}], ")"}], "4"]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "8"], "+", 
        SuperscriptBox["q", "6"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "4"]}], "+", 
        SuperscriptBox["q", "2"], "+", "1"}], 
       RowBox[{"48", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "5"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "+", "1"}], ")"}], "3"]}]]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "8"], "+", 
       SuperscriptBox["q", "6"], "+", 
       SuperscriptBox["q", "2"], "+", "1"}], 
      RowBox[{"18", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}], "3"]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"384", " ", "\[ImaginaryI]", " ", 
        SqrtBox["3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "8"], "+", 
          SuperscriptBox["q", "6"], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SqrtBox["3"], "-", "\[ImaginaryI]"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SqrtBox["3"], "-", 
           RowBox[{"3", " ", "\[ImaginaryI]"}]}], ")"}], "7"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "4"], "+", 
           SuperscriptBox["q", "2"], "+", "1"}], ")"}], "3"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "8"], "+", 
        SuperscriptBox["q", "6"], "+", 
        SuperscriptBox["q", "4"], "+", 
        SuperscriptBox["q", "2"], "+", "1"}], 
       RowBox[{"6", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "4"], "+", 
           SuperscriptBox["q", "2"], "+", "1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "8"], "-", 
          SuperscriptBox["q", "6"], "+", 
          SuperscriptBox["q", "2"], "-", "1"}], ")"}]}]]}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["q", "4"]}], "+", 
       SuperscriptBox["q", "2"], "-", "1"}], 
      RowBox[{"8", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "-", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", "1"}], ")"}], "2"]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox["q", "2"], "+", "1"}], 
      RowBox[{"8", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "6"], "-", 
          SuperscriptBox["q", "4"], "+", 
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"]}]], ",", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"25", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], "+", 
            RowBox[{"6", " ", 
             RadicalBox[
              RowBox[{"-", "1"}], "5"]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{"2", "/", "5"}]]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"3", "/", "5"}]]}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RadicalBox[
              RowBox[{"-", "1"}], "5"]}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{"2", "/", "5"}]]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"3", "/", "5"}]], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"4", "/", "5"}]]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"127", "-", 
             RowBox[{"124", " ", 
              RadicalBox[
               RowBox[{"-", "1"}], "5"]}], "+", 
             RowBox[{"116", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"-", "1"}], ")"}], 
               RowBox[{"2", "/", "5"}]]}], "-", 
             RowBox[{"113", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"-", "1"}], ")"}], 
               RowBox[{"3", "/", "5"}]]}], "+", 
             RowBox[{"120", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"-", "1"}], ")"}], 
               RowBox[{"4", "/", "5"}]]}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "5"], " ", 
             SuperscriptBox["q", "2"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{"4", "/", "5"}]], " ", 
             SuperscriptBox["q", "2"]}], "-", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"-", "1"}], ")"}], 
                RowBox[{"2", "/", "5"}]]}], ")"}], " ", 
             SuperscriptBox["q", "4"]}], "-", 
            RowBox[{
             RadicalBox[
              RowBox[{"-", "1"}], "5"], " ", 
             SuperscriptBox["q", "2"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"2", "/", "5"}]], "+", "1"}], ")"}]}], ")"}]}], ")"}]}], 
     ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], "+", "1"}], 
      RowBox[{"6", "-", 
       RowBox[{"6", " ", 
        SuperscriptBox["q", "12"]}]}]]}], "}"}]}], TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869577134603676*^9},ExpressionUUID->"bd2ffa72-ffb0-444a-a1c7-\
26526de7fb2e"]
}, Open  ]],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"1.853548`", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "40"], "+", 
       SuperscriptBox["q", "38"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "34"]}], "+", 
       RowBox[{"9", " ", 
        SuperscriptBox["q", "32"]}], "+", 
       RowBox[{"10", " ", 
        SuperscriptBox["q", "30"]}], "+", 
       RowBox[{"17", " ", 
        SuperscriptBox["q", "28"]}], "+", 
       RowBox[{"12", " ", 
        SuperscriptBox["q", "26"]}], "+", 
       RowBox[{"19", " ", 
        SuperscriptBox["q", "24"]}], "+", 
       RowBox[{"10", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"12", " ", 
        SuperscriptBox["q", "20"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"5", " ", 
        SuperscriptBox["q", "14"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "12"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "10"]}], "+", 
       SuperscriptBox["q", "8"], "-", 
       SuperscriptBox["q", "2"], "+", "1"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], "8"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "+", "1"}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", "1"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "+", 
          SuperscriptBox["q", "2"], "+", "1"}], ")"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "12"], "+", 
         SuperscriptBox["q", "8"], "+", 
         SuperscriptBox["q", "6"], "+", 
         SuperscriptBox["q", "4"], "+", "1"}], ")"}]}], ")"}]}]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.867577427886586*^9, 3.867577452170601*^9}, {
   3.867577741685865*^9, 3.86757776039174*^9}, {3.867577790634019*^9, 
   3.867577835533669*^9}, {3.8675779193983994`*^9, 3.867577952496149*^9}, {
   3.867578129815556*^9, 3.867578201733776*^9}, {3.867578346059367*^9, 
   3.8675783574296703`*^9}, 3.867578624147635*^9, 3.867578802055402*^9, 
   3.8676479451418324`*^9, {3.867649049410699*^9, 3.8676490734258633`*^9}, 
   3.8676493352657633`*^9, {3.867651422090604*^9, 3.867651434753366*^9}, {
   3.867651480491115*^9, 3.867651495111066*^9}, {3.8676515792735147`*^9, 
   3.867651622827578*^9}, 3.867651681825942*^9, {3.867651715866946*^9, 
   3.867651751685519*^9}, {3.8676518089238653`*^9, 3.867651829758875*^9}, {
   3.867651930326432*^9, 3.8676519394238462`*^9}, 3.867652016326901*^9, 
   3.867652574174357*^9, {3.867652609802513*^9, 3.867652642451417*^9}, 
   3.867652926782864*^9, 3.867653019479252*^9, {3.867653132977291*^9, 
   3.867653145701994*^9}, {3.867653197410707*^9, 3.867653254522683*^9}, 
   3.867659044361742*^9, {3.867659116391603*^9, 3.8676591391175337`*^9}, 
   3.8676596290518293`*^9, 3.867660080328763*^9, 3.867660219828621*^9, {
   3.867660293051304*^9, 3.8676603426012278`*^9}, 3.8676606337286263`*^9, 
   3.8676609431319113`*^9, 3.867661125682753*^9, 3.867661158300205*^9, 
   3.8676611939131947`*^9, 3.8676613265673437`*^9, {3.8676613593119707`*^9, 
   3.867661362367169*^9}, {3.867661439254689*^9, 3.8676614460839643`*^9}, 
   3.8676640119185057`*^9, {3.8676641466755247`*^9, 3.867664170150655*^9}, {
   3.867664280558647*^9, 3.867664297426051*^9}, 3.867664406814624*^9, {
   3.8685025766947107`*^9, 3.868502582840592*^9}, {3.8685026243430233`*^9, 
   3.8685026265960007`*^9}, 3.869537364234467*^9, {3.869537491741186*^9, 
   3.86953751603729*^9}, 3.869550452564437*^9, 3.869551763484247*^9, {
   3.8695518550218697`*^9, 3.8695518921498423`*^9}, {3.8695519664582787`*^9, 
   3.869552045766473*^9}, 3.869552345794223*^9, {3.869560028005405*^9, 
   3.8695600468088713`*^9}, 3.869570960266447*^9, {3.8695709939700127`*^9, 
   3.869571020807918*^9}, 3.869571078308613*^9, 3.869571351060328*^9, 
   3.869571477206346*^9, {3.869572727404416*^9, 3.869572758096957*^9}, 
   3.869573185372654*^9, {3.8695732231312943`*^9, 3.869573318897182*^9}, 
   3.86957336836096*^9, {3.8695734263391542`*^9, 3.869573495310038*^9}, 
   3.869573546690051*^9, 3.869573586377307*^9, {3.869573693765293*^9, 
   3.869573712268908*^9}, 3.869573776366658*^9, {3.869573995615888*^9, 
   3.869574041364805*^9}, 3.869574267960067*^9, {3.869576989638836*^9, 
   3.869577003557664*^9}, {3.8695771012231903`*^9, 3.869577134653001*^9}},
 CellLabel->
  "Out[601]=",ExpressionUUID->"e96151b2-3129-447a-a314-d0f6f521d129"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Expansion", " ", "of", " ", "Hilbert", " ", "series", " ", "around", 
      " ", "q"}], "=", "0"}], ",", " ", 
    RowBox[{
    "giving", " ", "us", " ", "numbers", " ", "of", " ", "independent", " ", 
     "operators"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"SeriesCoefficient", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"resultScalar", ",", 
         FractionBox["1", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "4"]}], ")"}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
         FractionBox[
          RowBox[{
           SuperscriptBox["q", "30"], "+", 
           SuperscriptBox["q", "28"], "+", 
           SuperscriptBox["q", "24"], "+", 
           SuperscriptBox["q", "22"], "+", 
           SuperscriptBox["q", "18"], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "16"]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "14"]}], "+", 
           SuperscriptBox["q", "12"], "+", 
           SuperscriptBox["q", "10"], "+", "1"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "4"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "6"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "8"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "10"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox["q", "12"]}], ")"}]}]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"q", ",", "0", ",", "#"}], "}"}]}], "]"}], "&"}], " ", "/@", 
    " ", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "50"}], "]"}]}], " ", "//", " ", "Transpose", 
   " "}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxU8og2EcAODhZCla28VsGaU+aa0dKCneRVqsjZREEik7IGNsbMl2WC1b
s2zI0lpmLaUV+6N2IWmbLGokpy2XWV9il4VtvL/38PQIpheHZysZDAYXg5/t
icnUBY3EW+kZeJWqnoMN0RYlzHQaFuGcybsE6/juOHylipEPrR+GDN68VmeE
8/5xeQFvdzAU8IK85+Ybb+1sf4VfeKGiKEgjvumenLykykMhGtWGNX9wKjHP
WsazsxryWVsu3RDGW2IZeN3sqOfhyyUZFxZavGr4ukuthfsSNSt8vMfEJTeW
mBo4y4lq4X6hRw8HBrRGuIkzpqfwu2rzJvzmcznhVkmAzD5P+W7xP7ZP8tEB
9X6HRxXd5BO/uRlFaKQejZCTumD88YFGBdZ+Es5/UU+wSyIie071mV98B7VD
3lAKqop4m1RMPlYMjrhTNIruoQl4WyZVwb1TGvI/q3TzVA==
  "],
 CellLabel->
  "In[427]:=",ExpressionUUID->"b6e1b1e0-0293-4c0e-ab45-c74d4359af7b"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0", "1", "0", "1", "0", "2", "0", "3", "0", "5", "0", 
      "6", "0", "10", "0", "12", "0", "17", "0", "23", "0", "31", "0", "37", 
      "0", "50", "0", "61", "0", "76", "0", "94", "0", "115", "0", "136", "0",
       "167", "0", "195", "0", "231", "0", "272", "0", "318", "0", "365"},
     {"1", "0", "0", "0", "1", "0", "1", "0", "1", "0", "1", "0", "2", "0", 
      "1", "0", "2", "0", "2", "0", "2", "0", "2", "0", "3", "0", "2", "0", 
      "3", "0", "3", "0", "3", "0", "3", "0", "4", "0", "3", "0", "4", "0", 
      "4", "0", "4", "0", "4", "0", "5", "0", "4"},
     {"1", "0", "0", "0", "1", "0", "1", "0", "2", "0", "3", "0", "5", "0", 
      "6", "0", "10", "0", "12", "0", "17", "0", "23", "0", "31", "0", "37", 
      "0", "50", "0", "61", "0", "76", "0", "94", "0", "115", "0", "136", "0",
       "167", "0", "195", "0", "231", "0", "272", "0", "318", "0", "365"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.867577938907482*^9, 3.867577958157378*^9}, 
   3.8675780267549877`*^9, 3.867578160937999*^9, 3.867661722104703*^9, 
   3.8676640151380033`*^9, 3.867664146753214*^9, 3.867664410017096*^9, 
   3.868502583866859*^9, 3.868502627298594*^9, 3.869537378444273*^9, 
   3.869551766029108*^9, 3.8695521074418993`*^9, 3.8695737797932034`*^9, 
   3.869573859038515*^9, {3.869574028075828*^9, 3.869574042381271*^9}},
 CellLabel->
  "Out[427]=",ExpressionUUID->"88d4a4f0-2ad4-4f46-8df0-576dbd11d104"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"using", " ", 
    RowBox[{"FactorOut", "[", "...", "]"}], " ", "we", " ", "can", " ", 
    "obtain", " ", "canonical", " ", "form", " ", "of", " ", "Hilbert", " ", 
    "series"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Times", "@@", 
   RowBox[{"FactorOut", "[", 
    RowBox[{"resultScalar", ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.8695373897978086`*^9, {3.869573873837352*^9, 3.869573949047186*^9}, {
   3.869574012859992*^9, 3.869574013235979*^9}},
 CellLabel->
  "In[599]:=",ExpressionUUID->"fea00ec2-85c5-4b9c-9715-4cfbc83d6e34"],

Cell[BoxData[
 FormBox[
  FractionBox["1", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "6"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.869537390288191*^9, 3.869573781184577*^9, 3.869573949398115*^9, {
   3.869574015176201*^9, 3.869574026630004*^9}, {3.869574261701005*^9, 
   3.869574270028729*^9}, {3.869576999587665*^9, 3.869577005627055*^9}, 
   3.8695771146351748`*^9},
 CellLabel->
  "Out[599]=",ExpressionUUID->"a1fc1d2c-ac00-4b31-a048-ddc63eecf5c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "this", " ", "for", " ", 
    RowBox[{"ComputeHilbertScalar", "[", 
     RowBox[{"4", ",", "5"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Times", "@@", 
   RowBox[{"FactorOut", "[", 
    RowBox[{"resultScalar", ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.867661648473956*^9, 3.8676616793746433`*^9}, {
  3.86766171101926*^9, 3.867661712072742*^9}, {3.867664137507235*^9, 
  3.8676641385631027`*^9}, {3.867664400277101*^9, 3.867664400895282*^9}, {
  3.869573973827787*^9, 3.869573991432167*^9}},
 CellLabel->
  "In[445]:=",ExpressionUUID->"666eb91a-c4fc-4e2f-9e06-ddd8562461fc"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox["q", "30"], "+", 
    SuperscriptBox["q", "28"], "+", 
    SuperscriptBox["q", "24"], "+", 
    SuperscriptBox["q", "22"], "+", 
    SuperscriptBox["q", "18"], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["q", "16"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["q", "14"]}], "+", 
    SuperscriptBox["q", "12"], "+", 
    SuperscriptBox["q", "10"], "+", "1"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "6"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "8"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "10"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "12"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.867661656119731*^9, 3.867661679715268*^9}, 
   3.867661712345652*^9, 3.8676640158016863`*^9, 3.867664147507951*^9, {
   3.867664401733932*^9, 3.867664411318462*^9}, 3.868502584742107*^9, 
   3.868502627918325*^9, 3.8695373812717447`*^9, 3.869573783168603*^9, {
   3.86957396703027*^9, 3.8695739988934603`*^9}, 3.869574264429751*^9},
 CellLabel->
  "Out[445]=",ExpressionUUID->"93db50f8-355d-4b97-a534-2f834c782d7f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Results", "Section",
 CellChangeTimes->{{3.8695785698965054`*^9, 
  3.869578574630488*^9}},ExpressionUUID->"c9dcfaa6-fced-432a-b7fd-\
8888000ea61d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fourfields", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["q", "4"]}], ")"}]], ",", 
     FractionBox[
      RowBox[{"1", "+", 
       SuperscriptBox["q", "9"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"q", ",", "0", ",", "40"}], "}"}]}], "]"}], " ", "//", " ",
         "Normal"}], ",", "q"}], "]"}], "&"}], "/@", "%"}], " ", "//", " ", 
   "PadRight"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<d=2, r=4\>\"", ",", "\"\<d=3, r=4\>\"", ",", "\"\<d=4, r=4\>\"", 
        ",", "\"\<d=5, r=4\>\""}], "}"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "40"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.8695768678913383`*^9, {3.869576920722476*^9, 3.8695769761783247`*^9}, {
   3.869578365065256*^9, 3.8695784365884037`*^9}},
 CellLabel->
  "In[694]:=",ExpressionUUID->"914d0e5c-920b-4aed-887c-b74e89fa06ad"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       StyleBox["\[Null]",
        ShowStringCharacters->False], 
       TagBox["0",
        HoldForm], 
       TagBox["1",
        HoldForm], 
       TagBox["2",
        HoldForm], 
       TagBox["3",
        HoldForm], 
       TagBox["4",
        HoldForm], 
       TagBox["5",
        HoldForm], 
       TagBox["6",
        HoldForm], 
       TagBox["7",
        HoldForm], 
       TagBox["8",
        HoldForm], 
       TagBox["9",
        HoldForm], 
       TagBox["10",
        HoldForm], 
       TagBox["11",
        HoldForm], 
       TagBox["12",
        HoldForm], 
       TagBox["13",
        HoldForm], 
       TagBox["14",
        HoldForm], 
       TagBox["15",
        HoldForm], 
       TagBox["16",
        HoldForm], 
       TagBox["17",
        HoldForm], 
       TagBox["18",
        HoldForm], 
       TagBox["19",
        HoldForm], 
       TagBox["20",
        HoldForm], 
       TagBox["21",
        HoldForm], 
       TagBox["22",
        HoldForm], 
       TagBox["23",
        HoldForm], 
       TagBox["24",
        HoldForm], 
       TagBox["25",
        HoldForm], 
       TagBox["26",
        HoldForm], 
       TagBox["27",
        HoldForm], 
       TagBox["28",
        HoldForm], 
       TagBox["29",
        HoldForm], 
       TagBox["30",
        HoldForm], 
       TagBox["31",
        HoldForm], 
       TagBox["32",
        HoldForm], 
       TagBox["33",
        HoldForm], 
       TagBox["34",
        HoldForm], 
       TagBox["35",
        HoldForm], 
       TagBox["36",
        HoldForm], 
       TagBox["37",
        HoldForm], 
       TagBox["38",
        HoldForm], 
       TagBox["39",
        HoldForm], 
       TagBox["40",
        HoldForm]},
      {
       TagBox["\<\"d=2, r=4\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "0", "0", "1", "0", "0", "0",
        "1", "0", "0", "0", "1", "0", "0", "0", "1", "0", "0", "0", "1", "0", 
       "0", "0", "1", "0", "0", "0", "1", "0", "0", "0", "1", "0", "0", "0", 
       "1"},
      {
       TagBox["\<\"d=3, r=4\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "1", "1", "1", "0",
        "2", "1", "1", "1", "2", "1", "2", "1", "2", "2", "2", "1", "3", "2", 
       "2", "2", "3", "2", "3", "2", "3", "3", "3", "2", "4", "3", "3", "3", 
       "4"},
      {
       TagBox["\<\"d=4, r=4\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "1", "0", "1", "0",
        "2", "0", "1", "0", "2", "0", "2", "0", "2", "0", "2", "0", "3", "0", 
       "2", "0", "3", "0", "3", "0", "3", "0", "3", "0", "4", "0", "3", "0", 
       "4"},
      {
       TagBox["\<\"d=5, r=4\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "1", "0", "1", "0",
        "2", "0", "1", "0", "2", "0", "2", "0", "2", "0", "2", "0", "3", "0", 
       "2", "0", "3", "0", "3", "0", "3", "0", "3", "0", "4", "0", "3", "0", 
       "4"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{
      "Columns" -> {False, True, {False}, False}, 
       "Rows" -> {False, True, {False}, False}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[2.0999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
   Function[BoxForm`e$, 
    TableForm[
    BoxForm`e$, 
     TableHeadings -> {{"d=2, r=4", "d=3, r=4", "d=4, r=4", "d=5, r=4"}, {0, 
       1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 
       21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
        39, 40}}]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.86957838205512*^9, 3.8695784369801064`*^9}, 
   3.8695808295162897`*^9},
 CellLabel->
  "Out[696]//TableForm=",ExpressionUUID->"1a2cc267-c88a-43f4-a9eb-\
a2bbfd035683"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fivefields", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "12"], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "30"], "+", 
       SuperscriptBox["q", "21"], "+", 
       SuperscriptBox["q", "18"], "+", 
       SuperscriptBox["q", "17"], "+", 
       SuperscriptBox["q", "16"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "15"]}], "+", 
       SuperscriptBox["q", "14"], "+", 
       SuperscriptBox["q", "13"], "+", 
       SuperscriptBox["q", "12"], "+", 
       SuperscriptBox["q", "9"], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "30"], "+", 
       SuperscriptBox["q", "28"], "+", 
       SuperscriptBox["q", "24"], "+", 
       SuperscriptBox["q", "22"], "+", 
       SuperscriptBox["q", "18"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "14"]}], "+", 
       SuperscriptBox["q", "12"], "+", 
       SuperscriptBox["q", "10"], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "30"], "+", 
       SuperscriptBox["q", "18"], "+", 
       SuperscriptBox["q", "16"], "+", 
       SuperscriptBox["q", "14"], "+", 
       SuperscriptBox["q", "12"], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"q", ",", "0", ",", "40"}], "}"}]}], "]"}], " ", "//", " ",
         "Normal"}], ",", "q"}], "]"}], "&"}], "/@", "%"}], " ", "//", " ", 
   "PadRight"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<d=2, r=5\>\"", ",", "\"\<d=3, r=5\>\"", ",", "\"\<d=4, r=5\>\"", 
        ",", "\"\<d=5, r=5\>\""}], "}"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "40"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.8695768678913383`*^9, {3.869576920722476*^9, 3.8695769761783247`*^9}, {
   3.869578449233593*^9, 3.869578466725198*^9}},
 CellLabel->
  "In[626]:=",ExpressionUUID->"340d788d-0df9-4b37-9689-cf2f6876877d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       StyleBox["\[Null]",
        ShowStringCharacters->False], 
       TagBox["0",
        HoldForm], 
       TagBox["1",
        HoldForm], 
       TagBox["2",
        HoldForm], 
       TagBox["3",
        HoldForm], 
       TagBox["4",
        HoldForm], 
       TagBox["5",
        HoldForm], 
       TagBox["6",
        HoldForm], 
       TagBox["7",
        HoldForm], 
       TagBox["8",
        HoldForm], 
       TagBox["9",
        HoldForm], 
       TagBox["10",
        HoldForm], 
       TagBox["11",
        HoldForm], 
       TagBox["12",
        HoldForm], 
       TagBox["13",
        HoldForm], 
       TagBox["14",
        HoldForm], 
       TagBox["15",
        HoldForm], 
       TagBox["16",
        HoldForm], 
       TagBox["17",
        HoldForm], 
       TagBox["18",
        HoldForm], 
       TagBox["19",
        HoldForm], 
       TagBox["20",
        HoldForm], 
       TagBox["21",
        HoldForm], 
       TagBox["22",
        HoldForm], 
       TagBox["23",
        HoldForm], 
       TagBox["24",
        HoldForm], 
       TagBox["25",
        HoldForm], 
       TagBox["26",
        HoldForm], 
       TagBox["27",
        HoldForm], 
       TagBox["28",
        HoldForm], 
       TagBox["29",
        HoldForm], 
       TagBox["30",
        HoldForm], 
       TagBox["31",
        HoldForm], 
       TagBox["32",
        HoldForm], 
       TagBox["33",
        HoldForm], 
       TagBox["34",
        HoldForm], 
       TagBox["35",
        HoldForm], 
       TagBox["36",
        HoldForm], 
       TagBox["37",
        HoldForm], 
       TagBox["38",
        HoldForm], 
       TagBox["39",
        HoldForm], 
       TagBox["40",
        HoldForm]},
      {
       TagBox["\<\"d=2, r=5\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "0", "0", "1", "0", "0", "0",
        "3", "0", "0", "0", "3", "0", "0", "0", "3", "0", "0", "0", "5", "0", 
       "0", "0", "5", "0", "0", "0", "5", "0", "0", "0", "7", "0", "0", "0", 
       "7"},
      {
       TagBox["\<\"d=3, r=5\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "1", "1", "2", "0",
        "4", "2", "3", "3", "6", "3", "7", "5", "8", "8", "11", "7", "15", 
       "13", "15", "15", "21", "17", "25", "22", "27", "28", "34", "29", "41",
        "39", "43", "44", "54"},
      {
       TagBox["\<\"d=4, r=5\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "2", "0", "3", "0",
        "5", "0", "6", "0", "10", "0", "12", "0", "17", "0", "23", "0", "31", 
       "0", "37", "0", "50", "0", "61", "0", "76", "0", "94", "0", "115", "0",
        "136", "0", "167"},
      {
       TagBox["\<\"d=5, r=5\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "2", "0", "2", "0",
        "5", "0", "4", "0", "8", "0", "9", "0", "13", "0", "15", "0", "23", 
       "0", "24", "0", "34", "0", "40", "0", "50", "0", "58", "0", "75", "0", 
       "83", "0", "104"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{
      "Columns" -> {False, True, {False}, False}, 
       "Rows" -> {False, True, {False}, False}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[2.0999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
   Function[BoxForm`e$, 
    TableForm[
    BoxForm`e$, 
     TableHeadings -> {{"d=2, r=5", "d=3, r=5", "d=4, r=5", "d=5, r=5"}, {0, 
       1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 
       21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
        39, 40}}]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.869578450541328*^9, 3.8695784712494087`*^9}},
 CellLabel->
  "Out[628]//TableForm=",ExpressionUUID->"57496e0b-2790-407c-b8c9-\
45f613dcef33"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sixfields", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "22"], "+", 
       SuperscriptBox["q", "18"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "12"]}], "+", 
       SuperscriptBox["q", "10"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "8"]}], "+", 
       SuperscriptBox["q", "6"], "+", 
       SuperscriptBox["q", "4"], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}], "2"]}]], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "43"], "+", 
        SuperscriptBox["q", "35"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "34"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "33"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "32"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["q", "31"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "30"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "29"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "28"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "27"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "26"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "25"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "24"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "23"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "22"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "21"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "20"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "19"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "18"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "17"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "16"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "15"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "14"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "13"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["q", "12"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "11"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "10"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "9"]}], "+", 
        SuperscriptBox["q", "8"], "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "6"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}], ")"}]}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "46"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "44"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["q", "42"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "40"]}], "+", 
        RowBox[{"14", " ", 
         SuperscriptBox["q", "38"]}], "+", 
        RowBox[{"23", " ", 
         SuperscriptBox["q", "36"]}], "+", 
        RowBox[{"38", " ", 
         SuperscriptBox["q", "34"]}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["q", "32"]}], "+", 
        RowBox[{"58", " ", 
         SuperscriptBox["q", "30"]}], "+", 
        RowBox[{"58", " ", 
         SuperscriptBox["q", "28"]}], "+", 
        RowBox[{"53", " ", 
         SuperscriptBox["q", "26"]}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["q", "24"]}], "+", 
        RowBox[{"36", " ", 
         SuperscriptBox["q", "22"]}], "+", 
        RowBox[{"31", " ", 
         SuperscriptBox["q", "20"]}], "+", 
        RowBox[{"22", " ", 
         SuperscriptBox["q", "18"]}], "+", 
        RowBox[{"17", " ", 
         SuperscriptBox["q", "16"]}], "+", 
        RowBox[{"11", " ", 
         SuperscriptBox["q", "14"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["q", "12"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["q", "10"]}], "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "6"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "8"]}], ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "6"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "8"]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["q", "10"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}]], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "59"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "49"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "47"]}], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["q", "45"]}], "+", 
        SuperscriptBox["q", "44"], "+", 
        RowBox[{"9", " ", 
         SuperscriptBox["q", "43"]}], "+", 
        SuperscriptBox["q", "42"], "+", 
        RowBox[{"11", " ", 
         SuperscriptBox["q", "41"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["q", "40"]}], "+", 
        RowBox[{"13", " ", 
         SuperscriptBox["q", "39"]}], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["q", "38"]}], "+", 
        RowBox[{"14", " ", 
         SuperscriptBox["q", "37"]}], "+", 
        RowBox[{"13", " ", 
         SuperscriptBox["q", "36"]}], "+", 
        RowBox[{"21", " ", 
         SuperscriptBox["q", "35"]}], "+", 
        RowBox[{"22", " ", 
         SuperscriptBox["q", "34"]}], "+", 
        RowBox[{"24", " ", 
         SuperscriptBox["q", "33"]}], "+", 
        RowBox[{"26", " ", 
         SuperscriptBox["q", "32"]}], "+", 
        RowBox[{"28", " ", 
         SuperscriptBox["q", "31"]}], "+", 
        RowBox[{"32", " ", 
         SuperscriptBox["q", "30"]}], "+", 
        RowBox[{"32", " ", 
         SuperscriptBox["q", "29"]}], "+", 
        RowBox[{"28", " ", 
         SuperscriptBox["q", "28"]}], "+", 
        RowBox[{"26", " ", 
         SuperscriptBox["q", "27"]}], "+", 
        RowBox[{"24", " ", 
         SuperscriptBox["q", "26"]}], "+", 
        RowBox[{"22", " ", 
         SuperscriptBox["q", "25"]}], "+", 
        RowBox[{"21", " ", 
         SuperscriptBox["q", "24"]}], "+", 
        RowBox[{"13", " ", 
         SuperscriptBox["q", "23"]}], "+", 
        RowBox[{"14", " ", 
         SuperscriptBox["q", "22"]}], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["q", "21"]}], "+", 
        RowBox[{"13", " ", 
         SuperscriptBox["q", "20"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["q", "19"]}], "+", 
        RowBox[{"11", " ", 
         SuperscriptBox["q", "18"]}], "+", 
        SuperscriptBox["q", "17"], "+", 
        RowBox[{"9", " ", 
         SuperscriptBox["q", "16"]}], "+", 
        SuperscriptBox["q", "15"], "+", 
        RowBox[{"7", " ", 
         SuperscriptBox["q", "14"]}], "+", 
        RowBox[{"5", " ", 
         SuperscriptBox["q", "12"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "10"]}], "+", "1"}], ")"}]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "44"], "+", 
       SuperscriptBox["q", "42"], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["q", "40"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["q", "38"]}], "+", 
       RowBox[{"13", " ", 
        SuperscriptBox["q", "36"]}], "+", 
       RowBox[{"22", " ", 
        SuperscriptBox["q", "34"]}], "+", 
       RowBox[{"26", " ", 
        SuperscriptBox["q", "32"]}], "+", 
       RowBox[{"32", " ", 
        SuperscriptBox["q", "30"]}], "+", 
       RowBox[{"28", " ", 
        SuperscriptBox["q", "28"]}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["q", "26"]}], "+", 
       RowBox[{"21", " ", 
        SuperscriptBox["q", "24"]}], "+", 
       RowBox[{"14", " ", 
        SuperscriptBox["q", "22"]}], "+", 
       RowBox[{"13", " ", 
        SuperscriptBox["q", "20"]}], "+", 
       RowBox[{"11", " ", 
        SuperscriptBox["q", "18"]}], "+", 
       RowBox[{"9", " ", 
        SuperscriptBox["q", "16"]}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["q", "14"]}], "+", 
       RowBox[{"5", " ", 
        SuperscriptBox["q", "12"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "10"]}], "+", "1"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"q", ",", "0", ",", "40"}], "}"}]}], "]"}], " ", "//", " ",
         "Normal"}], ",", "q"}], "]"}], "&"}], "/@", "%"}], " ", "//", " ", 
   "PadRight"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<d=2, r=6\>\"", ",", "\"\<d=3, r=6\>\"", ",", "\"\<d=4, r=6\>\"", 
        ",", "\"\<d=5, r=6\>\"", ",", "\"\<d=6, r=6\>\""}], "}"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "40"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.869576775587541*^9, 3.869576849409593*^9}, {
  3.869576883594118*^9, 3.8695769336574783`*^9}, {3.869578478680423*^9, 
  3.86957851423632*^9}},
 CellLabel->
  "In[638]:=",ExpressionUUID->"35593894-6a7b-42ca-b8df-bb4e6af3f104"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       StyleBox["\[Null]",
        ShowStringCharacters->False], 
       TagBox["0",
        HoldForm], 
       TagBox["1",
        HoldForm], 
       TagBox["2",
        HoldForm], 
       TagBox["3",
        HoldForm], 
       TagBox["4",
        HoldForm], 
       TagBox["5",
        HoldForm], 
       TagBox["6",
        HoldForm], 
       TagBox["7",
        HoldForm], 
       TagBox["8",
        HoldForm], 
       TagBox["9",
        HoldForm], 
       TagBox["10",
        HoldForm], 
       TagBox["11",
        HoldForm], 
       TagBox["12",
        HoldForm], 
       TagBox["13",
        HoldForm], 
       TagBox["14",
        HoldForm], 
       TagBox["15",
        HoldForm], 
       TagBox["16",
        HoldForm], 
       TagBox["17",
        HoldForm], 
       TagBox["18",
        HoldForm], 
       TagBox["19",
        HoldForm], 
       TagBox["20",
        HoldForm], 
       TagBox["21",
        HoldForm], 
       TagBox["22",
        HoldForm], 
       TagBox["23",
        HoldForm], 
       TagBox["24",
        HoldForm], 
       TagBox["25",
        HoldForm], 
       TagBox["26",
        HoldForm], 
       TagBox["27",
        HoldForm], 
       TagBox["28",
        HoldForm], 
       TagBox["29",
        HoldForm], 
       TagBox["30",
        HoldForm], 
       TagBox["31",
        HoldForm], 
       TagBox["32",
        HoldForm], 
       TagBox["33",
        HoldForm], 
       TagBox["34",
        HoldForm], 
       TagBox["35",
        HoldForm], 
       TagBox["36",
        HoldForm], 
       TagBox["37",
        HoldForm], 
       TagBox["38",
        HoldForm], 
       TagBox["39",
        HoldForm], 
       TagBox["40",
        HoldForm]},
      {
       TagBox["\<\"d=2, r=6\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "1", "0", "3", "0", "1", "0",
        "6", "0", "1", "0", "8", "0", "4", "0", "10", "0", "4", "0", "17", 
       "0", "4", "0", "19", "0", "9", "0", "23", "0", "9", "0", "32", "0", 
       "9", "0", "36"},
      {
       TagBox["\<\"d=3, r=6\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "2", "0", "3", "2", "5", "2",
        "10", "7", "13", "12", "23", "19", "35", "32", "50", "52", "74", "72",
        "108", "112", "145", "155", "204", "213", "275", "292", "360", "393", 
       "477", "506", "618", "668", "782", "849", "998"},
      {
       TagBox["\<\"d=4, r=6\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "2", "0", "4", "0", "6", "0",
        "14", "0", "23", "0", "45", "0", "75", "0", "132", "0", "212", "0", 
       "353", "0", "540", "0", "840", "0", "1249", "0", "1849", "0", "2644", 
       "0", "3776", "0", "5240", "0", "7237"},
      {
       TagBox["\<\"d=5, r=6\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "2", "0", "4", "0", "6", "0",
        "13", "0", "19", "1", "36", "1", "58", "4", "97", "10", "149", "22", 
       "244", "43", "364", "77", "558", "138", "824", "230", "1208", "374", 
       "1727", "588", "2467", "899", "3432", "1343", "4761"},
      {
       TagBox["\<\"d=6, r=6\"\>",
        HoldForm], "1", "0", "0", "0", "1", "0", "2", "0", "4", "0", "6", "0",
        "13", "0", "19", "0", "36", "0", "58", "0", "97", "0", "149", "0", 
       "244", "0", "364", "0", "558", "0", "824", "0", "1208", "0", "1727", 
       "0", "2467", "0", "3432", "0", "4761"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{
      "Columns" -> {False, True, {False}, False}, 
       "Rows" -> {False, True, {False}, False}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[2.0999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
   Function[BoxForm`e$, 
    TableForm[
    BoxForm`e$, 
     TableHeadings -> {{
       "d=2, r=6", "d=3, r=6", "d=4, r=6", "d=5, r=6", "d=6, r=6"}, {0, 1, 2, 
       3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
       22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        40}}]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.869578489899115*^9, 3.869578514698794*^9}},
 CellLabel->
  "Out[640]//TableForm=",ExpressionUUID->"0ee23f58-df17-4737-b6e8-\
b72b2c631075"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Photons, electromagnetic field", "Chapter",
 CellChangeTimes->{{3.8676634686497993`*^9, 
  3.867663493762802*^9}},ExpressionUUID->"4a307331-d381-4b39-ab84-\
959d2bae02ff"],

Cell[CellGroupData[{

Cell["Definitions", "Section",
 CellChangeTimes->{{3.869578606353423*^9, 
  3.869578608366713*^9}},ExpressionUUID->"41e0d781-d367-45d5-823a-\
d91ce428187c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "character", " ", "of", " ", "standard", " ", "representation", " ", "of",
      " ", "SO", 
     RowBox[{"(", "dim", ")"}]}], ",", " ", 
    RowBox[{"see", " ", "Example", " ", "3.92"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "actually", " ", "compute", " ", "it", " ", "by", " ", 
    "expanding", " ", "symmetric", " ", "graded", " ", "character", " ", 
    "and", " ", "taking", " ", "koefficient", " ", "before", " ", 
    SuperscriptBox["q", "1"]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]StandardSO", "[", "dim_", "]"}], ":=", 
   RowBox[{
    RowBox[{"SeriesCoefficient", "[", 
     RowBox[{
      RowBox[{"P", "[", "dim", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0", ",", "1"}], "}"}]}], "]"}], " ", "//", " ", 
    "Simplify"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.856617566898596*^9, 3.8566176567712297`*^9}, {
  3.8566177797174683`*^9, 3.856617780588231*^9}, {3.85661789565921*^9, 
  3.8566179269065742`*^9}, {3.867663514436419*^9, 3.8676635208113527`*^9}, {
  3.869580441537953*^9, 3.8695805690891743`*^9}},
 CellLabel->
  "In[692]:=",ExpressionUUID->"3c3f55a9-3671-454b-9c15-93767d024b5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]StandardSO", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8676635234398317`*^9, 3.86766352735415*^9}, {
  3.869580474958536*^9, 3.869580477242687*^9}},
 CellLabel->
  "In[693]:=",ExpressionUUID->"b07a262e-3ac5-43ea-8339-91c3dc08f1f6"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"x", "(", "1", ")"}], "+", 
   RowBox[{"x", "(", "2", ")"}], "+", 
   FractionBox["1", 
    RowBox[{"x", "(", "2", ")"}]], "+", 
   FractionBox["1", 
    RowBox[{"x", "(", "1", ")"}]]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.867663527704071*^9, 3.868502630039785*^9, 
  3.8695804799745073`*^9, 3.869580572871784*^9},
 CellLabel->
  "Out[693]=",ExpressionUUID->"7c0d9227-dd7c-48e3-88a3-1a6da4fa0dba"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"see", " ", "Calculation", " ", "5.14"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]Rphotons", "[", "dim_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"q", "-", 
             SuperscriptBox["q", "3"]}], ")"}], 
           RowBox[{"\[Chi]StandardSO", "[", "dim", "]"}]}], "-", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "4"]}], ")"}]}], ")"}], 
        RowBox[{"P", "[", "dim", "]"}]}], "+", "1"}], "q"], " ", "//", 
     "Expand"}], " ", "//", " ", "FullSimplifyCancel"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQfW3N6yrmbW8cD91MagHRLVK33wsBacW0J2B6Sf+c
ulM73zjOWb4STG+b1rL9xe43jpYWs8B04xQ9qZdAWmCKmiqI1ilUNAPRTIom
YDpsQV08iK7rjEwC0X1slVtA9MzUejBtxMuyG0TPO5C2B0Svvat+BESr204B
04v4jku8AtLcf5JkQbTf/wPKIDqOQVkbRK9rPG8Jos+o5tqD6AqnM7b95944
mhTdANPWq04Hg+iK8Itgek/p6kgQLX9yE5g2+xSfBqIL9qeCaYlgGcnd5984
vsgNkAHRq9nPKYDopllzFEF0V2+KAYj2q3kPpnMuLJ7++8Ibxyd3/daDaJ1t
iVtA9KMp3dtBdInog70g+sFavf0gel+C7kkQ3X80DUxrLgqYsfgK0F6lNjAd
9ujTUhDNzl22EkQDAM+t8Sg=
  
  "],ExpressionUUID->"d99d402d-b49d-4b8a-ac1b-1ed12ed6c781"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]Rphotons", "[", "4", "]"}]], "Input",
 CellChangeTimes->{{3.8676636067482433`*^9, 3.8676636261856213`*^9}, {
  3.867663680403226*^9, 3.867663683510727*^9}, {3.867663826203977*^9, 
  3.867663826373407*^9}, {3.86766386859182*^9, 3.867663874970623*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"7e1da3b1-8185-49b4-9388-319aff5ff41c"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"q", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", "q", " ", 
        RowBox[{"x", "(", "1", ")"}]}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"2", " ", "q", " ", 
           RowBox[{"x", "(", "1", ")"}]}]}], "+", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"x", "(", "2", ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}]}], "+", 
      SuperscriptBox[
       RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"q", "-", 
      RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"q", " ", 
       RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}]}]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.86766362684623*^9, 3.8676637400313272`*^9}, {
   3.867663799176499*^9, 3.867663826848015*^9}, {3.8676638713527613`*^9, 
   3.867663875257815*^9}, 3.86850263195907*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"940f5351-c285-4641-bfcc-5f37f05713e4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"see", " ", "Calculation", " ", "4.23"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Chi]Jphotons", "[", 
    RowBox[{"dim_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"PEpick\[Phi]", "[", "r", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"f", "[", "k_", "]"}], ":>", " ", 
      RowBox[{"PlethysticSub", "[", 
       RowBox[{
        RowBox[{"\[Chi]Rphotons", "[", "dim", "]"}], ",", "k"}], "]"}]}], 
     "}"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.86766387934755*^9, 3.867663885064919*^9}, {
  3.869580673177251*^9, 
  3.869580678999165*^9}},ExpressionUUID->"e209acef-1905-4e59-a9a0-\
35c9a8009c4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Chi]Jphotons", "[", 
  RowBox[{"4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.8676638880340014`*^9, 3.867663919163148*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"e78d1d2a-d035-4c05-a2c9-f1947d319098"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["q", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", "q", " ", 
          RowBox[{"x", "(", "1", ")"}]}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", "q", " ", 
             RowBox[{"x", "(", "1", ")"}]}]}], "+", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"x", "(", "2", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}], "4"]}], 
    RowBox[{"24", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "1", ")"}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "2", ")"}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["q", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"2", " ", 
         SuperscriptBox["q", "4"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "4"]}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "8"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "4"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "4"]}]}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "8"], "+", "1"}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "8"], "+", "1"}], ")"}]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q", "4"], "-", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", "q", " ", 
          RowBox[{"x", "(", "1", ")"}]}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", "q", " ", 
             RowBox[{"x", "(", "1", ")"}]}]}], "+", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"x", "(", "2", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", 
             SuperscriptBox["q", "3"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "3"]}]}], "+", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "6"], "+", "1"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "3"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "6"], "+", "1"}], ")"}]}], ")"}], "/", 
    
    RowBox[{"(", 
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "3"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "3"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"q", "-", 
        RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", " ", 
         RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "3"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "3"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}], ")"}]}], 
   "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["q", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", 
             SuperscriptBox["q", "2"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"]}]}], "+", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"], "+", "1"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], "+", "1"}], ")"}], "2"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], " ", 
     
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], "2"]}]], 
   "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["q", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"2", " ", "q", " ", 
           RowBox[{"x", "(", "1", ")"}]}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"2", " ", "q", " ", 
              RowBox[{"x", "(", "1", ")"}]}]}], "+", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"x", "(", "2", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"q", "-", 
            RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}]}], "+", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], "+", "1"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "2"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"2", " ", 
             SuperscriptBox["q", "2"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"]}]}], "+", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"], "+", "1"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "4"], "+", "1"}], ")"}]}], ")"}], "/", 
    
    RowBox[{"(", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "1", ")"}]}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"q", "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"q", " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "2"], "-", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["q", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}], 
     ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.867663891612273*^9, 3.867663919514408*^9}, 
   3.8685026356456337`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"e8252494-17ec-4fd6-9890-bef78d515c22"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"IntegrandsPhotons", "[", 
   RowBox[{"dim_", ",", "r_"}], "]"}], ":=", 
  RowBox[{"Integrands", "[", 
   RowBox[{"dim", ",", "r", ",", "\[Chi]Jphotons"}], "]"}], " "}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.867664038595557*^9, 3.867664047025374*^9}, {
  3.867664091194541*^9, 3.8676640913636703`*^9}, {3.868502640844998*^9, 
  3.868502641036665*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"76c9217a-ba01-4f63-a08b-3638e4cc3bc1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegrandsPhotons", "[", 
  RowBox[{"4", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.867664048374776*^9, 3.867664051646701*^9}, {
  3.867664088323451*^9, 3.867664088476254*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"d47b2a30-9e9d-4660-a6dc-7349f9478cd3"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "(", "1", ")"}], "-", 
         RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], " ", 
          RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"], "-", 
          RowBox[{"2", " ", "q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"], "-", 
             RowBox[{"2", " ", "q", " ", 
              RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"q", "-", 
             RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"q", " ", 
              RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "4"]}], 
      RowBox[{"96", " ", 
       SuperscriptBox["\[Pi]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "1", ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"]}]]}], ",", 
    
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "(", "1", ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"], "-", 
            RowBox[{"2", " ", "q", " ", 
             RowBox[{"x", "(", "1", ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"], "-", 
               RowBox[{"2", " ", "q", " ", 
                RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"q", "-", 
               RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"q", " ", 
                RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
             RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "4"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["q", "2"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"]}], "+", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["q", "2"], "-", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["q", "2"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "1"}], ")"}]}], ")"}],
        "/", 
       RowBox[{"(", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Pi]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}], 
        ")"}]}], ")"}]}], ",", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "(", "1", ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "4"], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["q", "2"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "4"], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox["q", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"x", "(", "1", ")"}], "2"]}], "+", "1"}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["q", "2"], "-", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["q", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "1"}], ")"}], "2"]}],
         ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"32", " ", 
         SuperscriptBox["\[Pi]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["q", "2"], "-", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["q", "2"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["q", "2"], "-", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["q", "2"], " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], "2"]}],
         ")"}]}], ")"}]}], ",", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "(", "1", ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"], "-", 
           RowBox[{"2", " ", "q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"], "-", 
              RowBox[{"2", " ", "q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"q", "-", 
              RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "6"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "3"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "6"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["q", "3"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "3"]}], "+", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "6"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["q", "3"], "-", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["q", "3"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "3"]}], "+", "1"}], ")"}]}], ")"}],
        "/", 
       RowBox[{"(", 
        RowBox[{"12", " ", 
         SuperscriptBox["\[Pi]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "3"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "3"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "3"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}], 
        ")"}]}], ")"}]}], ",", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"x", "(", "1", ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "8"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "4"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "4"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "8"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["q", "4"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "4"]}], "+", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "8"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["q", "4"], "-", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["q", "4"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "4"]}], "+", "1"}], ")"}]}], ")"}],
        "/", 
       RowBox[{"(", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Pi]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "1", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "4"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "4"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"x", "(", "2", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "4"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "4"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}], 
        ")"}]}], ")"}]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.867664052044064*^9, 3.867664095175811*^9, 
  3.868502642169345*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"8d627611-5652-4c45-8457-1715d49da930"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ComputeHilbertPhotons", "[", 
   RowBox[{"d_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"IntegrateWhole", "[", 
    RowBox[{"IntegrandsPhotons", "[", 
     RowBox[{"d", ",", "k"}], "]"}], "]"}], " ", "//", " ", 
   "AbsoluteTiming"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.852925251927618*^9, 3.852925611664256*^9}, {
   3.852925656976626*^9, 3.852925751782477*^9}, {3.852925807547799*^9, 
   3.852925814991459*^9}, {3.85292696041888*^9, 3.852926989456499*^9}, {
   3.8529270426843643`*^9, 3.852927115041164*^9}, {3.85292715051264*^9, 
   3.852927150777019*^9}, {3.852929657201954*^9, 3.852929662026307*^9}, 
   3.852930849122575*^9, {3.8529312864626093`*^9, 3.8529312867720633`*^9}, {
   3.852931317388893*^9, 3.8529313657468567`*^9}, {3.8529313984942627`*^9, 
   3.852931405725253*^9}, {3.852931468335554*^9, 3.852931486798965*^9}, {
   3.852975360448265*^9, 3.8529753729616337`*^9}, {3.852990151980517*^9, 
   3.852990152343863*^9}, 3.8530892046265574`*^9, {3.853093088207767*^9, 
   3.853093095729741*^9}, {3.853516817681518*^9, 3.8535168763918257`*^9}, 
   3.8535169575999947`*^9, {3.853517009738681*^9, 3.853517014546342*^9}, 
   3.8535172829692574`*^9, {3.853557485529955*^9, 3.853557488801013*^9}, {
   3.853580299560601*^9, 3.8535803062976933`*^9}, {3.853679754711794*^9, 
   3.853679772551279*^9}, {3.853763802686812*^9, 3.8537638099071627`*^9}, {
   3.8541259488263063`*^9, 3.8541259577887278`*^9}, {3.854126027734939*^9, 
   3.8541260286780767`*^9}, {3.854449566567853*^9, 3.854449566753538*^9}, 
   3.8556581372530622`*^9, 3.8556582121754847`*^9, {3.866739645500318*^9, 
   3.8667396776620417`*^9}, {3.867577417383815*^9, 3.867577432856885*^9}, 
   3.867659112081663*^9, {3.8676606228416643`*^9, 3.867660630330059*^9}, {
   3.8676640707942543`*^9, 3.867664102973998*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"0939cbd5-7f2d-4b2b-9cb6-d024f0849831"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"time", ",", "resultPhotons"}], "}"}], "=", 
  RowBox[{"ComputeHilbertPhotons", "[", 
   RowBox[{"4", ",", "4"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.867664117493519*^9, 3.867664124007266*^9}, {
  3.867664382077795*^9, 3.867664382888002*^9}, {3.869574672276429*^9, 
  3.869574672528667*^9}, {3.8695748611593018`*^9, 3.8695748614593782`*^9}, {
  3.869574972660894*^9, 3.8695749727652073`*^9}, {3.8695786955852823`*^9, 
  3.8695787307423773`*^9}},
 CellLabel->
  "In[649]:=",ExpressionUUID->"4bda6508-a72b-4aa9-bdd9-cc7e7406961b"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Integrands:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"], "-", 
           RowBox[{"2", " ", "q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"], "-", 
              RowBox[{"2", " ", "q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"q", "-", 
              RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "4"]}], 
       RowBox[{"96", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "1", ")"}]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"q", "-", 
           RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"q", " ", 
            RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"], "-", 
           RowBox[{"2", " ", "q", " ", 
            RowBox[{"x", "(", "1", ")"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"], "-", 
              RowBox[{"2", " ", "q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"q", "-", 
              RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"q", " ", 
               RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
            RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "4"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["q", "2"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "-", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["q", "2"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "1"}], ")"}]}], 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "4"], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["q", "2"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"]}], "+", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["q", "2"], "-", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["q", "2"], " ", 
               SuperscriptBox[
                RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], " ", 
            
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "1"}], ")"}], "2"]}], 
       
       RowBox[{"32", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "1", ")"}], "2"]}], "-", "1"}], ")"}], "2"], 
        " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["q", "2"], " ", 
            SuperscriptBox[
             RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "1"}], ")"}], 
         "2"]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "2"], "-", 
          RowBox[{"2", " ", "q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "2"], "-", 
             RowBox[{"2", " ", "q", " ", 
              RowBox[{"x", "(", "1", ")"}]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"q", "-", 
             RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"q", " ", 
              RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "6"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "6"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["q", "3"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "3"]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "6"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "3"], "-", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["q", "3"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "+", "1"}], ")"}]}], 
       RowBox[{"12", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "3"]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "3"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "-", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "1", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "1", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "(", "1", ")"}], "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "(", "1", ")"}], " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "8"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "8"], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["q", "4"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "4"]}], "+", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "8"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "4"], "-", 
             SuperscriptBox[
              RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["q", "4"], " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "+", "1"}], ")"}]}], 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Pi]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "1", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "1", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "1", ")"}], "4"]}], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "4"], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "-", "1"}], ")"}]}]]}]}], 
    "}"}]}], TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869578730983738*^9},ExpressionUUID->"41bd6ebe-45e2-4795-abcc-\
6e1814e7dd5f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Poles:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "1", ")"}], "0", "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], "0", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "0", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "2"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "0", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"2", "/", "3"}]], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", 
           RadicalBox[
            RowBox[{"-", "1"}], "3"]}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "1", ")"}], "0", "2"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{"-", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "1", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869578731025832*^9},ExpressionUUID->"76906984-8973-4c63-acd2-\
2c58288409fa"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Intermediate result:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          SuperscriptBox["q", "4"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "3"}], ")"}]}], "-", 
         
         RowBox[{"4", " ", 
          SuperscriptBox["q", "3"], " ", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"5", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"]}], "+", 
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
            RowBox[{"9", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "5"}], ")"}]}], "+", 
         
         RowBox[{
          SuperscriptBox["q", "2"], " ", 
          RowBox[{"x", "(", "2", ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], "2"], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"13", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "13"}], ")"}]}], "+", 
         RowBox[{"q", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"x", "(", "2", ")"}], "10"]}]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "8"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"]}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "-", "3"}], ")"}]}], "-", 
         
         RowBox[{
          RowBox[{"x", "(", "2", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"7", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "8"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"]}], "+", "7"}], ")"}]}]}], 
        ")"}]}], 
      RowBox[{"24", " ", "\[Pi]", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"x", "(", "2", ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], "3"]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["q", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}], "2"]}], 
       RowBox[{"4", " ", "\[Pi]", " ", 
        RowBox[{"x", "(", "2", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "6"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "-", "2"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "8"], "-", "1"}], ")"}]}], 
       RowBox[{"8", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"q", "-", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", 
          RowBox[{"x", "(", "2", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "-", "1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q", " ", 
           RowBox[{"x", "(", "2", ")"}]}], "+", "1"}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["q", "2"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "4"]}], "-", 
          RowBox[{"2", " ", "q", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "7"], "+", 
             RowBox[{"x", "(", "2", ")"}]}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"x", "(", "2", ")"}], "2"], "-", "1"}], ")"}], "2"], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"], "+", 
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "2"], "+", "1"}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{"6", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"x", "(", "2", ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "6"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "3"]}], "-", 
          RowBox[{
           SuperscriptBox["q", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "6"], "+", "1"}], ")"}]}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "3"]}], ")"}]}]]}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"x", "(", "2", ")"}]}], 
       RowBox[{"4", " ", "\[Pi]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["q", "4"], " ", 
           SuperscriptBox[
            RowBox[{"x", "(", "2", ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["q", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"x", "(", "2", ")"}], "4"], "+", "1"}], ")"}]}], "+", 
          SuperscriptBox[
           RowBox[{"x", "(", "2", ")"}], "2"]}], ")"}]}]]}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869578731343886*^9},ExpressionUUID->"a297dd51-8eae-47ae-867f-\
a13687cfbd1d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Poles:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "3"},
        {
         RowBox[{"x", "(", "2", ")"}], "0", "3"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], "0", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"},
        {
         RowBox[{"x", "(", "2", ")"}], "0", "3"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"-", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], "0", "2"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "-", "\[ImaginaryI]"}], ")"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{
            SqrtBox["3"], "+", "\[ImaginaryI]"}], ")"}], " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], "q", "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}], ",", 
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{"\[ImaginaryI]", " ", "q"}], "1"},
        {
         RowBox[{"x", "(", "2", ")"}], 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "q"}], "1"}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}], "\[NoBreak]", ")"}]}], "}"}]}], 
  TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.8695787313978863`*^9},ExpressionUUID->"3a20a7d6-0b0d-4549-9780-\
d6f7c7431281"],

Cell[BoxData[
 FormBox[
  RowBox[{
   TagBox["\<\"Intermediate result:\"\>",
    "EchoLabel"], "  ", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "2"], "+", "3"}], ")"}]}], 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"]}]], ",", 
     FractionBox[
      SuperscriptBox["q", "4"], 
      RowBox[{"1", "-", 
       SuperscriptBox["q", "2"]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "2"], "-", "2"}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["q", "2"], "-", "1"}], ")"}], "2"]}]]}], ",", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["q", "6"]}], 
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "4"], "+", 
         SuperscriptBox["q", "2"], "+", "1"}], ")"}]}]], ",", 
     FractionBox[
      SuperscriptBox["q", "4"], 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "4"]}]}]]}], "}"}]}], TraditionalForm]], "Echo",
 CellChangeTimes->{
  3.869578731537524*^9},ExpressionUUID->"4d86363b-ca51-42dd-9e98-\
34479a8f8e0a"]
}, Open  ]],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"0.602915`", ",", 
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "10"]}]}], "+", 
      SuperscriptBox["q", "8"], "+", 
      RowBox[{"5", " ", 
       SuperscriptBox["q", "6"]}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["q", "4"]}]}], 
     RowBox[{
      SuperscriptBox["q", "10"], "-", 
      SuperscriptBox["q", "6"], "-", 
      SuperscriptBox["q", "4"], "+", "1"}]]}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.867664126002474*^9, {3.867664372595024*^9, 3.867664385764772*^9}, 
   3.868502647844342*^9, {3.86957466037014*^9, 3.869574673534741*^9}, 
   3.8695748650829363`*^9, 3.869574973398425*^9, {3.8695786972312927`*^9, 
   3.869578731587945*^9}},
 CellLabel->
  "Out[649]=",ExpressionUUID->"908ebb9e-f8a8-46b0-a150-4d57f4024238"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SeriesCoefficient", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"resultPhotons", ",", 
        FractionBox[
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["q", "6"]}], "+", 
            SuperscriptBox["q", "5"], "+", 
            SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "4"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               SuperscriptBox["q", "6"]}], ")"}]}], "+", 
            SuperscriptBox["q", "4"], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["q", "2"]}], "+", "3"}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "4"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["q", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "4"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
        FractionBox[
         RowBox[{
          SuperscriptBox["q", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["q", "8"], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["q", "4"]}], "+", 
            RowBox[{"3", " ", 
             SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "4"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["q", "6"]}], ")"}]}]]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"q", ",", "0", ",", "#"}], "}"}]}], "]"}], "&"}], " ", "/@", 
   " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0", ",", "50"}], "]"}]}], " ", "//", " ", "Transpose", 
  " "}]], "Input",
 CellChangeTimes->{{3.8695786840481253`*^9, 3.869578689084836*^9}},
 CellLabel->
  "In[650]:=",ExpressionUUID->"225c8c11-d856-44ce-98c2-0557b92c5f44"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0", "0", "3", "0", "5", "0", "4", "0", "6", "0", "9", "0", 
      "7", "0", "10", "0", "12", "0", "11", "0", "13", "0", "16", "0", "14", 
      "0", "17", "0", "19", "0", "18", "0", "20", "0", "23", "0", "21", "0", 
      "24", "0", "26", "0", "25", "0", "27", "0", "30", "0", "28"},
     {"0", "0", "0", "0", "1", "0", "1", "0", "1", "1", "1", "0", "2", "1", 
      "1", "1", "2", "1", "2", "1", "2", "2", "2", "1", "3", "2", "2", "2", 
      "3", "2", "3", "2", "3", "3", "3", "2", "4", "3", "3", "3", "4", "3", 
      "4", "3", "4", "4", "4", "3", "5", "4", "4"},
     {"0", "0", "0", "0", "3", "0", "5", "0", "4", "0", "6", "0", "9", "0", 
      "7", "0", "10", "0", "12", "0", "11", "0", "13", "0", "16", "0", "14", 
      "0", "17", "0", "19", "0", "18", "0", "20", "0", "23", "0", "21", "0", 
      "24", "0", "26", "0", "25", "0", "27", "0", "30", "0", "28"},
     {"0", "0", "0", "0", "2", "0", "3", "0", "4", "0", "5", "0", "7", "0", 
      "7", "0", "9", "0", "10", "0", "11", "0", "12", "0", "14", "0", "14", 
      "0", "16", "0", "17", "0", "18", "0", "19", "0", "21", "0", "21", "0", 
      "23", "0", "24", "0", "25", "0", "26", "0", "28", "0", "28"},
     {"0", "0", "0", "0", "2", "0", "3", "0", "4", "0", "5", "0", "8", "0", 
      "7", "0", "10", "0", "11", "0", "12", "0", "13", "0", "16", "0", "15", 
      "0", "18", "0", "19", "0", "20", "0", "21", "0", "24", "0", "23", "0", 
      "26", "0", "27", "0", "28", "0", "29", "0", "32", "0", "31"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.869578689582898*^9, 3.869578733099518*^9}},
 CellLabel->
  "Out[650]=",ExpressionUUID->"6b618fd1-93f4-4745-92de-fe2afabc0d68"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"resultPhotonsCanonicalForm", "=", 
  RowBox[{"Times", "@@", 
   RowBox[{"FactorOut", "[", 
    RowBox[{"resultPhotons", ",", 
     FractionBox[
      SuperscriptBox["q", "4"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8566162985744247`*^9, 3.856616381371922*^9}, {
   3.85661817669409*^9, 3.856618185930665*^9}, {3.856618903351974*^9, 
   3.856618933832025*^9}, {3.856619054723723*^9, 3.856619080952964*^9}, {
   3.8566193486187773`*^9, 3.856619352202611*^9}, {3.856620253582893*^9, 
   3.8566202694636106`*^9}, {3.856620717693223*^9, 3.8566207751436377`*^9}, {
   3.856620833593313*^9, 3.856620865597919*^9}, {3.856620957687694*^9, 
   3.8566209604915752`*^9}, {3.856687647981551*^9, 3.8566876668389473`*^9}, {
   3.857124366206771*^9, 3.857124375598279*^9}, {3.866393317978464*^9, 
   3.866393344622979*^9}, {3.866393390406927*^9, 3.866393391167515*^9}, {
   3.8670083292883043`*^9, 3.867008336315206*^9}, 3.867008470166131*^9, {
   3.8676643253210487`*^9, 3.867664395702951*^9}},
 CellLabel->
  "In[651]:=",ExpressionUUID->"41a1df6a-d664-4205-a47b-a64da7dd70a9"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox["q", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"2", " ", 
        SuperscriptBox["q", "6"]}]}], "+", 
      SuperscriptBox["q", "4"], "+", 
      RowBox[{"5", " ", 
       SuperscriptBox["q", "2"]}], "+", "3"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "4"]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["q", "6"]}], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8676643470310593`*^9, 3.867664396136298*^9}, 
   3.8685026510642967`*^9, {3.8695746654973392`*^9, 3.869574677544168*^9}, 
   3.869574866159481*^9, 3.869574974094973*^9, {3.869578698127077*^9, 
   3.869578735486092*^9}},
 CellLabel->
  "Out[651]=",ExpressionUUID->"523ea600-4b48-4808-99b9-dbb8dd663bf8"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Results", "Section",
 CellChangeTimes->{{3.869578617204885*^9, 
  3.869578619343014*^9}},ExpressionUUID->"e938d0e2-04e8-4cd8-83b9-\
3d3c557d8398"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fourPhotons", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["q", "6"]}], "+", 
         SuperscriptBox["q", "5"], "+", 
         SuperscriptBox["q", "2"], "+", "1"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            SuperscriptBox["q", "6"]}], ")"}]}], "+", 
         SuperscriptBox["q", "4"], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["q", "2"]}], "+", "3"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["q", "4"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "8"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "4"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["q", "9"]}], "+", 
         SuperscriptBox["q", "5"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "4"]}], "+", 
         SuperscriptBox["q", "3"], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1", "/", "q"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}]}]], "-", 
      SuperscriptBox["q", "3"]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["q", "10"], "-", 
         SuperscriptBox["q", "6"], "+", 
         SuperscriptBox["q", "4"], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["q", "2"]}], "+", "3"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}]}]], "+", 
      SuperscriptBox["q", "4"]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["q", "11"]}], "+", 
         SuperscriptBox["q", "7"], "+", 
         SuperscriptBox["q", "5"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "4"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["q", "2"]}], "-", "q", "+", "2"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}]}]], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["q", "4"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "2"]}], "+", "2"}], ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}]}]], "-", 
      SuperscriptBox["q", "5"]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"q", ",", "0", ",", "40"}], "}"}]}], "]"}], " ", "//", " ",
         "Normal"}], ",", "q"}], "]"}], "&"}], "/@", " ", "%"}], " ", "//", 
   " ", "PadRight"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<d=3, r=4\>\"", ",", "\"\<d=4, r=4\>\"", ",", "\"\<d=5, r=4\>\"", 
        ",", "\"\<d=6, r=4\>\"", ",", "\"\<d=7, r=4\>\"", ",", 
        "\"\<d=7, r=4\>\"", ",", "\"\<d=8, r=4\>\"", ",", "\"\<d=8, r=4\>\"", 
        ",", "\"\<d=9, r=4\>\"", ",", "\"\<d=9, r=4\>\""}], "}"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "40"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQbZNx8/mr3W8cW0JuvgPRUqe/J74G0jmn/oHpG7WK
S0G0Q5QmmC7UPrMSRC96dAlMHzLetRFEP+0O3ASiBS0DdR/ueeNon9wCprta
HsWA6Gcsf8C0yP3aQhB9ZklYMYg+8HZBDYi2NL9cC6LF+5yt151/43hW2NAR
RP8LDHTcCKRXTk4G01X3V7uB6AceN9xBdBbTUZM9QDo23tQUROfsy68H0bwh
W8D0j6cvuf5ceONo9KOVG0TP2nP5zoIrQPdEfb8Los8FFHEtBNLihVO5QXTx
An5xEP3sggiYdpNZuWERkGa6tgVML99/eR+IXvDuKZjeyf3sMIi+pbnyOIie
lb/jNIjW+KR2FkQDABQe1ag=
  "],
 CellLabel->
  "In[683]:=",ExpressionUUID->"90e3e9fd-b7bd-4641-bcb5-662cbb223f0f"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       StyleBox["\[Null]",
        ShowStringCharacters->False], 
       TagBox["0",
        HoldForm], 
       TagBox["1",
        HoldForm], 
       TagBox["2",
        HoldForm], 
       TagBox["3",
        HoldForm], 
       TagBox["4",
        HoldForm], 
       TagBox["5",
        HoldForm], 
       TagBox["6",
        HoldForm], 
       TagBox["7",
        HoldForm], 
       TagBox["8",
        HoldForm], 
       TagBox["9",
        HoldForm], 
       TagBox["10",
        HoldForm], 
       TagBox["11",
        HoldForm], 
       TagBox["12",
        HoldForm], 
       TagBox["13",
        HoldForm], 
       TagBox["14",
        HoldForm], 
       TagBox["15",
        HoldForm], 
       TagBox["16",
        HoldForm], 
       TagBox["17",
        HoldForm], 
       TagBox["18",
        HoldForm], 
       TagBox["19",
        HoldForm], 
       TagBox["20",
        HoldForm], 
       TagBox["21",
        HoldForm], 
       TagBox["22",
        HoldForm], 
       TagBox["23",
        HoldForm], 
       TagBox["24",
        HoldForm], 
       TagBox["25",
        HoldForm], 
       TagBox["26",
        HoldForm], 
       TagBox["27",
        HoldForm], 
       TagBox["28",
        HoldForm], 
       TagBox["29",
        HoldForm], 
       TagBox["30",
        HoldForm], 
       TagBox["31",
        HoldForm], 
       TagBox["32",
        HoldForm], 
       TagBox["33",
        HoldForm], 
       TagBox["34",
        HoldForm], 
       TagBox["35",
        HoldForm], 
       TagBox["36",
        HoldForm], 
       TagBox["37",
        HoldForm], 
       TagBox["38",
        HoldForm], 
       TagBox["39",
        HoldForm], 
       TagBox["40",
        HoldForm]},
      {
       TagBox["\<\"d=3, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "1", "0", "1", "0", "1", "1", "1", "0",
        "2", "1", "1", "1", "2", "1", "2", "1", "2", "2", "2", "1", "3", "2", 
       "2", "2", "3", "2", "3", "2", "3", "3", "3", "2", "4", "3", "3", "3", 
       "4"},
      {
       TagBox["\<\"d=4, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "3", "0", "5", "0", "4", "0", "6", "0",
        "9", "0", "7", "0", "10", "0", "12", "0", "11", "0", "13", "0", "16", 
       "0", "14", "0", "17", "0", "19", "0", "18", "0", "20", "0", "23", "0", 
       "21", "0", "24"},
      {
       TagBox["\<\"d=5, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", "0", "3", "0", "4", "0", "5", "0",
        "7", "0", "7", "0", "9", "0", "10", "0", "11", "0", "12", "0", "14", 
       "0", "14", "0", "16", "0", "17", "0", "18", "0", "19", "0", "21", "0", 
       "21", "0", "23"},
      {
       TagBox["\<\"d=6, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", "0", "3", "0", "4", "0", "5", "0",
        "8", "0", "7", "0", "10", "0", "11", "0", "12", "0", "13", "0", "16", 
       "0", "15", "0", "18", "0", "19", "0", "20", "0", "21", "0", "24", "0", 
       "23", "0", "26"},
      {
       TagBox["\<\"d=7, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", "0", "3", "1", "4", "1", "5", "1",
        "7", "1", "7", "2", "9", "1", "10", "2", "11", "2", "12", "2", "14", 
       "2", "14", "3", "16", "2", "17", "3", "18", "3", "19", "3", "21", "3", 
       "21", "4", "23"},
      {
       TagBox["\<\"d=7, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", "0", "3", "1", "4", "1", "5", "1",
        "7", "1", "7", "2", "9", "1", "10", "2", "11", "2", "12", "2", "14", 
       "2", "14", "3", "16", "2", "17", "3", "18", "3", "19", "3", "21", "3", 
       "21", "4", "23"},
      {
       TagBox["\<\"d=8, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "3", "0", "3", "0", "4", "0", "5", "0",
        "7", "0", "7", "0", "9", "0", "10", "0", "11", "0", "12", "0", "14", 
       "0", "14", "0", "16", "0", "17", "0", "18", "0", "19", "0", "21", "0", 
       "21", "0", "23"},
      {
       TagBox["\<\"d=8, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "3", "0", "3", "0", "4", "0", "5", "0",
        "7", "0", "7", "0", "9", "0", "10", "0", "11", "0", "12", "0", "14", 
       "0", "14", "0", "16", "0", "17", "0", "18", "0", "19", "0", "21", "0", 
       "21", "0", "23"},
      {
       TagBox["\<\"d=9, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", 
       RowBox[{"-", "1"}], "3", "0", "4", "0", "5", "0", "7", "0", "7", "0", 
       "9", "0", "10", "0", "11", "0", "12", "0", "14", "0", "14", "0", "16", 
       "0", "17", "0", "18", "0", "19", "0", "21", "0", "21", "0", "23"},
      {
       TagBox["\<\"d=9, r=4\"\>",
        HoldForm], "0", "0", "0", "0", "2", 
       RowBox[{"-", "1"}], "3", "0", "4", "0", "5", "0", "7", "0", "7", "0", 
       "9", "0", "10", "0", "11", "0", "12", "0", "14", "0", "14", "0", "16", 
       "0", "17", "0", "18", "0", "19", "0", "21", "0", "21", "0", "23"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{
      "Columns" -> {False, True, {False}, False}, 
       "Rows" -> {False, True, {False}, False}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[2.0999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
   Function[BoxForm`e$, 
    TableForm[
    BoxForm`e$, 
     TableHeadings -> {{
       "d=3, r=4", "d=4, r=4", "d=5, r=4", "d=6, r=4", "d=7, r=4", "d=7, r=4",
         "d=8, r=4", "d=8, r=4", "d=9, r=4", "d=9, r=4"}, {0, 1, 2, 3, 4, 5, 
       6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
        25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40}}]]], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.85662058622262*^9, 3.856620590135044*^9}, {
   3.856620620144374*^9, 3.856620640278463*^9}, {3.8566207965394373`*^9, 
   3.8566208032813063`*^9}, {3.856620842660459*^9, 3.8566208797694473`*^9}, 
   3.856620948944195*^9, {3.856620982710428*^9, 3.856620997614225*^9}, {
   3.856621064605654*^9, 3.856621112770722*^9}, {3.8566871028934803`*^9, 
   3.856687110002866*^9}, 3.856687179363969*^9, 3.8571236946748457`*^9, 
   3.857124073965966*^9, 3.857124257397139*^9, 3.857124336633733*^9, 
   3.866972328288878*^9, {3.866974417192252*^9, 3.866974420559226*^9}, 
   3.866980833129266*^9, 3.866980876574252*^9, 3.866987021960054*^9, 
   3.8670100508678513`*^9, {3.867664493853489*^9, 3.867664524624873*^9}, 
   3.8685026530185337`*^9, {3.869548483236915*^9, 3.869548490845043*^9}, 
   3.869574338972734*^9, {3.869574399388154*^9, 3.8695744045231647`*^9}, {
   3.8695744910690002`*^9, 3.86957458699407*^9}, {3.8695746221396933`*^9, 
   3.869574639098496*^9}, {3.869574738153599*^9, 3.869574778474856*^9}, {
   3.8695748121239157`*^9, 3.869574976927751*^9}, {3.869575252808902*^9, 
   3.869575278219213*^9}, {3.869575338802124*^9, 3.869575393898301*^9}, {
   3.869575437488825*^9, 3.869575497916361*^9}, {3.869578784393762*^9, 
   3.869578813676813*^9}, {3.869578846186366*^9, 3.8695788575872602`*^9}},
 CellLabel->
  "Out[685]//TableForm=",ExpressionUUID->"ab5750bc-3cd0-4405-89d2-\
b17ba36f606e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fivePhotons", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["q", "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["q", "26"]}], "+", 
         SuperscriptBox["q", "25"], "-", 
         SuperscriptBox["q", "17"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "16"]}], "+", 
         SuperscriptBox["q", "14"], "+", 
         SuperscriptBox["q", "13"], "+", 
         SuperscriptBox["q", "12"], "+", 
         SuperscriptBox["q", "11"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "10"]}], "+", 
         SuperscriptBox["q", "9"], "+", 
         SuperscriptBox["q", "8"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "7"]}], "+", 
         SuperscriptBox["q", "5"]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["q", "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["q", "34"]}], "-", 
         SuperscriptBox["q", "32"], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["q", "30"]}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["q", "28"]}], "-", 
         RowBox[{"8", " ", 
          SuperscriptBox["q", "26"]}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["q", "24"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["q", "22"]}], "+", 
         RowBox[{"18", " ", 
          SuperscriptBox["q", "20"]}], "+", 
         RowBox[{"28", " ", 
          SuperscriptBox["q", "18"]}], "+", 
         RowBox[{"39", " ", 
          SuperscriptBox["q", "16"]}], "+", 
         RowBox[{"42", " ", 
          SuperscriptBox["q", "14"]}], "+", 
         RowBox[{"35", " ", 
          SuperscriptBox["q", "12"]}], "+", 
         RowBox[{"28", " ", 
          SuperscriptBox["q", "10"]}], "+", 
         RowBox[{"17", " ", 
          SuperscriptBox["q", "8"]}], "+", 
         RowBox[{"7", " ", 
          SuperscriptBox["q", "6"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["q", "4"]}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "4"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "6"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "8"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "10"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["q", "12"]}], ")"}]}]], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "5"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["q", "33"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "32"]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "30"]}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["q", "29"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "28"]}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["q", "27"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["q", "26"]}], "+", 
          RowBox[{"27", " ", 
           SuperscriptBox["q", "25"]}], "+", 
          RowBox[{"32", " ", 
           SuperscriptBox["q", "24"]}], "+", 
          RowBox[{"49", " ", 
           SuperscriptBox["q", "23"]}], "+", 
          RowBox[{"59", " ", 
           SuperscriptBox["q", "22"]}], "+", 
          RowBox[{"71", " ", 
           SuperscriptBox["q", "21"]}], "+", 
          RowBox[{"88", " ", 
           SuperscriptBox["q", "20"]}], "+", 
          RowBox[{"91", " ", 
           SuperscriptBox["q", "19"]}], "+", 
          RowBox[{"108", " ", 
           SuperscriptBox["q", "18"]}], "+", 
          RowBox[{"103", " ", 
           SuperscriptBox["q", "17"]}], "+", 
          RowBox[{"117", " ", 
           SuperscriptBox["q", "16"]}], "+", 
          RowBox[{"103", " ", 
           SuperscriptBox["q", "15"]}], "+", 
          RowBox[{"110", " ", 
           SuperscriptBox["q", "14"]}], "+", 
          RowBox[{"92", " ", 
           SuperscriptBox["q", "13"]}], "+", 
          RowBox[{"89", " ", 
           SuperscriptBox["q", "12"]}], "+", 
          RowBox[{"73", " ", 
           SuperscriptBox["q", "11"]}], "+", 
          RowBox[{"63", " ", 
           SuperscriptBox["q", "10"]}], "+", 
          RowBox[{"51", " ", 
           SuperscriptBox["q", "9"]}], "+", 
          RowBox[{"36", " ", 
           SuperscriptBox["q", "8"]}], "+", 
          RowBox[{"30", " ", 
           SuperscriptBox["q", "7"]}], "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["q", "6"]}], "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["q", "5"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"5", " ", 
           SuperscriptBox["q", "3"]}], "+", "q"}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "5"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["q", "36"]}], "-", 
          SuperscriptBox["q", "32"], "+", 
          SuperscriptBox["q", "30"], "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["q", "28"]}], "+", 
          RowBox[{"42", " ", 
           SuperscriptBox["q", "26"]}], "+", 
          RowBox[{"79", " ", 
           SuperscriptBox["q", "24"]}], "+", 
          RowBox[{"131", " ", 
           SuperscriptBox["q", "22"]}], "+", 
          RowBox[{"182", " ", 
           SuperscriptBox["q", "20"]}], "+", 
          RowBox[{"213", " ", 
           SuperscriptBox["q", "18"]}], "+", 
          RowBox[{"226", " ", 
           SuperscriptBox["q", "16"]}], "+", 
          RowBox[{"210", " ", 
           SuperscriptBox["q", "14"]}], "+", 
          RowBox[{"168", " ", 
           SuperscriptBox["q", "12"]}], "+", 
          RowBox[{"121", " ", 
           SuperscriptBox["q", "10"]}], "+", 
          RowBox[{"73", " ", 
           SuperscriptBox["q", "8"]}], "+", 
          RowBox[{"34", " ", 
           SuperscriptBox["q", "6"]}], "+", 
          RowBox[{"13", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["q", "2"]}], "+", "1"}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["q", "5"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["q", "37"], "-", 
          SuperscriptBox["q", "33"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "32"]}], "-", 
          SuperscriptBox["q", "31"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "30"]}], "+", 
          RowBox[{"5", " ", 
           SuperscriptBox["q", "28"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["q", "27"]}], "+", 
          RowBox[{"19", " ", 
           SuperscriptBox["q", "26"]}], "+", 
          RowBox[{"10", " ", 
           SuperscriptBox["q", "25"]}], "+", 
          RowBox[{"41", " ", 
           SuperscriptBox["q", "24"]}], "+", 
          RowBox[{"19", " ", 
           SuperscriptBox["q", "23"]}], "+", 
          RowBox[{"73", " ", 
           SuperscriptBox["q", "22"]}], "+", 
          RowBox[{"28", " ", 
           SuperscriptBox["q", "21"]}], "+", 
          RowBox[{"105", " ", 
           SuperscriptBox["q", "20"]}], "+", 
          RowBox[{"38", " ", 
           SuperscriptBox["q", "19"]}], "+", 
          RowBox[{"126", " ", 
           SuperscriptBox["q", "18"]}], "+", 
          RowBox[{"43", " ", 
           SuperscriptBox["q", "17"]}], "+", 
          RowBox[{"135", " ", 
           SuperscriptBox["q", "16"]}], "+", 
          RowBox[{"41", " ", 
           SuperscriptBox["q", "15"]}], "+", 
          RowBox[{"125", " ", 
           SuperscriptBox["q", "14"]}], "+", 
          RowBox[{"36", " ", 
           SuperscriptBox["q", "13"]}], "+", 
          RowBox[{"99", " ", 
           SuperscriptBox["q", "12"]}], "+", 
          RowBox[{"28", " ", 
           SuperscriptBox["q", "11"]}], "+", 
          RowBox[{"69", " ", 
           SuperscriptBox["q", "10"]}], "+", 
          RowBox[{"17", " ", 
           SuperscriptBox["q", "9"]}], "+", 
          RowBox[{"39", " ", 
           SuperscriptBox["q", "8"]}], "+", 
          RowBox[{"10", " ", 
           SuperscriptBox["q", "7"]}], "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["q", "6"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["q", "5"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["q", "4"]}], "+", 
          SuperscriptBox["q", "3"]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "4"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "6"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "8"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "10"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["q", "12"]}], ")"}]}], ")"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CoefficientList", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{"q", ",", "0", ",", "40"}], "}"}]}], "]"}], " ", "//", " ",
         "Normal"}], ",", "q"}], "]"}], "&"}], "/@", " ", "%"}], " ", "//", 
   " ", "PadRight"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"%", ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<d=3, r=5\>\"", ",", "\"\<d=4, r=5\>\"", ",", "\"\<d=5, r=5\>\"", 
        ",", "\"\<d=6, r=5\>\"", ",", "\"\<d=7, r=5\>\""}], "}"}], ",", 
      RowBox[{"Range", "[", 
       RowBox[{"0", ",", "40"}], "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.86957875463548*^9, 3.8695787594647703`*^9}, {
  3.869578833157256*^9, 3.869578864254245*^9}},
 CellLabel->
  "In[686]:=",ExpressionUUID->"585092bd-6938-4345-bc3c-e83cbba91253"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       StyleBox["\[Null]",
        ShowStringCharacters->False], 
       TagBox["0",
        HoldForm], 
       TagBox["1",
        HoldForm], 
       TagBox["2",
        HoldForm], 
       TagBox["3",
        HoldForm], 
       TagBox["4",
        HoldForm], 
       TagBox["5",
        HoldForm], 
       TagBox["6",
        HoldForm], 
       TagBox["7",
        HoldForm], 
       TagBox["8",
        HoldForm], 
       TagBox["9",
        HoldForm], 
       TagBox["10",
        HoldForm], 
       TagBox["11",
        HoldForm], 
       TagBox["12",
        HoldForm], 
       TagBox["13",
        HoldForm], 
       TagBox["14",
        HoldForm], 
       TagBox["15",
        HoldForm], 
       TagBox["16",
        HoldForm], 
       TagBox["17",
        HoldForm], 
       TagBox["18",
        HoldForm], 
       TagBox["19",
        HoldForm], 
       TagBox["20",
        HoldForm], 
       TagBox["21",
        HoldForm], 
       TagBox["22",
        HoldForm], 
       TagBox["23",
        HoldForm], 
       TagBox["24",
        HoldForm], 
       TagBox["25",
        HoldForm], 
       TagBox["26",
        HoldForm], 
       TagBox["27",
        HoldForm], 
       TagBox["28",
        HoldForm], 
       TagBox["29",
        HoldForm], 
       TagBox["30",
        HoldForm], 
       TagBox["31",
        HoldForm], 
       TagBox["32",
        HoldForm], 
       TagBox["33",
        HoldForm], 
       TagBox["34",
        HoldForm], 
       TagBox["35",
        HoldForm], 
       TagBox["36",
        HoldForm], 
       TagBox["37",
        HoldForm], 
       TagBox["38",
        HoldForm], 
       TagBox["39",
        HoldForm], 
       TagBox["40",
        HoldForm]},
      {
       TagBox["\<\"d=3, r=5\"\>",
        HoldForm], "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0",
        "2", "1", "2", "2", "4", "2", "5", "4", "6", "6", "9", "6", "12", 
       "11", "13", "13", "18", "15", "22", "20", "24", "25", "31", "27", "37",
        "36", "40", "41", "50"},
      {
       TagBox["\<\"d=4, r=5\"\>",
        HoldForm], "0", "0", "0", "0", "0", "0", "0", "0", "0", "4", "0", 
       "14", "0", "38", "0", "74", "0", "126", "0", "210", "0", "316", "0", 
       "458", "0", "652", "0", "884", "0", "1174", "0", "1544", "0", "1972", 
       "0", "2484", "0", "3108", "0", "3818", "0"},
      {
       TagBox["\<\"d=5, r=5\"\>",
        HoldForm], "0", "0", "0", "0", "0", "0", "1", "0", "5", "4", "17", 
       "16", "36", "40", "74", "83", "131", "149", "219", "249", "342", "389",
        "515", "581", "738", "835", "1036", "1162", "1408", "1575", "1877", 
       "2091", "2449", "2719", "3151", "3480", "3981", "4389", "4978", "5464",
        "6141"},
      {
       TagBox["\<\"d=6, r=5\"\>",
        HoldForm], "0", "0", "0", "0", "0", "1", "0", "4", "0", "14", "0", 
       "39", "0", "92", "0", "178", "0", "313", "0", "517", "0", "799", "0", 
       "1184", "0", "1701", "0", "2356", "0", "3190", "0", "4233", "0", 
       "5500", "0", "7033", "0", "8878", "0", "11045", "0"},
      {
       TagBox["\<\"d=7, r=5\"\>",
        HoldForm], "0", "0", "0", "0", "0", "0", "0", "0", "1", "4", "4", 
       "16", "11", "43", "22", "89", "44", "162", "73", "273", "118", "429", 
       "180", "642", "263", "929", "368", "1295", "510", "1761", "679", 
       "2344", "893", "3055", "1152", "3915", "1464", "4950", "1829", "6169", 
       "2271"}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{
      "Columns" -> {False, True, {False}, False}, 
       "Rows" -> {False, True, {False}, False}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[2.0999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
   Function[BoxForm`e$, 
    TableForm[
    BoxForm`e$, 
     TableHeadings -> {{
       "d=3, r=5", "d=4, r=5", "d=5, r=5", "d=6, r=5", "d=7, r=5"}, {0, 1, 2, 
       3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 
       22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39,
        40}}]]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.869578833773686*^9, 3.869578864598302*^9}},
 CellLabel->
  "Out[688]//TableForm=",ExpressionUUID->"f62abf3d-16de-44d1-8bef-\
a1399b7d81fb"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1440., 795.75},
WindowMargins->{{0, Automatic}, {0, Automatic}},
CellContext->Notebook,
CommonDefaultFormatTypes->{"Output"->TraditionalForm},
Magnification:>1. Inherited,
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4f4315db-ef15-4cb2-a7eb-a15bfeea608f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 189, 3, 74, "Title",ExpressionUUID->"d46217a4-32c1-4844-8e06-546954f8460d"],
Cell[772, 27, 428, 8, 24, "Author",ExpressionUUID->"6b452623-8c39-4bcf-a977-cff0cbb5eca7"],
Cell[1203, 37, 1310, 28, 90, "Text",ExpressionUUID->"4e1d67bb-f14c-4135-8c0e-5cbb4f241604"],
Cell[CellGroupData[{
Cell[2538, 69, 258, 4, 50, "Section",ExpressionUUID->"794fe1e9-d4b7-4781-86c7-11ac1b0f9f9d"],
Cell[2799, 75, 863, 23, 52, "Input",ExpressionUUID->"3b35da99-8fd9-40f8-a865-cb60383663b9",
 InitializationCell->True],
Cell[3665, 100, 2989, 62, 103, "Input",ExpressionUUID->"4790f6c9-2ee9-4b40-8eb8-57e248296399",
 InitializationCell->True],
Cell[6657, 164, 2881, 63, 169, "Input",ExpressionUUID->"2e444cfc-7d43-4456-8d25-bc48c14da71f",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[9563, 231, 526, 15, 40, "Input",ExpressionUUID->"f5098363-e6d6-4ae3-91ad-0b94d927bf23"],
Cell[10092, 248, 502, 13, 28, "Output",ExpressionUUID->"315bc52a-08b5-4e83-8160-57e88f02fcd6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10631, 266, 369, 10, 24, "Input",ExpressionUUID->"b02491d9-54c0-44cf-bd24-316badc45fed"],
Cell[11003, 278, 481, 15, 28, "Output",ExpressionUUID->"ecec7ed3-cd9a-4ef0-8f2e-1bd5f827c309"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11521, 298, 292, 7, 22, "Input",ExpressionUUID->"acad0927-8cad-46ad-962b-b5bf1f1b899e"],
Cell[11816, 307, 235, 5, 24, "Output",ExpressionUUID->"90395b6a-bb93-4a7a-8751-fc7edc3df0e6"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[12100, 318, 175, 3, 40, "Section",ExpressionUUID->"1a927533-dd05-4c3b-91e1-7f2d452fbbcb"],
Cell[12278, 323, 506, 12, 22, "Input",ExpressionUUID->"84bbe220-141d-4e4d-983d-782823ab7446"],
Cell[12787, 337, 1748, 51, 44, "Input",ExpressionUUID->"25b019a3-0c2d-4c5c-82dd-b533249b28c4"],
Cell[CellGroupData[{
Cell[14560, 392, 1201, 27, 46, "Input",ExpressionUUID->"96e00ba3-894b-4c84-bafc-e993a42215e5"],
Cell[15764, 421, 814, 13, 24, "Output",ExpressionUUID->"a4d5782c-4acd-49e2-8c89-75345facee4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16615, 439, 1766, 50, 115, "Input",ExpressionUUID->"26bd0520-f1ab-4246-8123-c7a85c32e519"],
Cell[18384, 491, 1627, 53, 48, "Output",ExpressionUUID->"8cd88d12-7328-437b-bb03-929157d74f13"],
Cell[20014, 546, 2237, 71, 48, "Output",ExpressionUUID->"e0d9f8dd-b594-4d81-b805-e78b0f99bdec"],
Cell[22254, 619, 2819, 90, 29, "Output",ExpressionUUID->"8517c357-716d-46b5-9864-70ca367e2621"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25110, 714, 1386, 41, 92, "Input",ExpressionUUID->"804fe748-09de-46bb-a382-5a764d11d45b"],
Cell[26499, 757, 3733, 116, 48, "Output",ExpressionUUID->"1b425d84-fd6a-4f28-87c0-e56335d974ec"],
Cell[30235, 875, 337, 6, 24, "Output",ExpressionUUID->"6c1d2b6e-e5ec-4928-a518-270348d8df48"],
Cell[30575, 883, 2844, 93, 51, "Output",ExpressionUUID->"6a893b00-8720-4ad9-a2ee-f6dfdfcef36f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33456, 981, 371, 8, 22, "Input",ExpressionUUID->"6c482a73-fe1b-4c37-8410-6ff814824fbb"],
Cell[33830, 991, 381, 7, 24, "Output",ExpressionUUID->"d8607638-7eec-4f2d-b0bd-dfa3f6308cd1"]
}, Open  ]],
Cell[34226, 1001, 1661, 34, 71, "Input",ExpressionUUID->"88b807db-4c6c-4bcf-98b1-9cbf05bb6e02"],
Cell[35890, 1037, 1433, 28, 55, "Input",ExpressionUUID->"7a2cdcc9-47ad-4454-9ce1-cf8ae183ae4b"]
}, Closed]],
Cell[CellGroupData[{
Cell[37360, 1070, 212, 4, 45, "Chapter",ExpressionUUID->"7b4d1cf8-53dd-4b57-836d-6af94b653aee"],
Cell[CellGroupData[{
Cell[37597, 1078, 381, 10, 50, "Section",ExpressionUUID->"d1f3d3be-8f41-4737-826c-effbf11923c4"],
Cell[37981, 1090, 2029, 47, 70, "Input",ExpressionUUID->"708cea87-7b3e-4300-bdf3-9ee644ad5047",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[40035, 1141, 718, 10, 22, "Input",ExpressionUUID->"2f5ef577-364a-4014-b522-5f8edcd12431"],
Cell[40756, 1153, 1567, 35, 42, "Output",ExpressionUUID->"506f9b90-981d-433e-8f87-75d3007a713b"]
}, Open  ]],
Cell[42338, 1191, 1056, 22, 52, "Input",ExpressionUUID->"89e4a310-a844-4138-87b7-d0afea0f468b",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[43419, 1217, 596, 9, 22, "Input",ExpressionUUID->"8c07efb0-de64-4f62-9ca5-fae11548991a"],
Cell[44018, 1228, 1457, 35, 44, "Output",ExpressionUUID->"4fa15d22-2c3f-4de7-a760-25a5f626a507"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[45524, 1269, 471, 11, 40, "Section",ExpressionUUID->"ded2f8f9-a3cc-43c8-bb18-a87e9b8c30e7"],
Cell[45998, 1282, 1694, 35, 66, "Input",ExpressionUUID->"e604f9ef-6282-45f6-b166-7e682ded1b8c",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[47717, 1321, 253, 4, 22, "Input",ExpressionUUID->"7506fdb4-c6ea-4b56-b7ab-6f0de15efe7f"],
Cell[47973, 1327, 1912, 38, 39, "Output",ExpressionUUID->"1fbd2dec-de17-449e-8c80-226d4be429b2"]
}, Open  ]],
Cell[49900, 1368, 1488, 28, 51, "Input",ExpressionUUID->"1a949c98-1b58-4a81-aff3-b20fcafd7f73",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[51413, 1400, 411, 6, 22, "Input",ExpressionUUID->"129f5daa-d28c-40b7-ad81-c32858269f7d"],
Cell[51827, 1408, 1723, 36, 41, "Output",ExpressionUUID->"cc2e81d4-60bc-4410-9d49-12ccb07fdd81"]
}, Open  ]],
Cell[53565, 1447, 1164, 31, 69, "Input",ExpressionUUID->"8acd3134-8c7a-4551-9db2-d8cfe5595592",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[54754, 1482, 778, 17, 24, "Input",ExpressionUUID->"b8612638-10ab-426e-a8fd-a75a0f84a9e6"],
Cell[55535, 1501, 1035, 20, 28, "Output",ExpressionUUID->"fa27ad8f-fef3-4d18-9abc-baf143629e3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56607, 1526, 375, 7, 22, "Input",ExpressionUUID->"80836472-b8ba-4d1e-bd4d-5499d43d6825"],
Cell[56985, 1535, 1214, 38, 45, "Output",ExpressionUUID->"c5ef9919-0fc7-42c8-bea5-65bcd87ed3b2"]
}, Open  ]],
Cell[58214, 1576, 1290, 27, 52, "Input",ExpressionUUID->"6957b27b-c645-44a4-b2ba-3d03241bf2f6",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[59529, 1607, 717, 11, 22, "Input",ExpressionUUID->"f06206c9-4536-4756-9a2c-0a2e930a54ff"],
Cell[60249, 1620, 6986, 217, 83, "Output",ExpressionUUID->"fade63bf-f1dd-42ea-8ed3-3b4bae0da709"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[67284, 1843, 205, 3, 40, "Section",ExpressionUUID->"bcc7dffc-99e2-4b1a-a859-91cf114455ac"],
Cell[67492, 1848, 2659, 59, 182, "Input",ExpressionUUID->"2367489f-0b40-443f-8e2c-5005bb47536a",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[70176, 1911, 499, 7, 22, "Input",ExpressionUUID->"00d307ce-aa98-40e1-aea0-c0390a6e5ac3"],
Cell[70678, 1920, 2417, 44, 42, "Output",ExpressionUUID->"ab9a9a67-3844-485e-a5ec-c39e4004ff56"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[73144, 1970, 226, 4, 40, "Section",ExpressionUUID->"d6d4710d-f203-4f84-8ad7-9e568a7d8717"],
Cell[73373, 1976, 588, 16, 52, "Input",ExpressionUUID->"15850c90-e844-4303-ae8e-d5ecf1a521a2",
 InitializationCell->True],
Cell[73964, 1994, 3001, 54, 66, "Input",ExpressionUUID->"e0c2ea3d-977f-4f66-b484-c920251dcf7d",
 InitializationCell->True],
Cell[76968, 2050, 2462, 37, 34, "Input",ExpressionUUID->"190982a4-129c-4f48-ae82-e50456dd87b5",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[79455, 2091, 532, 8, 22, "Input",ExpressionUUID->"317dceb6-6dcd-4759-8bb5-8b0815bca0e7"],
Cell[79990, 2101, 9190, 277, 83, "Output",ExpressionUUID->"2eac4af2-114a-4019-a094-d5a8b015ba15"]
}, Open  ]],
Cell[89195, 2381, 5536, 90, 68, "Input",ExpressionUUID->"6a5f0009-49da-45d5-a565-3716bb7dfe92",
 InitializationCell->True],
Cell[94734, 2473, 6821, 124, 116, "Input",ExpressionUUID->"60c8cb61-dd3b-43fe-b9d0-3fe910c0d650",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[101580, 2601, 426, 8, 22, "Input",ExpressionUUID->"8def1bdb-ab00-4967-8365-53429a379754"],
Cell[102009, 2611, 9251, 280, 83, "Output",ExpressionUUID->"cfcad3be-ed44-4777-90a5-c6b06bee0b6f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111297, 2896, 710, 17, 59, "Input",ExpressionUUID->"63f6866b-d22a-429a-89dd-b81918cc5828"],
Cell[112010, 2915, 4480, 127, 82, "Output",ExpressionUUID->"804d1783-13ff-47e5-8d61-509203b69c87"],
Cell[116493, 3044, 4843, 146, 162, "Output",ExpressionUUID->"90eac1e4-2a4a-4549-bb7e-54d996ad14fd"],
Cell[121339, 3192, 3502, 99, 70, "Output",ExpressionUUID->"eeb6ade1-fa69-4574-a74d-5a814276808f"]
}, Open  ]],
Cell[124856, 3294, 2705, 70, 114, "Input",ExpressionUUID->"09148097-12b7-44ec-84c8-4b3e0a38698a",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[127586, 3368, 578, 15, 39, "Input",ExpressionUUID->"300cd9e4-5a57-46fc-bf88-eadb5de5ee32"],
Cell[128167, 3385, 1949, 62, 45, "Output",ExpressionUUID->"8d9db42f-524b-490a-9316-e54ebf8bc47f"],
Cell[130119, 3449, 1075, 34, 49, "Output",ExpressionUUID->"bd8d9c61-53b1-41eb-b4c2-b48699c37632"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[131243, 3489, 187, 3, 40, "Section",ExpressionUUID->"02e73e2c-66b0-4191-aec4-6ec998be6376"],
Cell[131433, 3494, 4005, 73, 136, "Input",ExpressionUUID->"7876b6dd-82e5-4cbd-be69-a383eba8b7dd",
 InitializationCell->True],
Cell[135441, 3569, 12007, 205, 380, "Input",ExpressionUUID->"1f10716d-cb97-47f8-8dee-da87368cb1ad",
 InitializationCell->True],
Cell[147451, 3776, 1981, 33, 34, "Input",ExpressionUUID->"9b6907b0-365a-41e4-a4de-4909439aa67a",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[149457, 3813, 962, 20, 24, "Input",ExpressionUUID->"7ebb98a6-9110-49a0-b40a-bb1b038c9007"],
Cell[CellGroupData[{
Cell[150444, 3837, 23176, 692, 159, "Echo",ExpressionUUID->"b3910150-e172-47f0-bf13-c72b3caf81ff"],
Cell[173623, 4531, 9129, 270, 98, "Echo",ExpressionUUID->"0ff2bf9f-8da4-44a6-af2c-804f2477f4ef"],
Cell[182755, 4803, 28107, 814, 261, "Echo",ExpressionUUID->"089afe0e-1044-4d93-8f08-66d3d14bf9a5"],
Cell[210865, 5619, 9557, 278, 86, "Echo",ExpressionUUID->"a454d62f-92f9-4ca0-84f8-4aac3dfe59be"],
Cell[220425, 5899, 8500, 259, 79, "Echo",ExpressionUUID->"bd2ffa72-ffb0-444a-a1c7-26526de7fb2e"]
}, Open  ]],
Cell[228940, 6161, 4855, 102, 28, "Output",ExpressionUUID->"e96151b2-3129-447a-a314-d0f6f521d129"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233832, 6268, 2688, 72, 60, "Input",ExpressionUUID->"b6e1b1e0-0293-4c0e-ab45-c74d4359af7b"],
Cell[236523, 6342, 1824, 31, 52, "Output",ExpressionUUID->"88d4a4f0-2ad4-4f46-8df0-576dbd11d104"]
}, Open  ]],
Cell[CellGroupData[{
Cell[238384, 6378, 840, 22, 58, "Input",ExpressionUUID->"fea00ec2-85c5-4b9c-9715-4cfbc83d6e34"],
Cell[239227, 6402, 605, 16, 43, "Output",ExpressionUUID->"a1fc1d2c-ac00-4b31-a048-ddc63eecf5c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239869, 6423, 1177, 31, 58, "Input",ExpressionUUID->"666eb91a-c4fc-4e2f-9e06-ddd8562461fc"],
Cell[241049, 6456, 1365, 37, 45, "Output",ExpressionUUID->"93db50f8-355d-4b97-a534-2f834c782d7f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[242463, 6499, 154, 3, 40, "Section",ExpressionUUID->"c9dcfaa6-fced-432a-b7fd-8888000ea61d"],
Cell[CellGroupData[{
Cell[242642, 6506, 2025, 64, 79, "Input",ExpressionUUID->"914d0e5c-920b-4aed-887c-b74e89fa06ad"],
Cell[244670, 6572, 3970, 137, 95, "Output",ExpressionUUID->"1a2cc267-c88a-43f4-a9eb-a2bbfd035683"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248677, 6714, 4030, 122, 79, "Input",ExpressionUUID->"340d788d-0df9-4b37-9689-cf2f6876877d"],
Cell[252710, 6838, 3989, 136, 95, "Output",ExpressionUUID->"57496e0b-2790-407c-b8c9-45f613dcef33"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256736, 6979, 11578, 337, 191, "Input",ExpressionUUID->"35593894-6a7b-42ca-b8df-bb4e6af3f104"],
Cell[268317, 7318, 4412, 143, 110, "Output",ExpressionUUID->"0ee23f58-df17-4737-b6e8-b72b2c631075"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[272790, 7468, 177, 3, 52, "Chapter",ExpressionUUID->"4a307331-d381-4b39-ab84-959d2bae02ff"],
Cell[CellGroupData[{
Cell[272992, 7475, 156, 3, 50, "Section",ExpressionUUID->"41e0d781-d367-45d5-823a-d91ce428187c"],
Cell[273151, 7480, 1301, 31, 67, "Input",ExpressionUUID->"3c3f55a9-3671-454b-9c15-93767d024b5d",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[274477, 7515, 268, 5, 22, "Input",ExpressionUUID->"b07a262e-3ac5-43ea-8339-91c3dc08f1f6"],
Cell[274748, 7522, 457, 12, 41, "Output",ExpressionUUID->"7c0d9227-dd7c-48e3-88a3-1a6da4fa0dba"]
}, Open  ]],
Cell[275220, 7537, 1343, 35, 70, "Input",ExpressionUUID->"d99d402d-b49d-4b8a-ac1b-1ed12ed6c781",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[276588, 7576, 359, 5, 22, "Input",ExpressionUUID->"7e1da3b1-8185-49b4-9388-319aff5ff41c"],
Cell[276950, 7583, 1663, 49, 44, "Output",ExpressionUUID->"940f5351-c285-4641-bfcc-5f37f05713e4"]
}, Open  ]],
Cell[278628, 7635, 743, 21, 52, "Input",ExpressionUUID->"e209acef-1905-4e59-a9a0-35c9a8009c4b",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[279396, 7660, 237, 4, 22, "Input",ExpressionUUID->"e78d1d2a-d035-4c05-a2c9-f1947d319098"],
Cell[279636, 7666, 13051, 398, 224, "Output",ExpressionUUID->"e8252494-17ec-4fd6-9890-bef78d515c22"]
}, Open  ]],
Cell[292702, 8067, 485, 10, 34, "Input",ExpressionUUID->"76c9217a-ba01-4f63-a08b-3638e4cc3bc1",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[293212, 8081, 287, 5, 22, "Input",ExpressionUUID->"d47b2a30-9e9d-4660-a6dc-7349f9478cd3"],
Cell[293502, 8088, 17265, 488, 236, "Output",ExpressionUUID->"8d627611-5652-4c45-8457-1715d49da930"]
}, Open  ]],
Cell[310782, 8579, 1929, 31, 34, "Input",ExpressionUUID->"0939cbd5-7f2d-4b2b-9cb6-d024f0849831",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[312736, 8614, 584, 12, 24, "Input",ExpressionUUID->"4bda6508-a72b-4aa9-bdd9-cc7e7406961b"],
Cell[CellGroupData[{
Cell[313345, 8630, 16512, 469, 203, "Echo",ExpressionUUID->"41bd6ebe-45e2-4795-abcc-6e1814e7dd5f"],
Cell[329860, 9101, 3716, 109, 71, "Echo",ExpressionUUID->"76906984-8973-4c63-acd2-2c58288409fa"],
Cell[333579, 9212, 8683, 251, 118, "Echo",ExpressionUUID->"a297dd51-8eae-47ae-867f-a13687cfbd1d"],
Cell[342265, 9465, 3649, 104, 71, "Echo",ExpressionUUID->"3a20a7d6-0b0d-4549-9780-d6f7c7431281"],
Cell[345917, 9571, 1458, 49, 39, "Echo",ExpressionUUID->"4d86363b-ca51-42dd-9e98-34479a8f8e0a"]
}, Open  ]],
Cell[347390, 9623, 882, 25, 45, "Output",ExpressionUUID->"908ebb9e-f8a8-46b0-a150-4d57f4024238"]
}, Open  ]],
Cell[CellGroupData[{
Cell[348309, 9653, 2824, 84, 67, "Input",ExpressionUUID->"225c8c11-d856-44ce-98c2-0557b92c5f44"],
Cell[351136, 9739, 2049, 34, 80, "Output",ExpressionUUID->"6b618fd1-93f4-4745-92de-fe2afabc0d68"]
}, Open  ]],
Cell[CellGroupData[{
Cell[353222, 9778, 1301, 26, 43, "Input",ExpressionUUID->"41a1df6a-d664-4205-a47b-a64da7dd70a9"],
Cell[354526, 9806, 869, 25, 45, "Output",ExpressionUUID->"523ea600-4b48-4808-99b9-dbb8dd663bf8"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[355444, 9837, 152, 3, 40, "Section",ExpressionUUID->"e938d0e2-04e8-4cd8-83b9-3d3c557d8398"],
Cell[CellGroupData[{
Cell[355621, 9844, 7196, 221, 122, "Input",ExpressionUUID->"90e3e9fd-b7bd-4641-bcb5-662cbb223f0f"],
Cell[362820, 10067, 7161, 191, 185, "Output",ExpressionUUID->"ab5750bc-3cd0-4405-89d2-b17ba36f606e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[370018, 10263, 11934, 339, 153, "Input",ExpressionUUID->"585092bd-6938-4345-bc3c-e83cbba91253"],
Cell[381955, 10604, 4492, 145, 110, "Output",ExpressionUUID->"f62abf3d-16de-44d1-8bef-a1399b7d81fb"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)