(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook 
starts with the line of stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    139794,       2897]*)
(*NotebookOutlinePosition[    154420,       3233]*)
(*  CellTagsIndexPosition[    153341,       3198]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
  "A definite integral ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Definite Integral", "G.1.1"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0\%1\(\( log(t)\)\^16\/\@\(1 - t\^2\)\) 
              \[DifferentialD]t\), " ", "=", 
          RowBox[{
          \(\(1\/131072\) \[Pi]\ \(\(log\^16\)(4)\)\), "+", 
            \(\(5\/16384\) \[Pi]\^3\ \(\(log\^14\)(4)\)\), "+", 
            RowBox[{\(105\/2048\), "\[Pi]", " ", \(\(log\^13\)(4)\), " ", 
              TagBox[
                RowBox[{"\[Zeta]", "(", 
                  TagBox["3",
                    (Editable -> True)], ")"}],
                InterpretTemplate[ Zeta[ #]&]]}], "+", 
            \(\(1729\/98304\) \[Pi]\^5\ \(\(log\^12\)(4)\)\), "+", 
            RowBox[{\(1365\/1024\), \(\(log\^11\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{\(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"18", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(715\/49152\), \(\(log\^10\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{\(55\ \[Pi]\^7\), "+", 
                  RowBox[{"6048", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}]}], 
                ")"}]}], "+", 
            RowBox[{\(5005\/2048\), \(\(log\^9\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"19", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"180", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"3240", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(143\/65536\), \(\(log\^8\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{\(11813\ \[Pi]\^9\), "+", 
                  RowBox[{"604800", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"21772800", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(2145\/512\), \(\(log\^7\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"275", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"10080", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"]}], 
                  "+", 
                  RowBox[{"2394", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"22680", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"428400", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(4095\/16384\), \(\(log\^6\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{\(2117\ \[Pi]\^11\), "+", 
                  RowBox[{"93632", " ", \(\[Pi]\^5\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"1774080", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"15966720", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"31933440", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(3003\/2048\), \(\(log\^5\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"11813", " ", \(\[Pi]\^9\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"201600", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"]}], 
                  "+", 
                  RowBox[{"99000", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"10886400", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"861840", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"8568000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"168739200", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(3\/32768\), \(\(log\^4\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{\(64604977\ \[Pi]\^13\), "+", 
                  RowBox[{"2642640000", " ", \(\[Pi]\^7\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"48432384000", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "4"]}], 
                  "+", 
                  RowBox[{"46010764800", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"217945728000", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"435891456000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"7846046208000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"8233505280000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(4095\/1024\), \(\(log\^3\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"31755", " ", \(\[Pi]\^11\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"468160", " ", \(\[Pi]\^5\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"]}], 
                  "+", 
                  RowBox[{"259886", " ", \(\[Pi]\^9\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"13305600", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"239500800", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"2178000", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"239500800", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"19896800", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"206236800", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"4191264000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["13",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(5\/49152\), \(\(log\^2\)(4)\), " ", 
              RowBox[{"(", 
                RowBox[{\(263101079\ \[Pi]\^15\), "+", 
                  RowBox[{"10216638432", " ", \(\[Pi]\^9\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"87178291200", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "4"]}], 
                  "+", 
                  RowBox[{"171243072000", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"6276836966400", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"745374389760", " ", \(\[Pi]\^5\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"1490748779520", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"14122883174400", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"127105948569600", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["7",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"14820309504000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"266765571072000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"291872918937600", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(9\/2048\), \(log(4)\), " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"64604977", " ", \(\[Pi]\^13\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"880880000", " ", \(\[Pi]\^7\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"]}], 
                  "+", 
                  RowBox[{"9686476800", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "5"]}], 
                  "+", 
                  RowBox[{"520146900", " ", \(\[Pi]\^11\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"23005382400", " ", \(\[Pi]\^5\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"217945728000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"1307674368000", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"]}], 
                  "+", 
                  RowBox[{"4256932680", " ", \(\[Pi]\^9\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"217945728000", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"7846046208000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"37437400000", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"4116752640000", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"356583427200", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"3814050240000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["13",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"79346774707200", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["15",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}], "+", 
            RowBox[{\(7\/6684672\), 
              RowBox[{"(", 
                RowBox[{\(19449462373\ \[Pi]\^17\), "+", 
                  RowBox[{"727611206400", " ", \(\[Pi]\^11\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"5363540582400", " ", \(\[Pi]\^5\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "4"]}], 
                  "+", 
                  RowBox[{"11909681372160", " ", \(\[Pi]\^9\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"203249958912000", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"49905123840000", " ", \(\[Pi]\^7\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"5487748890624000", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"], " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["5",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"99810247680000", " ", \(\[Pi]\^7\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"3658499260416000", " ", "\[Pi]", " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["3",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "3"], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"868893574348800", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"4115811667968000", " ", \(\[Pi]\^3\), " ", 
                    SuperscriptBox[
                      RowBox[{"(", 
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["7",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], ")"}], "2"]}], 
                  "+", 
                  RowBox[{"911801899008000", " ", \(\[Pi]\^5\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"8638123253760000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"155486218567680000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["7",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["9",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"9451123089408000", " ", \(\[Pi]\^3\), " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"170120215609344000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["5",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["11",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}], "+", 
                  RowBox[{"192071211171840000", " ", "\[Pi]", " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["3",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]], " ", 
                    TagBox[
                      RowBox[{"\[Zeta]", "(", 
                        TagBox["13",
                          (Editable -> True)], ")"}],
                      InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}]}]}],
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  LineBreakWithin->Automatic,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Definite Integral", "G.1.1"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "A Pisot number ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Pisot Number", "G.1.2"}],

Cell[BoxData[
    FormBox[
      RowBox[{
        StyleBox[
          "\(\((\@\(2\/\(27 + 3 \@69\)\)\%3 +                    \(1\/3\) \
\@\(\(27 + 3 \@69\)\/2\)\%3)\)\^30000\)",
          FontSize->12], 
        RowBox[{
          StyleBox["=",
            FontSize->12], 
          "5043165960656654932150594692427574810776102746808935031678444677128\
757182264862106103980765819340682753857825408213309478700354777871766946859877\
182545765655157863751804030841080877201973602630453775992992526007874643437115\
478340662656654242263167137970470876460028676595720882553729941413991192954257\
293905515987341623164931728987789298548218169139563816353624128215994510253193\
649036511102215152338143645279048930913371354240272588991921619868232355282955\
810598732001078755504975632193024344987469732081489429513875050815089544676150\
938253329884107629370887783660465530686857728553866459504826468144393019990165\
743377364065922255679117090517971285490773119127788881441087366597038621740186\
411069175749952023659419640302178959561265901520782425747790756781859047252118\
783439795010489532686142903402653847407905146487735500216875475845252225041904\
360870681078279227104457227362368796693241733784161166959198410304677682964919\
409043870523002732003770237480443431032331691094261441144380298348751920199059\
562790511888049750265002682883521913896858496289686123578807667253851478579344\
449553914415375194372851217961223158428624231899492121175279814486360858048056\
575120864817906982359465546791033345570306144306889182376593558188718231183977\
511187240921162728629126713811608658037408930071516876158725341127622968866605\
210362611399728215256794224599912431852531227205445323135206226637942724364187\
507359956181911218068991795777326796261608752343775804668422381361446090681588\
594231684449905631308569143981611046414359764645058273105320423572778055041510\
761287441331660970400343561555943556993103725670073628460112439243800517211794\
664815158651771479160942653186737535761672899827891567658199185014614703946969\
879000550578218043674277377855307965292573100704405035528657706565889113413367\
817192934796097513499651992416721568858204193236978264956752167858467613016650\
514975083735547048453768089171065791820462966374091485132898737129287935143459\
175813721830821381768374444936696984757491555027227218191496737306894525429493\
301724974763488028789233809728809898199416269816627876644539316701546354316106\
609944787820220498246818854200290468467630982622988930679820858730060272235476\
735450044805739148100924911019338705887449906544811444564378814239220572668180\
278032797347013668175334692909590627108897158421082548983131341387676127885490\
486578249126248836394203188792652324856135704773997090467104480778132423835257\
758424180335745170573652705419795069195190885851098538390625498507467309419611\
165780838698713310344086360548451070819222570296482527242703056995074918767257\
414142822271890334717277643954342541859509907472906259527629621846811719367901\
786024179895120064929613306517810763374494997293082055502432076618464586027616\
119815676773736360189991491957175057346133494837930827478266538261093888716461\
076377076699523221210638410121119502728028192147321213391939138517117401805454\
360045347532235299958021923292027677884065299422286086252105068056807793476844\
454728320229479895050738642250650424537785366800824269336818816623176949556726\
361708670651772685686418825606961363993789380923630615342066499106771216678307\
265280650651154307878220861870678168941097431704060159606780139617770602048383\
255107304641825616786778667766641145888295077288459709643465468572600850673752\
055883218340619680664771369547546505826597221827875270380133508853607738471589\
700951963694066449868459559318968227624570572944412896668467196250357904359310\
094303613350580572837195254247505334922434012206891543167881708739008884991490\
588279135076804550682803394454230822114888818737649635439941364151152126830053\
340927532304714488156842955217262531239581967894186558682010795291845929630207\
675781253.\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000013089481144651747951"}]}], 
      TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  LineIndent->0,
  FontWeight->"Plain",
  CellTags->{"Pisot Number", "G.1.2"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Product of two five-dimensional totally antisymmetric tensors ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Antisymmetric Tensors", "G.1.3"}],

Cell[BoxData[
    TagBox[
      "\(\[CurlyEpsilon]\_\(\[Alpha]\[InvisibleComma] \
\[Beta]\[InvisibleComma]                \[Rho]\[InvisibleComma] \[Sigma]\
\[InvisibleComma] \[Tau]\)\\            \[CurlyEpsilon]\_\(\[Kappa]\
\[InvisibleComma]                \[Lambda]\[InvisibleComma] \[Mu]\
\[InvisibleComma]                \[Nu]\[InvisibleComma] \[Xi]\)\\  =          \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Mu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\
\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Kappa]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Kappa]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Kappa]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Kappa]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Kappa]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Kappa]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Kappa]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Mu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\
\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\          \
    \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\
\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Lambda]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\       \
       \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\
\[Alpha]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Lambda]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Lambda]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Lambda]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\        \
      \[Delta]\_\(\[Tau]\[InvisibleComma] \[Lambda]\) +            \[Delta]\_\
\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\ \
             \[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\     \
         \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\         \
     \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\     \
         \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\   \
           \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Mu]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Mu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Mu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Mu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\         \
     \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Mu]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Xi]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\     \
         \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\   \
           \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Nu]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Nu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Nu]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Nu]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Xi]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Nu]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\      \
        \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Kappa]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\         \
     \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Mu]\)\\      \
        \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Sigma]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Nu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\     \
         \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) -            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Xi]\) -            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \
\[Lambda]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \[Kappa]\)\\   \
           \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \
\[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Beta]\
\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\[Rho]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\     \
         \[Delta]\_\(\[Tau]\[InvisibleComma] \[Xi]\) +            \
\[Delta]\_\(\[Alpha]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Beta]\[InvisibleComma] \[Kappa]\)\\              \[Delta]\_\(\[Rho]\
\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Xi]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Kappa]\)\\       \
       \[Delta]\_\(\[Beta]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\
\(\[Rho]\[InvisibleComma] \[Lambda]\)\\              \[Delta]\_\(\[Sigma]\
\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\[InvisibleComma] \
\[Xi]\) -            \[Delta]\_\(\[Alpha]\[InvisibleComma] \[Lambda]\)\\      \
        \[Delta]\_\(\[Beta]\[InvisibleComma] \[Kappa]\)\\              \
\[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \[Delta]\_\(\
\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\[Tau]\
\[InvisibleComma] \[Xi]\) +            \[Delta]\_\(\[Alpha]\[InvisibleComma] \
\[Kappa]\)\\              \[Delta]\_\(\[Beta]\[InvisibleComma] \[Lambda]\)\\  \
            \[Delta]\_\(\[Rho]\[InvisibleComma] \[Mu]\)\\              \
\[Delta]\_\(\[Sigma]\[InvisibleComma] \[Nu]\)\\              \[Delta]\_\(\
\[Tau]\[InvisibleComma] \[Xi]\)\)",
      HoldForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  LineSpacing->{1.55, 0},
  LineIndent->0,
  FontWeight->"Roman",
  CellTags->{"Antisymmetric Tensors", "G.1.3"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Trigonometric formulas ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\(-\(\(sin(\[Pi]\/7)\)\/\(\(sin\^2\)(\(2\ \[Pi]\)\/7)\)\)\) + 
            \(sin(\(3\ \[Pi]\)\/7)\)\/\(\(sin\^2\)(\[Pi]\/7)\) + 
            \(sin(\(2\ \[Pi]\)\/7)\)\/\(\(sin\^2\)(\(3\ \[Pi]\)\/7)\) = 
          2\ \@7\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\(\(sin\^2\)(\[Pi]\/7)\)\/\(\(sin\^4\)(\(2\ \[Pi]\)\/7)\) + 
            \(\(sin\^2\)(\(3\ \[Pi]\)\/7)\)\/\(\(sin\^4\)(\[Pi]\/7)\) + 
            \(\(sin\^2\)(\(2\ \[Pi]\)\/7)\)\/\(\(sin\^4\)(\(3\ \[Pi]\)\/7)
                \) = 28\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\(\(\(\(sin\^2\)(\[Pi]\/7)\)\/\(\(sin\^4\)(\(2\ \[Pi]\)\/7)\)\)\((
                \(4\ \(sin(\[Pi]\/7)\)\)\/\(sin(\(2\ \[Pi]\)\/7)\) - 
                  \(2\ \(sin(\(3\ \[Pi]\)\/7)\)\)\/\(sin(\[Pi]\/7)\))\)\ \) + 
            \(\(\(\(sin\^2\)(\(3\ \[Pi]\)\/7)\)\/\(\(sin\^4\)(\[Pi]\/7)\)\)\((
                \(2\ \(sin(\(2\ \[Pi]\)\/7)\)\)\/\(sin(\(3\ \[Pi]\)\/7)\) + 
                  \(4\ \(sin(\(3\ \[Pi]\)\/7)\)\)\/\(sin(\[Pi]\/7)\))\)\ \) - 
            \(\(\(sin\^2\)(\(2\ \[Pi]\)\/7)\ 
                  \)\/\(\(sin\^4\)(\(3\ \[Pi]\)\/7)\)\)\((
                \(2\ \(sin(\[Pi]\/7)\)\)\/\(sin(\(2\ \[Pi]\)\/7)\) + 
                  \(4\ \(sin(\(2\ \[Pi]\)\/7)\)\)\/\(sin(\(3\ \[Pi]\)\/7)\))
                \) = 280\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(cos(\[Pi]\/17) = 
          1\/8\ \[Sqrt]\((
                2\ \((2\ \@\(\@\(\ \(17\((17 - \@17)\)\)\/2\) - 
                            \@\(\(17 - \@17\)\/2\) - 4\ \@\(34 + 2\ \@17\) + 
                            3\ \@17 + 17\) + \@\(34 - 2\ \@17\) + \@17 + 15)
                    \))\)\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(tan(\[Pi]\/120) = 
          \@\(\(8 - \@\(2\ \((2 - \@3)\)\ \((3 - \@5)\)\) - 
                  \@\(2\ \((2 + \@3)\)\ \((5 + \@5)\)\)\)\/\(8 + 
                  \@\(2\ \((2 - \@3)\)\ \((3 - \@5)\)\) + 
                  \@\(2\ \((2 + \@3)\)\ \((5 + \@5)\)\)\)\)\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(cos(\[Pi]\/240) = 
          1\/16\ \((
              \@\(2 - \@\(2 + \@2\)\)\ 
                  \((\@\(2\ \((5 + \@5)\)\) + \@3 - \@15)\) + 
                \@\(\@\(2 + \@2\) + 2\)\ 
                  \((\@\(6\ \((5 + \@5)\)\) + \@5 - 1)\))\)\),
        HoldForm], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->10,
  FontWeight->"Plain",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],

Cell[BoxData[
    FormBox[GridBox[{
          {
            TagBox[\(\[Pi]\/4 = \(cot\^\(-1\)\)(2) + \(cot\^\(-1\)\)(3)\),
              HoldForm], 
            
            TagBox[\(\[Pi]\/4 = 
                \(cot\^\(-1\)\)(2) + \(cot\^\(-1\)\)(5) + 
                  \(cot\^\(-1\)\)(8)\),
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                2\(\( cot\^\(-1\)\)(3)\) + \(cot\^\(-1\)\)(7)\),
              HoldForm], 
            
            TagBox[\(\[Pi]\/4 = 
                3\(\( cot\^\(-1\)\)(4)\) + \(cot\^\(-1\)\)(99\/5)\),
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                4\(\( cot\^\(-1\)\)(5)\) - \(cot\^\(-1\)\)(239)\),
              HoldForm], 
            
            TagBox[\(\[Pi]\/4 = 
                4\(\( cot\^\(-1\)\)(5)\) - \(cot\^\(-1\)\)(70) + 
                  \(cot\^\(-1\)\)(99)\),
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                5\(\( cot\^\(-1\)\)(6)\) - \(cot\^\(-1\)\)(503\/16) - 
                  \(cot\^\(-1\)\)(117)\),
              HoldForm], 
            
            TagBox[\(\[Pi]\/4 = 
                5\(\( cot\^\(-1\)\)(7)\) + 2\(\( cot\^\(-1\)\)(79\/3)\)\),
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                6\(\( cot\^\(-1\)\)(8)\) + \(cot\^\(-1\)\)(99\/5) - 
                  3\(\( cot\^\(-1\)\)(268)\)\),
              HoldForm], 
            TagBox[
              
              TagBox[\(\[Pi]\/4 = 
                  8\ \(\(cot\^\(-1\)\)(10)\) - \(cot\^\(-1\)\)(239) - 
                    4\ \(\(cot\^\(-1\)\)(515)\)\),
                HoldForm],
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                8\(\( cot\^\(-1\)\)(10)\) - 
                  2\(\( cot\^\(-1\)\)(452761\/2543)\) - 
                  \(cot\^\(-1\)\)(1393)\),
              HoldForm], 
            
            TagBox[\(\[Pi]\/4 = 
                8\(\( cot\^\(-1\)\)(10)\) - \(cot\^\(-1\)\)(100) - 
                  \(cot\^\(-1\)\)(515) - \(cot\^\(-1\)\)(371498882\/3583)\),
              HoldForm]},
          {
            
            TagBox[\(\[Pi]\/4 = 
                12\(\( cot\^\(-1\)\)(18)\) + 3\(\( cot\^\(-1\)\)(70)\) + 
                  5\(\( cot\^\(-1\)\)(99)\) + 8\(\( cot\^\(-1\)\)(307)\)\),
              HoldForm], 
            TagBox[
              \(\[Pi]\/4 = 
                12\(\( cot\^\(-1\)\)(18)\) + 8\(\( cot\^\(-1\)\)(99)\) + 
                  3\(\( cot\^\(-1\)\)(239)\) + 8\(\( cot\^\(-1\)\)(307)\)\),
              HoldForm]}
          }], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontSize->11,
  FontWeight->"Plain",
  GridBoxOptions->{ColumnSpacings->2,
  ColumnAlignments->{Left}},
  CellTags->{"Trigonometric Formulas", "G.1.4"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Some definite integrals ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0\%1
              \(\(\( log\^3\)(x)\)\ \@\(1 - x\)\)\[DifferentialD]x\), "=", 
          RowBox[{\(-\(2\/27\)\), " ", 
            RowBox[{"(", 
              RowBox[{
              "640", "-", \(24\ \[Pi]\^2\), "-", \(312\ \(log(4)\)\), "+", 
                \(9\ \[Pi]\^2\ \(log(4)\)\), "+", \(72\ \(\(log\^2\)(4)\)\), 
                "-", \(9\ \(\(log\^3\)(4)\)\), "-", 
                RowBox[{"108", " ", 
                  TagBox[
                    RowBox[{"\[Zeta]", "(", 
                      TagBox["3",
                        (Editable -> True)], ")"}],
                    InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Plain",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0\%1
              \(\(\( sin\^\(-1\)\)(x)\)\^5\/x\)\[DifferentialD]x\), "=", 
          RowBox[{\(1\/64\), " ", "\[Pi]", " ", 
            RowBox[{"(", 
              RowBox[{\(2\ \[Pi]\^4\ \(log(2)\)\), "-", 
                RowBox[{"30", " ", \(\[Pi]\^2\), " ", 
                  TagBox[
                    RowBox[{"\[Zeta]", "(", 
                      TagBox["3",
                        (Editable -> True)], ")"}],
                    InterpretTemplate[ Zeta[ #]&]]}], "+", 
                RowBox[{"225", " ", 
                  TagBox[
                    RowBox[{"\[Zeta]", "(", 
                      TagBox["5",
                        (Editable -> True)], ")"}],
                    InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\[Integral]\_0\%1
              \( 1\/\(x\ \)\^2\)\(\((
                    \(1\/x\)\(log(\(1 + x\)\/\(1 - x\))\) - 2)\)\^2
                  \)\[DifferentialD]x = \(2\/9\)\((\[Pi]\^2\  - \ 6)\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\[Integral]\_0
              \%\[Infinity]\( 1
                  \/\((x\^2 + 2\ y\ \(cos(t)\)\ x + y\^2)\)\^2
                    \)\[DifferentialD]y = 
          \(\(\(csc\^3\)(t)\)\ 
              \((2\ \(\(tan\^\(-1\)\)(tan(t\/2))\) + 
                  \(tan\^\(-1\)\)(tan(t)) - sin(2\ t))\)\)\/\(4\ x\^3\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0
              \%\(\[Pi]\/2\)\((\(log(sin(x))\)\ x\^2 + \(log(cos(x))\)\ x)
                \)\[DifferentialD]x\), "=", 
          RowBox[{\(1\/48\), " ", 
            RowBox[{"(", 
              RowBox[{
              \(\(-6\)\ \[Pi]\^2\ \(log(2)\)\), "-", \(\[Pi]\^3\ \(log(4)\)\),
                 "-", 
                RowBox[{"21", " ", 
                  TagBox[
                    RowBox[{"\[Zeta]", "(", 
                      TagBox["3",
                        (Editable -> True)], ")"}],
                    InterpretTemplate[ Zeta[ #]&]]}], "+", 
                RowBox[{"9", " ", "\[Pi]", " ", 
                  TagBox[
                    RowBox[{"\[Zeta]", "(", 
                      TagBox["3",
                        (Editable -> True)], ")"}],
                    InterpretTemplate[ Zeta[ #]&]]}]}], ")"}]}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\[Integral]\_0\%1
              \(\@\( 1 - x\)\ \(cos(2\ x)\)\ 
                \[ExponentialE]\^x\)\[DifferentialD]x = 
          1\/100\ \((
              \(-20\) - 
                \((3 - 4\ \[ImaginaryI])\)\ 
                  \[ExponentialE]\^\(1 - 2\ \[ImaginaryI]\)\ 
                  \@\(\((1 - 2\ \[ImaginaryI])\)\ \[Pi]\)\ 
                  \(erf(\@\(1 - 2\ \[ImaginaryI]\))\) - 
                \((3 + 4\ \[ImaginaryI])\)\ 
                  \[ExponentialE]\^\(1 + 2\ \[ImaginaryI]\)\ 
                  \@\(\((1 + 2\ \[ImaginaryI])\)\ \[Pi]\)\ 
                  \(erf(\@\(1 + 2\ \[ImaginaryI]\))\))\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0
              \%\[Infinity]\(\(\( J\_2\)(x)\)\^2\ 
                \[ExponentialE]\^\(-x\)\)\[DifferentialD]x\), "=", 
          RowBox[{\(3\/8\), " ", 
            TagBox[
              RowBox[{\(\(\[ThinSpace]\_2\)F\_1\), "(", 
                RowBox[{
                  RowBox[{
                    TagBox[\(5\/2\),
                      (Editable -> True)], ",", 
                    TagBox[\(5\/2\),
                      (Editable -> True)]}], ";", 
                  TagBox["5",
                    (Editable -> True)], ";", 
                  TagBox[\(-4\),
                    (Editable -> True)]}], ")"}],
              InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0
              \%\[Infinity]\( \[ExponentialE]\^\(-x\^3\)\ 
                \(sin(x)\)\)\[DifferentialD]x\), "=", 
          RowBox[{
            RowBox[{\(1\/3\), " ", \(\[CapitalGamma](2\/3)\), " ", 
              TagBox[
                RowBox[{\(\(\[ThinSpace]\_0\)F\_3\), "(", 
                  RowBox[{
                    TagBox[
                      InterpretationBox["\[InvisibleSpace]",
                        {}],
                      (Editable -> False)], ";", 
                    TagBox[
                      TagBox[
                        RowBox[{
                          TagBox[\(1\/2\),
                            (Editable -> True)], ",", 
                          TagBox[\(2\/3\),
                            (Editable -> True)], ",", 
                          TagBox[\(7\/6\),
                            (Editable -> True)]}],
                        InterpretTemplate[ {
                          SlotSequence[ 1]}&]],
                      (Editable -> False)], ";", 
                    TagBox[\(-\(1\/11664\)\),
                      (Editable -> True)]}], ")"}],
                InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&]]}], "-", 
            RowBox[{\(1\/54\), " ", \(\[CapitalGamma](1\/3)\), " ", 
              TagBox[
                RowBox[{\(\(\[ThinSpace]\_0\)F\_3\), "(", 
                  RowBox[{
                    TagBox[
                      InterpretationBox["\[InvisibleSpace]",
                        {}],
                      (Editable -> False)], ";", 
                    TagBox[
                      TagBox[
                        RowBox[{
                          TagBox[\(5\/6\),
                            (Editable -> True)], ",", 
                          TagBox[\(4\/3\),
                            (Editable -> True)], ",", 
                          TagBox[\(3\/2\),
                            (Editable -> True)]}],
                        InterpretTemplate[ {
                          SlotSequence[ 1]}&]],
                      (Editable -> False)], ";", 
                    TagBox[\(-\(1\/11664\)\),
                      (Editable -> True)]}], ")"}],
                InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&]]}], "+", 
            RowBox[{\(1\/360\), " ", 
              TagBox[
                RowBox[{\(\(\[ThinSpace]\_1\)F\_4\), "(", 
                  RowBox[{
                    TagBox[
                      TagBox[
                        TagBox["1",
                          (Editable -> True)],
                        InterpretTemplate[ {
                          SlotSequence[ 1]}&]],
                      (Editable -> False)], ";", 
                    TagBox[
                      TagBox[
                        RowBox[{
                          TagBox[\(7\/6\),
                            (Editable -> True)], ",", 
                          TagBox[\(4\/3\),
                            (Editable -> True)], ",", 
                          TagBox[\(5\/3\),
                            (Editable -> True)], ",", 
                          TagBox[\(11\/6\),
                            (Editable -> True)]}],
                        InterpretTemplate[ {
                          SlotSequence[ 1]}&]],
                      (Editable -> False)], ";", 
                    TagBox[\(-\(1\/11664\)\),
                      (Editable -> True)]}], ")"}],
                InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&]]}]}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
        \(\[Integral]\_0
              \%\[Infinity]\( \[ExponentialE]\^\(\(-x\)\ \(sinh(u)\)\)\ 
                \(\(J\_m\)(x)\)\)\[DifferentialD]x\), "=", 
          RowBox[{"If", "[", 
            RowBox[{
            \(Re(\[ExponentialE]\^\(-u\)\ \((\(-1\) + \[ExponentialE]\^u)\)\ 
                      \((1 + \[ExponentialE]\^u)\)) > 0 \[And] Re(m) > \(-1\) 
                \[And] Re(sinh(u)) > 0\), ",", 
              FractionBox[
                RowBox[{
                "2", " ", \(\[ExponentialE]\^u\), " ", 
                  \(\((\(-\[ExponentialE]\^\(-u\)\) + \[ExponentialE]\^u)
                        \)\^\(-m\)\), " ", 
                  TagBox[
                    RowBox[{\(\(\[ThinSpace]\_2\)F\_1\), "(", 
                      RowBox[{
                        RowBox[{
                          TagBox[\(\(m + 1\)\/2\),
                            (Editable -> True)], ",", 
                          TagBox[\(\(m + 2\)\/2\),
                            (Editable -> True)]}], ";", 
                        TagBox[\(m + 1\),
                          (Editable -> True)], ";", 
                        
                        TagBox[
                          \(-\(\(4\ 
                                  \[ExponentialE]\^\(2\ u\)\)\/\((
                                    \(-1\) + \[ExponentialE]\^\(2\ u\))\)\^2
                                  \)\),
                          (Editable -> True)]}], ")"}],
                    InterpretTemplate[ Hypergeometric2F1[ #, #2, #3, #4]&]]}],
                 \(\(-1\) + \[ExponentialE]\^\(2\ u\)\)], ",", 
              RowBox[{
                SubsuperscriptBox["\[Integral]", "0", 
                  InterpretationBox["\[Infinity]",
                    DirectedInfinity[ 1]]], 
                \(\(\[ExponentialE]\^\(\(-x\)\ \(sinh(u)\)\)\ 
                    \(\(J\_m\)(x)\)\)\[DifferentialD]x\)}]}], "]"}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\[Integral]\_0
              \%\[Infinity]\(\( Ai(x)\)\^2\ 
                \(Ai(\(-x\))\)\^2\)\[DifferentialD]x = 1\/\(24\ \[Pi]\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}],

Cell[BoxData[
    FormBox[
      TagBox[
        \(\[Integral]\_0
              \%\[Infinity]\( t\ \(\(Y\_0\)(t)\)\ \(\(J\_0\)(t)\)\ 
                \(\(I\_2\)(t)\)\ \(\(K\_2\)(t)\)\)\[DifferentialD]t = 
          \(\(-8\) + \[Pi] + 8\ \(log(4)\)\)\/\(8\ \[Pi]\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{15.875, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"More Definite Integrals", "G.1.5"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Generating functions for partitions ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Partitions", "G.1.6"}],

Cell[BoxData[GridBox[{
        {
          StyleBox[
            
            TagBox[\(\[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^n)\) = 
                \[Sum]\+\(k = \(-\[Infinity]\)\)\%\[Infinity]\((\(-1\))\)\^k\ 
                    x\^\(\(3k\^2 + k\)\/2\)\),
              HoldForm],
            UnderscriptBoxOptions->{LimitsPositioning->False}], 
          
          TagBox[\(\ \ \ \ \ \ \ \ \ \ \ \ 
            \[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^n)\)\^3 = 
              \[Sum]\+\(k = \(-\[Infinity]\)\)\%\[Infinity]\((4 k + 1)\)\ 
                  x\^\(2 k\^2 + k\)\),
            HoldForm]}
        }]], "Input",
  CellMargins->{{18, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  UnderoverscriptBoxOptions->{LimitsPositioning->True},
  CellTags->{"Partitions", "G.1.6"}],

Cell[BoxData[GridBox[{
        {
          StyleBox[
            TagBox[
              RowBox[{
                StyleBox[
                  FractionBox[
                    
                    StyleBox[
                      \(\[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^n)\)\^2\),
                      
                      UnderoverscriptBoxOptions->{LimitsPositioning->False}], 
                    
                    
                    StyleBox[
                      \(\[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^\(2n\))
                          \)\),
                      UnderoverscriptBoxOptions->{LimitsPositioning->False}]],
                  
                  UnderscriptBoxOptions->{LimitsPositioning->True}], "=", 
                \(\[Sum]\+\(k = \(-\[Infinity]\)\)\%\[Infinity]\((\(-1\))\)\^k
                      \ x\^\(k\^2\)\)}],
              HoldForm],
            UnderscriptBoxOptions->{LimitsPositioning->False}], 
          TagBox[
            RowBox[{"            ", 
              TagBox[
                RowBox[{
                  FractionBox[
                    
                    StyleBox[
                      \(\[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^\(2\ n\))
                          \)\),
                      UnderoverscriptBoxOptions->{LimitsPositioning->False}], 
                    
                    
                    StyleBox[
                      \(\[Product]\+\(n = 1\)\%\[Infinity]\((1 - x\^n)\)\),
                      UnderoverscriptBoxOptions->{LimitsPositioning->False}]],
                   "=", \(\[Sum]\+\(k = \(-\[Infinity]\)\)\%\[Infinity] x
                      \^\(2\ k\^2 + k\)\)}],
                HoldForm]}],
            HoldForm]}
        }]], "Input",
  CellMargins->{{18, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  UnderoverscriptBoxOptions->{LimitsPositioning->True},
  CellTags->{"Partitions", "G.1.6"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Surface area of an ellipsoid ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}],

Cell[BoxData[
    TagBox[
      RowBox[{
        TagBox[
          \(\[Integral]\_0
              \%\(2\ \[Pi]\)\(\[Integral]\_0
                \%\[Pi]\( Sin[\[Theta]]\ 
                  \@\(b\^2\ c\^2\ Sin[\[Theta]]\^2\ Cos[\[Phi]]\^2 + 
                      a\^2\ c\^2\ Sin[\[Theta]]\^2\ Sin[\[Phi]]\^2 + 
                      a\^2\ b\^2\ 
                        Cos[\[Theta]]\^2
                          \)\)\[DifferentialD]\[Theta]\[DifferentialD]\[Phi]\)\
\),
          HoldForm], "=", 
        \(2\ \[Pi]\ 
          \((c\^2 + 
              \(\((b\ c\^2)\)\ EllipticE[\[Theta], m]\)\/\@\(a\^2 - c\^2\) + 
              b\ \@\(a\^2 - c\^2\)\ EllipticF[\[Theta], m])\)\)}],
      HoldForm]], "Output",
  CellMargins->{{24.625, Inherited}, {Inherited, Inherited}},
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}],

Cell[BoxData[
    TagBox[\(m = \(a\^2\ \((b\^2 - c\^2)\)\)\/\(b\^2\ \((a\^2 - c\^2)\)\); 
      \[Theta] = 
        ArcSin \@\([1 - c\^2\/a\^2]\) /; 
          a \[GreaterEqual] b \[GreaterEqual] c\),
      HoldForm]], "Output",
  CellMargins->{{15.625, Inherited}, {Inherited, Inherited}},
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Iterated radical identities ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Iterated Radical Identities", "G.1.8"}],

Cell[BoxData[
    TagBox[
      \(\@\(6 + 
            \@\(6 + \@\(6 + 
                    \@\(6 + 
                        \@\(6 + \@\(6 + \@\(6 + \[Ellipsis]\)\)\)\)\)\)\) = 3
        \),
      HoldForm]], "Output",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  CellTags->{"Iterated Radical Identities", "G.1.8"}],

Cell[BoxData[
    TagBox[
      \(2\/\@2\ 2\/\@\(2 + \@2\)\ \(2\/\@\(2 + \@\(2 + \@2\)\)\) 
          2\/\@\(2 + \@\(2 + \@\(2 + \@\(2 + \[Ellipsis]\)\)\)\) = 
        \[Pi]\/2\),
      HoldForm]], "Output",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  CellTags->{"Iterated Radical Identities", "G.1.8"}],

Cell[BoxData[
    TagBox[
      RowBox[{
      "\(\@\(1 + \@\(1 + \@\(1 + \@\(1 + \@\(1 + \[Ellipsis]\)\)\)\)\)\)", 
        "=", 
        RowBox[{"1", "+", 
          FractionBox["1", 
            StyleBox[
              RowBox[{"1", "+", 
                FractionBox["1", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      FractionBox["1", 
                        StyleBox[
                          RowBox[{"1", "+", 
                            FractionBox["1", 
                              StyleBox["\(1 + \[Ellipsis]\)",
                                ScriptLevel->0]]}],
                          ScriptLevel->0]]}],
                    ScriptLevel->0]]}],
              ScriptLevel->0]]}]}],
      HoldForm]], "Output",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  CellTags->{"Iterated Radical Identities", "G.1.8"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Polylogarithm identities ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Polylogarithm Identities", "G.1.9"}],

Cell[BoxData[
    TagBox[
      "\(2\\ PolyLog[2, \(5 - \@5\)\/\(5 + \@5\)] +            Log[\(5 - \
\@5\)\/\(5 + \@5\)]\\ Log[1 - \(5 - \@5\)\/\(5 + \@5\)] -            \(2\\ \
\[Pi]\^2\)\/15 = 0\)",
      HoldForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontWeight->"Roman",
  CellTags->{"Polylogarithm Identities", "G.1.9"}],

Cell[BoxData[
    TagBox[
      "\(PolyLog[2, 1\/4] + 2\\ PolyLog[2, 1\/3] + Log[4\/3]\\ Log[2] +       \
     Log[3\/2]\\ Log[3] - \[Pi]\^2\/6 = 0\)",
      HoldForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontWeight->"Roman",
  CellTags->{"Polylogarithm Identities", "G.1.9"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Heisenberg-Euler Lagrangian from quantum electrodynamics ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}],

Cell[BoxData[
    FormBox[
      RowBox[{\(\[ScriptCapitalL]\_eff\), "=", "\t", 
        RowBox[{
          RowBox[{\(1\/2\), 
            RowBox[{"(", 
              RowBox[{
                SuperscriptBox[
                  StyleBox["E",
                    FontFamily->"Times",
                    FontSize->12,
                    FontWeight->"Bold",
                    FontSlant->"Italic",
                    FontTracking->"Plain"], "2"], "-", 
                SuperscriptBox[
                  StyleBox["B",
                    FontSize->12,
                    FontWeight->"Bold",
                    FontSlant->"Italic"], "2"]}], ")"}]}], " ", "-", "\n", 
          "\t\t\t", 
          RowBox[{\(1\/\(8  \[Pi]\^2\)\), 
            RowBox[{\(\[Integral]\+\[CapitalGamma]\), 
              RowBox[{\(\[ExponentialE]\^\(\(-m\^2\) u\)\/u\^3\), 
                RowBox[{"(", 
                  RowBox[{
                    RowBox[{
                      SuperscriptBox[
                        StyleBox["e",
                          "MagicInlineCellMarker"], "2"], 
                      StyleBox[" ",
                        "MagicInlineCellMarker"], 
                      SuperscriptBox[
                        StyleBox["u",
                          "MagicInlineCellMarker"], \(2\ \)], 
                      StyleBox[
                        RowBox[{"\[LeftBracketingBar]", 
                          RowBox[{
                            StyleBox["E",
                              FontFamily->"Times",
                              FontSize->12,
                              FontWeight->"Bold",
                              FontSlant->"Italic",
                              FontTracking->"Plain"], "\[CenterDot]", 
                            StyleBox["B",
                              FontSize->12,
                              FontWeight->"Bold",
                              FontSlant->"Italic"]}], 
                          "\[RightBracketingBar]"}],
                        FontFamily->"Times",
                        FontSize->12,
                        FontWeight->"Plain",
                        FontSlant->"Plain",
                        FontTracking->"Plain"], " ", 
                      FractionBox[
                        RowBox[{"Re", "[", 
                          RowBox[{"cosh", "(", 
                            RowBox[{"e", " ", "u", " ", 
                              SqrtBox[
                                RowBox[{"2", 
                                  RowBox[{"(", 
                                    RowBox[{
                                      SuperscriptBox[
                                        StyleBox["B",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic"], "2"], "-", 
                                      SuperscriptBox[
                                        StyleBox["E",
                                        FontFamily->"Times",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic",
                                        FontTracking->"Plain"], "2"], "+", 
                                      RowBox[{"\[ImaginaryI]", " ", 
                                        RowBox[{
                                        StyleBox["E",
                                        FontFamily->"Times",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic",
                                        FontTracking->"Plain"], 
                                        "\[CenterDot]", 
                                        StyleBox["B",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic"]}]}]}], 
                                    ")"}]}]]}], ")"}], "]"}], 
                        RowBox[{"Im", "[", 
                          RowBox[{"cosh", "(", 
                            RowBox[{"e", " ", "u", " ", 
                              SqrtBox[
                                RowBox[{"2", 
                                  RowBox[{"(", 
                                    RowBox[{
                                      SuperscriptBox[
                                        StyleBox["B",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic"], "2"], "-", 
                                      SuperscriptBox[
                                        StyleBox["E",
                                        FontFamily->"Times",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic",
                                        FontTracking->"Plain"], "2"], "+", 
                                      RowBox[{"\[ImaginaryI]", " ", 
                                        RowBox[{
                                        StyleBox["E",
                                        FontFamily->"Times",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic",
                                        FontTracking->"Plain"], 
                                        "\[CenterDot]", 
                                        StyleBox["B",
                                        FontSize->12,
                                        FontWeight->"Bold",
                                        FontSlant->"Italic"]}]}]}], 
                                    ")"}]}]]}], ")"}], "]"}]]}], "-", "1", 
                    "+", 
                    RowBox[{\(2\/3\), " ", 
                      SuperscriptBox[
                        StyleBox["e",
                          "MagicInlineCellMarker"], "2"], 
                      StyleBox[" ",
                        "MagicInlineCellMarker"], 
                      SuperscriptBox[
                        StyleBox["u",
                          "MagicInlineCellMarker"], \(2\ \)], " ", 
                      RowBox[{"(", 
                        RowBox[{
                          SuperscriptBox[
                            StyleBox["E",
                              FontFamily->"Times",
                              FontSize->12,
                              FontWeight->"Bold",
                              FontSlant->"Italic",
                              FontTracking->"Plain"], "2"], "-", 
                          SuperscriptBox[
                            StyleBox["B",
                              FontSize->12,
                              FontWeight->"Bold",
                              FontSlant->"Italic"], "2"]}], ")"}]}]}], " ", 
                  ")"}], \(\[DifferentialD]u\)}]}]}]}]}], TraditionalForm]], 
  "FlushInput",
  Editable->True,
  WindowClickSelect->True,
  ShowCellBracket->True,
  Evaluatable->False,
  FontWeight->"Plain",
  CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Diagram from homological algebra  ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Homological Algebra", "G.1.11"}],

Cell[BoxData[
    FormBox[GridBox[{
          {"\(X\^\(p - 1\)\)", 
            StyleBox["\(\[LongRightArrow]\&\(\[Xi]\^p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\^p\)", 
            StyleBox["\(\[LongRightArrow]\&\(\[Nu]\^p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], 
            AdjustmentBox["X",
              BoxMargins->{{-0.379446, 0.379446}, {0, 0}}], 
            StyleBox["\(\[DoubleLongRightArrow]\&\(\[Eta]\_p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_p\)", 
            StyleBox["\(\[DoubleLongRightArrow]\&\(\[Xi]\_p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_\(p + 1\)\)"},
          {
            AdjustmentBox[
              StyleBox["\(\(\[DownArrow]\[Kappa]\)\^\(p - 1\)\)",
                SpanMinSize->1.7,
                SpanMaxSize->1.7],
              BoxMargins->{{1.05164, -1.05164}, {0, 0}}], 
            StyleBox[" ",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            AdjustmentBox[
              StyleBox["\(\(\[DownArrow]\[Kappa]\)\^p\)",
                SpanMinSize->1.7,
                SpanMaxSize->1.7],
              BoxMargins->{{0.676056, -0.676056}, {0, 0}}], 
            StyleBox[" ",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            AdjustmentBox[
              StyleBox[
                RowBox[{"\[DownArrow]", 
                  SuperscriptBox["\[Kappa]", 
                    StyleBox["a",
                      ShowContents->False]]}],
                SpanMinSize->1.7,
                SpanMaxSize->1.7],
              BoxMargins->{{-0.075117, 0.075117}, {0, 0}}], " ", 
            StyleBox["\(\[LeftBracketingBar]\[RightBracketingBar]\)",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            StyleBox[" ",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            StyleBox["\(\[LeftBracketingBar]\[RightBracketingBar]\)",
              SpanMinSize->1.7,
              SpanMaxSize->1.7]},
          {"\(X\_\(-\[Infinity]\)\%\(p - 1\)\)", 
            StyleBox["\[LongRightArrow]",
              SpanMaxSize->2], "\(X\_\(-\[Infinity]\)\%p\)", 
            StyleBox["\(\[LongRightArrow]\&\(\[Nu]\_\(-\[Infinity]\)\%p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_\(-\[Infinity]\)\)", 
            
            StyleBox[
              "\(\[DoubleLongRightArrow]\&\(\[Eta]\_\(\(-\[Infinity]\), p     \
                  \)\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_p\)", 
            StyleBox["\(\[DoubleLongRightArrow]\&\(\[Xi]\_p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_\(p + 1\)\)"},
          {
            StyleBox["\(\[LeftBracketingBar]\[RightBracketingBar]\)",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], " ", 
            StyleBox["\(\[LeftBracketingBar]\[RightBracketingBar]\)",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], " ", 
            RowBox[{
              StyleBox["\[UpArrow]",
                SpanMinSize->1.7,
                SpanMaxSize->1.7], 
              StyleBox["\(\[Lambda]\&_\)",
                SpanMinSize->1,
                SpanMaxSize->1]}], 
            StyleBox[" ",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            AdjustmentBox[
              StyleBox["\(\(\[UpArrow]\[Lambda]\)\_p\)",
                SpanMinSize->1.7,
                SpanMaxSize->1.7],
              BoxMargins->{{0.676056, -0.676056}, {0, 0}}], 
            StyleBox[" ",
              SpanMinSize->1.7,
              SpanMaxSize->1.7], 
            AdjustmentBox[
              StyleBox["\(\(\[UpArrow]\[Lambda]\)\_\(p + 1\)\)",
                SpanMinSize->1.7,
                SpanMaxSize->1.7],
              BoxMargins->{{1.05164, -1.05164}, {0, 0}}]},
          {"\(X\_\(-\[Infinity]\)\%\(p - 1\)\)", 
            StyleBox["\(\[LongRightArrow]\&\(\[Xi]\_\(-\[Infinity]\)\%p\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_\(-\[Infinity]\)\%p\)", 
            
            StyleBox[
              "\(\[LongRightArrow]\&\(\[Nu]\_\(-\[Infinity]\)\%\(\[Infinity], \
p                       \)\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(\((X\_\(-\[Infinity]\))\)\^\[Infinity]\)", 
            
            StyleBox[
              "\(\[DoubleLongRightArrow]\&\(\[Eta]\_\(\(-\[Infinity]\), p     \
                  \)\%\[Infinity]\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_p\%\[Infinity]\)", 
            
            StyleBox[
              "\(\[DoubleLongRightArrow]\&\(\\ \\ \\                    \[Xi]\
\_p\%\(\[Infinity]\\ \\ \)\)\)",
              SpanMinSize->2,
              SpanMaxSize->2], "\(X\_\(p + 1\)\%\[Infinity]\)"}
          }], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontWeight->"Plain",
  CellTags->{"Homological Algebra", "G.1.11"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Sums involving zeta functions ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Zeta Functions", "G.1.12"}],

Cell[BoxData[
    FormBox[GridBox[{
          {
            TagBox[
              RowBox[{
                RowBox[{
                  StyleBox["\(\[Sum]\+\(k = 2\)\%\[Infinity]\)",
                    UnderoverscriptBoxOptions->{LimitsPositioning->True}], 
                  RowBox[{
                    RowBox[{"(", 
                      RowBox[{
                        TagBox[
                          RowBox[{"\[Zeta]", "(", 
                            TagBox["k",
                              (Editable -> True)], ")"}],
                          InterpretTemplate[ Zeta[ #]&]], "-", "1"}], ")"}], 
                    " ", "\(x\^k\)"}]}], "=", 
                RowBox[{"\(-x\)", " ", 
                  RowBox[{"(", 
                    RowBox[{
                      RowBox[{
                        SuperscriptBox[
                          TagBox["\[Psi]",
                            PolyGamma], "\((0)\)"], "(", "\(2 - x\)", ")"}], 
                      "+", 
                      TagBox["\[Gamma]",
                        EulerGamma], "-", "1"}], ")"}]}]}],
              HoldForm], 
            RowBox[{"         ", 
              TagBox[
                TagBox[
                  RowBox[{
                    RowBox[{
                      StyleBox["\(\[Sum]\+\(k = 2\)\%\[Infinity]\)",
                        UnderoverscriptBoxOptions->{LimitsPositioning->True}],
                       
                      FractionBox[
                        RowBox[{"\(\((\(-1\))\)\^k\)", " ", 
                          TagBox[
                            RowBox[{"\[Zeta]", "(", 
                              TagBox["k",
                                (Editable -> True)], ")"}],
                            InterpretTemplate[ Zeta[ #]&]]}], "\(2\^k\)"]}], 
                    "=", "\(1 - log(2)\)"}],
                  HoldForm],
                HoldForm]}]}
          }], TraditionalForm]], "FlushInput",
  Editable->True,
  ShowCellBracket->True,
  FontWeight->"Roman",
  UnderoverscriptBoxOptions->{LimitsPositioning->False},
  GridBoxOptions->{ColumnAlignments->{Left}},
  CellTags->{"Zeta Functions", "G.1.12"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Green's function for the Laplace operator on a rectangle with homogeneous \
Dirichlet boundary conditions ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Green's Function", "G.1.13"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
          RowBox[{"G", "(", 
            RowBox[{"x", ",", 
              SuperscriptBox["x", "\[Prime]",
                MultilineFunction->None], ",", "y", ",", 
              SuperscriptBox["y", "\[Prime]",
                MultilineFunction->None]}], ")"}], "=", 
          RowBox[{"\(1\/\(2  \[Pi]\)\)", 
            RowBox[{"Re", "(", 
              RowBox[{"log", "(", 
                FractionBox[
                  RowBox[{
                    RowBox[{"\(\[CurlyTheta]\_1\)", "(", 
                      RowBox[{
                        FractionBox[
                          RowBox[{"\[Pi]", " ", 
                            RowBox[{"(", 
                              RowBox[{
                              "x", "+", "\(\[ImaginaryI]\\ y\)", "+", 
                                SuperscriptBox["x", "\[Prime]",
                                  MultilineFunction->None], "-", 
                                RowBox[{"\[ImaginaryI]", " ", 
                                  SuperscriptBox["y", "\[Prime]",
                                    MultilineFunction->None]}]}], ")"}]}], 
                          "\(4\\ a\)"], ",", 
                        "\(\[ExponentialE]\^\(-\(\(a\\ \[Pi]\)\/b\)\)\)"}], 
                      ")"}], " ", 
                    RowBox[{"\(\[CurlyTheta]\_1\)", "(", 
                      RowBox[{
                        FractionBox[
                          RowBox[{"\[Pi]", " ", 
                            RowBox[{"(", 
                              RowBox[{
                              "x", "+", "\(\[ImaginaryI]\\ y\)", "-", 
                                SuperscriptBox["x", "\[Prime]",
                                  MultilineFunction->None], "+", 
                                RowBox[{"\[ImaginaryI]", " ", 
                                  SuperscriptBox["y", "\[Prime]",
                                    MultilineFunction->None]}]}], ")"}]}], 
                          "\(4\\ a\)"], ",", 
                        "\(\[ExponentialE]\^\(-\(\(a\\ \[Pi]\)\/b\)\)\)"}], 
                      ")"}]}], 
                  RowBox[{
                    RowBox[{"\(\[CurlyTheta]\_1\)", "(", 
                      RowBox[{
                        FractionBox[
                          RowBox[{"\[Pi]", " ", 
                            RowBox[{"(", 
                              RowBox[{
                              "x", "+", "\(\[ImaginaryI]\\ y\)", "-", 
                                SuperscriptBox["x", "\[Prime]",
                                  MultilineFunction->None], "-", 
                                RowBox[{"\[ImaginaryI]", " ", 
                                  SuperscriptBox["y", "\[Prime]",
                                    MultilineFunction->None]}]}], ")"}]}], 
                          "\(4\\ a\)"], ",", 
                        "\(\[ExponentialE]\^\(-\(\(a\\ \[Pi]\)\/b\)\)\)"}], 
                      ")"}], " ", 
                    RowBox[{"\(\[CurlyTheta]\_1\)", "(", 
                      RowBox[{
                        FractionBox[
                          RowBox[{"\[Pi]", " ", 
                            RowBox[{"(", 
                              RowBox[{
                              "x", "+", "\(\[ImaginaryI]\\ y\)", "+", 
                                SuperscriptBox["x", "\[Prime]",
                                  MultilineFunction->None], "+", 
                                RowBox[{"\[ImaginaryI]", " ", 
                                  SuperscriptBox["y", "\[Prime]",
                                    MultilineFunction->None]}]}], ")"}]}], 
                          "\(4\\ a\)"], ",", 
                        "\(\[ExponentialE]\^\(-\(\(a\\ \[Pi]\)\/b\)\)\)"}], 
                      ")"}]}]], ")"}], ")"}]}]}],
        HoldForm], TraditionalForm]], "Output",
  CellMargins->{{15.8125, Inherited}, {Inherited, Inherited}},
  CellTags->{"Green's Function", "G.1.13"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Nontrivial square root of an identity matrix ",
  StyleBox["(TraditionalForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Matrix Square Root", "G.1.14"}],

Cell[BoxData[
    FormBox[
      TagBox[
        RowBox[{
          SqrtBox[
            RowBox[{"(", GridBox[{
                  {"1", "0", "0", "0", "0", "0", "0", "0", "0"},
                  {"0", "1", "0", "0", "0", "0", "0", "0", "0"},
                  {"0", "0", "1", "0", "0", "0", "0", "0", "0"},
                  {"0", "0", "0", "1", "0", "0", "0", "0", "0"},
                  {"0", "0", "0", "0", "1", "0", "0", "0", "0"},
                  {"0", "0", "0", "0", "0", "1", "0", "0", "0"},
                  {"0", "0", "0", "0", "0", "0", "1", "0", "0"},
                  {"0", "0", "0", "0", "0", "0", "0", "1", "0"},
                  {"0", "0", "0", "0", "0", "0", "0", "0", "1"}
                  },
                ColumnAlignments->{Decimal}], ")"}]], "=", 
          RowBox[{"(", GridBox[{
                {"\[Gamma]", "\[Beta]", "\[Delta]", "\[Epsilon]", "\[Alpha]", 
                  "\[Epsilon]", "\[Delta]", "\[Beta]", "\[Gamma]"},
                {"\[Beta]", "\[Epsilon]", "\[Epsilon]", "\[Beta]", "0", 
                  \(-\[Beta]\), \(-\[Epsilon]\), \(-\[Epsilon]\), 
                  \(-\[Beta]\)},
                {"\[Delta]", "\[Epsilon]", "\[Gamma]", \(-\[Beta]\), 
                  \(-\[Alpha]\), \(-\[Beta]\), "\[Gamma]", "\[Epsilon]", 
                  "\[Delta]"},
                {"\[Epsilon]", "\[Beta]", \(-\[Beta]\), \(-\[Epsilon]\), "0", 
                  "\[Epsilon]", "\[Beta]", \(-\[Beta]\), \(-\[Epsilon]\)},
                {"\[Alpha]", "0", \(-\[Alpha]\), "0", "\[Alpha]", "0", 
                  \(-\[Alpha]\), "0", "\[Alpha]"},
                {"\[Epsilon]", \(-\[Beta]\), \(-\[Beta]\), "\[Epsilon]", "0", 
                  \(-\[Epsilon]\), "\[Beta]", "\[Beta]", \(-\[Epsilon]\)},
                {"\[Delta]", \(-\[Epsilon]\), "\[Gamma]", "\[Beta]", 
                  \(-\[Alpha]\), "\[Beta]", "\[Gamma]", \(-\[Epsilon]\), 
                  "\[Delta]"},
                {"\[Beta]", \(-\[Epsilon]\), "\[Epsilon]", \(-\[Beta]\), "0", 
                  "\[Beta]", \(-\[Epsilon]\), "\[Epsilon]", \(-\[Beta]\)},
                {"\[Gamma]", \(-\[Beta]\), "\[Delta]", \(-\[Epsilon]\), 
                  "\[Alpha]", \(-\[Epsilon]\), "\[Delta]", \(-\[Beta]\), 
                  "\[Gamma]"}
                }], ")"}]}],
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{16.4375, Inherited}, {Inherited, Inherited}},
  FontWeight->"Plain",
  CellTags->{"Matrix Square Root", "G.1.14"}],

Cell[BoxData[
    FormBox[
      TagBox[\(\[Alpha] = 1\/\@5; \ \[Beta] = 1\/2\ \@\(\(5 - \@5\)\/10\); \ 
        \[Gamma] = \(\(-1\) + \@5\)\/\(4\ \@5\); \ 
        \[Delta] = \(1 + \@5\)\/\(4\ \@5\); \ 
        \[Epsilon] = 1\/2\ \@\(\(5 + \@5\)\/10\)\),
        HoldForm], TraditionalForm]], "Input",
  CellMargins->{{16.4375, Inherited}, {Inherited, Inherited}},
  FontWeight->"Plain",
  CellTags->{"Matrix Square Root", "G.1.14"}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Some indefinite integrals ",
  StyleBox["(StandardForm)", "MB"]
}], "LineHead",
  Editable->True,
  ShowCellBracket->True,
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    StyleBox[
      TagBox[
        "\(\[Integral]\(\(Log[x - 1]\\ Log[x + 1]\)\/x\^4\) \[DifferentialD]x \
=            \(1\/\(6\\ x\^3\)\)              \((x\\ \((                   \
2\\ x - Log[\(-1\) + x] + 2\\ x\\ Log[\(-1\) + x] -                      x\^2\
\\ Log[\(-1\) + x] - x\^2\\ Log[\(-x\)] +                      x\^2\\ Log[x] \
- 2\\ x\^2\\ Log[1 - x]\\ Log[x] +                      2\\ x\^2\\ Log[\(-1\) \
+ x]\\ Log[x] -                      2\\ x\^2\\ Log[\(-1\) + x]\\ Log[\(1 + x\
\)\/2])\) +                  \((x\\ \((1 + x)\)\^2 + 2\\ x\^3\\ Log[\(1 - x\)\
\/2] -                        2\\ Log[\(-1\) + x])\)\\ Log[1 + x] +           \
       x\^3\\ \((                   \(-2\)\\ PolyLog[2, 1\/2 - x\/2] - 4\\ \
PolyLog[2, x] +                      PolyLog[2, x\^2] + 2\\ PolyLog[2, \(1 + \
x\)\/2])\))\)\)",
        HoldForm],
      FontFamily->"Courier",
      FontSize->12,
      FontWeight->"Roman",
      FontSlant->"Plain",
      FontTracking->"Plain",
      PrivateFontOptions->{"FontPostScriptName"->Automatic}]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(Tan[x]\^a\) \[DifferentialD]x =          \
\(Hypergeometric2F1[\(1 + a\)\/2, 1, 1 + \(1 + a\)\/2, \(-Tan[x]\^2\)]        \
       \\ Tan[x]\^\(1 + a\)\)\/\(1 + a\)\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]Log[Sin[x] + Tan[x]] \[DifferentialD]x =          \(I\\ x\
\^2\)\/2 - x\\ Log[1 - E\^\(I\\ x\)] -            3\\ x\\ Log[1 + E\^\(I\\ \
x\)] + x\\ Log[1 + E\^\(2\\ I\\ x\)] +            x\\ Log[Sin[x] + Tan[x]] + \
3\\ I\\ PolyLog[2, \(-E\^\(I\\ x\)\)] +            I\\ PolyLog[2, E\^\(I\\ \
x\)] -            1\/2\\ I\\ PolyLog[2, \(-E\^\(2\\ I\\ x\)\)]\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(\(1 + x\)\/\(x                    \@\(\((x - a)\)\\ \
\((x - b)\)\\ \((x - c)\)\)\)\)              \[DifferentialD]x =          2\\ \
\((b - c)\)\\ \@\(\(a - x\)\/\(a - c\)\)\\            \@\(\((\(-a\) + x)\)\\ \
\((\(-b\) + x)\)\\ \((\(-c\) + x)\)\)\/\(c\\ \((               a - x)\)\\ \
\((c - x)\)\\ \((\(-b\) + x)\)\)\\            \((c\\ \@\(\(b - x\)\/\(b - c\)\
\)\\                  \@\(\(\( - c\) + x\)\/\(b - c\)\)\\                  \
EllipticF[ArcSin[\@\(\(\(-c\) + x\)\/\(b - c\)\)],                    \(b - c\
\)\/\(a - c\)] +                \@\(\(\((b - x)\)\\ \((\(-c\) + x)\)\)\/\((b \
- c)\)\^2\)\\                  EllipticPi[1 - b\/c, ArcSin[\@\(\(\(-c\) + x\)\
\/\(b - c\)\)],                    \(b - c\)\/\(a - c\)])\)\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(x\^p\\ Sin[x]\) \[DifferentialD]x =          \
\(-\(1\/2\)\)\\ I\\ \((           \(-\((\(-I\)\\ x)\)\^\(\(-1\) - p\)\)\\ x\^\
\(1 + p\)\\                Gamma[1 + p, \(-I\)\\ x] +              \((I\\ \
x)\)\^\(\(-1\) - p\)\\ x\^\(1 + p\)\\ Gamma[1 + p, I\\ x])\)\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(\(x\\ ArcTan[x\/a]\)\/\(x\^2 + a\^2\)\)              \
\[DifferentialD]x =          1\/2\\ I\\ \((           ArcTan[x\/a]\\          \
      \((ArcTan[x\/a] + 2\\ I\\ Log[\(2\\ a\)\/\(a - I\\ x\)])\) +            \
  PolyLog[2, \(-E\^\(2\\ I\\ ArcTan[x\/a]\)\)])\)\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(Cos[x]\/\(Sin[x]\^6\\ Sin[2\\ x]\^\(1 + 1\/2\)\)\)      \
        \[DifferentialD]x =          \(-\(1\/390\)\)\\ Csc[x]\\            \
\((128 + 32\\ Csc[x]\^2 + 20\\ Csc[x]\^4 + 15\\ Csc[x]\^6)\)\\            \
\@Sin[2\\ x]\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(\(x\\ ArcSec[x]\)\/\@\(x\^2 - 1\)\) \[DifferentialD]x = \
         \@\(x\^2 - 1\)\\ ArcSec[x] -            \(x\\ \@\(\(x\^2 - 1\)\/x\^2\
\)\\ Log[x]\)\/\@\(x\^2 - 1\)\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}],

Cell[BoxData[
    TagBox[
      "\(\[Integral]\(Tan[x]\\ x\^2\) \[DifferentialD]x =          \(I\\ x\^3\
\)\/3 - x\^2\\ Log[1 + E\^\(2\\ I\\ x\)] +            I\\ x\\ PolyLog[2, \(-E\
\^\(2\\ I\\ x\)\)] -            1\/2\\ PolyLog[3, \(-E\^\(2\\ I\\ x\)\)]\)",
      HoldForm]], "Input",
  CellMargins->{{14.25, Inherited}, {Inherited, Inherited}},
  FontWeight->"Roman",
  CellTags->{"Indefinite Integrals", "G.1.15"}]
}, Closed]]
},
FrontEndVersion->"Macintosh 3.0",
ScreenRectangle->{{0, 1024}, {0, 748}},
Editable->True,
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{617, 461},
WindowMargins->{{24, Automatic}, {Automatic, 5}},
Magnification->1,
StyleDefinitions -> "HelpBrowser.nb",
MacintoshSystemPageSetup->"\<\
00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001
0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000
00000000000000000000000000000000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{
  "Definite Integral"->{
    Cell[1731, 51, 182, 6, 50, "LineHead",
      CellTags->{"Definite Integral", "G.1.1"}],
    Cell[1916, 59, 38722, 828, 666, "FlushInput",
      CellTags->{"Definite Integral", "G.1.1"}]},
  "G.1.1"->{
    Cell[1731, 51, 182, 6, 50, "LineHead",
      CellTags->{"Definite Integral", "G.1.1"}],
    Cell[1916, 59, 38722, 828, 666, "FlushInput",
      CellTags->{"Definite Integral", "G.1.1"}]},
  "Pisot Number"->{
    Cell[40675, 892, 172, 6, 36, "LineHead",
      CellTags->{"Pisot Number", "G.1.2"}],
    Cell[40850, 900, 6110, 87, 56, "FlushInput",
      CellTags->{"Pisot Number", "G.1.2"}]},
  "G.1.2"->{
    Cell[40675, 892, 172, 6, 36, "LineHead",
      CellTags->{"Pisot Number", "G.1.2"}],
    Cell[40850, 900, 6110, 87, 56, "FlushInput",
      CellTags->{"Pisot Number", "G.1.2"}]},
  "Antisymmetric Tensors"->{
    Cell[46997, 992, 225, 6, 36, "LineHead",
      CellTags->{"Antisymmetric Tensors", "G.1.3"}],
    Cell[47225, 1000, 38163, 520, 56, "FlushInput",
      CellTags->{"Antisymmetric Tensors", "G.1.3"}]},
  "G.1.3"->{
    Cell[46997, 992, 225, 6, 36, "LineHead",
      CellTags->{"Antisymmetric Tensors", "G.1.3"}],
    Cell[47225, 1000, 38163, 520, 56, "FlushInput",
      CellTags->{"Antisymmetric Tensors", "G.1.3"}]},
  "Trigonometric Formulas"->{
    Cell[85425, 1525, 190, 6, 36, "LineHead",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[85618, 1533, 455, 12, 63, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[86076, 1547, 469, 12, 63, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[86548, 1561, 964, 19, 81, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[87515, 1582, 527, 14, 119, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[88045, 1598, 501, 13, 89, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[88549, 1613, 481, 14, 70, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[89033, 1629, 2878, 82, 188, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}]},
  "G.1.4"->{
    Cell[85425, 1525, 190, 6, 36, "LineHead",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[85618, 1533, 455, 12, 63, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[86076, 1547, 469, 12, 63, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[86548, 1561, 964, 19, 81, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[87515, 1582, 527, 14, 119, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[88045, 1598, 501, 13, 89, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[88549, 1613, 481, 14, 70, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}],
    Cell[89033, 1629, 2878, 82, 188, "FlushInput",
      CellTags->{"Trigonometric Formulas", "G.1.4"}]},
  "More Definite Integrals"->{
    Cell[91948, 1716, 192, 6, 36, "LineHead",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[92143, 1724, 900, 21, 56, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[93046, 1747, 1006, 24, 56, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[94055, 1773, 430, 10, 55, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[94488, 1785, 546, 13, 52, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[95037, 1800, 1096, 27, 47, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[96136, 1829, 851, 19, 77, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[96990, 1850, 955, 24, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[97948, 1876, 3710, 85, 76, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[101661, 1963, 2126, 45, 91, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[103790, 2010, 367, 9, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[104160, 2021, 448, 10, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}]},
  "G.1.5"->{
    Cell[91948, 1716, 192, 6, 36, "LineHead",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[92143, 1724, 900, 21, 56, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[93046, 1747, 1006, 24, 56, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[94055, 1773, 430, 10, 55, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[94488, 1785, 546, 13, 52, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[95037, 1800, 1096, 27, 47, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[96136, 1829, 851, 19, 77, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[96990, 1850, 955, 24, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[97948, 1876, 3710, 85, 76, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[101661, 1963, 2126, 45, 91, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[103790, 2010, 367, 9, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}],
    Cell[104160, 2021, 448, 10, 42, "Input",
      CellTags->{"More Definite Integrals", "G.1.5"}]},
  "Partitions"->{
    Cell[104645, 2036, 188, 6, 36, "LineHead",
      CellTags->{"Partitions", "G.1.6"}],
    Cell[104836, 2044, 809, 19, 58, "Input",
      CellTags->{"Partitions", "G.1.6"}],
    Cell[105648, 2065, 1914, 47, 55, "Input",
      CellTags->{"Partitions", "G.1.6"}]},
  "G.1.6"->{
    Cell[104645, 2036, 188, 6, 36, "LineHead",
      CellTags->{"Partitions", "G.1.6"}],
    Cell[104836, 2044, 809, 19, 58, "Input",
      CellTags->{"Partitions", "G.1.6"}],
    Cell[105648, 2065, 1914, 47, 55, "Input",
      CellTags->{"Partitions", "G.1.6"}]},
  "Ellipsoid Surface Area"->{
    Cell[107599, 2117, 193, 6, 36, "LineHead",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
    Cell[107795, 2125, 823, 20, 92, "Output",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
    Cell[108621, 2147, 339, 7, 57, "Output",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}]},
  "G.1.7"->{
    Cell[107599, 2117, 193, 6, 36, "LineHead",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
    Cell[107795, 2125, 823, 20, 92, "Output",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
    Cell[108621, 2147, 339, 7, 57, "Output",
      CellTags->{"Ellipsoid Surface Area", "G.1.7"}]},
  "Iterated Radical Identities"->{
    Cell[108997, 2159, 197, 6, 36, "LineHead",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109197, 2167, 333, 9, 71, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109533, 2178, 322, 7, 74, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109858, 2187, 885, 23, 113, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}]},
  "G.1.8"->{
    Cell[108997, 2159, 197, 6, 36, "LineHead",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109197, 2167, 333, 9, 71, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109533, 2178, 322, 7, 74, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}],
    Cell[109858, 2187, 885, 23, 113, "Output",
      CellTags->{"Iterated Radical Identities", "G.1.8"}]},
  "Polylogarithm Identities"->{
    Cell[110780, 2215, 191, 6, 36, "LineHead",
      CellTags->{"Polylogarithm Identities", "G.1.9"}],
    Cell[110974, 2223, 349, 9, 56, "FlushInput",
      CellTags->{"Polylogarithm Identities", "G.1.9"}],
    Cell[111326, 2234, 300, 8, 56, "FlushInput",
      CellTags->{"Polylogarithm Identities", "G.1.9"}]},
  "G.1.9"->{
    Cell[110780, 2215, 191, 6, 36, "LineHead",
      CellTags->{"Polylogarithm Identities", "G.1.9"}],
    Cell[110974, 2223, 349, 9, 56, "FlushInput",
      CellTags->{"Polylogarithm Identities", "G.1.9"}],
    Cell[111326, 2234, 300, 8, 56, "FlushInput",
      CellTags->{"Polylogarithm Identities", "G.1.9"}]},
  "Heisenberg-Euler Lagrangian"->{
    Cell[111663, 2247, 230, 6, 36, "LineHead",
      CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}],
    Cell[111896, 2255, 7365, 151, 110, "FlushInput",
      Evaluatable->False,
      CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}]},
  "G.1.10"->{
    Cell[111663, 2247, 230, 6, 36, "LineHead",
      CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}],
    Cell[111896, 2255, 7365, 151, 110, "FlushInput",
      Evaluatable->False,
      CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}]},
  "Homological Algebra"->{
    Cell[119298, 2411, 199, 6, 36, "LineHead",
      CellTags->{"Homological Algebra", "G.1.11"}],
    Cell[119500, 2419, 5009, 123, 56, "FlushInput",
      CellTags->{"Homological Algebra", "G.1.11"}]},
  "G.1.11"->{
    Cell[119298, 2411, 199, 6, 36, "LineHead",
      CellTags->{"Homological Algebra", "G.1.11"}],
    Cell[119500, 2419, 5009, 123, 56, "FlushInput",
      CellTags->{"Homological Algebra", "G.1.11"}]},
  "Zeta Functions"->{
    Cell[124546, 2547, 190, 6, 36, "LineHead",
      CellTags->{"Zeta Functions", "G.1.12"}],
    Cell[124739, 2555, 2134, 52, 56, "FlushInput",
      CellTags->{"Zeta Functions", "G.1.12"}]},
  "G.1.12"->{
    Cell[124546, 2547, 190, 6, 36, "LineHead",
      CellTags->{"Zeta Functions", "G.1.12"}],
    Cell[124739, 2555, 2134, 52, 56, "FlushInput",
      CellTags->{"Zeta Functions", "G.1.12"}]},
  "Green's Function"->{
    Cell[126910, 2612, 268, 7, 64, "LineHead",
      CellTags->{"Green's Function", "G.1.13"}],
    Cell[127181, 2621, 3963, 78, 56, "Output",
      CellTags->{"Green's Function", "G.1.13"}]},
  "G.1.13"->{
    Cell[126910, 2612, 268, 7, 64, "LineHead",
      CellTags->{"Green's Function", "G.1.13"}],
    Cell[127181, 2621, 3963, 78, 56, "Output",
      CellTags->{"Green's Function", "G.1.13"}]},
  "Matrix Square Root"->{
    Cell[131181, 2704, 209, 6, 48, "LineHead",
      CellTags->{"Matrix Square Root", "G.1.14"}],
    Cell[131393, 2712, 2449, 44, 174, "Input",
      CellTags->{"Matrix Square Root", "G.1.14"}],
    Cell[133845, 2758, 434, 9, 63, "Input",
      CellTags->{"Matrix Square Root", "G.1.14"}]},
  "G.1.14"->{
    Cell[131181, 2704, 209, 6, 48, "LineHead",
      CellTags->{"Matrix Square Root", "G.1.14"}],
    Cell[131393, 2712, 2449, 44, 174, "Input",
      CellTags->{"Matrix Square Root", "G.1.14"}],
    Cell[133845, 2758, 434, 9, 63, "Input",
      CellTags->{"Matrix Square Root", "G.1.14"}]},
  "Indefinite Integrals"->{
    Cell[134316, 2772, 189, 6, 48, "LineHead",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[134508, 2780, 1179, 22, 188, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[135690, 2804, 374, 8, 48, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[136067, 2814, 563, 10, 92, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[136633, 2826, 952, 15, 149, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[137588, 2843, 473, 9, 73, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138064, 2854, 475, 9, 83, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138542, 2865, 434, 9, 91, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138979, 2876, 377, 8, 71, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[139359, 2886, 419, 8, 75, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}]},
  "G.1.15"->{
    Cell[134316, 2772, 189, 6, 48, "LineHead",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[134508, 2780, 1179, 22, 188, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[135690, 2804, 374, 8, 48, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[136067, 2814, 563, 10, 92, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[136633, 2826, 952, 15, 149, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[137588, 2843, 473, 9, 73, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138064, 2854, 475, 9, 83, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138542, 2865, 434, 9, 91, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[138979, 2876, 377, 8, 71, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}],
    Cell[139359, 2886, 419, 8, 75, "Input",
      CellTags->{"Indefinite Integrals", "G.1.15"}]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"Definite Integral", 140706, 2922},
  {"G.1.1", 140911, 2927},
  {"Pisot Number", 141123, 2932},
  {"G.1.2", 141319, 2937},
  {"Antisymmetric Tensors", 141531, 2942},
  {"G.1.3", 141748, 2947},
  {"Trigonometric Formulas", 141982, 2952},
  {"G.1.4", 142820, 2969},
  {"More Definite Integrals", 143676, 2986},
  {"G.1.5", 144886, 3011},
  {"Partitions", 146101, 3036},
  {"G.1.6", 146379, 3043},
  {"Ellipsoid Surface Area", 146674, 3050},
  {"G.1.7", 146988, 3057},
  {"Iterated Radical Identities", 147324, 3064},
  {"G.1.8", 147758, 3073},
  {"Polylogarithm Identities", 148211, 3082},
  {"G.1.9", 148538, 3089},
  {"Heisenberg-Euler Lagrangian", 148887, 3096},
  {"G.1.10", 149148, 3102},
  {"Homological Algebra", 149422, 3108},
  {"G.1.11", 149640, 3113},
  {"Zeta Functions", 149866, 3118},
  {"G.1.12", 150073, 3123},
  {"Green's Function", 150290, 3128},
  {"G.1.13", 150497, 3133},
  {"Matrix Square Root", 150716, 3138},
  {"G.1.14", 151022, 3145},
  {"Indefinite Integrals", 151342, 3152},
  {"G.1.15", 152336, 3173}
  }
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1731, 51, 182, 6, 50, "LineHead",
  CellTags->{"Definite Integral", "G.1.1"}],
Cell[1916, 59, 38722, 828, 666, "FlushInput",
  CellTags->{"Definite Integral", "G.1.1"}]
}, Closed]],

Cell[CellGroupData[{
Cell[40675, 892, 172, 6, 36, "LineHead",
  CellTags->{"Pisot Number", "G.1.2"}],
Cell[40850, 900, 6110, 87, 56, "FlushInput",
  CellTags->{"Pisot Number", "G.1.2"}]
}, Closed]],

Cell[CellGroupData[{
Cell[46997, 992, 225, 6, 36, "LineHead",
  CellTags->{"Antisymmetric Tensors", "G.1.3"}],
Cell[47225, 1000, 38163, 520, 56, "FlushInput",
  CellTags->{"Antisymmetric Tensors", "G.1.3"}]
}, Closed]],

Cell[CellGroupData[{
Cell[85425, 1525, 190, 6, 36, "LineHead",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[85618, 1533, 455, 12, 63, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[86076, 1547, 469, 12, 63, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[86548, 1561, 964, 19, 81, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[87515, 1582, 527, 14, 119, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[88045, 1598, 501, 13, 89, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[88549, 1613, 481, 14, 70, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}],
Cell[89033, 1629, 2878, 82, 188, "FlushInput",
  CellTags->{"Trigonometric Formulas", "G.1.4"}]
}, Closed]],

Cell[CellGroupData[{
Cell[91948, 1716, 192, 6, 36, "LineHead",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[92143, 1724, 900, 21, 56, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[93046, 1747, 1006, 24, 56, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[94055, 1773, 430, 10, 55, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[94488, 1785, 546, 13, 52, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[95037, 1800, 1096, 27, 47, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[96136, 1829, 851, 19, 77, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[96990, 1850, 955, 24, 42, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[97948, 1876, 3710, 85, 76, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[101661, 1963, 2126, 45, 91, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[103790, 2010, 367, 9, 42, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}],
Cell[104160, 2021, 448, 10, 42, "Input",
  CellTags->{"More Definite Integrals", "G.1.5"}]
}, Closed]],

Cell[CellGroupData[{
Cell[104645, 2036, 188, 6, 36, "LineHead",
  CellTags->{"Partitions", "G.1.6"}],
Cell[104836, 2044, 809, 19, 58, "Input",
  CellTags->{"Partitions", "G.1.6"}],
Cell[105648, 2065, 1914, 47, 55, "Input",
  CellTags->{"Partitions", "G.1.6"}]
}, Closed]],

Cell[CellGroupData[{
Cell[107599, 2117, 193, 6, 36, "LineHead",
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
Cell[107795, 2125, 823, 20, 92, "Output",
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}],
Cell[108621, 2147, 339, 7, 57, "Output",
  CellTags->{"Ellipsoid Surface Area", "G.1.7"}]
}, Closed]],

Cell[CellGroupData[{
Cell[108997, 2159, 197, 6, 36, "LineHead",
  CellTags->{"Iterated Radical Identities", "G.1.8"}],
Cell[109197, 2167, 333, 9, 71, "Output",
  CellTags->{"Iterated Radical Identities", "G.1.8"}],
Cell[109533, 2178, 322, 7, 74, "Output",
  CellTags->{"Iterated Radical Identities", "G.1.8"}],
Cell[109858, 2187, 885, 23, 113, "Output",
  CellTags->{"Iterated Radical Identities", "G.1.8"}]
}, Closed]],

Cell[CellGroupData[{
Cell[110780, 2215, 191, 6, 36, "LineHead",
  CellTags->{"Polylogarithm Identities", "G.1.9"}],
Cell[110974, 2223, 349, 9, 56, "FlushInput",
  CellTags->{"Polylogarithm Identities", "G.1.9"}],
Cell[111326, 2234, 300, 8, 56, "FlushInput",
  CellTags->{"Polylogarithm Identities", "G.1.9"}]
}, Closed]],

Cell[CellGroupData[{
Cell[111663, 2247, 230, 6, 36, "LineHead",
  CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}],
Cell[111896, 2255, 7365, 151, 110, "FlushInput",
  Evaluatable->False,
  CellTags->{"Heisenberg-Euler Lagrangian", "G.1.10"}]
}, Closed]],

Cell[CellGroupData[{
Cell[119298, 2411, 199, 6, 36, "LineHead",
  CellTags->{"Homological Algebra", "G.1.11"}],
Cell[119500, 2419, 5009, 123, 56, "FlushInput",
  CellTags->{"Homological Algebra", "G.1.11"}]
}, Closed]],

Cell[CellGroupData[{
Cell[124546, 2547, 190, 6, 36, "LineHead",
  CellTags->{"Zeta Functions", "G.1.12"}],
Cell[124739, 2555, 2134, 52, 56, "FlushInput",
  CellTags->{"Zeta Functions", "G.1.12"}]
}, Closed]],

Cell[CellGroupData[{
Cell[126910, 2612, 268, 7, 64, "LineHead",
  CellTags->{"Green's Function", "G.1.13"}],
Cell[127181, 2621, 3963, 78, 56, "Output",
  CellTags->{"Green's Function", "G.1.13"}]
}, Closed]],

Cell[CellGroupData[{
Cell[131181, 2704, 209, 6, 48, "LineHead",
  CellTags->{"Matrix Square Root", "G.1.14"}],
Cell[131393, 2712, 2449, 44, 174, "Input",
  CellTags->{"Matrix Square Root", "G.1.14"}],
Cell[133845, 2758, 434, 9, 63, "Input",
  CellTags->{"Matrix Square Root", "G.1.14"}]
}, Closed]],

Cell[CellGroupData[{
Cell[134316, 2772, 189, 6, 48, "LineHead",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[134508, 2780, 1179, 22, 188, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[135690, 2804, 374, 8, 48, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[136067, 2814, 563, 10, 92, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[136633, 2826, 952, 15, 149, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[137588, 2843, 473, 9, 73, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[138064, 2854, 475, 9, 83, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[138542, 2865, 434, 9, 91, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[138979, 2876, 377, 8, 71, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}],
Cell[139359, 2886, 419, 8, 75, "Input",
  CellTags->{"Indefinite Integrals", "G.1.15"}]
}, Closed]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)

