(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing 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[ 959022, 27229]*) (*NotebookOutlinePosition[ 960449, 27272]*) (* CellTagsIndexPosition[ 960369, 27266]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Notations", "Subtitle"], Cell["STILL UNDER CONSTRUCTION", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Numbers, Variables and Functions ", "Section"], Cell[CellGroupData[{ Cell["Domains and Domain Membership", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalN]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of natural numbers ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "2", ",", "\[Ellipsis]"}], "}"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SuperscriptBox["\[DoubleStruckCapitalN]", "+"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of positive natural number ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "\[Ellipsis]"}], "}"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalZ]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of integer numbers ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[PlusMinus]", "1"}], ",", RowBox[{"\[PlusMinus]", "2"}], ",", "\[Ellipsis]"}], "}"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalQ]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of rational numbers ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["p", "q"], "/;", " ", RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], ",", RowBox[{"q", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalR]", TraditionalForm]]]], "Subsection3"], Cell["The set of real numbers.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalC]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of complex numbers ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"z", "\[Equal]", RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "b"}]}]}], "/;", " ", "a"}], ",", RowBox[{"b", "\[Element]", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubleStruckCapitalP]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of prime numbers ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "\[Ellipsis]"}], "}"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", "}"}], TraditionalForm]]]], "Subsection3"], Cell[" The empty set.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["a", "m"], ",", SubscriptBox["a", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The finite set of elements ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "m"], ",", SubscriptBox["a", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "/;", RowBox[{"m", "\[LessEqual]", "n"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ StyleBox["listElement", FontSlant->"Italic"], "/;", StyleBox["domainSpecification", FontSlant->"Italic"]}], "}"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "A sequence of elements ", StyleBox["listElement", "TI"], ". Inside a list ", Cell[BoxData[ FormBox[ RowBox[{"{", "\[Ellipsis]", "}"}], TraditionalForm]]], " the construction ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ StyleBox["listElement", "TI"], "/;", StyleBox["domainSpecification", "TI"]}], "}"}], TraditionalForm]]], " it is understood to splice all ", StyleBox["listElement", "TI"], "s into the list." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SuperscriptBox["\[DoubleStruckCapitalA]", "p"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Cartesian product of ", Cell[BoxData[ FormBox["p", TraditionalForm]]], " copies of sets ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], " (Tensor product of ", Cell[BoxData[ FormBox["p", TraditionalForm]]], "sets ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], ")." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ "\[DoubleStruckCapitalA]", "\[CircleTimes]", "\[DoubleStruckCapitalB]", "\[CircleTimes]", "\[Ellipsis]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Cartesian product of the sets ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], ", ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalB]", TraditionalForm]]], ",\[Ellipsis]" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ "\[DoubleStruckCapitalA]", "\[CircleTimes]", "\[DoubleStruckCapitalB]", "\[CircleTimes]", "\[Ellipsis]"}], "}"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ordered set of sets ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], ", ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalB]", TraditionalForm]]], ",\[Ellipsis]." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Types of Variables", "Subsection"], Cell["\<\ As rule we support the following style of notations for all \ variables, numbers and indices.\ \>", "Notations_TF_SectionText"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"z", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", "w", ",", SubscriptBox["w", "1"], ",", SubscriptBox["w", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]]], "Subsection3"], Cell["Generic complex variables.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", ",", SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", "y", ",", SubscriptBox["y", "1"], ",", SubscriptBox["y", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Generic real variables. (Relations of the form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"x", ">", "y"}], ",", RowBox[{"x", "<", "y"}], ",", RowBox[{"x", "\[GreaterEqual]", "y"}], ",", RowBox[{"x", "\[LessEqual]", "y"}]}], TraditionalForm]]], " imply that ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{" ", "y"}], TraditionalForm]]], " are real.)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"m", ",", SubscriptBox["m", "1"], ",", SubscriptBox["m", "2"], ",", "\[Ellipsis]", ",", "n", ",", SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", "p", ",", SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"], ",", "\[Ellipsis]", ",", "q", ",", SubscriptBox["q", "1"], ",", SubscriptBox["q", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]]], "Subsection3"], Cell["Integer variables.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"k", ",", SubscriptBox["k", "1"], ",", SubscriptBox["k", "2"], ",", "\[Ellipsis]", ",", "j", ",", SubscriptBox["j", "1"], ",", SubscriptBox["j", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]]], "Subsection3"], Cell["Dummy variables used in sums and products.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"t", ",", "\[Tau]", ",", "\[Upsilon]"}], TraditionalForm]]]], "Subsection3"], Cell["\<\ Integration variables in definite integrals or integral transforms.\ \ \>", "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Set Membership", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[Element]", "\[DoubleStruckCapitalA]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The element ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " does belong to the set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[NotElement]", "\[DoubleStruckCapitalA]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The element ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " does not belong to the set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", "\[Element]", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " lies within the specified interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]], " (excluding ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["b", TraditionalForm]]], ")." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"z", "\[Element]", RowBox[{ RowBox[{"[", RowBox[{"a", ",", "b"}]}], ")"}]}], TraditionalForm]], AutoStyleOptions->{"UnmatchedBracketStyle"->None}]], "Subsection3"], Cell[TextData[{ "The number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " lies within the specified interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]], " (including ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and excluding ", Cell[BoxData[ FormBox["b", TraditionalForm]]], ")" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"z", "\[NotElement]", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " does not belong to the specified interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Types of Functions", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", RowBox[{"(", RowBox[{"-", "1"}], ")"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], ". The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " for which the function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "u", ")"}], "\[Equal]", "z"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{ SuperscriptBox["f", RowBox[{"(", RowBox[{"-", "1"}], ")"}]], "(", "z", ")"}], ")"}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Element]", RowBox[{ SuperscriptBox["C", "n"], "(", "\[DoubleStruckCapitalA]", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " defined on the set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], " is continuous and has all derivatives of orders ", Cell[BoxData[ FormBox[ RowBox[{"k", "\[LessEqual]", "n"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Chi]", "\[DoubleStruckCapitalA]"], "(", "a", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The characteristic function of a set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalA]", TraditionalForm]]], " has the value 1 when its argument is an element of the specified set \ \[DoubleStruckCapitalA], and a value of 0 otherwise." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"boole", "(", RowBox[{ StyleBox["cond", "TI"], ",", StyleBox["expr", "TI"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "gives ", StyleBox["expr", FontSlant->"Italic"], " if ", StyleBox["cond", FontSlant->"Italic"], " is true, and 0 otherwise." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Logical Operators and Conditionals ", "Section"], Cell[CellGroupData[{ Cell["Logical Operators", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[And]", "b"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Logical ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["b", TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[Or]", "b"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Logical ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " or ", " ", Cell[BoxData[ FormBox["b", TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Not]", "a"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The logical negation of ", Cell[BoxData[ FormBox["a", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[ForAll]", TraditionalForm]]]], "Subsection3"], Cell["The universal quantor.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[Exists]", TraditionalForm]]]], "Subsection3"], Cell["The existencial quantor.", "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Conditionals, Equality and Ordering Operators", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "/;", "b"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Relation ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " holds under the condition ", Cell[BoxData[ FormBox["b", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[Equal]", "b"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The expression ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " is mathematically identical to ", Cell[BoxData[ FormBox["b", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"a", "\[NotEqual]", "b"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The expression ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " is mathematically different from ", Cell[BoxData[ FormBox["b", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", ">", "y"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The real number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " is greater than the real number ", Cell[BoxData[ FormBox["y", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", "\[GreaterEqual]", "y"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The real number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " is greater than or equal to ", Cell[BoxData[ FormBox["y", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", "<", "y"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The real number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " is less than the real number ", Cell[BoxData[ FormBox["y", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"x", "\[LessEqual]", "y"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The real number ", Cell[BoxData[ FormBox["x", TraditionalForm]]], " is less than or equal to the real number ", Cell[BoxData[ FormBox["y", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalN]\[ScriptCapitalT]", "(", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ")"}], TraditionalForm]]], " " }], "Subsection3"], Cell[TextData[{ "The sequanes of values ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], TraditionalForm]]], " lead to a nonterminating hypergeometric series." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Operations ", "Section"], Cell[CellGroupData[{ Cell["Domain and Range", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[LongRightArrow]", RowBox[{"f", "(", "z", ")"}]}], "\[Proportion]", RowBox[{ "\[DoubleStruckCapitalA]", "\[LongRightArrow]", "\[DoubleStruckCapitalB]"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " is defined on domain ", Cell[BoxData[ FormBox[ RowBox[{"\[DoubleStruckCapitalA]", ":", " ", RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalA]"}]}], TraditionalForm]]], " and it acts from this domain to domain ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalB]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Element]", "\[DoubleStruckCapitalB]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Branch Cuts and Points, Singularities and Discontinuities", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]\[ScriptCapitalB]", "z"], "(", RowBox[{"f", "(", "z", ")"}], ")"}], "\[Equal]", StyleBox["boundary", FontSlant->"Italic"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The natural boundary of analyticity of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " is the set ", StyleBox["boundary", "TI"], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalB]\[ScriptCapitalC]", "z"], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], ",", "z"}], ")"}], TraditionalForm]]], "\[Equal]", StyleBox["branchCuts", FontSlant->"Italic"] }], "Subsection3"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalB]\[ScriptCapitalC]", "z"], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], ",", "z"}], ")"}], TraditionalForm]]], " represents the branch cuts ", StyleBox["branchCuts", "TI"], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ".Each branch cut is of the form ", StyleBox["{", "StandardFormEquation"], StyleBox["interval", "PrivateCommentText", FontSlant->"Italic"], StyleBox[", ", "StandardFormEquation"], StyleBox["direction", "PrivateCommentText", FontSlant->"Italic"], StyleBox["}", "StandardFormEquation"], " indicating a branch cut along ", StyleBox["interval", "PrivateCommentText", FontSlant->"Italic"], " and continuity of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " from the direction ", StyleBox["direction", "PrivateCommentText", FontSlant->"Italic"], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalB]\[ScriptCapitalP]", "z"], "(", RowBox[{"f", RowBox[{"(", "z", ")"}]}], ")"}], "\[Equal]", RowBox[{"{", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "n"]}], "}"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "gives a list of lists of the branch points ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "n"]}], TraditionalForm]]], " (if present, including infinity) the function ", StyleBox["f", "PrivateCommentText", FontSlant->"Italic"], " over the complex ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "\[Hyphen]plane. " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalR]", "z"], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], ",", SubscriptBox["z", "0"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ramification index for function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " in the branch point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", SubscriptBox[ StyleBox["z", "TI"], "0"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalS]\[ScriptI]\[ScriptN]\[ScriptG]", "z"], "(", RowBox[{"f", "(", "z", ")"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The set of poles (and their orders) and essential singularities of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " (the order of essential singularity is \[Infinity])" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalD]\[ScriptCapitalS]", "z"], "(", RowBox[{"f", "(", "z", ")"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The list of the (parametrized) intervals where the function ", StyleBox["f", "TraditionalFormEquation", FontSlant->"Italic"], " is discontinuous over the complex ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "\[Hyphen]plane." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Asymptotics and Series", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Proportional]", RowBox[{"g", "(", "z", ")"}]}], "/;", RowBox[{"(", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Rule]", "\[Infinity]"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " Asymptotical relation which reflects the property: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{ RowBox[{"|", "z", "|"}], "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", FractionBox[ RowBox[{"f", "(", "z", ")"}], RowBox[{"g", "(", "z", ")"}]]}], "\[Equal]", "1"}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Proportional]", RowBox[{ RowBox[{"g", "(", "z", ")"}], "+", RowBox[{"O", "(", FractionBox["1", SuperscriptBox["z", "n"]], ")"}]}]}], "/;", RowBox[{"(", RowBox[{ RowBox[{"|", "z", "|"}], "\[Rule]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " Asymptotical relation which reflects the boundedness of ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["z", "n"], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", RowBox[{"g", "(", "z", ")"}]}], ")"}], TraditionalForm]]], " near point ", Cell[BoxData[ FormBox[ StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Proportional]", RowBox[{ RowBox[{"g", "(", "z", ")"}], "+", RowBox[{"O", "(", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"], ")"}]}]}], "/;", RowBox[{"(", RowBox[{"z", "\[Rule]", "a"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " Asymptotical relation which reflects the boundedness of ", Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", RowBox[{"g", "(", "z", ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"]], TraditionalForm]]], " near point ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", "a"}], "Traditional"], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalP]", SubscriptBox["z", "0"], RowBox[{"[", RowBox[{"L", ",", "M"}], "]"}]], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox[ RowBox[{"[", RowBox[{"L", ",", "M"}], "]"}], TraditionalForm]]], " Pad\[EAcute] approximant of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " at ", Cell[BoxData[ FormBox[ RowBox[{"z", "=", SubscriptBox["z", "0"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], RowBox[{"f", "(", "z", ")"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " Coefficient of the ", Cell[BoxData[ FormBox[ SuperscriptBox["z", "n"], TraditionalForm]]], "\[Hyphen]term in the series expansion around ", Cell[BoxData[ FormBox[ RowBox[{"z", "=", "0"}], TraditionalForm]]], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], ". ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["z", "n"], "]"}], RowBox[{"f", "(", "z", ")"}]}], ")"}], SuperscriptBox["z", "n"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"], "]"}], RowBox[{"f", "(", "z", ")"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " Coefficient of the ", Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"], TraditionalForm]]], " term in the series expansion around ", Cell[BoxData[ FormBox[ RowBox[{"z", "=", "a"}], TraditionalForm]]], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"], "]"}], RowBox[{"f", "(", "z", ")"}]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], "n"]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"[", RowBox[{ SubsuperscriptBox["z", "1", SubscriptBox["n", "1"]], " ", ",", SubsuperscriptBox["z", "2", SubscriptBox["n", "2"]], ",", "\[Ellipsis]", ",", SubsuperscriptBox["z", "m", SubscriptBox["n", "m"]]}], "]"}], RowBox[{"(", RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], ")"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Coefficient of the ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["z", "1", SubscriptBox["n", "1"]], " ", SubsuperscriptBox["z", "2", SubscriptBox["n", "2"]], "\[Ellipsis]", " ", SubsuperscriptBox["z", "m", SubscriptBox["n", "m"]]}], TraditionalForm]]], " term in the series expansion around ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], "=", RowBox[{"(", RowBox[{"0", ",", "0", ",", "\[Ellipsis]", ",", "0"}], ")"}]}], TraditionalForm]]], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "1"], "=", "0"}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "2"], "=", "0"}], "\[Infinity]"], RowBox[{"\[Ellipsis]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "m"], "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"[", RowBox[{ SubsuperscriptBox["z", "1", SubscriptBox["n", "1"]], " ", ",", SubsuperscriptBox["z", "2", SubscriptBox["n", "2"]], ",", "\[Ellipsis]", ",", SubsuperscriptBox["z", "m", SubscriptBox["n", "m"]]}], "]"}], RowBox[{"(", RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], ")"}]}], ")"}], SubsuperscriptBox["z", "1", SubscriptBox["n", "1"]], " ", SubsuperscriptBox["z", "2", SubscriptBox["n", "2"]], SubsuperscriptBox["\[Ellipsis]z", "m", SubscriptBox["n", "m"]]}]}]}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["res", "z"], "(", RowBox[{"f", "(", "z", ")"}], ")"}], RowBox[{"(", "a", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The residue of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "a"}], TraditionalForm]]], " which is equal to coefficient of the ", Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], RowBox[{"-", "1"}]], TraditionalForm]]], " term in the series expansion around ", Cell[BoxData[ FormBox[ RowBox[{"z", "=", "a"}], TraditionalForm]]], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["res", "z"], "(", RowBox[{"f", "(", "z", ")"}], ")"}], RowBox[{"(", "a", ")"}]}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}], RowBox[{"-", "1"}]], "]"}], RowBox[{"f", "(", "z", ")"}]}], ")"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["res", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}]], "(", RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "m"]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The residue of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["z", "1"], "\[Equal]", SubscriptBox["a", "1"]}], ",", RowBox[{ SubscriptBox["z", "2"], "\[Equal]", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["z", "m"], "\[Equal]", SubscriptBox["a", "m"]}]}], TraditionalForm]]], " which is equal to coefficient of the ", Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["z", "j"], "-", SubscriptBox["a", "j"]}], ")"}], RowBox[{"-", "1"}]]}], TraditionalForm]]], " term in the series expansion around ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["z", "1"], "\[Equal]", SubscriptBox["a", "1"]}], ",", RowBox[{ SubscriptBox["z", "2"], "\[Equal]", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["z", "m"], "\[Equal]", SubscriptBox["a", "m"]}]}], TraditionalForm]]], " of the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["res", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}]], "(", RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "m"]}], ")"}]}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], "-", SubscriptBox["a", "1"]}], ")"}], RowBox[{"-", "1"}]], ",", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["z", "2"], "-", SubscriptBox["a", "2"]}], ")"}], RowBox[{"-", "1"}]], ",", "\[Ellipsis]", ",", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["z", "m"], "-", SubscriptBox["a", "m"]}], ")"}], RowBox[{"-", "1"}]]}], "]"}], RowBox[{"f", "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}]}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "\[ScriptCapitalA]"], ";"}]}], RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "\[ScriptCapitalB]"], ";"}]}]}, { RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "\[ScriptCapitalC]"], ";"}]}], RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["d", "\[ScriptCapitalD]"], ";"}]}]} }], SubscriptBox["a", "n"]}], ",", "n", ",", RowBox[{"m", ";", "z"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The residue of the function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "s", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalA]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalB]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "k"], "-", "s"}], ")"}]}], ")"}]}], RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalC]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["c", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalD]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["d", "k"], "-", "s"}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"s", "\[Equal]", RowBox[{ RowBox[{"-", SubscriptBox["a", "n"]}], "-", "m"}]}], "/;", RowBox[{"m", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}]}], TraditionalForm]]], " where this function has the pole of order ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " because ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", RowBox[{"j", "-", "1"}]]}], "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"2", "\[LessEqual]", "j", "\[LessEqual]", "n"}]}], TraditionalForm]]], ":" }], "Notations_TF_SectionText"], Cell[TextData[{ " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "\[ScriptCapitalA]"], ";"}]}], RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "\[ScriptCapitalB]"], ";"}]}]}, { RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "\[ScriptCapitalC]"], ";"}]}], RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["d", "\[ScriptCapitalD]"], ";"}]}]} }], SubscriptBox["a", "n"]}], ",", "n", ",", RowBox[{"m", ";", "z"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["res", "s"], "(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalA]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalB]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "k"], "-", "s"}], ")"}]}], ")"}]}], RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalC]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["c", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalD]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["d", "k"], "-", "s"}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "n"]}], "-", "m"}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"m", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", RowBox[{"j", "-", "1"}]]}], "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"2", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "1"]}], "\[NotElement]", RowBox[{ RowBox[{ RowBox[{ TagBox[ RowBox[{"\[DoubleStruckCapitalZ]", "\[And]"}], (Integers&)], "n"}], "+", "1"}], "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalA]"}]}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["b", "j"]}], "-", SubscriptBox["a", RowBox[{"n", " "}]]}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalB]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["c", "j"]}], "+", SubscriptBox["a", "n"], "+", "m"}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalC]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["d", "j"]}], "-", SubscriptBox["a", "n"], "-", "m"}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalD]"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "\[ScriptCapitalA]"], ";"}]}], RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "\[ScriptCapitalB]"], ";"}]}]}, { RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "\[ScriptCapitalC]"], ";"}]}], RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["d", "\[ScriptCapitalD]"], ";"}]}]} }], SubscriptBox["b", "n"]}], ",", "n", ",", RowBox[{"m", ";", "z"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The residue of the function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "s", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalA]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalB]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "k"], "-", "s"}], ")"}]}], ")"}]}], RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalC]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["c", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalD]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["d", "k"], "-", "s"}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"s", "\[Equal]", RowBox[{ SubscriptBox["b", "n"], "+", "m"}]}], "/;", RowBox[{"m", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}]}], TraditionalForm]]], " where this function has the pole of order ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " because ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", RowBox[{"j", "-", "1"}]]}], "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"2", "\[LessEqual]", "j", "\[LessEqual]", "n"}]}], TraditionalForm]]], ":" }], "Notations_TF_SectionText"], Cell[TextData[{ " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "\[ScriptCapitalA]"], ";"}]}], RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "\[ScriptCapitalB]"], ";"}]}]}, { RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "\[ScriptCapitalC]"], ";"}]}], RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["d", "\[ScriptCapitalD]"], ";"}]}]} }], SubscriptBox["b", "n"]}], ",", "n", ",", RowBox[{"m", ";", "z"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["res", "s"], "(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalA]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalB]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "k"], "-", "s"}], ")"}]}], ")"}]}], RowBox[{ RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalC]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["c", "k"], "+", "s"}], ")"}]}], ")"}], RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[ScriptCapitalD]"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["d", "k"], "-", "s"}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ")"}], RowBox[{"(", RowBox[{ SubscriptBox["b", "n"], "+", "m"}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"m", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", RowBox[{"j", "-", "1"}]]}], "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"2", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "1"]}], "\[NotElement]", RowBox[{ RowBox[{ RowBox[{ TagBox[ RowBox[{"\[DoubleStruckCapitalZ]", "\[And]"}], (Integers&)], "n"}], "+", "1"}], "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalB]"}]}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["a", "j"]}], "-", SubscriptBox["b", RowBox[{"n", " "}]]}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalA]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["d", "j"]}], "+", SubscriptBox["b", "n"], "+", "m"}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalD]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["c", "j"]}], "-", SubscriptBox["b", "n"], "-", "m"}], "\[NotElement]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{ "1", "\[LessEqual]", "j", "\[LessEqual]", "\[ScriptCapitalC]"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalE]", "k", RowBox[{"(", "q", ")"}]], "(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The main factor in the coefficient of series representation of function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", RowBox[{"q", "+", "1"}]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQ, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQ, Editable->True], ",", RowBox[{ TagBox[ SubscriptBox["a", RowBox[{"q", "+", "1"}]], HypergeometricPFQ, Editable->True], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQ, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQ, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQ, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->True], ";", "z"}]}], ")"}]}], TraditionalForm]]], " through Gauss functions ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], Hypergeometric2F1Regularized, Editable->True], ",", TagBox[ SubscriptBox["a", "2"], Hypergeometric2F1Regularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["\[Psi]", "q"], "+", "k"}], Hypergeometric2F1Regularized, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox["z", Hypergeometric2F1Regularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], Hypergeometric2F1Regularized], TraditionalForm]]], ": " }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", RowBox[{"q", "+", "1"}]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQ, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQ, Editable->True], ",", RowBox[{ TagBox[ SubscriptBox["a", RowBox[{"q", "+", "1"}]], HypergeometricPFQ, Editable->True], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQ, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQ, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQ, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->True], ";", "z"}]}], ")"}]}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&], Editable->True], HypergeometricPFQ], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "3"}], RowBox[{"q", "+", "1"}]], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "j"], ")"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalE]", "k", RowBox[{"(", "q", ")"}]], "(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], ")"}], TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], Hypergeometric2F1Regularized, Editable->True], ",", TagBox[ SubscriptBox["a", "2"], Hypergeometric2F1Regularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["\[Psi]", "q"], "+", "k"}], Hypergeometric2F1Regularized, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox["z", Hypergeometric2F1Regularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], Hypergeometric2F1Regularized]}]}]}]}], "/;", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "1"}]], SubscriptBox["a", "j"]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "1"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "1", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The part of series representation of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"q", "+", "1"}]], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "1"}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of the series expansions of the regular and singular components:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "1"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "1", ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], RowBox[{"q", "+", "1"}]], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], SubscriptBox["\[Psi]", "q"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ FractionBox[ SubscriptBox["c", RowBox[{"k", ",", "q"}]], TagBox[ SubscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Psi]", "q"], "+", "1"}], ")"}], "k"], Pochhammer]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], "k"]}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], RowBox[{"q", "+", "1"}]], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ RowBox[{ SubscriptBox["g", "k"], "(", "0", ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], "k"]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"z", "-", "1"}], "\[RightBracketingBar]"}], "<", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "1"}]], SubscriptBox["a", "j"]}]}]}], "\[And]", RowBox[{ RowBox[{"Q", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", SubscriptBox["b", "k"], "-", "1"}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{"R", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], RowBox[{"q", "+", "1"}]], RowBox[{"(", RowBox[{"t", "+", SubscriptBox["a", "k"]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["\[CapitalDelta]", "n"], " ", RowBox[{"f", "(", "x", ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", TagBox[ RowBox[{"(", GridBox[{ { TagBox["n", Identity, Editable->True]}, { TagBox["k", Identity, Editable->True]} }], ")"}], InterpretTemplate[ Binomial[ #, #2]&], Editable->False], " ", RowBox[{"f", "(", RowBox[{"k", "+", "x"}], ")"}]}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", RowBox[{"k", ",", "q"}]], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"0", ",", "q"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"k", ",", "1"}]], "\[Equal]", FractionBox[ RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["a", "1"]}], ")"}], "k"], Pochhammer], " ", TagBox[ SubscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["a", "2"]}], ")"}], "k"], Pochhammer]}], RowBox[{"k", "!"}]]}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"1", ",", "q"}]], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "2"}]], " ", RowBox[{"Q", "(", SubscriptBox["\[Psi]", "q"], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "2"}], ")"}], "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "1"}]], " ", RowBox[{"R", "(", RowBox[{ SubscriptBox["\[Psi]", "q"], "-", "1"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}], "!"}]]}], ")"}]}], " ", SubscriptBox["c", RowBox[{"0", ",", "q"}]]}]}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"k", ",", "q"}]], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "k"]}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "q"], " ", RowBox[{"R", "(", RowBox[{"k", "-", "q", "+", SubscriptBox["\[Psi]", "q"]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"k", "-", "q"}], ",", "q"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "q"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"j", "-", "1"}]], " ", RowBox[{"Q", "(", RowBox[{"k", "-", "q", "+", SubscriptBox["\[Psi]", "q"], "+", "1"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"j", "-", "1"}], ")"}], "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", "j"], " ", RowBox[{"R", "(", RowBox[{"k", "-", "q", "+", SubscriptBox["\[Psi]", "q"]}], ")"}]}], RowBox[{"j", "!"}]]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "+", "k", "-", "q"}], ",", "q"}]]}]}]}]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["g", "k"], "(", "0", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"k", "+", SubscriptBox["a", "1"]}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"k", "+", SubscriptBox["a", "2"]}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["\[Psi]", "q"], "-", "k"}], ")"}]}], RowBox[{"k", "!"}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["\[Psi]", "q"], "-", "k"}], ")"}], "j"], Pochhammer], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalE]", "j", RowBox[{"(", "q", ")"}]], "(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"j", "+", SubscriptBox["a", "1"], "+", SubscriptBox["\[Psi]", "q"]}], ")"}], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"j", "+", SubscriptBox["a", "2"], "+", SubscriptBox["\[Psi]", "q"]}], ")"}]}]]}]}]}], "\[And]", RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], ">", "h"}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "More detailed descriptions of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "1"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "1", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]], " see in XXX" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The asymptotic expansion of the function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of the asymptotic expansions of the regular and \ exponential\[Hyphen]type components:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "+", " ", RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}]], RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "1"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ InterpretationBox["\[Theta]", UnitStep, Editable->False, Selectable->False], RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}], "-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}]]}], ")"}], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "\[Infinity]"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Infinite series or asymptotic representation of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "a"}], "/;", RowBox[{"a", "\[Element]", RowBox[{"{", RowBox[{"1", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], StyleBox["}", "Traditional"]}]}]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], RowBox[{ UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ SubscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "h"}], "}"}]}], ")"}]}]}], TraditionalForm]]], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], "\[NegativeThinSpace]", UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]]}], TraditionalForm]]], " means the limit of a convergent series or a Borel\[Hyphen]regularized \ infinite sum." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The nonexponential part of asymptotic expansion (or series representation \ for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", RowBox[{"q", "+", "1"}]}], TraditionalForm]]], ") of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of each series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "p"], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{ RowBox[{GridBox[{ { RowBox[{"0", ";"}], RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "p"]}], ";"}]}]}, {";", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "q"]}], ";"}]}]} }], "1"}], "-", SubscriptBox["a", "j"]}], ",", "1", ",", RowBox[{"k", ";", RowBox[{"-", "z"}]}]}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "p"}], "\[And]", RowBox[{ "1", "\[LessEqual]", "k", "\[LessEqual]", "p"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], ")"}]}], "\[And]", RowBox[{"h", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "In the cases when there are exist some points ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "j"], "/;", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "p"}]}], TraditionalForm]]], " which are different on integer numbers or coinside, the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]], " is defined by continuity. After evaliation of the corresponding limit, \ the general formula includes powers of ", Cell[BoxData[ FormBox[ RowBox[{"log", "(", "z", ")"}], TraditionalForm]]], " and the psi-function ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "k", ")"}]], "(", "w", ")"}], TraditionalForm]]], " and in such logarithmic cases the representations are very complicated." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The exponential part of asymptotical expansion of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " (for ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[Equal]", "p"}], TraditionalForm]]], "or ", Cell[BoxData[ FormBox[ RowBox[{"q", ">", RowBox[{"p", "+", "1"}]}], TraditionalForm]]], ") at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]]}], RowBox[{ SqrtBox["\[Beta]"], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "p"], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]}]], SuperscriptBox["z", "\[Chi]"], RowBox[{"exp", "(", RowBox[{"\[Beta]", " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[Beta]", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox["z", RowBox[{"-", FractionBox["k", "\[Beta]"]}]]}]}]}]}], "/;", RowBox[{ RowBox[{"\[Beta]", "\[Equal]", RowBox[{"q", "-", "p", "+", "1"}]}], "\[And]", RowBox[{ SubscriptBox["A", "p"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}]}], "\[And]", RowBox[{ SubscriptBox["B", "q"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], SubscriptBox["b", "k"]}]}], "\[And]", RowBox[{"\[GothicCapitalA]", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}]}], "\[And]", RowBox[{"\[GothicCapitalB]", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[Beta]", "-", "1"}], "2"], "+", SubscriptBox["A", "p"], "-", SubscriptBox["B", "q"]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"\[Beta]", "-", "11"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Beta]", "-", "1"}], ")"}]}], RowBox[{"24", " ", "\[Beta]"}]], "-", "\[GothicCapitalA]", "+", "\[GothicCapitalB]", "+", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Beta]"}]], RowBox[{"(", RowBox[{ SubscriptBox["A", "p"], "-", SubscriptBox["B", "q"], "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "p"], "+", SubscriptBox["B", "q"]}], ")"}]}], "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "p"], "-", SubscriptBox["B", "q"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"k", " ", "\[Beta]"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], "q"], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"q", "-", "s"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", "\[Chi]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", RowBox[{ RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["b", "j"], "-", "1"}], ")"}], " ", "\[Beta]"}]}], ")"}]}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "1"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The trigonometric", "\[Hyphen]type", " part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " (for ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[Equal]", RowBox[{"p", "+", "1"}]}], TraditionalForm]]], ") at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "1"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "p"], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "\[Chi]"], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", "\[Chi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], ")"}]}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "\[ImaginaryI]"}], ")"}], "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", "\[Chi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], ")"}]}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[ImaginaryI]", "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["A", "p"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}]}], "\[And]", RowBox[{ SubscriptBox["B", RowBox[{"p", "+", "1"}]], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"p", "+", "1"}]], SubscriptBox["b", "k"]}]}], "\[And]", RowBox[{"\[GothicCapitalA]", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}]}], "\[And]", RowBox[{"\[GothicCapitalB]", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], RowBox[{"p", "+", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "p"], "-", SubscriptBox["B", RowBox[{"p", "+", "1"}]], "+", FractionBox["1", "2"]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{"2", " ", RowBox[{"(", RowBox[{ "\[GothicCapitalB]", "-", "\[GothicCapitalA]", "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SubscriptBox["A", "p"]}], "+", SubscriptBox["B", RowBox[{"p", "+", "1"}]], "-", "2"}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["A", "p"], "-", SubscriptBox["B", RowBox[{"p", "+", "1"}]]}], ")"}]}], "-", FractionBox["3", "16"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "+", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"p", "+", "1", "-", "s"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", "\[Chi]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["b", "j"], "-", "1"}], ")"}]}], "+", "t"}], ")"}]}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "t", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "\[Infinity]"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Infinite series or asymptotic representation of function ", Cell[BoxData[ FormBox[ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["a", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox[ TagBox[ RowBox[{ TagBox[ SubscriptBox["b", "1"], HypergeometricPFQRegularized, Editable->True], ",", TagBox["\[Ellipsis]", HypergeometricPFQRegularized, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], HypergeometricPFQRegularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQRegularized, Editable->False], ";", TagBox["z", HypergeometricPFQRegularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], HypergeometricPFQRegularized], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], RowBox[{ UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", OverscriptBox["F", "~"], RowBox[{"(", "t", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "h"}], "}"}]}], ")"}]}]}], TraditionalForm]]], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], "\[NegativeThinSpace]", UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]]}], TraditionalForm]]], " means the limit of a convergent series or a Borel\[Hyphen]regularized \ infinite sum and ", Cell[BoxData[ FormBox[ RowBox[{"t", "\[Element]", RowBox[{"{", RowBox[{"power", ",", "exp", ",", "trig"}], "}"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The nonexponential part of asymptotic expansion (or series representation \ for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ") of the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], "at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox["0", "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of each series expansion. In particular," }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "n"]}], ";"}]}]}, { RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}], RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "q"]}], ";"}]}]} }], SubscriptBox["b", "j"]}], ",", "1", ",", RowBox[{"k", ";", "z"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{ "1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], ")"}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "In the cases when there are exist some points ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "j"], "/;", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}]}], TraditionalForm]]], " which are different on integer numbers or coinside, the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]], " is defined by continuity. After evaliation of the corresponding limit, \ the general formula include powers of ", Cell[BoxData[ FormBox[ RowBox[{"log", "(", "z", ")"}], TraditionalForm]]], " and the psi-function ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "k", ")"}]], "(", "w", ")"}], TraditionalForm]]], ". It is too complicated for presentation here. Below formulas include the \ most important for applications cases when only two parameters ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ SubscriptBox["b", "2"], TraditionalForm]]], " are different on integer or coinside or only three parameters ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["b", "2"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["b", "3"], TraditionalForm]]], " are different on integers or coinside or only four parameters ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["b", "2"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["b", "3"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["b", "4"], TraditionalForm]]], " are different on integers or coinside. " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "1"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The exponential part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", RowBox[{"p", "+", "1"}]}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"q", "+", "1"}]], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", RowBox[{"q", "+", "1"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], " ", "exp", " ", RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], ")"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "n"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], " ", RowBox[{ SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], "k"}]], " ", SuperscriptBox["z", "k"]}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"p", "-", "q"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", "1"}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "+", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"]}], ")"}]}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", "k"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", "\[Chi]", "+", SubscriptBox["a", "j"], "-", "1"}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", "\[Chi]", "+", SubscriptBox["b", "j"]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "2"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The trigonometric\[Hyphen]type part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{ RowBox[{"q", "+", "2"}], ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"q", "+", "2"}]], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", RowBox[{"q", "+", "2"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", FractionBox["3", "2"]}]], "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "n"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], ")"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"exp", "(", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ "q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], ")"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "\[ImaginaryI]"}], ")"}], "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ "q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}], "+", RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ "q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], ")"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[ImaginaryI]", "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ "q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}]}], ")"}]}]}]}]}], " ", "/;", RowBox[{ RowBox[{ RowBox[{"p", "-", "q"}], "\[Equal]", "2"}], "\[And]", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox["3", "2"]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", FractionBox["1", "16"]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "j"], "-", "1"}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["b", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic\[Hyphen]type part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[GreaterEqual]", RowBox[{"q", "+", "3"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansions:" }], "Notations_TF_SectionText"], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"G", "(", "\[ImaginaryI]", ")"}], "+", RowBox[{"G", "(", RowBox[{"-", "\[ImaginaryI]"}], ")"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"p", "-", "q"}], "\[GreaterEqual]", "3"}], "\[And]", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"p", "-", "q"}]}], "\[And]", RowBox[{ RowBox[{"G", "(", "w", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]]}], SqrtBox["\[Beta]"]], " ", RowBox[{"exp", "(", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}], ")"}], " ", SuperscriptBox["z", RowBox[{"-", "\[Chi]"}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "n"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], ")"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[Beta]", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", "k"}], "\[Beta]"]}]], SuperscriptBox["z", FractionBox["k", "\[Beta]"]]}]}]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", "\[Beta]"}], "2"], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "\[Beta]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "+", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"]}], ")"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Beta]", "2"], "-", "1"}], RowBox[{"24", "\[Beta]"}]]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"k", " ", "\[Beta]"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "j"], "-", "1"}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["b", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]]], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The nonexponential part of asymptotic expansion (or series representation \ for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ") of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], "at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of each series expansion. In particular," }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{"-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{"\[CapitalGamma]Res", "(", RowBox[{ RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "n"]}], ";"}]}]}, { RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}], RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "q"]}], ";"}]}]} }], "1"}], "-", SubscriptBox["a", "j"]}], ",", "1", ",", RowBox[{"k", ";", "z"}]}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{ "1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], ")"}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "In the cases when there are exist some points ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "j"], "/;", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}]}], TraditionalForm]]], " which are different on integer numbers or coinside, the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]], " is defined by continuity. After evaliation of the corresponding limit, \ the general formula includes powers of ", Cell[BoxData[ FormBox[ RowBox[{"log", "(", "z", ")"}], TraditionalForm]]], " and the psi-function ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "k", ")"}]], "(", "w", ")"}], TraditionalForm]]], ". It is too complicated for presentation here. Below formulas include the \ most important for applications cases when only two parameters ", Cell[BoxData[ FormBox[ SubscriptBox["a", "1"], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ SubscriptBox["a", "2"], TraditionalForm]]], " are different on integer or coinside or only three parameters ", Cell[BoxData[ FormBox[ SubscriptBox["a", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["a", "2"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["a", "3"], TraditionalForm]]], " are different on integers or coinside or only four parameters ", Cell[BoxData[ FormBox[ SubscriptBox["a", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["a", "2"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["a", "3"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["a", "4"], TraditionalForm]]], " are different on integers or coinside. " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "1"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The exponential part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", RowBox[{"p", "+", "1"}]}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"p", "+", "1"}]], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[Equal]", RowBox[{"p", "+", "1"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]], " ", "exp", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "m"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}]], SuperscriptBox["z", SubscriptBox["b", "r"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], " ", RowBox[{ SubscriptBox["c", "k"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Pi]"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", "k"}]], SuperscriptBox["z", RowBox[{"-", "k"}]]}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"q", "-", "p"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "-", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"]}], ")"}]}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", "k"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", "\[Chi]", "-", SubscriptBox["b", "j"]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", "\[Chi]", "-", SubscriptBox["a", "j"], "+", "1"}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "2"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The trigonometric\[Hyphen]type part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", RowBox[{"p", "+", "2"}]}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"p", "+", "2"}]], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[Equal]", RowBox[{"p", "+", "2"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansion:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", FractionBox["3", "2"]}]], "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "m"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}]], SuperscriptBox["z", SubscriptBox["b", "r"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"exp", "(", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "m"}], "-", "n", "+", "p", "-", "1"}]], " ", "z"}]]}]}], ")"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "\[ImaginaryI]"}], ")"}], "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "m"}], "-", "n", "+", "p", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}], "+", RowBox[{ RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "m"}], "-", "n", "+", "p", "-", "1"}]], " ", "z"}]]}]}], ")"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[ImaginaryI]", "k"], " ", SuperscriptBox["2", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "m"}], "-", "n", "+", "p", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"-", FractionBox["k", "2"]}]]}]}]}]}], ")"}]}]}]}]}], " ", "/;", RowBox[{ RowBox[{ RowBox[{"q", "-", "p"}], "\[Equal]", "2"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", FractionBox["1", "2"]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"]}], ")"}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", FractionBox["1", "16"]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "k"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["a", "j"], "+", "1"}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic\[Hyphen]type part of asymptotic expansion of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[GreaterEqual]", RowBox[{"p", "+", "3"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of series expansions:" }], "Notations_TF_SectionText"], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"G", "(", "\[ImaginaryI]", ")"}], "+", RowBox[{"G", "(", RowBox[{"-", "\[ImaginaryI]"}], ")"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"q", "-", "p"}], "\[GreaterEqual]", "3"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"q", "-", "p"}]}], "\[And]", RowBox[{ RowBox[{"G", "(", "w", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]]}], SqrtBox["\[Beta]"]], " ", RowBox[{"exp", "(", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]], " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}], ")"}], " ", SuperscriptBox["z", "\[Chi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "r"}]], "m"], RowBox[{"sin", "(", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], ")"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}], ")"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "h"], RowBox[{ SuperscriptBox["\[Beta]", RowBox[{"-", "k"}]], " ", SubscriptBox["c", "k"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", "w", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", "k"}], "\[Beta]"]}]], SuperscriptBox["z", RowBox[{"-", FractionBox["k", "\[Beta]"]}]]}]}]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", "0"], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "\[Beta]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "-", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"]}], ")"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[Beta]", "2"], "-", "1"}], RowBox[{"24", "\[Beta]"}]]}]}], "\[And]", RowBox[{ SubscriptBox["c", "k"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"k", " ", "\[Beta]"}]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["T", RowBox[{"q", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"p", "-", "1"}]], RowBox[{ RowBox[{ SubscriptBox["U", RowBox[{"p", "-", "s", "-", "1"}]], "(", RowBox[{"s", "-", "k"}], ")"}], " ", SubscriptBox["c", RowBox[{"k", "-", "s"}]]}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["T", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"T", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"T", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "j"]}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["U", "s"], "(", "k", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "0"}], "s"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"s", "-", "r"}]], " ", RowBox[{"U", "(", RowBox[{"k", "+", "r"}], ")"}]}], RowBox[{ RowBox[{"r", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"s", "-", "r"}], ")"}], "!"}]}]]}]}], "\[And]", RowBox[{ RowBox[{"U", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"t", "+", RowBox[{"\[Beta]", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["a", "j"], "+", "1"}], ")"}]}]}], ")"}]}]}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]]], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "t", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "\[Infinity]"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Infinite series or asymptotic representation of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", StyleBox["a", "Traditional"]}], StyleBox["/;", "Traditional"], StyleBox[ RowBox[{"a", "\[Element]", RowBox[{"{", RowBox[{"0", ",", OverscriptBox["\[Infinity]", "~"]}], "}"}]}], "Traditional"]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], RowBox[{ UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "t", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox["a", "Traditional"], ",", "h"}], "}"}]}], ")"}]}]}], TraditionalForm]]], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], "\[NegativeThinSpace]", UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]]}], TraditionalForm]]], " means the limit of a convergent series or a Borel\[Hyphen]regularized \ infinite sums and ", Cell[BoxData[ FormBox[ RowBox[{"t", "\[Element]", RowBox[{"{", RowBox[{"power", ",", "exp", ",", "trig", ",", "hyp"}], "}"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "q"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The part of series representation of function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of the series expansions of the regular and singular components and \ reflects asymptotical behaviour at least in the circle ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], TraditionalForm]]], ":" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "q"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q"}]], RowBox[{"sin", "(", RowBox[{ SubscriptBox["\[Psi]", "q"], " ", "\[Pi]"}], ")"}]]}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"sin", "(", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], ")"}], " ", "\[Pi]"}], ")"}]}], RowBox[{ UnderoverscriptBox[ RowBox[{" ", "\[Product]"}], UnderscriptBox[ RowBox[{"k", "=", "1"}], RowBox[{"k", "\[NotEqual]", "h"}]], "m"], RowBox[{"sin", "(", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], ")"}], " ", "\[Pi]"}], ")"}]}]], RowBox[{ SuperscriptBox["z", SubscriptBox["b", "h"]], "(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "h"], RowBox[{ SubscriptBox["b", RowBox[{"j", ",", "q", ",", "h"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}], "-", "1"}], ")"}], "j"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}]}], ")"}], SubscriptBox["\[Psi]", "q"]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "h"], FractionBox[ RowBox[{ SubscriptBox["c", RowBox[{"j", ",", "q", ",", "h"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}]}], ")"}], "j"]}], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["\[Psi]", "q"], "+", "j", "+", "1"}], ")"}]]}]}]}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ RowBox[{"Q", RowBox[{"(", "t", ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "-", SubscriptBox["b", "k"]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{"R", "(", "t", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"(", RowBox[{"t", "-", SubscriptBox["a", "k"], "+", "1"}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["\[CapitalDelta]", "n"], " ", RowBox[{"f", "(", "x", ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", TagBox[ RowBox[{"(", GridBox[{ { TagBox["n", Identity, Editable->True]}, { TagBox["k", Identity, Editable->True]} }], ")"}], InterpretTemplate[ Binomial[ #, #2]&], Editable->False], " ", RowBox[{"f", "(", RowBox[{"k", "+", "x"}], ")"}]}]}]}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"0", ",", "q", ",", "h"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"j", ",", "1", ",", "1"}]], "\[Equal]", "0"}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"j", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}], ")"}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"1", ",", "2", ",", "h"}]], "\[Equal]", RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "2"]}], ")"}]}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["c", RowBox[{"2", ",", "2", ",", "h"}]]}], "\[Equal]", RowBox[{ RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "2"], "+", "1"}], ")"}], " ", SubscriptBox["c", RowBox[{"1", ",", "2", ",", "h"}]]}]}], "\[And]", "\[Ellipsis]", "\[And]", RowBox[{ RowBox[{"j", " ", SubscriptBox["c", RowBox[{"j", ",", "2", ",", "h"}]]}], "\[Equal]", RowBox[{ RowBox[{"R", "(", RowBox[{"j", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "2"], "-", "1"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "-", "1"}], ",", "2", ",", "h"}]]}]}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"1", ",", "3", ",", "h"}]], "\[Equal]", RowBox[{ RowBox[{"\[CapitalDelta]R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"], "-", "1"}], ")"}], "-", RowBox[{"Q", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"]}], ")"}]}]}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["c", RowBox[{"2", ",", "3", ",", "h"}]]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[CapitalDelta]R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"]}], ")"}], "-", RowBox[{"Q", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"], "+", "1"}], ")"}]}], ")"}], " ", SubscriptBox["c", RowBox[{"1", ",", "3", ",", "h"}]]}], "-", RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"]}], ")"}]}]}], "\[And]", "\[Ellipsis]", "\[And]", RowBox[{ RowBox[{"j", " ", SubscriptBox["c", RowBox[{"j", ",", "3", ",", "h"}]]}], " ", "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[CapitalDelta]R", "(", RowBox[{"j", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"], "-", "2"}], ")"}], "-", RowBox[{"Q", "(", RowBox[{"j", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"], "-", "1"}], ")"}]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "-", "1"}], ",", "3", ",", "h"}]]}], "-", RowBox[{ RowBox[{"R", "(", RowBox[{"j", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "3"], "-", "2"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "-", "2"}], ",", "3", ",", "h"}]]}]}]}], "\[And]", RowBox[{ SubscriptBox["c", RowBox[{"1", ",", "q", ",", "h"}]], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "2"}]], " ", RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "2"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "2"}], ")"}], "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "3"}]], " ", RowBox[{"Q", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "3"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "3"}], ")"}], "!"}]]}]}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["c", RowBox[{"2", ",", "q", ",", "h"}]]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "2"}]], " ", RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "3"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "2"}], ")"}], "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "3"}]], " ", RowBox[{"Q", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "4"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "3"}], ")"}], "!"}]]}], ")"}], " ", SubscriptBox["c", RowBox[{"1", ",", "q", ",", "h"}]]}], "-", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "3"}]], " ", RowBox[{"R", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "3"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "3"}], ")"}], "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"q", "-", "4"}]], " ", RowBox[{"Q", "(", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "-", "q", "+", "4"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "4"}], ")"}], "!"}]]}], ")"}]}]}], "\[And]", "\[Ellipsis]", "\[And]", RowBox[{ RowBox[{"j", " ", SubscriptBox["c", RowBox[{"j", ",", "q", ",", "h"}]]}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "q"], " ", RowBox[{"R", "(", RowBox[{"j", "-", "q", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "+", "1"}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "-", "q", "+", "1"}], ",", "q", ",", "h"}]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"q", "-", "2"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "k"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", "k"], " ", RowBox[{"Q", "(", RowBox[{"j", "-", "q", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "+", "1"}], ")"}]}], RowBox[{"k", "!"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[CapitalDelta]", RowBox[{"k", "-", "1"}]], " ", RowBox[{"R", "(", RowBox[{"j", "-", "q", "+", SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"], "+", "2"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], "!"}]]}], ")"}], " ", SubscriptBox["c", RowBox[{ RowBox[{"j", "+", "k", "-", "q", "+", "1"}], ",", "q", ",", "h"}]]}]}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"j", ",", "1", ",", "1"}]], "\[Equal]", "0"}], "/;", RowBox[{"j", "\[GreaterEqual]", "0"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["b", RowBox[{"j", ",", "q", ",", "h"}]], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]], RowBox[{ FractionBox[ SuperscriptBox["t", RowBox[{"-", SubscriptBox["b", "h"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}], RowBox[{"j", "+", "1"}]]], RowBox[{"\[CapitalXi]", "(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", "h", ",", "t"}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"0", "<", "\[Gamma]", "<", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", (Integers&)]}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}]}], "\[RightBracketingBar]"}], "<", "1"}], "\[And]", RowBox[{"h", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "More detailed descriptions of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "q"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], ",", "h"}], "}"}]}], ")"}], TraditionalForm]]], " see in XXX" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "h"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The asymptotic expansion of the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", StyleBox["a", "Traditional"]}], StyleBox["/;", "Traditional"], StyleBox[ RowBox[{"a", "\[Element]", RowBox[{"{", RowBox[{"0", ",", OverscriptBox["\[Infinity]", "~"]}], "}"}]}], "Traditional"]}], TraditionalForm]]], " which includes ", Cell[BoxData[ FormBox["h", TraditionalForm]]], " terms of the asymptotic expansions of the regular and \ exponential\[Hyphen]type components:" }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}], "+", RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}]], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "1"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}]}], "+", RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}]], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"q", "+", "2"}]], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}]]}], "-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}]], "+", RowBox[{ InterpretationBox["\[Theta]", UnitStep, Editable->False, Selectable->False], "(", RowBox[{"p", "-", "q", "-", "2"}], ")"}]}], ")"}], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "0", ",", "h"}], "}"}]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "power", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}], "+", RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}]], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "exp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "1"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}]}], "+", RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}]], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "trig", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", RowBox[{"p", "+", "2"}]], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}]]}], "-", SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta, Editable->False, Selectable->False], RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}]], "+", RowBox[{ InterpretationBox["\[Theta]", UnitStep, Editable->False, Selectable->False], "(", RowBox[{"q", "-", "p", "-", "2"}], ")"}]}], ")"}], " ", RowBox[{ SubsuperscriptBox["\[ScriptCapitalA]", "G", RowBox[{"(", "hyp", ")"}]], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], ",", "h"}], "}"}]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "\[Infinity]"}], "}"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Infinite series or asymptotic representation of the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " at the point ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "a"}], "/;", RowBox[{"a", "\[Element]", RowBox[{"{", RowBox[{"0", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], ",", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}], StyleBox["}", "Traditional"]}]}]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], RowBox[{ UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ SubscriptBox["\[ScriptCapitalA]", "G"], "(", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], ";"}]}], RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], ";"}]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], ";"}]}], RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], ";"}]}]} }], RowBox[{"{", RowBox[{"z", ",", "a", ",", "h"}], "}"}]}], ")"}]}]}], TraditionalForm]]], " where ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["", RowBox[{"(", "\[ScriptCapitalB]", ")"}]], "\[NegativeThinSpace]", UnderscriptBox["lim", RowBox[{"h", "\[Rule]", "\[Infinity]"}]]}], TraditionalForm]]], " means the limit of a convergent series or a Borel\[Hyphen]regularized \ infinite sum." }], "Notations_TF_SectionText"] }, Open ]], Cell[BoxData[ RowBox[{"HypergeometricPFQRegularizedAsymptotics", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], "1"], ",", "\[Ellipsis]", ",", SubscriptBox[ StyleBox["a", "TI"], StyleBox["p", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["b", "TI"], "1"], ",", "\[Ellipsis]", ",", StyleBox[ SubscriptBox["b", "q"], "TI"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["z", "TI"], ",", StyleBox["a", "TI"], ",", StyleBox["\[Infinity]", "TI"]}], "}"}]}], "]"}]], "Notations_SF_Section"] }, Open ]], Cell[CellGroupData[{ Cell["Summations", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sum of terms ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "m", ")"}], ",", " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], ",", " ", "\[Ellipsis]", ",", RowBox[{"f", "(", "n", ")"}]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], "\[Equal]", RowBox[{ RowBox[{"f", "(", "m", ")"}], "+", " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], "+", " ", "\[Ellipsis]", "+", RowBox[{"f", "(", "n", ")"}]}]}], "/;", RowBox[{"n", "\[GreaterEqual]", "m"}]}], ";", " ", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], "\[Equal]", "0"}], "/;", RowBox[{"n", "<", "m"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"k", "=", "m"}], RowBox[{"k", "\[NotEqual]", "l"}]], "n"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sum of terms ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "m", ")"}], ",", " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], ",", " ", "\[Ellipsis]", ",", RowBox[{"f", "(", "n", ")"}]}], TraditionalForm]]], " excluding the term ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "l", ")"}], TraditionalForm]]], ". " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "m"}], "\[Infinity]"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Limit of finite sum: ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"n", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", GridBox[{ { RowBox[{ RowBox[{"k", "=", "m"}], ","}]}, { RowBox[{ RowBox[{"\[CapitalDelta]", "\[InvisibleSpace]", "k"}], "=", "2"}]} }], "\[Infinity]"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Limit of finite sum: ", Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"n", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{"f", "(", RowBox[{"m", "+", RowBox[{"2", "k"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["\[Sum]", SubscriptBox["\[Rho]", "k"]], RowBox[{"f", RowBox[{"(", SubscriptBox["\[Rho]", "k"], ")"}]}]}], "/;", RowBox[{ RowBox[{"g", "(", SubscriptBox["\[Rho]", "k"], ")"}], "\[Equal]", "0"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sum over all solutions of equation ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"g", "(", SubscriptBox["\[Rho]", "k"], ")"}], "\[Equal]", "0"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalK]"}]], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sum over the set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalK]", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"d", "\[VerticalBar]", "n"}]], RowBox[{"f", "(", "d", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sum of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "d", ")"}], TraditionalForm]]], " over all divisors of ", "n." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "1"], "=", SubscriptBox["m", "1"]}], SubscriptBox["n", "1"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "2"], "=", SubscriptBox["m", "2"]}], SubscriptBox["n", "2"]], RowBox[{"\[Ellipsis]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["k", "l"], "=", SubscriptBox["m", "l"]}], SubscriptBox["n", "l"]], RowBox[{"f", RowBox[{"(", RowBox[{ SubscriptBox["k", "1"], ",", SubscriptBox["k", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["k", "l"]}], ")"}]}]}]}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Multiple sum of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ SubscriptBox["k", "1"], ",", SubscriptBox["k", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["k", "l"]}], ")"}], TraditionalForm]]], " over the sets ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["m", "1"], ",", SubscriptBox["n", "1"]}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ SubscriptBox["m", "2"], ",", SubscriptBox["n", "2"]}], ")"}], "\[Times]", "\[Ellipsis]", "\[Times]", RowBox[{"(", RowBox[{ SubscriptBox["m", "l"], ",", SubscriptBox["n", "l"]}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], RowBox[{"f", "(", RowBox[{"m", ",", "n"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Double sum of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]]], " over all integers ", Cell[BoxData[ FormBox[ RowBox[{"m", ",", "n"}], TraditionalForm]]], " except ", Cell[BoxData[ FormBox[ RowBox[{"m", "\[Equal]", "n", "\[Equal]", "0"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Products", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Product of terms ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "m", ")"}], ",", " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], ",", " ", "\[Ellipsis]", ",", RowBox[{"f", "(", "n", ")"}]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], "\[Equal]", RowBox[{ RowBox[{"f", "(", "m", ")"}], " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], " ", "\[Ellipsis]"}]}], ",", " ", RowBox[{ RowBox[{"f", "(", "n", ")"}], "/;", RowBox[{"n", "\[GreaterEqual]", "m"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", "(", "k", ")"}]}], "\[Equal]", "1"}], "/;", RowBox[{"n", "<", "m"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", UnderscriptBox[ RowBox[{"k", "=", "m"}], RowBox[{"k", "\[NotEqual]", "l"}]], "n"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Product of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", "(", "m", ")"}], ",", " ", RowBox[{"f", "(", RowBox[{"m", "+", "1"}], ")"}], ",", " ", "\[Ellipsis]", ",", RowBox[{"f", "(", "n", ")"}]}], TraditionalForm]]], " excluding ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "l", ")"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "m"}], "\[Infinity]"], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Limit of finite product ", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"n", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "m"}], "n"], RowBox[{"f", RowBox[{"(", "k", ")"}]}]}]}], "TraditionalForm"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Product]", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalK]"}]], RowBox[{"f", "(", "k", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Product over set ", Cell[BoxData[ FormBox["\[DoubleStruckCapitalK]", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["\[Product]", RowBox[{"d", "\[VerticalBar]", "n"}]], RowBox[{"f", "(", "d", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Product of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "d", ")"}], TraditionalForm]]], " over all divisors of ", "n." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], RowBox[{"f", "(", RowBox[{"m", ",", "n"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Double product of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]]], " by all integers ", Cell[BoxData[ FormBox[ RowBox[{"m", ",", "n"}], TraditionalForm]]], " excluding the term ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{"0", ",", "0"}], ")"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Differentiations", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", "\[Prime]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Derivative of a function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " of one argument: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]"], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", FractionBox[ RowBox[{ RowBox[{"f", RowBox[{"(", RowBox[{"z", "+", "\[Epsilon]"}], ")"}]}], "-", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], "\[Epsilon]"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Second derivative of a function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " of one argument: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]"], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", FractionBox[ RowBox[{ RowBox[{"f", RowBox[{"(", "z", ")"}]}], "-", RowBox[{"2", " ", RowBox[{"f", RowBox[{"(", RowBox[{"z", "+", "\[Epsilon]"}], ")"}]}]}], "+", RowBox[{"f", RowBox[{"(", RowBox[{"z", "+", RowBox[{"2", " ", "\[Epsilon]"}]}], ")"}]}]}], SuperscriptBox["\[Epsilon]", "2"]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", RowBox[{"(", "n", ")"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "th derivative of a function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " of one argument: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "n", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "z"}], MultilineFunction->None], RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", RowBox[{ FractionBox["1", SuperscriptBox["\[Epsilon]", "n"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", TagBox[ RowBox[{"(", GridBox[{ { TagBox["n", Identity, Editable->True]}, { TagBox["k", Identity, Editable->True]} }], ")"}], InterpretTemplate[ Binomial[ #, #2]&], Editable->False], " ", RowBox[{"f", "(", RowBox[{"z", "+", RowBox[{"k", " ", "\[Epsilon]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{"n", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["f", RowBox[{"(", "0", ")"}]], "(", "z", ")"}], "\[Equal]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["0", TraditionalForm]]], "th derivative of a function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " coinsides with function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "0", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}], "\[Equal]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[PartialD]", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Partial derivative of ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", FractionBox[ RowBox[{ RowBox[{"f", RowBox[{"(", RowBox[{"z", "+", "\[Epsilon]"}], ")"}]}], "-", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], "\[Epsilon]"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "n"], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "n"]}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "th partial derivative of ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "n"], RowBox[{"f", "(", "z", ")"}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "n"]}], MultilineFunction->None], "\[Equal]", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "z"}], MultilineFunction->None], FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", RowBox[{"n", "-", "1"}]], RowBox[{"f", "(", "z", ")"}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", RowBox[{"n", "-", "1"}]]}], MultilineFunction->None]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", RowBox[{ FractionBox["1", SuperscriptBox["\[Epsilon]", "n"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k"}]], " ", TagBox[ RowBox[{"(", GridBox[{ { TagBox["n", Identity, Editable->True]}, { TagBox["k", Identity, Editable->True]} }], ")"}], InterpretTemplate[ Binomial[ #, #2]&], Editable->False], " ", RowBox[{"f", "(", RowBox[{"z", "+", RowBox[{"k", " ", "\[Epsilon]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{"n", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["f", RowBox[{"(", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "m"]}], ")"}]], "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["z", "m"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The general form, representing a function obtained from ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " by differentiating ", Cell[BoxData[ FormBox[ SubscriptBox["n", "1"], TraditionalForm]]], " times with respect to the first argument, ", Cell[BoxData[ FormBox[ SubscriptBox["n", "2"], TraditionalForm]]], " times with respect to the second argument, and so on." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "z"], "(", RowBox[{ RowBox[{"f", "(", "z", ")"}], ",", RowBox[{"g", "(", "z", ")"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Wronskian determinant including two functions and its derivatives: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["W", "z"], RowBox[{"(", RowBox[{ RowBox[{"f", RowBox[{"(", "z", ")"}]}], ",", RowBox[{"g", RowBox[{"(", "z", ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"f", RowBox[{"(", "z", ")"}]}], RowBox[{"g", RowBox[{"(", "z", ")"}]}]}, { RowBox[{ SuperscriptBox["f", "\[Prime]"], "(", "z", ")"}], RowBox[{ SuperscriptBox["g", "\[Prime]"], "(", "z", ")"}]} }], "\[NoBreak]", ")"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"f", RowBox[{"(", "z", ")"}]}], RowBox[{ SuperscriptBox["g", "\[Prime]"], "(", "z", ")"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["f", "\[Prime]"], "(", "z", ")"}], " ", RowBox[{"g", "(", "z", ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "z"], "(", RowBox[{ RowBox[{ SubscriptBox["f", "1"], "(", "z", ")"}], ",", RowBox[{ SubscriptBox["f", "2"], "(", "z", ")"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["f", "n"], "(", "z", ")"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Wronskian determinant including ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " functions and its derivatives: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["W", "z"], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["f", "1"], RowBox[{"(", "z", ")"}]}], ",", RowBox[{ SubscriptBox["f", "2"], RowBox[{"(", "z", ")"}]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["f", "n"], RowBox[{"(", "z", ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{"\[LeftBracketingBar]", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ SubscriptBox["f", "1"], RowBox[{"(", "z", ")"}]}], RowBox[{ SubscriptBox["f", "2"], RowBox[{"(", "z", ")"}]}], "\[Ellipsis]", RowBox[{ SubscriptBox["f", "n"], RowBox[{"(", "z", ")"}]}]}, { RowBox[{ SubsuperscriptBox["f", "1", "\[Prime]"], "(", "z", ")"}], RowBox[{ SubsuperscriptBox["f", "2", "\[Prime]"], "(", "z", ")"}], "\[Ellipsis]", RowBox[{ SubsuperscriptBox["f", "n", "\[Prime]"], "(", "z", ")"}]}, {"\[Ellipsis]", "\[Ellipsis]", "\[Ellipsis]", "\[Ellipsis]"}, { RowBox[{ SubsuperscriptBox["f", "1", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]], "(", "z", ")"}], RowBox[{ SubsuperscriptBox["f", "2", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]], "(", "z", ")"}], "\[Ellipsis]", RowBox[{ SubsuperscriptBox["f", "n", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]], "(", "z", ")"}]} }], "\[NoBreak]", ")"}], "\[RightBracketingBar]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Fractional Integro-Differentiations", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "exp", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Fractional differentiation power constant: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "exp", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", RowBox[{"z", ",", "a"}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "a"}]], "(", RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], SuperscriptBox["z", "a"]}], ")"}], "\[Equal]", RowBox[{"{", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "\[Alpha]"], " ", SubscriptBox[ RowBox[{"(", RowBox[{"-", "a"}], ")"}], "\[Alpha]"]}], " ", "/;", " ", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}], "\[And]", RowBox[{ "\[Alpha]", "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{"a", "<", "\[Alpha]"}]}]}]}, { RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"a", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"log", RowBox[{"(", "z", ")"}]}], "+", RowBox[{"\[Psi]", RowBox[{"(", RowBox[{"-", "a"}], ")"}]}], "-", RowBox[{"\[Psi]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "1"}], ")"}], "!"}], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]}]], "/;", " ", RowBox[{ RowBox[{"-", "a"}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}]}, { RowBox[{ FractionBox[ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]], "/;", " ", " ", " ", " ", "otherwise"}]} }]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "exp", RowBox[{"(", RowBox[{"\[Alpha]", "-", "1"}], ")"}]], "(", RowBox[{"z", ",", RowBox[{"-", "1"}]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "gives the logarithmic fractional differentiation constant of order ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", RowBox[{"z", ",", "0"}], ")"}]}], "\[Equal]", RowBox[{"{", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], " ", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "1"}], ")"}], "!"}]}], "/;"}], RowBox[{"\[Alpha]", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}, { RowBox[{ FractionBox[ RowBox[{ RowBox[{"log", RowBox[{"(", "z", ")"}]}], "-", RowBox[{"\[Psi]", "(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "-", "\[DoubledGamma]"}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}]}]], "/;"}], RowBox[{" ", "otherwise"}]} }]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "gives the logarithmic fractional differentiation constant of order ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", RowBox[{"z", ",", "a"}], ")"}]}], "\[Equal]", RowBox[{"{", GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"\[Alpha]", "-", "a", "-", "1"}]], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "a", "-", "1"}], ")"}], "!"}]}], "/;"}], RowBox[{ RowBox[{"\[Alpha]", "-", "a"}], "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}, { RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "a"}]], " ", FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "a"}]], RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}]}], " ", SuperscriptBox["z", RowBox[{"a", "-", "\[Alpha]"}]]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"log", RowBox[{"(", "z", ")"}]}], "+", RowBox[{"\[Psi]", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}]}], "-", RowBox[{"\[Psi]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]}], ")"}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "-", "\[Alpha]", "+", "1"}], ")"}]}]]}], "/;"}], RowBox[{" ", "otherwise"}]} }]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", "a", ",", "n"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "gives the logarithmic fractional differentiation constant of order ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", RowBox[{"z", ",", "a", ",", "n"}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "a"}]], FractionBox[ SuperscriptBox["\[PartialD]", "n"], RowBox[{"\[PartialD]", SuperscriptBox["a", "n"]}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "\[Alpha]"}]], RowBox[{ RowBox[{"\[ScriptCapitalF]", SubsuperscriptBox["\[ScriptCapitalC]", "exp", RowBox[{"(", "\[Alpha]", ")"}]]}], RowBox[{"(", RowBox[{"z", ",", "a"}], ")"}]}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "a"}]], FractionBox[ SuperscriptBox["\[PartialD]", "n"], RowBox[{"\[PartialD]", SuperscriptBox["a", "n"]}]], RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], SuperscriptBox["z", "a"]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], "\[Equal]", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "\[Alpha]", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], "th fractional integro\[Hyphen]derivative of ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " (which provides the Riemann\[Hyphen]Liouville\[Hyphen]Hadamard \ fractional left\[Hyphen]sided integro\[Hyphen]differentiation with \ beginning at the point 0): " }], "Notations_TF_SectionText"], Cell[BoxData[{ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["log", "n"], RowBox[{"(", "z", ")"}]}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], SuperscriptBox["z", RowBox[{"k", "+", "a"}]]}]}]}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], RowBox[{"(", RowBox[{"z", ",", RowBox[{"k", "+", "a"}], ",", "n"}], ")"}]}], SuperscriptBox["z", RowBox[{"k", "+", "a", "-", "\[Alpha]"}]]}]}]}], "/;", " ", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], ";"}]}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], SuperscriptBox["z", "k"]}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"k", "!"}], SubscriptBox["c", "k"]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "-", "\[Alpha]", "+", "1"}], ")"}]}]], SuperscriptBox["z", RowBox[{"k", "-", "\[Alpha]"}]]}]}]}], ";"}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "x"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"f", RowBox[{"(", "t", ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "t"}], ")"}], RowBox[{ RowBox[{"-", "\[Alpha]"}], "-", "1"}]]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"-", "\[Alpha]"}], ")"}]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"Re", RowBox[{"(", RowBox[{"-", "\[Alpha]"}], ")"}]}], ">", "0"}]}], ";"}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "n"], RowBox[{"\[PartialD]", SuperscriptBox["x", "n"]}]], RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "x"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"f", RowBox[{"(", "t", ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "t"}], ")"}], RowBox[{"n", "+", "\[Alpha]", "-", "1"}]]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"n", "+", "\[Alpha]"}], ")"}]}]], RowBox[{"\[DifferentialD]", "t"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Equal]", RowBox[{ RowBox[{"\[LeftFloor]", RowBox[{"Re", RowBox[{"(", RowBox[{"-", "\[Alpha]"}], ")"}]}], "\[RightFloor]"}], "+", "1"}]}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", RowBox[{"-", "\[Alpha]"}], ")"}]}], "\[LessEqual]", "0"}]}]}], TraditionalForm]}], "LinkingEquationsIndent", CellMargins->{{15, Inherited}, {Inherited, 0}}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 3}}, FontFamily->"Times"], Cell[TextData[{ "The value ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}]], "\[Equal]", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "\[Alpha]", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}]}], TraditionalForm]]], " is ", "defined for analytical functions by the following way." }], "Notations_TF_SectionText"], Cell[TextData[{ "Supose that the function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " near point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], "can be represented through Laurent type series" }], "InventorsBox"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"f", "(", "z", ")"}], " ", "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["log", "n"], "(", "z", ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], SuperscriptBox["z", RowBox[{"k", "+", "a"}]]}]}]}]}], "/;", " ", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], TraditionalForm]], "LinkingEquationsIndent", CellMargins->{{15, Inherited}, {Inherited, 0}}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 3}}, FontFamily->"Times"], Cell[TextData[{ "In particular for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"n", "\[Equal]", "0"}], ",", RowBox[{"a", "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["c", "k"], "\[Equal]", "0"}], "/;", RowBox[{"k", "<", "0"}]}]}], TraditionalForm]]], " this function is analytical near point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], " function. In this case we will define the value ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "\[Alpha]", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", "(", "z", ")"}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}], MultilineFunction->None]}], TraditionalForm]]], " for arbitrary complex order ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], " by the formula" }], "InventorsBox"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"f", "(", "z", ")"}]}], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}], MultilineFunction->None], "\[Equal]", RowBox[{ SuperscriptBox["f", TagBox[ RowBox[{"(", "\[Alpha]", ")"}], Derivative], MultilineFunction->None], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}], MultilineFunction->None], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["log", "n"], "(", "z", ")"}], " ", SuperscriptBox["z", RowBox[{"k", "+", "a"}]]}], ")"}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], FractionBox[ SuperscriptBox["\[PartialD]", "n"], RowBox[{"\[PartialD]", SuperscriptBox["a", "n"]}], MultilineFunction->None], RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}], MultilineFunction->None], SuperscriptBox["z", RowBox[{"k", "+", "a"}]]}], ")"}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SubscriptBox["c", "k"], RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", RowBox[{"k", "+", "a"}], ",", "n"}], ")"}], RowBox[{ SuperscriptBox["z", RowBox[{"k", "+", "a", "-", "\[Alpha]"}]], "."}]}]}]}]}], TraditionalForm]], "LinkingEquationsIndent", CellMargins->{{15, Inherited}, {Inherited, 0}}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 3}}, FontFamily->"Times"], Cell[TextData[{ "In particular, for ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Equal]", "0"}], TraditionalForm]]], " we have" }], "InventorsBox"], Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "log", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", "b", ",", "0"}], ")"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "b"}]], "(", RowBox[{ FractionBox[ SuperscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"\[PartialD]", SuperscriptBox["z", "\[Alpha]"]}], MultilineFunction->None], SuperscriptBox["z", "b"]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "exp", RowBox[{"(", "\[Alpha]", ")"}]], "(", RowBox[{"z", ",", "b"}], ")"}], "."}]}]}], TraditionalForm]], "LinkingEquationsIndent", CellMargins->{{15, Inherited}, {Inherited, 0}}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 3}}, FontFamily->"Times"], Cell[TextData[{ "Such approach allows to evaluate the integro-derivative of fractional \ (generically complex) order ", Cell[BoxData[ FormBox["\[Alpha]", TraditionalForm]]], " for all functions of hypergeometric type including Meijer G function \ because all such functions can be represented as finite sums of above Laurent \ type series." }], "InventorsBox"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Integrations", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Integral]", "L"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Contour integral of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "t", ")"}], TraditionalForm]]], " by contour ", Cell[BoxData[ FormBox["L", TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "Let for the bounded open contour ", Cell[BoxData[ FormBox[ RowBox[{"L", "=", RowBox[{"L", "(", RowBox[{"a", ",", "b"}], ")"}]}], TraditionalForm]], FormatType->StandardForm], " the variable ", Cell[BoxData[ FormBox["t", TraditionalForm]], FormatType->StandardForm], " is moving in positive direction: from the end ", Cell[BoxData[ FormBox["a", TraditionalForm]], FormatType->StandardForm], " to ", Cell[BoxData[ FormBox["b", TraditionalForm]], FormatType->StandardForm], ", the arbitrary points ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["t", "k"], "\[Element]", "L"}], TraditionalForm]], FormatType->StandardForm], " are numerated in corresponding order (", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["t", "0"], "\[Equal]", "a"}], ",", " ", SubscriptBox["t", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["t", "n"], "\[Equal]", "b"}]}], TraditionalForm]], FormatType->StandardForm], "). Devided on ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"L", "(", RowBox[{ SubscriptBox["t", RowBox[{"k", "-", "1"}]], ",", SubscriptBox["t", "k"]}], ")"}], "."}], TraditionalForm]], FormatType->StandardForm], "Then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Integral]", "L"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[CapitalDelta]", "\[Rule]", "0"}]], "\[ThinSpace]", RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"f", "(", SubscriptBox["\[Tau]", "k"], ")"}]}], " ", "|", RowBox[{ SubscriptBox["t", "k"], "-", SubscriptBox["t", RowBox[{"k", "-", "1"}]]}], "|"}], ")"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["\[Tau]", "k"], "\[Element]", RowBox[{"L", "(", RowBox[{ SubscriptBox["t", RowBox[{"k", "-", "1"}]], ",", SubscriptBox["t", "k"]}], ")"}]}], "\[And]", RowBox[{"\[CapitalDelta]", "\[Equal]", RowBox[{"max", "(", RowBox[{ RowBox[{"|", RowBox[{ SubscriptBox["t", "1"], "-", SubscriptBox["t", "0"]}], "|"}], ",", RowBox[{"|", RowBox[{ SubscriptBox["t", "2"], "-", SubscriptBox["t", "1"]}], "|"}], ",", "\[Ellipsis]", ",", RowBox[{"|", RowBox[{ SubscriptBox["t", "n"], "-", SubscriptBox["t", RowBox[{"n", "-", "1"}]]}], "|"}]}], ")"}]}], "\[And]", RowBox[{ RowBox[{"f", "(", "\[Tau]", ")"}], "\[Element]", RowBox[{ SuperscriptBox["C", "0"], "(", RowBox[{"L", "(", RowBox[{"a", ",", "b"}], ")"}], ")"}]}]}]}], TraditionalForm]], FormatType->StandardForm] }], "Text"], Cell[TextData[{ "For closed contour ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " (like circle ", Cell[BoxData[ FormBox[ RowBox[{"|", "t", "|", RowBox[{"\[Equal]", "1"}]}], TraditionalForm]]], ") the above procedure can be applied when ", Cell[BoxData[ FormBox["b", TraditionalForm]]], " is taken on ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " near point ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Integral]", "L"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"b", "\[Rule]", "a"}]], "\[ThinSpace]", RowBox[{ SubscriptBox["\[Integral]", RowBox[{"L", "(", RowBox[{"a", ",", "b"}], ")"}]], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "For non-bounded contour ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " with finite end ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " the above procedure can be applied when ", Cell[BoxData[ FormBox["b", TraditionalForm]]], " is taken on ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " near point ", Cell[BoxData[ FormBox[ OverscriptBox["\[Infinity]", "~"], TraditionalForm]]], " and then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Integral]", "L"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ SubscriptBox["\[Integral]", RowBox[{"L", "(", RowBox[{"a", ",", OverscriptBox["\[Infinity]", "~"]}], ")"}]], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"b", "\[Rule]", OverscriptBox["\[Infinity]", "~"]}]], "\[ThinSpace]", RowBox[{ SubscriptBox["\[Integral]", RowBox[{"L", "(", RowBox[{"a", ",", "b"}], ")"}]], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "For non-bounded contour ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " with both infinite ends (like for the special contour ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " which is used in definition of Meijer G function) by definition ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Integral]", "L"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[Integral]", SubscriptBox["L", "1"]], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "-", RowBox[{ SubscriptBox["\[Integral]", SubscriptBox["L", "2"]], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], " where ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " is devided on two contours ", Cell[BoxData[ FormBox[ SubscriptBox["L", "1"], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ SubscriptBox["L", "2"], TraditionalForm]]], "by arbitrary finite poinf ", Cell[BoxData[ FormBox[ RowBox[{"a", "\[Element]", "L"}], TraditionalForm]]], " and directions of ", Cell[BoxData[ FormBox["L", TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["L", "1"], TraditionalForm]]], "are coincide." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"f", "(", "z", ")"}], RowBox[{"\[DifferentialD]", "z"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Indefinite integral of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], ". Inverse operation to differentiation: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "z"}]], RowBox[{"\[Integral]", RowBox[{ RowBox[{"f", RowBox[{"(", "z", ")"}]}], RowBox[{"\[DifferentialD]", "z"}]}]}]}], "\[Equal]", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Definite integral of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "t", ")"}], TraditionalForm]]], " over interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]], ":\n ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[CapitalDelta]", "\[Rule]", "0"}]], "\[ThinSpace]", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"f", "(", SubscriptBox["\[Tau]", "k"], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["t", "k"], "-", SubscriptBox["t", RowBox[{"k", "-", "1"}]]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"a", "\[Equal]", SubscriptBox["t", "0"], "<", SubscriptBox["t", "1"], "<", "\[Ellipsis]", "<", SubscriptBox["t", "n"], "\[Equal]", "b"}], "\[And]", RowBox[{ SubscriptBox["t", RowBox[{"k", "-", "1"}]], "<", SubscriptBox["\[Tau]", "k"], "<", SubscriptBox["t", "k"]}], "\[And]", RowBox[{"\[CapitalDelta]", "\[Equal]", RowBox[{"max", "(", RowBox[{ RowBox[{ SubscriptBox["t", "1"], "-", SubscriptBox["t", "0"]}], ",", RowBox[{ SubscriptBox["t", "2"], "-", SubscriptBox["t", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["t", "n"], "-", SubscriptBox["t", RowBox[{"n", "-", "1"}]]}]}], ")"}]}], "\[And]", RowBox[{ RowBox[{"f", "(", "\[Tau]", ")"}], "\[Element]", RowBox[{ SuperscriptBox["C", "0"], "(", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}], ")"}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["a", "1"], SubscriptBox["b", "1"]], RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["a", "2"], SubscriptBox["b", "2"]], RowBox[{"\[Ellipsis]", RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["a", "n"], SubscriptBox["b", "n"]], RowBox[{ RowBox[{"f", "(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["t", "n"]}], ")"}], RowBox[{"\[DifferentialD]", SubscriptBox["t", "n"]}], RowBox[{"\[DifferentialD]", SubscriptBox["t", RowBox[{"n", "-", "1"}]]}], "\[Ellipsis]", RowBox[{"\[DifferentialD]", SubscriptBox["t", "1"]}]}]}]}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Multiple definite integral of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["t", "n"]}], ")"}], TraditionalForm]]], " by intervals ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["b", "1"]}], ")"}], "\[Times]", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["b", "2"]}], ")"}], "\[Times]", "\[Ellipsis]", "\[Times]", RowBox[{"(", RowBox[{ SubscriptBox["a", "n"], ",", SubscriptBox["b", "n"]}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox[ UnderscriptBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "x"], RowBox[{ SubsuperscriptBox["\[Integral]", "a", "t"], RowBox[{"\[Ellipsis]", RowBox[{ SubsuperscriptBox["\[Integral]", "a", "t"], RowBox[{ RowBox[{"f", "(", "t", ")"}], RowBox[{"\[DifferentialD]", "t"}], RowBox[{"\[DifferentialD]", "t\[Ellipsis]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "\[UnderBrace]"], RowBox[{"n", "-", "times"}]], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "a", "x"], RowBox[{ RowBox[{"f", "(", "t", ")"}], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "t"}], ")"}], RowBox[{"n", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Repeated (", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]time)s integral of function ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "t", ")"}], TraditionalForm]]], " by interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"a", ",", "x"}], ")"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalP]", RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ FractionBox[ RowBox[{"f", "(", "t", ")"}], RowBox[{"t", "-", "x"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Cauchy principal value of singular integral: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalP]", RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ FractionBox[ RowBox[{"f", "(", "t", ")"}], RowBox[{"t", "-", "x"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", RowBox[{"(", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "a", RowBox[{"x", "-", "\[Epsilon]"}]], RowBox[{ FractionBox[ RowBox[{"f", "(", "t", ")"}], RowBox[{"t", "-", "x"}]], RowBox[{"\[DifferentialD]", "t"}]}]}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"x", "+", "\[Epsilon]"}], "b"], RowBox[{ FractionBox[ RowBox[{"f", "(", "t", ")"}], RowBox[{"t", "-", "x"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], ")"}]}]}], "/;", RowBox[{"a", "<", "x", "<", "b"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The special contour ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " which is used in definition of Meijer G function and its numerous \ particular cases." }], "Notations_TF_SectionText"], Cell[TextData[{ "There are three possibilities for the contour ", Cell[BoxData[ FormBox[ TagBox["\[ScriptCapitalL]", (MeijerGContourL&)], TraditionalForm]], FormatType->StandardForm], ":" }], "TextComment", CellTags->"TextComment"], Cell[TextData[{ "(i) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " runs from \[Gamma]-\[ImaginaryI] \[Infinity] to \[Gamma]+\[ImaginaryI] \ \[Infinity] (where ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Im", "(", "\[Gamma]", ")"}], "=", "0"}], TraditionalForm]]], ") so that all poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ", are to the left, and all the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", to the right, of \[ScriptCapitalL]. \nThis contour can be a straight \ line ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], ",", " ", RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]}], ")"}], TraditionalForm]]], " if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", RowBox[{ SubscriptBox["b", "i"], "-", SubscriptBox["a", "k"]}], ")"}], ">", RowBox[{"-", "1"}]}], TraditionalForm]]], " (then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"Re", "(", SubscriptBox["b", "i"], ")"}]}], "<", "\[Gamma]", "<", RowBox[{"1", "-", RowBox[{"Re", "(", SubscriptBox["a", "k"], ")"}]}]}], TraditionalForm]]], "). (In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "+", "q"}], "<", RowBox[{"2", RowBox[{"(", RowBox[{"m", "+", "n"}], ")"}]}]}], TraditionalForm]]], " , ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], ")"}], " ", "\[Pi]"}]}], TraditionalForm]]], ". If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "=", "0"}], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " must be real and positive and additional condition ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "\[Gamma]"}], "+", RowBox[{"Re", "(", "\[Mu]", ")"}]}], "<", "0"}], ",", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "1"}], "q"], SubscriptBox["b", "l"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}], TraditionalForm]]], ", should be added.)" }], "TextComment", CellTags->"TextComment"], Cell[TextData[{ "(ii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a left loop, starting and ending at -\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}]}], TraditionalForm]]], ", once in the positive direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"q", ">", "p"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "TextComment", CellTags->"TextComment"], Cell[TextData[{ "(iii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a right loop, starting and ending at +\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", once in the negative direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"p", ">", "q"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"p", "=", "q"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], ">", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "TextComment", CellTags->"TextComment"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Integral Transforms", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Fourier integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "t", " ", "z"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sense of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Inverse Fourier integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "t", " ", "z"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", RowBox[{"-", "z"}], ")"}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[ScriptCapitalF]", RowBox[{"{", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], "}"}]], "TraditionalForm"], "[", RowBox[{"f", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Fourier double integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[ScriptCapitalF]", RowBox[{"{", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], "}"}]], "TraditionalForm"], "[", RowBox[{"f", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{"f", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["t", "1"], SubscriptBox["z", "1"]}], "+", RowBox[{ SubscriptBox["t", "2"], SubscriptBox["z", "2"]}]}], ")"}]}]], RowBox[{"\[DifferentialD]", SubscriptBox["t", "1"]}], RowBox[{"\[DifferentialD]", SubscriptBox["t", "2"]}]}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ SubscriptBox["\[ScriptCapitalF]", RowBox[{"{", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], "}"}]], "TraditionalForm"], "[", RowBox[{"f", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptC]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Fourier cosine integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptC]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ RowBox[{"2", "/", "\[Pi]"}]], " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", RowBox[{"cos", "(", RowBox[{"t", " ", "z"}], ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptC]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptS]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Fourier sine integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptS]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ RowBox[{"2", "/", "\[Pi]"}]], " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", RowBox[{"sin", "(", RowBox[{"t", " ", "z"}], ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalF]\[ScriptS]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalH]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "x", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Hilbert integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalH]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "x", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], "\[ScriptCapitalP]", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"f", "(", "t", ")"}], RowBox[{"t", "-", "x"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], "/;", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]], " " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalH]", RowBox[{"t", ";", "\[Nu]"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Hankel integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalH]", RowBox[{"t", ",", "\[Nu]"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SqrtBox[ RowBox[{"t", " ", "z"}]], " ", RowBox[{ SubscriptBox["J", "\[Nu]"], "(", RowBox[{"t", " ", "z"}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalH]", RowBox[{"t", ",", "\[Nu]"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalL]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Laplace integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalL]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "t"}], " ", "z"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], " " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalL]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "p", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Inverse Laplace integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalL]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "p", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"t", " ", "p"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalL]", "t", RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "p", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalL]", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]], "[", RowBox[{"f", "(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}], "]"}], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Laplace double integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalL]", RowBox[{"(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}]], "[", RowBox[{"f", "(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}], "]"}], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", RowBox[{ SubscriptBox["t", "1"], ",", SubscriptBox["t", "2"]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["t", "1"]}], " ", SubscriptBox["z", "1"]}], "-", RowBox[{ SubscriptBox["t", "2"], " ", SubscriptBox["z", "2"]}]}]]}], RowBox[{"\[DifferentialD]", SubscriptBox["t", "1"]}], RowBox[{"\[DifferentialD]", SubscriptBox["t", "2"]}]}]}]}]}], TraditionalForm]]], " " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalM]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Mellin integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalM]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", SuperscriptBox["t", RowBox[{"z", "-", "1"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalM]", "t"], "[", RowBox[{"f", "(", "t", ")"}], "]"}], RowBox[{"(", "z", ")"}]}], TraditionalForm]]], " is defined in the sence of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalM]", RowBox[{"s", ",", "\[Gamma]"}], RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "s", ")"}], "]"}], RowBox[{"(", "t", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Inverse Mellin integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalM]", RowBox[{"s", ",", "\[Gamma]"}], RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "s", ")"}], "]"}], RowBox[{"(", "t", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]], RowBox[{ RowBox[{"f", "(", "s", ")"}], " ", SuperscriptBox["t", RowBox[{"-", "s"}]], RowBox[{"\[DifferentialD]", "s"}]}]}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalM]", RowBox[{"s", ",", "\[Gamma]"}], RowBox[{"-", "1"}]], "[", RowBox[{"f", "(", "s", ")"}], "]"}], RowBox[{"(", "t", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]], RowBox[{ RowBox[{"f", "(", "s", ")"}], " ", SuperscriptBox["t", RowBox[{"-", "s"}]], RowBox[{"\[DifferentialD]", "s"}]}]}]}]}], TraditionalForm]]], " is defined in the sence of generalized functions). The condition on ", Cell[BoxData[ FormBox["\[Gamma]", TraditionalForm]]], " is typically indicated in the result." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalW]", "y"], "[", RowBox[{ SubscriptBox["\[Psi]", "k"], "(", "y", ")"}], "]"}], RowBox[{"(", RowBox[{"x", ",", "p"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Wigner integral transform: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalW]", "y"], "[", RowBox[{ SubscriptBox["\[Psi]", "k"], "(", "y", ")"}], "]"}], RowBox[{"(", RowBox[{"x", ",", "p"}], ")"}]}], "\[Equal]", " ", RowBox[{ UnderoverscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SuperscriptBox["e", RowBox[{ RowBox[{"-", "i"}], " ", "y", " ", "p"}]], RowBox[{ SubscriptBox[ StyleBox[ OverscriptBox["\[Psi]", "_"], SpanMaxSize->0.6], "k"], "(", RowBox[{"x", "-", FractionBox["y", "2"]}], ")"}], RowBox[{ SubscriptBox["\[Psi]", "k"], "(", RowBox[{"x", "+", FractionBox["y", "2"]}], ")"}], "d", "\[InvisibleSpace]", "y"}]}]}], TraditionalForm]]], " (if this integral does not converge the value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[ScriptCapitalW]", "y"], "[", RowBox[{ SubscriptBox["\[Psi]", "k"], "(", "y", ")"}], "]"}], RowBox[{"(", RowBox[{"x", ",", "p"}], ")"}]}], TraditionalForm]]], " is defined in the sense of generalized functions)" }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Limits", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", "a"}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " in any direction: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", "a"}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[Delta]", ",", RowBox[{"\[Delta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"z", "-", "a"}], "\[RightBracketingBar]"}], "<", "\[Delta]"}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "+", "0"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", SuperscriptBox["a", "+"]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " in direction -1: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "+", "0"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", SuperscriptBox["a", "+"]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[Delta]", ",", RowBox[{"\[Delta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{ RowBox[{"z", "-", "a"}], "<", "\[Delta]"}], "\[And]", RowBox[{"z", ">", "a"}]}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "-", "0"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", SuperscriptBox["a", "-"]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]], FormatType->StandardForm], " approaches ", Cell[BoxData[ FormBox["a", TraditionalForm]], FormatType->StandardForm], " in direction 1: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "-", "0"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", SuperscriptBox["a", "-"]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[Delta]", ",", RowBox[{"\[Delta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{ RowBox[{"a", "-", "z"}], "<", "\[Delta]"}], "\[And]", RowBox[{"z", "<", "a"}]}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]], FormatType->StandardForm], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "0"}]}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " in direction -\[ImaginaryI]: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "0"}]}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[Delta]", ",", RowBox[{"\[Delta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"z", "-", "a"}], "\[RightBracketingBar]"}], "<", "\[Delta]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], RowBox[{"(", RowBox[{"z", "-", "a"}], ")"}]}], ">", "0"}]}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "-", RowBox[{"\[ImaginaryI]", " ", "0"}]}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " in direction \[ImaginaryI]: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"a", "-", RowBox[{"\[ImaginaryI]", " ", "0"}]}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[Delta]", ",", RowBox[{"\[Delta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"z", "-", "a"}], "\[RightBracketingBar]"}], "<", "\[Delta]"}], "\[And]", RowBox[{ RowBox[{"\[ImaginaryI]", "(", RowBox[{"z", "-", "a"}], ")"}], ">", "0"}]}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["\[Infinity]", TraditionalForm]]], " : ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[CapitalDelta]", ",", RowBox[{"\[CapitalDelta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{"z", ">", "\[CapitalDelta]"}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"-", "\[Infinity]"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox[ RowBox[{"-", "\[Infinity]"}], TraditionalForm]]], " : ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", RowBox[{"-", "\[Infinity]"}]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[CapitalDelta]", ",", RowBox[{"\[CapitalDelta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{"z", "<", RowBox[{"-", "\[CapitalDelta]"}]}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"]}]], "\[ThinSpace]", RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The limiting value of ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " when ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox[ StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"], TraditionalForm]]], " : ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"z", "\[Rule]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}]], "\[ThinSpace]", RowBox[{"f", "(", "z", ")"}]}], "\[Equal]", "F"}], ")"}], "\[Equal]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"\[Epsilon]", ",", RowBox[{"\[Epsilon]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Exists]", RowBox[{"\[CapitalDelta]", ",", RowBox[{"\[CapitalDelta]", ">", "0"}]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{"z", ",", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], ">", "\[CapitalDelta]"}]}]], RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ RowBox[{"f", "(", "z", ")"}], "-", "F"}], "\[RightBracketingBar]"}], "<", "\[Epsilon]"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Continued Fractions", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[CapitalKappa]", RowBox[{"k", "=", "m"}], "n"], " ", FractionBox[ SubscriptBox["a", "k"], SubscriptBox["b", "k"]]}], " ", "\[Equal]", StyleBox[ FractionBox[ SubscriptBox["a", "m"], StyleBox[ RowBox[{ SubscriptBox["b", "m"], "+", FractionBox[ SubscriptBox["a", RowBox[{"m", "+", "1"}]], StyleBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", FractionBox[ SubscriptBox["a", RowBox[{"m", "+", "2"}]], StyleBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "2"}]], "+", FractionBox[ SubscriptBox["a", RowBox[{"m", "+", "3"}]], RowBox[{ RowBox[{ StyleBox["\[DescendingEllipsis]", ScriptLevel->0], StyleBox[" ", ScriptLevel->0], SubscriptBox[ StyleBox["b", ScriptLevel->0], RowBox[{"n", "-", "1"}]]}], "+", SubscriptBox[ StyleBox["a", ScriptLevel->0], "n"]}]]}], ScriptLevel->0]]}], ScriptLevel->0]]}], ScriptLevel->0]], ScriptLevel->0, GridBoxOptions->{RowSpacings->0}]}], TraditionalForm]]]], "Subsection3"], Cell["gives a finite continued fraction.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[CapitalKappa]", RowBox[{"k", "=", "1"}], "\[Infinity]"], " ", FractionBox[ SubscriptBox["a", "k"], SubscriptBox["b", "k"]], " "}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Limit of finite continued fraction ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ FormBox[ RowBox[{ UnderscriptBox["lim", RowBox[{"n", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{ UnderoverscriptBox["\[CapitalKappa]", RowBox[{"k", "=", "1"}], "n"], " ", FractionBox[ SubscriptBox["a", "k"], SubscriptBox["b", "k"]]}]}], "TraditionalForm"], "=", FractionBox[ SubscriptBox["a", "1"], RowBox[{ SubscriptBox["b", "1"], "+", FractionBox[ SubscriptBox["a", "2"], RowBox[{ SubscriptBox["b", "2"], "+", FractionBox[ SubscriptBox["a", "3"], RowBox[{ SubscriptBox["b", "3"], "+", FractionBox[ SubscriptBox["a", "4"], "\[DescendingEllipsis]"]}]]}]]}]]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matrices and Determinants", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["a", RowBox[{"j", ",", "k"}]], ")"}], GridBox[{ { RowBox[{"0", "\[LessEqual]", "j", "\[LessEqual]", "n"}]}, { RowBox[{"0", "\[LessEqual]", "k", "\[LessEqual]", "n"}]} }]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Times]", "n"}], TraditionalForm]]], " matrix with elements ", Cell[BoxData[ FormBox[ SubscriptBox["a", RowBox[{"j", ",", "k"}]], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ TagBox[ RowBox[{"\[LeftBracketingBar]", SubscriptBox[ RowBox[{"(", SubscriptBox["a", RowBox[{"j", ",", "k"}]], ")"}], GridBox[{ { RowBox[{"0", "\[LessEqual]", "j", "\[LessEqual]", "n"}]}, { RowBox[{"0", "\[LessEqual]", "k", "\[LessEqual]", "n"}]} }]], "\[RightBracketingBar]"}], {Det}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The determinant of the ", Cell[BoxData[ FormBox[ RowBox[{"n", "\[Times]", "n"}], TraditionalForm]]], " matrix with elements ", Cell[BoxData[ FormBox[ SubscriptBox["a", RowBox[{"j", ",", "k"}]], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Symbols", "Section"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SqrtBox["z"], "\[Equal]", SuperscriptBox["z", RowBox[{"1", "/", "2"}]]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Sqrt root: ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SqrtBox["z"], ")"}], "2"], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The absolute value of the real or complex number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ".\n ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", RowBox[{ StyleBox["{", AutoStyleOptions->{"UnmatchedBracketStyle"->None}, SpanMinSize->3.4], StyleBox["\[MediumSpace]", AutoStyleOptions->{"UnmatchedBracketStyle"->None}], StyleBox[GridBox[{ { RowBox[{"z", "/;"}], RowBox[{"z", "\[GreaterEqual]", "0"}]}, { RowBox[{ RowBox[{"-", "z"}], "/;"}], RowBox[{"z", "<", "0"}]} }], AutoStyleOptions->{"UnmatchedBracketStyle"->None}]}]}], TraditionalForm]]], " for real ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"Re", "(", "z", ")"}], "2"], "+", SuperscriptBox[ RowBox[{"Im", "(", "z", ")"}], "2"]}]]}], TraditionalForm]]], " for complex ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ OverscriptBox["z", "_"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Complex conjugate of the number ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", ":", " ", FormBox[ RowBox[{ OverscriptBox["z", "_"], "\[Equal]", RowBox[{ RowBox[{"Re", RowBox[{"(", "z", ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Im", RowBox[{"(", "z", ")"}]}]}]}]}], "TraditionalForm"]}], ",", FormBox[ RowBox[{ RowBox[{ OverscriptBox["x", "_"], "\[Equal]", "x"}], "/;", RowBox[{ RowBox[{"Im", RowBox[{"(", "x", ")"}]}], "\[Equal]", "0"}]}], "TraditionalForm"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"n", "!"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Factorial of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"n", "!"}], "\[Equal]", RowBox[{"\[CapitalGamma]", "(", RowBox[{"n", "+", "1"}], ")"}]}], ",", RowBox[{ RowBox[{"0", "!"}], "\[Equal]", "1"}], ",", " ", RowBox[{ RowBox[{"1", "!"}], "\[Equal]", "1"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"n", "!"}], "\[Equal]", RowBox[{"1", " ", "2", " ", "3", " ", RowBox[{"\[Ellipsis]", "(", RowBox[{"n", "-", "1"}], ")"}], " ", "n"}]}], "/;", RowBox[{"n", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"n", "!!"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Double factorial of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"n", "!!"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["n", "2"], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"cos", "(", RowBox[{"n", " ", "\[Pi]"}], ")"}]}], "+", FractionBox["1", "4"]}]], " ", SuperscriptBox["\[Pi]", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"cos", "(", RowBox[{"n", " ", "\[Pi]"}], ")"}]}], "-", FractionBox["1", "4"]}]], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{ FractionBox["n", "2"], "+", "1"}], ")"}]}]}], ",", " ", RowBox[{ RowBox[{"-", RowBox[{"1", "!!"}]}], "\[Equal]", "1"}], ",", " ", RowBox[{ RowBox[{"0", "!!"}], "\[Equal]", "1"}], ",", " ", RowBox[{ RowBox[{"1", "!!"}], "\[Equal]", "1"}], ",", " ", RowBox[{ RowBox[{"2", "!!"}], "\[Equal]", "2"}], ",", " ", RowBox[{ RowBox[{"3", "!!"}], "\[Equal]", "3"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "!!"}], "\[Equal]", RowBox[{"2", " ", "4", " ", RowBox[{"\[Ellipsis]", "(", RowBox[{ RowBox[{"2", "k"}], "-", "2"}], ")"}], " ", "2", "k"}]}], "/;", RowBox[{"k", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}], "!!"}], "\[Equal]", RowBox[{"1", " ", "3", " ", RowBox[{"\[Ellipsis]", "(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}]}]}], "/;", RowBox[{"k", "\[Element]", RowBox[{ SuperscriptBox["\[DoubleStruckCapitalN]", "+"], "."}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", GridBox[{ {"n"}, {"k"} }], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Binomial coefficient: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"n"}, {"0"} }], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"(", GridBox[{ {"n"}, {"1"} }], ")"}], "\[Equal]", "n"}], ",", RowBox[{ RowBox[{"(", GridBox[{ {"n"}, {"k"} }], ")"}], "\[Equal]", RowBox[{"(", GridBox[{ {"n"}, { RowBox[{"n", "-", "k"}]} }], ")"}], "\[Equal]", FractionBox[ RowBox[{"n", "!"}], RowBox[{ RowBox[{"k", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}], "!"}]}]], "\[Equal]", FractionBox[ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}]}], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"n", "-", "k", "+", "1"}], ")"}]}]}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"n", ";", SubscriptBox["n", "1"]}], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "m"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Multinomial coefficient: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", ";", SubscriptBox["n", "1"]}], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "m"]}], ")"}], "\[Equal]", FractionBox[ RowBox[{"n", "!"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ SubscriptBox["n", "k"], "!"}]}]]}], "/;", RowBox[{"n", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], SubscriptBox["n", "k"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"(", "a", ")"}], "n"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Pochhammer symbol representing the product: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "0"], "\[Equal]", "0"}], ",", RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "1"], "\[Equal]", "a"}], ",", RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "2"], "\[Equal]", RowBox[{"a", " ", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}]}]}], ",", RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "n"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", "+", "n"}], ")"}], RowBox[{"\[CapitalGamma]", "(", "a", ")"}]], "\[Equal]", RowBox[{ RowBox[{"a", "(", RowBox[{"a", "+", "1"}], ")"}], RowBox[{"(", RowBox[{"a", "+", "2"}], ")"}], RowBox[{"\[Ellipsis]", "(", RowBox[{"a", "+", "n", "-", "1"}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SuperscriptBox["z", "a"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Power function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["z", "0"], "\[Equal]", "1"}], "/;", RowBox[{"z", "\[NotEqual]", "0"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["z", "k"], "\[Equal]", UnderscriptBox[ RowBox[{ "z", "\[Times]", "z", "\[Times]", "\[Ellipsis]", "\[Times]", "z"}], UnderscriptBox["\[UnderBrace]", "k\[Dash]times"]], "\[Equal]", RowBox[{"z", " ", SuperscriptBox["z", RowBox[{"k", "-", "1"}]]}]}], "/;", RowBox[{"k", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubsuperscriptBox[ RowBox[{"(", RowBox[{"z", ";", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "n"], RowBox[{ SubscriptBox["a", "j"], SuperscriptBox["z", "j"]}]}]}], ")"}], "k", RowBox[{"-", "1"}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["k", TraditionalForm]]], "th root ", Cell[BoxData[ FormBox[ SubscriptBox["z", "k"], TraditionalForm]]], " of algebraic equation ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "n"], RowBox[{ SubscriptBox["a", "j"], SuperscriptBox["z", "j"]}]}], "\[Equal]", "0"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "n"], RowBox[{ SubscriptBox["a", "j"], SuperscriptBox["z", "j"]}]}], "\[Equal]", "0"}], "/;", RowBox[{"z", "\[Equal]", SubscriptBox["z", "k"], "\[Equal]", SubsuperscriptBox[ RowBox[{"(", RowBox[{"z", ";", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "n"], RowBox[{ SubscriptBox["a", "j"], SuperscriptBox["z", "j"]}]}]}], ")"}], "k", RowBox[{"-", "1"}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox["\[Infinity]", "Traditional"], TraditionalForm]]]], "Subsection3"], Cell["Positive infinity symbol.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional"], TraditionalForm]]]], "Subsection3"], Cell["\<\ Symbolic value of complex number when its abcolute value tends to \ infinity.\ \>", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", " ", "\[Infinity]"}], "Traditional"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Symbolic value of complex number when its abcolute value tends to infinity \ and its argument coincides with ", Cell[BoxData[ FormBox[ RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Arg", "(", RowBox[{"z", " ", "\[Infinity]"}], ")"}], "\[Equal]", RowBox[{ RowBox[{"Arg", "(", "z", ")"}], "."}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox["\[DownQuestion]", "Traditional"], TraditionalForm]]]], "Subsection3"], Cell["Indeterminate value symbol.", "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[Degree]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "One degree ", Cell[BoxData[ FormBox["\[Degree]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"1", " ", "\[Degree]"}], "\[Equal]", FractionBox["\[Pi]", "180"]}], "\[Tilde]", RowBox[{"0.01745329", "\[Ellipsis]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[LeftFloor]", "z", "\[RightFloor]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The greatest integer less than or equal to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[LeftFloor]", "x", "\[RightFloor]"}], "\[Equal]", "n"}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", " ", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", RowBox[{"n", "\[LessEqual]", "x", "<", RowBox[{"n", "+", "1"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[LeftCeiling]", "z", "\[RightCeiling]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The smallest integer greater than or equal to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[LeftCeiling]", "x", "\[RightCeiling]"}], "\[Equal]", "n"}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"n", "-", "1"}], "<", "x"}], "\[LessEqual]", "n"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{"\[LeftFloor]", "z"}], "\[RightCeiling]"}], "Traditional"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The integer closest to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"\[LeftFloor]", "x"}], "\[RightCeiling]"}], "Traditional"], StyleBox[" ", "TraditionalForm"], "\[Equal]", "n"}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", " ", " ", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"x", "-", "n"}], "\[RightBracketingBar]"}], "<", FractionBox["1", "2"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"m", " ", "mod", " ", "n"}], Mod[ m, n]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The congruence (mod): the remainder on division of ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " by ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox[ RowBox[{"m", " ", "mod", " ", "n"}], Mod[ FE`Conversion`Private`m, FE`Conversion`Private`n]], "\[Equal]", RowBox[{"m", "-", RowBox[{"n", " ", RowBox[{"\[LeftFloor]", FractionBox["m", "n"], "\[RightFloor]"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{ RowBox[{ SubscriptBox["j", "1"], "\[MediumSpace]", SubscriptBox["j", "2"], "\[MediumSpace]", SubscriptBox["m", "1"], "\[MediumSpace]", SubscriptBox["m", "2"]}], "\[MediumSpace]", "\[VerticalSeparator]", "\[MediumSpace]", RowBox[{ SubscriptBox["j", "1"], "\[MediumSpace]", SubscriptBox["j", "2"], "\[MediumSpace]", "j", "\[MediumSpace]", "m"}]}], "\[RightAngleBracket]"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", "Clebsch\[Hyphen]Gordan", " coefficient for the decomposition of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"|", "j"}], ",", " ", RowBox[{"m", ">"}]}], TraditionalForm]]], " in terms of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"|", "j1"}], ",", " ", RowBox[{ RowBox[{"m1", ">"}], " ", "|", "j2"}], ",", " ", RowBox[{"m2", ">"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", "\[MediumSpace]", GridBox[{ { SubscriptBox["j", "1"], SubscriptBox["j", "2"], SubscriptBox["j", "3"]}, { SubscriptBox["m", "1"], SubscriptBox["m", "2"], SubscriptBox["m", "3"]} }], "\[MediumSpace]", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The value of the Wigner ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"3", "j"}], ZeroWidthTimes->True], TraditionalForm]]], "\[Hyphen]symbol", "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", "\[MediumSpace]", GridBox[{ { SubscriptBox["j", "1"], SubscriptBox["j", "2"], SubscriptBox["j", "3"]}, { SubscriptBox["j", "4"], SubscriptBox["j", "5"], SubscriptBox["j", "6"]} }], "\[MediumSpace]", "}"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The value of the Racah ", Cell[BoxData[ FormBox[ RowBox[{"6", StyleBox["j", ZeroWidthTimes->True]}], TraditionalForm]]], "\[Hyphen]symbol", "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", "1", ")"}]], RowBox[{"(", "n", ")"}]}], ",", RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", "2", ")"}]], RowBox[{"(", "n", ")"}]}], ",", "\[Ellipsis]", ",", RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", RowBox[{"b", "-", "1"}], ")"}]], RowBox[{"(", "n", ")"}]}], ",", RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", "0", ")"}]], RowBox[{"(", "n", ")"}]}]}], "}"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The list of the numbers of ", Cell[BoxData[ FormBox[ RowBox[{"1", ",", " ", "2", ",", " ", "\[Ellipsis]", ",", " ", RowBox[{"b", "-", "1"}], ",", " ", "0"}], TraditionalForm]]], " digits in the base b representation of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ". (", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", "k", ")"}]], "(", StyleBox["n", "TraditionalForm", FontFamily->"Times"], StyleBox[")", "TraditionalForm", FontFamily->"Times"]}], TraditionalForm]], CellFrame->False, CellMargins->{{Inherited, Inherited}, {Inherited, -2}}, Evaluatable->False, PageBreakWithin->False], " is the number of times the digit ", Cell[BoxData[ FormBox["k", TraditionalForm]]], " appears in the base ", Cell[BoxData[ FormBox["b", TraditionalForm]]], " representation of the integer ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "): ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["s", "2", RowBox[{"(", "1", ")"}]], "(", "n", ")"}], "\[Equal]", RowBox[{"n", "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"\[LeftFloor]", FractionBox["n", SuperscriptBox["2", "k"]], "\[RightFloor]"}], " "}]}]}], TraditionalForm]], CellMargins->{{Inherited, Inherited}, {0, -2}}, Evaluatable->False, PageBreakWithin->False], ".\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["s", "b", RowBox[{"(", "k", ")"}]], "(", StyleBox["n", "TraditionalForm", FontFamily->"Times"], StyleBox[")", "TraditionalForm", FontFamily->"Times"]}], " ", "is", " ", "the", " ", "number", " ", "of", " ", "times", " ", "the", " ", "digit", " ", "k", " ", "appears", " ", "in", " ", "the", " ", "base", " ", "b", " ", "representation", " ", "of", " ", "the", " ", "integer", " ", RowBox[{ FormBox["n", "TraditionalForm"], "."}]}], TraditionalForm]], CellFrame->False, CellMargins->{{Inherited, Inherited}, {Inherited, -2}}, Evaluatable->False, PageBreakWithin->False] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"(", FractionBox["n", "m"], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Jacobi symbol, an integer function of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["m", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["n", "m"], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "j"], RowBox[{"(", FractionBox["n", SubscriptBox["p", "k"]], ")"}]}]}], "/;", RowBox[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"m", "-", "1"}], "2"], "\[Element]", "\[DoubleStruckCapitalN]"}], "\[And]", "m"}], "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "j"], SubscriptBox["p", "k"]}], "\[And]", RowBox[{ SubscriptBox["p", "k"], "\[Element]", "\[DoubleStruckCapitalP]"}]}]}], "TraditionalForm"], "\[And]", RowBox[{ RowBox[{"(", FractionBox["n", "p"], ")"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["\[Delta]", RowBox[{ RowBox[{ FractionBox["n", "p"], "-", RowBox[{"\[LeftFloor]", FractionBox["n", "p"], "\[RightFloor]"}]}], ",", " ", "0"}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"sgn", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["\[Delta]", RowBox[{ RowBox[{ SuperscriptBox["j", "2"], " ", "mod", " ", "p"}], ",", " ", RowBox[{"n", " ", "mod", " ", "p"}]}]]}], ")"}]}]}], "-", "1"}], ")"}]}]}]}]}], "/;", RowBox[{"p", "\[Element]", RowBox[{"\[DoubleStruckCapitalP]", "."}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Functions in Alphabetical Order", "Section"], Cell[CellGroupData[{ Cell["A", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["a", MathieuCharacteristicA], "r"], "(", "q", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The characteristic value ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " for even Mathieu functions ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Ce", "r"], "(", RowBox[{"z", ";", "q"}], ")"}], TraditionalForm]]], " with characteristic exponent ", Cell[BoxData[ FormBox["r", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["ce", "r"], "(", RowBox[{"z", ";", "q"}], ")"}], TraditionalForm]]], " has the form ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SuperscriptBox["e", RowBox[{"i", "r", "z"}]], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], "TraditionalForm"], " "}], TraditionalForm]]], "where ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " is an even function of ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " with period ", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["agm", ArithmeticGeometricMean], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The arithmetic\[Hyphen]geometric mean of ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["b", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"agm", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}]}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"K", "(", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"a", "-", "b"}], RowBox[{"a", "+", "b"}]], ")"}], "2"], ")"}]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Ai", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Airy function Ai: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Ai", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["2", "3"], ")"}]}]}]], "\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["2", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}], "-", RowBox[{ FractionBox[ RowBox[{"z", " "}], RowBox[{ RadicalBox["3", "3"], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["1", "3"], ")"}]}]}]], RowBox[{"\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["4", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["Ai", "\[Prime]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative of the Airy function Ai: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["Ai", "\[Prime]"], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", "2"], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["2", "3"], ")"}]}]}]], " ", RowBox[{"\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["5", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", RowBox[{ RadicalBox["3", "3"], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["1", "3"], ")"}]}]}]], RowBox[{"\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["1", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"am", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Jacobi amplitude function with module ", Cell[BoxData[ FormBox["m", TraditionalForm]]], ". The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " for which the elliptic integral of the first kind ", Cell[BoxData[ FormBox[ RowBox[{"F", "(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]], " has the value ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ":", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"am", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"2", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], " ", RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"tanh", "(", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " "}], "2"], FractionBox[ RowBox[{"K", "(", "m", ")"}], RowBox[{"K", "(", RowBox[{"1", "-", "m"}], ")"}]], " ", RowBox[{"(", RowBox[{"k", "+", FractionBox["z", RowBox[{"2", " ", RowBox[{"K", "(", "m", ")"}]}]]}], ")"}]}], ")"}], ")"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Arg", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The argument of the complex number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " (where ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Arg", "(", "z", ")"}]}]]}]}], TraditionalForm]]], "): ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Arg", "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"log", "(", FractionBox["z", RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}]], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["B", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["b", MathieuCharacteristicB], "r"], "(", "q", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The characteristic value ", Cell[BoxData[ FormBox["b", TraditionalForm]]], " for odd Mathieu functions ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Se", "r"], "(", RowBox[{"z", ";", "q"}], ")"}], TraditionalForm]]], " with characteristic exponent ", Cell[BoxData[ FormBox["r", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["se", "r"], "(", RowBox[{"z", ";", "q"}], ")"}], TraditionalForm]]], " has the form ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SuperscriptBox["e", RowBox[{"i", "r", "z"}]], RowBox[{"f", RowBox[{"(", "z", ")"}]}]}], "TraditionalForm"], " "}], TraditionalForm]]], "where ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " is an even function of ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " with period ", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox["B", "n"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]th Bernoulli number: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["B", "n"], "\[Equal]", RowBox[{ RowBox[{"n", "!"}], " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], " ", "]"}], FractionBox["t", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], "-", "1"}]]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["B", "n"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]th Bernoulli polynomial in ", Cell[BoxData[ FormBox[Cell["z"], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["B", "n"], "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{"n", "!"}], " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], " ", "]"}], " ", FractionBox[ RowBox[{"t", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"z", " ", "t"}]]}], RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], "-", "1"}]]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Bi", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Airy function Bi: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Bi", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RadicalBox["3", "6"], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["2", "3"], ")"}]}]}]], RowBox[{"\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["2", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}], "+", RowBox[{ FractionBox[ RowBox[{ RadicalBox["3", "6"], " ", "z"}], RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["1", "3"], ")"}]}]], " ", RowBox[{"\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["4", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["Bi", "\[Prime]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative of the Airy function Bi: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["Bi", "\[Prime]"], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox["z", "2"]}], RowBox[{"2", " ", RadicalBox["3", "6"], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["2", "3"], ")"}]}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["5", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RadicalBox["3", "6"], " "}], RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["1", "3"], ")"}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "0"], SubscriptBox["F", "1"]}], "(", RowBox[{";", FractionBox["1", "3"], ";", FractionBox[ SuperscriptBox["z", "3"], "9"]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["C", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["C", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Catalan constant ", Cell[BoxData[ FormBox["C", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"C", "\[TildeTilde]", StyleBox[ RowBox[{"0.9159655", "\[Ellipsis]"}], ZeroWidthTimes->True]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"C", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Fresnel integral C: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"C", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ RowBox[{"cos", RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["t", "2"]}], "2"], ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["C", "n"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The cyclotomic polynomial of order ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["C", "n"], "(", "z", ")"}], "\[Equal]", " ", StyleBox[ RowBox[{ UnderoverscriptBox["\[Product]", UnderscriptBox[ UnderscriptBox[ UnderscriptBox[ RowBox[{"k", "=", "1"}], RowBox[{ RowBox[{"gcd", RowBox[{"(", RowBox[{"k", ",", "n"}], ")"}]}], "=", "1"}]], "\t"], " "], "n"], RowBox[{"(", RowBox[{"z", "-", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"k", "/", "n"}]}]]}], ")"}]}], UnderoverscriptBoxOptions->{LimitsPositioning->False}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["C", "\[Nu]", RowBox[{"(", "0", ")"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "T", "he renormalized form of ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Gegenbauer function in ", Cell[BoxData[ FormBox["z", TraditionalForm]], FormatType->StandardForm], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox[ TagBox["C", Cyclotomic], "\[Nu]", RowBox[{"(", "0", ")"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Nu]"], RowBox[{ SubscriptBox["T", "\[Nu]"], "(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox["2", "\[Nu]"], RowBox[{"cos", "(", RowBox[{"\[Nu]", " ", RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}]}], ")"}]}]}], TraditionalForm]], FormatType->StandardForm], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], ", the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["C", "\[Nu]", RowBox[{"(", "0", ")"}]], "(", "z", ")"}], TraditionalForm]]], " is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["C", "\[Nu]", "\[Lambda]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "T", "he ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Gegenbauer function in ", Cell[BoxData[ FormBox["z", TraditionalForm]], FormatType->StandardForm], " for parameter ", Cell[BoxData[ FormBox["\[Lambda]", TraditionalForm]], FormatType->StandardForm], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["C", "\[Nu]", "\[Lambda]"], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", RowBox[{"2", " ", "\[Lambda]"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", RowBox[{"2", " ", "\[Lambda]"}]}], ")"}]}], RowBox[{ RowBox[{"\[Nu]", "!"}], " ", RowBox[{"\[CapitalGamma]", "(", "\[Lambda]", ")"}]}]], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"-", "\[Nu]"}], Hypergeometric2F1Regularized, Editable->True], ",", TagBox[ RowBox[{"\[Nu]", "+", RowBox[{"2", " ", "\[Lambda]"}]}], Hypergeometric2F1Regularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{"\[Lambda]", "+", FractionBox["1", "2"]}], Hypergeometric2F1Regularized, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ FractionBox[ RowBox[{"1", "-", "z"}], "2"], Hypergeometric2F1Regularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], Hypergeometric2F1Regularized]}]}], TraditionalForm]], FormatType->StandardForm], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], ", the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["C", "\[Nu]", "\[Lambda]"], "(", "z", ")"}], TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function cd: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"dc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cd", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function cd. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " for which the Jacobi elliptic function cd, such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"cd", "(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["cd", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "1"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["t", "2"]}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", SuperscriptBox["t", "2"]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "<", "z", "<", "1"}], "\[And]", RowBox[{"m", "<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Ce", "(", RowBox[{"a", ",", "q", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The even Mathieu function with characteristic value ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Ce", "z"], "(", RowBox[{"a", ",", "q", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the even Mathieu function with characteristic value ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Ce", "z"], RowBox[{"(", RowBox[{"a", ",", "q", ",", "z"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"\[PartialD]", RowBox[{"Ce", RowBox[{"(", RowBox[{"a", ",", "q", ",", "z"}], ")"}]}]}], " "}], RowBox[{"\[PartialD]", "z"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Chi", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic cosine integral function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Chi", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"cosh", RowBox[{"(", "t", ")"}]}], "-", "1"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}], "+", RowBox[{"log", RowBox[{"(", "z", ")"}]}], "+", "\[DoubledGamma]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Ci", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The cosine integral function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Ci", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"cos", RowBox[{"(", "t", ")"}]}], "-", "1"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}], "+", RowBox[{"log", RowBox[{"(", "z", ")"}]}], "+", "\[DoubledGamma]"}]}], TraditionalForm]]], "\[Equal]", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"cos", "(", "t", ")"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", "\[Pi]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function cn: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"cos", "(", RowBox[{"am", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function cn. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"cn", "(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["cn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "1"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["t", "2"]}]], " ", SqrtBox[ RowBox[{ RowBox[{"m", " ", SuperscriptBox["t", "2"]}], "-", "m", "+", "1"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "<", "z", "<", "1"}], "\[And]", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ SuperscriptBox["z", "2"], "-", "1"}], ")"}]}], ">", RowBox[{"-", "1"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cos", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The cosine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cos", "(", "z", ")"}], "\[Equal]", " ", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{" ", RowBox[{"\[ImaginaryI]", " ", "z"}]}]], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", " ", "\[ImaginaryI]"}], " ", "z"}]]}], RowBox[{"2", " "}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse cosine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["\[Pi]", "2"], "-", RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cosh", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic cosine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cosh", "(", "z", ")"}], "\[Equal]", " ", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]]}], RowBox[{"2", " "}]], "\[Equal]", RowBox[{"cos", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cosh", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic cosine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["cosh", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{"log", "(", RowBox[{"z", "+", RowBox[{ SqrtBox[ RowBox[{"z", "-", "1"}]], " ", SqrtBox[ RowBox[{"z", "+", "1"}]]}]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox[ RowBox[{"z", "-", "1"}]], SqrtBox[ RowBox[{"1", "-", "z"}]]], RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cot", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The cotangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cot", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"cos", "(", "z", ")"}], RowBox[{"sin", "(", "z", ")"}]], "\[Equal]", " ", FractionBox["1", RowBox[{"tan", "(", "z", ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cot", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse cotangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["cot", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"coth", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic cotangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"coth", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"cosh", "(", "z", ")"}], RowBox[{"sinh", "(", "z", ")"}]], "\[Equal]", " ", FractionBox["1", RowBox[{"tanh", "(", "z", ")"}]], "\[Equal]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"cot", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["coth", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic cotangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["coth", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["tanh", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}], "\[Equal]", RowBox[{ RowBox[{"\[ImaginaryI]", " "}], RowBox[{ SuperscriptBox["cot", RowBox[{"-", "1"}]], "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"cs", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function cs: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"cs", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"sc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["cs", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function cs. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"cs", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["cs", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "+", "1"}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "m", "+", "1"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["z", "2"], "-", "m"}], ">", RowBox[{"-", "1"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"csc", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The cosecant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"csc", "(", "z", ")"}], "\[Equal]", FractionBox["1", RowBox[{"sin", "(", "z", ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["csc", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse cosecant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["csc", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"csch", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic cosecant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"csch", "(", "z", ")"}], "\[Equal]", " ", FractionBox["1", RowBox[{"sinh", "(", "z", ")"}]], "\[Equal]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"csc", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["csch", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic cosecant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["csch", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["sinh", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}], "\[Equal]", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SuperscriptBox["csc", RowBox[{"-", "1"}]], "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["D", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"dc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function dc: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"dc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"cd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["dc", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function dc. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"dc", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["dc", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "1"}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "m"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ SuperscriptBox["z", "2"], ">", "1"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["z", "2"], "-", "m"}], ">", "0"}], "\[And]", RowBox[{"m", "<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"divisors", "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The divisors divide ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function dn: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", RowBox[{"am", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], ")"}]}]}]]}], "/;", RowBox[{"m", "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["dn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function dn. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"dn", "(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["dn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "1"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["t", "2"]}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "+", "m", "-", "1"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "<", "z", "<", "1"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["z", "2"], "+", "m"}], ">", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"ds", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function ds: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"ds", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"sd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["ds", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function ds. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"ds", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["ds", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "+", "m"}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "+", "m", "-", "1"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["z", "2"], "+", "m"}], ">", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["d", RowBox[{"M", ",", SuperscriptBox["M", "\[Prime]"]}], "J"], "(", "\[Beta]", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Wigner ", Cell[BoxData[ FormBox["d", TraditionalForm]]], "\[Hyphen]function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["d", RowBox[{"M", ",", SuperscriptBox["M", "\[Prime]"]}], "J"], RowBox[{"(", "\[Beta]", ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"J", "-", SuperscriptBox["M", "\[Prime]"]}]], " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"J", "+", "M"}], ")"}], "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"J", "-", "M"}], ")"}], "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"J", "+", SuperscriptBox["M", "\[Prime]"]}], ")"}], "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"J", "-", SuperscriptBox["M", "\[Prime]"]}], ")"}], "!"}]}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"max", "(", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "M"}], "-", SuperscriptBox["M", "\[Prime]"]}]}], ")"}]}], RowBox[{"min", "(", RowBox[{ RowBox[{"J", "-", "M"}], ",", RowBox[{"J", "-", SuperscriptBox["M", "\[Prime]"]}]}], ")"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["cos", RowBox[{"M", "+", SuperscriptBox["M", "\[Prime]"], "+", RowBox[{"2", " ", "k"}]}]], "(", FractionBox["\[Beta]", "2"], ")"}], " ", RowBox[{ SuperscriptBox["sin", RowBox[{ RowBox[{"2", " ", "J"}], "-", "M", "-", SuperscriptBox["M", "\[Prime]"], "-", RowBox[{"2", " ", "k"}]}]], "(", FractionBox["\[Beta]", "2"], ")"}]}], RowBox[{ RowBox[{"k", "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"J", "-", "M", "-", "k"}], ")"}], "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"J", "-", SuperscriptBox["M", "\[Prime]"], "-", "k"}], ")"}], "!"}], " ", RowBox[{ RowBox[{"(", RowBox[{"M", "+", SuperscriptBox["M", "\[Prime]"], "+", "k"}], ")"}], "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", " ", "J"}], ",", RowBox[{"2", " ", "M"}], ",", RowBox[{"2", " ", SuperscriptBox["M", "\[Prime]"]}], ",", RowBox[{"J", "-", "M"}], ",", RowBox[{"J", "-", SuperscriptBox["M", "\[Prime]"]}]}], "}"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", "M", "\[RightBracketingBar]"}], "\[LessEqual]", "J"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", SuperscriptBox["M", "\[Prime]"], "\[RightBracketingBar]"}], "\[LessEqual]", "J"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["D", RowBox[{"M", ",", SuperscriptBox["M", "\[Prime]"]}], "J"], "(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Wigner ", Cell[BoxData[ FormBox["D", TraditionalForm]]], "\[Hyphen]function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["D", RowBox[{"M", ",", SuperscriptBox["M", "\[Prime]"]}], "J"], RowBox[{"(", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"M", " ", "\[Alpha]"}], "+", RowBox[{ SuperscriptBox["M", "\[Prime]"], " ", "\[Gamma]"}]}], ")"}]}]], RowBox[{ SubsuperscriptBox["d", RowBox[{"M", ",", SuperscriptBox["M", "\[Prime]"]}], "J"], RowBox[{"(", "\[Beta]", ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_SF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["E", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[ExponentialE]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Euler exponential constant ", Cell[BoxData[ FormBox["\[ExponentialE]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"\[ExponentialE]", "\[TildeTilde]", StyleBox[ RowBox[{"2.7182818", "\[Ellipsis]"}], ZeroWidthTimes->True]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["e", "1"], ",", SubscriptBox["e", "2"], ",", SubscriptBox["e", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["e", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The values of the Weierstrass ", Cell[BoxData[ FormBox["\[WeierstrassP]", TraditionalForm]]], " function at the half\[Hyphen]periods ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["e", "1"], ",", SubscriptBox["e", "2"], ",", SubscriptBox["e", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["e", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], ")"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], ",", RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "2"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], ",", RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "3"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}]}], "}"}]}], "/;", RowBox[{ SubscriptBox["\[Omega]", "2"], "\[Equal]", RowBox[{ RowBox[{"-", SubscriptBox["\[Omega]", "1"]}], "-", SubscriptBox["\[Omega]", "3"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubsuperscriptBox["e", "1", "\[Prime]", MultilineFunction->None], ",", SubsuperscriptBox["e", "2", "\[Prime]", MultilineFunction->None], ",", SubsuperscriptBox["e", "3", "\[Prime]", MultilineFunction->None]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubsuperscriptBox["e", "1", "\[Prime]", MultilineFunction->None], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubsuperscriptBox["e", "2", "\[Prime]", MultilineFunction->None], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubsuperscriptBox["e", "3", "\[Prime]", MultilineFunction->None], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The values of the Weierstrass ", Cell[BoxData[ FormBox[ SuperscriptBox[ FormBox["\[WeierstrassP]", "TraditionalForm"], "\[Prime]"], TraditionalForm]]], " function at the half\[Hyphen]periods ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["e", "1"], ",", SubscriptBox["e", "2"], ",", SubscriptBox["e", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["e", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["e", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], ")"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[WeierstrassP]", "TraditionalForm"], "\[Prime]"], "(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SuperscriptBox[ FormBox["\[WeierstrassP]", "TraditionalForm"], "\[Prime]"], "(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "2"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SuperscriptBox[ FormBox["\[WeierstrassP]", "TraditionalForm"], "\[Prime]"], "(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "3"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "}"}]}], "/;", RowBox[{ SubscriptBox["\[Omega]", "2"], "\[Equal]", RowBox[{ RowBox[{"-", SubscriptBox["\[Omega]", "1"]}], "-", SubscriptBox["\[Omega]", "3"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"E", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The complete elliptic integral of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"E", "(", "z", ")"}], "\[Equal]", RowBox[{"E", "(", RowBox[{ FractionBox["\[Pi]", "2"], "\[VerticalSeparator]", "z"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{"z", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", RowBox[{"1", "-", "z"}], ")"}], "\[RightBracketingBar]"}], "<", "\[Pi]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"E", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The elliptic integral of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"E", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox["E", "n"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]th Euler number: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["E", "n"], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"n", "+", "1"}]], RowBox[{"n", "!"}], " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], " ", "]"}], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"t", "/", "2"}]], RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], "+", "1"}]]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["E", "n"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]th Euler polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "n"], "(", "z", ")"}], "\[Equal]", RowBox[{"2", " ", RowBox[{"n", "!"}], " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], " ", "]"}], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"z", " ", "t"}]], RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], "+", "1"}]]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["E", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The exponential integral ", Cell[BoxData[ FormBox["E", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "z"}], " ", "t"}]], SuperscriptBox["t", "\[Nu]"]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"Re", RowBox[{"(", "z", ")"}]}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"eexp", "(", RowBox[{ RowBox[{"z", ";", "a"}], ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The elliptic exponential function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"eexp", "(", RowBox[{ RowBox[{"z", ";", "a"}], ",", "b"}], ")"}], "\[Equal]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], TraditionalForm]]], ". The values ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", RowBox[{"elog", RowBox[{"(", RowBox[{"x", ",", RowBox[{"y", ";", "a"}], ",", "b"}], ")"}]}]}], "/;", " ", " ", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "-", RowBox[{"x", " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"a", " ", "x"}], "+", "b"}], ")"}]}]}], "\[Equal]", " ", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["eexp", "z", "\[Prime]"], "(", RowBox[{ RowBox[{"z", ";", "a"}], ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative of the elliptic exponential function with respect to \ ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["eexp", "z", "\[Prime]"], RowBox[{"(", RowBox[{ RowBox[{"z", ";", "a"}], ",", "b"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[PartialD]", RowBox[{"eexp", RowBox[{"(", RowBox[{ RowBox[{"z", ";", "a"}], ",", "b"}], ")"}]}]}], RowBox[{"\[PartialD]", "z"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"egcd", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The extended greatest common divisor of the integers ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"egcd", RowBox[{"(", RowBox[{"m", ",", "n"}], ")"}]}], " ", "\[Equal]", " ", RowBox[{"{", RowBox[{"g", ",", RowBox[{"{", RowBox[{"r", ",", "s"}], "}"}]}], "}"}]}], "/;", RowBox[{ RowBox[{"g", "\[Equal]", RowBox[{"gcd", RowBox[{"(", RowBox[{"m", ",", "n"}], ")"}]}]}], "\[And]", RowBox[{"g", "\[Equal]", RowBox[{ RowBox[{"m", " ", "r"}], "+", RowBox[{"n", " ", "s"}]}]}], "\[And]", RowBox[{"Re", RowBox[{"(", "m", ")"}]}]}]}], ",", " ", RowBox[{"Im", RowBox[{"(", "m", ")"}]}], ",", RowBox[{"Re", RowBox[{"(", "n", ")"}]}], ",", " ", RowBox[{ RowBox[{"Im", RowBox[{"(", "n", ")"}]}], " ", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Ei", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The exponential integral function Ei: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Ei", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], "-", "1"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"log", RowBox[{"(", "z", ")"}]}], "-", RowBox[{"log", RowBox[{"(", FractionBox["1", "z"], ")"}]}]}], ")"}]}], "+", "\[DoubledGamma]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"elog", "(", RowBox[{ SubscriptBox["z", "1"], ",", RowBox[{ SubscriptBox["z", "2"], ";", "a"}], ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized elliptic logarithm associated with the elliptic curve ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["z", "1", "3"], "+", RowBox[{"a", " ", SubsuperscriptBox["z", "1", "2"]}], "+", RowBox[{"b", " ", SubscriptBox["z", "1"]}], "-", SubsuperscriptBox["z", "2", "2"]}], "\[Equal]", "0"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"elog", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", RowBox[{ SubscriptBox["z", "2"], ";", "a"}], ",", "b"}], ")"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox[ SubsuperscriptBox["z", "2", "2"]], " "}], RowBox[{"2", " ", SubscriptBox["z", "2"]}]], " ", RowBox[{ SubsuperscriptBox["\[Integral]", "\[Infinity]", SubscriptBox["z", "1"]], RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox["t", "3"], "+", RowBox[{"a", " ", SuperscriptBox["t", "2"]}], "+", RowBox[{"b", " ", "t"}]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["z", "1", "3"], "+", RowBox[{"a", " ", SubsuperscriptBox["z", "1", "2"]}], "+", RowBox[{"b", " ", SubscriptBox["z", "1"]}], "-", SubsuperscriptBox["z", "2", "2"]}], "\[Equal]", "0"}], "\[And]", RowBox[{"a", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{"b", "\[Element]", "\[DoubleStruckCapitalR]"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"erf", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The error function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erf", "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " "}], SqrtBox["\[Pi]"]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["t", "2"]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["erf", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the error function. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erf", "(", "u", ")"}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"erf", "(", RowBox[{ SubscriptBox[ StyleBox["z", "TI"], "1"], ",", SubscriptBox[ StyleBox["z", "TI"], "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized error function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erf", "(", RowBox[{ SubscriptBox[ StyleBox["z", "TI"], "1"], ",", SubscriptBox[ StyleBox["z", "TI"], "2"]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " "}], SqrtBox["\[Pi]"]], RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox[ StyleBox["z", "TI"], "1"], SubscriptBox[ StyleBox["z", "TI"], "2"]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["t", "2"]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[Equal]", RowBox[{ RowBox[{"erf", "(", SubscriptBox[ StyleBox["z", "TI"], "2"], ")"}], "-", RowBox[{"erf", "(", SubscriptBox[ StyleBox["z", "TI"], "1"], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["erf", RowBox[{"-", "1"}]], "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the generalized error function. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erf", "(", RowBox[{ SubscriptBox["z", "1"], ",", "u"}], ")"}], "\[Equal]", SubscriptBox["z", "2"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"erfc", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The complementary error function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erfc", "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " "}], SqrtBox["\[Pi]"]], RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["t", "2"]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[Equal]", RowBox[{"1", "-", RowBox[{"erf", "(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["erfc", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the complementary error function. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erfc", "(", "u", ")"}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"erfi", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The imaginary error function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"erfi", "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " "}], SqrtBox["\[Pi]"]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ SuperscriptBox["\[ExponentialE]", SuperscriptBox["t", "2"]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[Equal]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"erf", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"exp", "(", "z", ")"}], "\[Equal]", SuperscriptBox["\[ExponentialE]", "z"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Exponential function: ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], RowBox[{"k", "!"}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["F", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"factors", "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The prime factors of the integer ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ", together with their exponents." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"frac", StyleBox["(", "Traditional"], StyleBox["z", "Traditional"], StyleBox[")", "Traditional"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The fractional part of number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ StyleBox[ RowBox[{"frac", "(", "x", ")"}], "TraditionalForm"], "\[Equal]", RowBox[{"x", "-", "n"}]}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{"0", "\[LessEqual]", RowBox[{ RowBox[{"sgn", RowBox[{"(", "x", ")"}]}], " ", RowBox[{"(", RowBox[{"x", "-", "n"}], ")"}]}], "<", "1"}], "\[And]", RowBox[{"x", "\[NotEqual]", "0"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"F", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The elliptic integral of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"F", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox["F", "\[Nu]"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Fibonacci number: ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["F", "\[Nu]"], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["\[CurlyPhi]", "\[Nu]"], "-", RowBox[{ RowBox[{"cos", RowBox[{"(", RowBox[{"\[Nu]", " ", "\[Pi]"}], ")"}]}], " ", SuperscriptBox["\[CurlyPhi]", RowBox[{"-", "\[Nu]"}]]}]}], SqrtBox["5"]]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["F", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Fibonacci polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["F", "\[Nu]"], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox["z", "2"], "+", "4"}]]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["2", RowBox[{"-", "\[Nu]"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "+", SqrtBox[ RowBox[{ SuperscriptBox["z", "2"], "+", "4"}]]}], ")"}], "\[Nu]"]}], "-", RowBox[{ RowBox[{"cos", RowBox[{"(", RowBox[{"\[Nu]", " ", "\[Pi]"}], ")"}]}], " ", SuperscriptBox["2", "\[Nu]"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "+", SqrtBox[ RowBox[{ SuperscriptBox["z", "2"], "+", "4"}]]}], ")"}], RowBox[{"-", "\[Nu]"}]]}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox[ SubscriptBox["F", "1"], AppellF1], "(", RowBox[{ RowBox[{"a", ";", SubscriptBox["b", "1"]}], ",", RowBox[{ SubscriptBox["b", "2"], ";", "c", ";", SubscriptBox["z", "1"]}], ",", SubscriptBox["z", "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Appell hypergeometric function of two variables ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox[ SubscriptBox["F", "1"], AppellF1], ":", " ", RowBox[{ RowBox[{ InterpretationBox[ SubscriptBox["F", "1"], AppellF1], "(", RowBox[{ RowBox[{"a", ";", SubscriptBox["b", "1"]}], ",", RowBox[{ SubscriptBox["b", "2"], ";", "c", ";", SubscriptBox["z", "1"]}], ",", SubscriptBox["z", "2"]}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], RowBox[{"k", "+", "l"}]], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "l"], " ", SubsuperscriptBox["z", "1", "k"], " ", SubsuperscriptBox["z", "2", "l"]}], RowBox[{ SubscriptBox[ RowBox[{"(", "c", ")"}], RowBox[{"k", "+", "l"}]], " ", RowBox[{"k", "!"}], " ", RowBox[{"l", "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"\[LeftBracketingBar]", SubscriptBox["z", "1"], "\[RightBracketingBar]"}], "<", "1"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", SubscriptBox["z", "2"], "\[RightBracketingBar]"}], "<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["0", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "\[Null]", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["0", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["0", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "\[Null]", ";", "z"}], ")"}]}], "\[Equal]", SuperscriptBox["\[ExponentialE]", "z"]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["0", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "\[Null]", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["0", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["0", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "\[Null]", ";", "z"}], ")"}]}], "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", "a"}]]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "b", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["1", "TraditionalForm"]], ":", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "b", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], RowBox[{ SubscriptBox[ RowBox[{"(", "b", ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "b", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], RowBox[{ SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]], ":", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "b", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", RowBox[{"(", "b", ")"}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"\[Null]", ";", "b", ";", "z"}], ")"}]}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "b", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Kummer confluent hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["1", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "b", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", "b", ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "b", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized confluent hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], RowBox[{ SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "b", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"b", "+", "k"}], ")"}]}], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"a", ",", "b"}], ";", "c", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Gauss hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["1", "TraditionalForm"]], ":", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"a", ",", "b"}], ";", "c", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", "b", ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", "c", ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"a", ",", "b"}], ";", "c", ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized Gauss hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], RowBox[{ SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"a", ",", "b"}], ";", "c", ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", "a", ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", "b", ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"c", "+", "k"}], ")"}]}], " ", RowBox[{"k", "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["2", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "1"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["2", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "2"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["3", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["3", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["3", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "2"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "3"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["3", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["3", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["2", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["3", "TraditionalForm"]], SubscriptBox["F", FormBox["2", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "2"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "3"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["4", "TraditionalForm"]], SubscriptBox["F", FormBox["3", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["4", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["3", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["4", "TraditionalForm"]], SubscriptBox["F", FormBox["3", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "2"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "3"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["a", "4"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "1"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "2"], ")"}], "k"], " ", SubscriptBox[ RowBox[{"(", SubscriptBox["b", "3"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox["F", FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], RowBox[{ SubscriptBox["F", FormBox["q", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox["F", FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "k"], " ", RowBox[{"k", "!"}]}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"q", "\[Equal]", RowBox[{"p", "-", "1"}]}], "\[And]", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], "\[Or]", RowBox[{"q", "\[GreaterEqual]", "p"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], ";", "z"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized generalized hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], RowBox[{ SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]], ":", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["p", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["q", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], ";", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], ";", "z"}], ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], "k"], " ", SuperscriptBox["z", "k"]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", SubscriptBox["b", "j"]}], ")"}]}], " ", RowBox[{"k", "!"}]}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"q", "\[Equal]", RowBox[{"p", "-", "1"}]}], "\[And]", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], "\[Or]", RowBox[{"q", "\[GreaterEqual]", "p"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["F", RowBox[{"P", " ", "Q", " ", "S"}], RowBox[{"A", " ", "B", " ", "C"}]], "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], ";", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "B"], ";", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";"}]}]}, { RowBox[{ SubscriptBox["p", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], ";", SubscriptBox["q", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["q", "Q"], ";", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["s", "S"], ";"}]}]} }], "z"}], ",", "w"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized hypergeometric function of two variables (Kampe de Feriet \ function): ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SubsuperscriptBox["F", RowBox[{"P", " ", "Q", " ", "S"}], RowBox[{"A", " ", "B", " ", "C"}]], "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], ";", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "B"], ";", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";"}]}]}, { RowBox[{ SubscriptBox["p", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], ";", SubscriptBox["q", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["q", "Q"], ";", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["s", "S"], ";"}]}]} }], "z"}], ",", "w"}], ")"}], "TraditionalForm"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "A"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], RowBox[{"m", "+", "n"}]], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "B"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "m"], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "C"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["c", "j"], ")"}], "n"], " ", SuperscriptBox["z", "m"], SuperscriptBox["w", "n"]}]}]}]}]}]}], RowBox[{ RowBox[{"m", "!"}], " ", RowBox[{"n", "!"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "P"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["p", "j"], ")"}], RowBox[{"m", "+", "n"}]], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "Q"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["q", "j"], ")"}], "m"], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "S"], SubscriptBox[ RowBox[{"(", SubscriptBox["s", "j"], ")"}], "n"]}]}]}]}]}]}]]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SubsuperscriptBox["F", RowBox[{"P", " ", "Q", " ", "S"}], RowBox[{"A", " ", "B", " ", "C"}]], "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], ";", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "B"], ";", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";"}]}]}, { RowBox[{ SubscriptBox["p", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], ";", SubscriptBox["q", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["q", "Q"], ";", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["s", "S"], ";"}]}]} }], "z"}], ",", "w"}], ")"}], "TraditionalForm"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "A"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], RowBox[{"m", "+", "n"}]], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "B"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "m"], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "C"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["c", "j"], ")"}], "n"], Pochhammer], " ", SuperscriptBox["z", "m"], SuperscriptBox["w", "n"]}]}]}]}]}]}], RowBox[{ RowBox[{"m", "!"}], " ", RowBox[{"n", "!"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "P"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["p", "j"], ")"}], RowBox[{"m", "+", "n"}]], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "Q"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["q", "j"], ")"}], "m"], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "S"], TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["s", "j"], ")"}], "n"], Pochhammer]}]}]}]}]}]}]]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "A"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], "m"], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "B"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "m"], Pochhammer], " ", SuperscriptBox["z", "m"]}]}]}]}], RowBox[{ RowBox[{"m", "!"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "P"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["p", "j"], ")"}], "m"], Pochhammer], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "Q"], TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["q", "j"], ")"}], "m"], Pochhammer]}]}]}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", RowBox[{"A", "+", "C"}]], SubscriptBox["F", RowBox[{"P", "+", "S"}]]}], "(", RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "m"}], ",", RowBox[{ SubscriptBox["a", "2"], "+", "m"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], "+", "m"}]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ",", SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["p", "1"], "+", "m"}], ",", RowBox[{ SubscriptBox["p", "2"], "+", "m"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], "+", "m"}], ",", SubscriptBox["s", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["s", "S"]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";", "w"}]}], ")"}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "A"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], "m"], Pochhammer], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "B"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "m"], Pochhammer], " ", SuperscriptBox["z", "m"]}]}]}]}], RowBox[{ RowBox[{"m", "!"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "P"], RowBox[{ TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["p", "j"], ")"}], "m"], Pochhammer], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "Q"], TagBox[ SubscriptBox[ RowBox[{"(", SubscriptBox["q", "j"], ")"}], "m"], Pochhammer]}]}]}]}]], RowBox[{"(", RowBox[{ RowBox[{ StyleBox[ FractionBox[ RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"k", "=", "1"}], "q"], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["b", "k"], ")"}]}], RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"k", "=", "1"}], RowBox[{"q", "+", "1"}]], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]], ScriptLevel->0], RowBox[{ StyleBox[ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "A"], ScriptLevel->0], RowBox[{ StyleBox[ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "m"}], ")"}], " ", "\[InvisibleComma]", RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "k"}]], "A"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ")"}], RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"j", "=", "1"}], "C"], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["c", "j"], "-", SubscriptBox["a", "k"], "-", "m"}], ")"}], " "}]}]}]}]}], RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"j", "=", "1"}], "q"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], ")"}]}]], ScriptLevel->0], StyleBox[" ", ScriptLevel->0], StyleBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "w"}], ")"}], RowBox[{ RowBox[{"-", SubscriptBox["a", "k"]}], "-", "m"}]], ScriptLevel->0], RowBox[{ StyleBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", RowBox[{"P", "+", "S", "+", "1"}]], SubscriptBox["F", RowBox[{"A", "+", "C", "-", "1"}]]}], ScriptLevel->0], "(", RowBox[{ StyleBox[ RowBox[{ RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["a", "k"], "+", "m"}], ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["p", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["p", "P"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "+", "m", "-", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "+", "m", "-", SubscriptBox["s", "S"]}]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";"}], "\[IndentingNewLine]", TagBox[ TagBox[ RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", "A"]}]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)]}], ScriptLevel->0], StyleBox[",", ScriptLevel->0], RowBox[{ StyleBox["1", ScriptLevel->0], StyleBox["+", ScriptLevel->0], StyleBox[ SubscriptBox["a", "k"], ScriptLevel->0], StyleBox["+", ScriptLevel->0], StyleBox["m", ScriptLevel->0], "-", StyleBox[ SubscriptBox["c", "1"], ScriptLevel->0]}], StyleBox[",", ScriptLevel->0], StyleBox["\[Ellipsis]", ScriptLevel->0], StyleBox[",", ScriptLevel->0], RowBox[{ RowBox[{ StyleBox["1", ScriptLevel->0], StyleBox["+", ScriptLevel->0], StyleBox[ SubscriptBox["a", "k"], ScriptLevel->0], StyleBox["+", ScriptLevel->0], StyleBox["m", ScriptLevel->0], "-", StyleBox[ SubscriptBox["c", "C"], ScriptLevel->0]}], StyleBox[";", ScriptLevel->0], StyleBox[ FractionBox["1", "w"], ScriptLevel->0]}]}], StyleBox[")", ScriptLevel->0]}]}]}]}], StyleBox["+", ScriptLevel->0], RowBox[{ StyleBox[ FractionBox[ RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"k", "=", "1"}], "q"], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["b", "k"], ")"}]}], RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"k", "=", "1"}], RowBox[{"q", "+", "1"}]], RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}]}]], ScriptLevel->0], RowBox[{ StyleBox[ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "C"], ScriptLevel->0], RowBox[{ StyleBox[ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", SubscriptBox["a", "k"], ")"}], " ", "\[InvisibleComma]", RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], UnderscriptBox[ RowBox[{"j", "=", "1"}], RowBox[{"j", "\[NotEqual]", "k"}]], RowBox[{"q", "+", "1"}]], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ")"}], " "}]}]}], RowBox[{ UnderoverscriptBox[ StyleBox["\[Product]", SpanMaxSize->1], RowBox[{"j", "=", "1"}], "q"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], ")"}]}]], ScriptLevel->0], StyleBox[" ", ScriptLevel->0], StyleBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", SubscriptBox["a", "k"]}]], ScriptLevel->0], RowBox[{ StyleBox[ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", RowBox[{"q", "+", "1"}]], SubscriptBox["F", "q"]}], ScriptLevel->0], "(", StyleBox[ RowBox[{ RowBox[{ TagBox[ TagBox[ RowBox[{ SubscriptBox["a", "k"], ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["b", "q"]}]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";"}], "\[IndentingNewLine]", RowBox[{ TagBox[ TagBox[ RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}]}], InterpretTemplate[ { SlotSequence[ 1]}&]], (Editable -> False)], ";", FractionBox["1", "w"]}]}], ScriptLevel->0], StyleBox[")", ScriptLevel->0]}]}]}]}]}], StyleBox[")", ScriptLevel->0]}]}]}]}], TraditionalForm]], "LinkingEquationsIndent", CellMargins->{{15, Inherited}, {Inherited, 0}}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 3}}, FontFamily->"Times"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["F", "~"], RowBox[{"P", " ", "Q", " ", "S"}], RowBox[{"A", " ", "B", " ", "C"}]], "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], ";", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "B"], ";", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";"}]}]}, { RowBox[{ SubscriptBox["p", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], ";", SubscriptBox["q", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["q", "Q"], ";", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["s", "S"], ";"}]}]} }], "z"}], ",", "w"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized generalized hypergeometric function of two variables \ (regularized Kampe de Feriet function): ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SubsuperscriptBox[ OverscriptBox["F", "~"], RowBox[{"P", " ", "Q", " ", "S"}], RowBox[{"A", " ", "B", " ", "C"}]], "(", RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "A"], ";", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "B"], ";", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["c", "C"], ";"}]}]}, { RowBox[{ SubscriptBox["p", "1"], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["p", "P"], ";", SubscriptBox["q", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["q", "Q"], ";", SubscriptBox["s", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["s", "S"], ";"}]}]} }], "z"}], ",", "w"}], ")"}], "TraditionalForm"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "\[Infinity]"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "A"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["a", "j"], ")"}], RowBox[{"m", "+", "n"}]], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "B"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["b", "j"], ")"}], "m"], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "C"], RowBox[{ SubscriptBox[ RowBox[{"(", SubscriptBox["c", "j"], ")"}], "n"], " ", SuperscriptBox["z", "m"], SuperscriptBox["w", "n"]}]}]}]}]}]}], RowBox[{ RowBox[{"m", "!"}], " ", RowBox[{"n", "!"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "P"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"m", "+", "n", "+", SubscriptBox["p", "j"]}], ")"}]}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "Q"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"m", "+", SubscriptBox["q", "j"]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "S"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"n", "+", SubscriptBox["s", "j"]}], ")"}]}]}]}]}]}]}]}]]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["G", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["g", "2"], "(", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["g", "3"], "(", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], ")"}]}], "}"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The invariants ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], "}"}], TraditionalForm]]], " for Weierstrass elliptic functions corresponding to the \ half\[Hyphen]periods ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["g", "2"], RowBox[{"(", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], ")"}]}], ",", RowBox[{ SubscriptBox["g", "3"], "(", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], ")"}]}], "}"}], "\[Equal]", RowBox[{ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"60", " ", RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", SubscriptBox["\[Omega]", "1"]}], "+", RowBox[{"2", " ", "n", " ", SubscriptBox["\[Omega]", "3"]}]}], ")"}], "4"]]}]}], ",", RowBox[{"140", " ", RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", SubscriptBox["\[Omega]", "1"]}], "+", RowBox[{"2", " ", "n", " ", SubscriptBox["\[Omega]", "3"]}]}], ")"}], "6"]]}]}]}], "}"}], "/;", " "}]}], "TraditionalForm"], "Im", RowBox[{"(", FractionBox[ SubscriptBox["\[Omega]", "3"], SubscriptBox["\[Omega]", "1"]], ")"}]}], ">", "0"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"gcd", "(", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The greatest common divisor of the integers ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["n", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["Glaisher", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Glaisher constant ", Cell[BoxData[ FormBox["Glaisher", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"Glaisher", "\[TildeTilde]", StyleBox[ RowBox[{"1.2824271", "\[Ellipsis]"}], ZeroWidthTimes->True]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}]} }]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Meijer G function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}]} }]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", "1"}], RowBox[{" ", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]}]], RowBox[{ UnderscriptBox["\[Integral]", "\[ScriptCapitalL]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], ")"}]}]}]}]}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], ")"}]}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]], RowBox[{"\[DifferentialD]", "s"}]}]}]}]}], " ", "/;", RowBox[{"0", "\[LessEqual]", "m", "\[LessEqual]", "q"}]}], ",", " ", RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", "p"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "The infinite contour of integration ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " separates the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], ")"}], TraditionalForm]]], "at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "j"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"j", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], " from the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], " at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{ RowBox[{"-", SubscriptBox["b", "i"]}], "-", "l"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"l", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], ". Such a contour always exists in the cases ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "i"], "-", "1"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"], Cell[TextData[{ "There are three possibilities for the contour ", Cell[BoxData[ FormBox[ RowBox[{ TagBox["\[ScriptCapitalL]", (MeijerGContourL&)], " ", "are"}], TraditionalForm]], FormatType->StandardForm], ":" }], "Notations_TF_SectionText"], Cell[TextData[{ "(i) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " runs from \[Gamma]-\[ImaginaryI] \[Infinity] to \[Gamma]+\[ImaginaryI] \ \[Infinity] (where ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Im", "(", "\[Gamma]", ")"}], "=", "0"}], TraditionalForm]]], ") so that all poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ", are to the left, and all the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", to the right, of \[ScriptCapitalL]. \nThis contour can be a straight \ line ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], ",", " ", RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]}], ")"}], TraditionalForm]]], " if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", RowBox[{ SubscriptBox["b", "i"], "-", SubscriptBox["a", "k"]}], ")"}], ">", RowBox[{"-", "1"}]}], TraditionalForm]]], " (then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"Re", "(", SubscriptBox["b", "i"], ")"}]}], "<", "\[Gamma]", "<", RowBox[{"1", "-", RowBox[{"Re", "(", SubscriptBox["a", "k"], ")"}]}]}], TraditionalForm]]], "). (In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "+", "q"}], "<", RowBox[{"2", RowBox[{"(", RowBox[{"m", "+", "n"}], ")"}]}]}], TraditionalForm]]], " , ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], ")"}], " ", "\[Pi]"}]}], TraditionalForm]]], ". If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "=", "0"}], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " must be real and positive and additional condition ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "\[Gamma]"}], "+", RowBox[{"Re", "(", "\[Mu]", ")"}]}], "<", "0"}], ",", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "1"}], "q"], SubscriptBox["b", "l"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}], TraditionalForm]]], ", should be added.)" }], "Notations_TF_SectionText"], Cell[TextData[{ "(ii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a left loop, starting and ending at -\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}]}], TraditionalForm]]], ", once in the positive direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"q", ">", "p"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "Notations_TF_SectionText"], Cell[TextData[{ "(iii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a right loop, starting and ending at +\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", once in the negative direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"p", ">", "q"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"p", "=", "q"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], ">", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", ",", RowBox[{"r", "\[VerticalSeparator]", GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}]} }]}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized Meijer G function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", ",", RowBox[{"r", "\[VerticalSeparator]", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ","}], RowBox[{ SubscriptBox["a", "2"], ","}]}, { RowBox[{ SubscriptBox["b", "1"], ","}], RowBox[{ SubscriptBox["b", "2"], ","}]} }], GridBox[{ { RowBox[{"...", ","}], SubscriptBox["a", "p"]}, { RowBox[{"...", ","}], SubscriptBox["b", "q"]} }]}]}]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", "1"}], RowBox[{" ", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]}]], RowBox[{ UnderscriptBox["\[Integral]", "\[ScriptCapitalL]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], ")"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], ")"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], ")"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], ")"}]}]}]], SuperscriptBox["z", RowBox[{"-", FractionBox["s", "r"]}]], RowBox[{"\[DifferentialD]", "s"}]}]}]}]}], "/;", RowBox[{ RowBox[{"r", "\[Element]", TagBox["\[DoubleStruckCapitalR]", (Reals&)]}], "\[And]", RowBox[{"r", "\[NotEqual]", "0"}], "\[And]", RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalN]"}], "\[And]", RowBox[{"n", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalN]"}], "\[And]", RowBox[{"q", "\[Element]", TagBox["\[DoubleStruckCapitalN]", (Integers&)]}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", RowBox[{"p", "."}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"], Cell[TextData[{ "For the description of the contour ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], ", see ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}]} }]}], ")"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", RowBox[{"q", ":", SubscriptBox["p", "1"]}], ",", RowBox[{ SubscriptBox["q", "1"], ":", SubscriptBox["p", "2"]}], ",", SubscriptBox["q", "2"]}], RowBox[{"m", ",", RowBox[{"n", ":", SubscriptBox["m", "1"]}], ",", RowBox[{ SubscriptBox["n", "1"], ":", SubscriptBox["m", "2"]}], ",", SubscriptBox["n", "2"]}]], "(", RowBox[{ RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ","}]}, { RowBox[{ SubscriptBox["b", "1"], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", "p"]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", "q"]} }]}], "\[VerticalSeparator]", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", RowBox[{"1", ",", "1"}]], ","}]}, { RowBox[{ SubscriptBox["b", RowBox[{"1", ",", "1"}]], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", RowBox[{"1", ",", SubscriptBox["p", "1"]}]]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", RowBox[{"1", ",", SubscriptBox["q", "1"]}]]} }]}], "\[VerticalSeparator]", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", RowBox[{"2", ",", "1"}]], ","}]}, { RowBox[{ SubscriptBox["b", RowBox[{"2", ",", "1"}]], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", RowBox[{"2", ",", SubscriptBox["p", "2"]}]]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", RowBox[{"2", ",", SubscriptBox["q", "2"]}]]} }]}], "\[VerticalSeparator]", "z"}], ",", "w"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Meijer G function of two variables: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", RowBox[{"q", ":", SubscriptBox["p", "1"]}], ",", RowBox[{ SubscriptBox["q", "1"], ":", SubscriptBox["p", "2"]}], ",", SubscriptBox["q", "2"]}], RowBox[{"m", ",", RowBox[{"n", ":", SubscriptBox["m", "1"]}], ",", RowBox[{ SubscriptBox["n", "1"], ":", SubscriptBox["m", "2"]}], ",", SubscriptBox["n", "2"]}]], "(", RowBox[{ RowBox[{ RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ","}]}, { RowBox[{ SubscriptBox["b", "1"], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", "p"]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", "q"]} }]}], "\[VerticalSeparator]", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", RowBox[{"1", ",", "1"}]], ","}]}, { RowBox[{ SubscriptBox["b", RowBox[{"1", ",", "1"}]], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", RowBox[{"1", ",", SubscriptBox["p", "1"]}]]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", RowBox[{"1", ",", SubscriptBox["q", "1"]}]]} }]}], "\[VerticalSeparator]", RowBox[{GridBox[{ { RowBox[{ SubscriptBox["a", RowBox[{"2", ",", "1"}]], ","}]}, { RowBox[{ SubscriptBox["b", RowBox[{"2", ",", "1"}]], ","}]} }], GridBox[{ { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["a", RowBox[{"2", ",", SubscriptBox["p", "2"]}]]}, { RowBox[{ StyleBox["\[Ellipsis]", "MInput", FontFamily->"Times"], ","}], SubscriptBox["b", RowBox[{"2", ",", SubscriptBox["q", "2"]}]]} }]}], "\[VerticalSeparator]", "z"}], ",", "w"}], ")"}], "\[Equal]", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", " ", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}], ")"}], "2"]], RowBox[{ StyleBox[ UnderscriptBox["\[Integral]", "\[ScriptCapitalL]"], ScriptLevel->0], RowBox[{ StyleBox[ UnderscriptBox["\[Integral]", SuperscriptBox["\[ScriptCapitalL]", "*"]], ScriptLevel->0], RowBox[{ FractionBox[ RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "j"], "+", "s", "+", "t"}], ")"}], " ", RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "j"], "-", "s", "-", "t"}], ")"}], " "}]}]}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", "j"], "+", "s", "+", "t"}], ")"}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["b", "j"], "-", "s", "-", "t"}], ")"}]}]}]}]], FractionBox[ RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], SubscriptBox["m", "1"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", RowBox[{"1", ",", "j"}]], "+", "s"}], ")"}], " ", RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], SubscriptBox["n", "1"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"1", ",", "j"}]], "-", "s"}], ")"}], " "}]}]}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{ SubscriptBox["n", "1"], "+", "1"}]}], SubscriptBox["p", "1"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", RowBox[{"1", ",", "j"}]], "+", "s"}], ")"}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{ SubscriptBox["m", "1"], "+", "1"}]}], SubscriptBox["q", "1"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"1", ",", "j"}]], "-", "s"}], ")"}]}]}]}]], FractionBox[ RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], SubscriptBox["m", "2"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", RowBox[{"2", ",", "j"}]], "+", "t"}], ")"}], " ", RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], SubscriptBox["n", "2"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"2", ",", "j"}]], "-", "t"}], ")"}], " "}]}]}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{ SubscriptBox["n", "2"], "+", "1"}]}], SubscriptBox["p", "2"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, SpanMaxSize->1, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["a", RowBox[{"2", ",", "j"}]], "+", "t"}], ")"}], RowBox[{ StyleBox[ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{ SubscriptBox["m", "2"], "+", "1"}]}], SubscriptBox["q", "2"], LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{ LimitsPositioning->False}, UnderscriptBoxOptions->{ LimitsPositioning->False}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"2", ",", "j"}]], "-", "t"}], ")"}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]], SuperscriptBox["w", RowBox[{"-", "t"}]], RowBox[{"\[DifferentialD]", "s"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{"0", "\[LessEqual]", "m", "\[LessEqual]", "q"}]}], ",", " ", RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", "p"}], ",", RowBox[{"0", "\[LessEqual]", SubscriptBox["m", "1"], "\[LessEqual]", SubscriptBox["q", "1"]}], ",", " ", RowBox[{"0", "\[LessEqual]", SubscriptBox["n", "1"], "\[LessEqual]", SubscriptBox["p", "1"]}], ",", RowBox[{"0", "\[LessEqual]", SubscriptBox["m", "2"], "\[LessEqual]", SubscriptBox["q", "2"]}], ",", " ", RowBox[{"0", "\[LessEqual]", SubscriptBox["n", "2"], "\[LessEqual]", RowBox[{ SubscriptBox["p", "2"], "."}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"], Cell[TextData[{ "For the description of the contours ", Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalL]", " "}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SuperscriptBox["\[ScriptCapitalL]", "*"], TraditionalForm]]], ", see ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["G", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]}, { RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}]} }]}], ")"}], TraditionalForm]]], "." }], "Notations_SF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["H", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox[ InterpretationBox["H", HarmonicNumber], "n"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "\[Hyphen]th harmonic number: ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "z"], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"(", RowBox[{ FractionBox["1", "k"], "-", FractionBox["1", RowBox[{"k", "+", "z"}]]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"\[Psi]", "(", RowBox[{"z", "+", "1"}], ")"}], "+", "\[Gamma]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubsuperscriptBox[ InterpretationBox["H", HarmonicNumber], "z", RowBox[{"(", "r", ")"}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The harmonic number of order ", Cell[BoxData[ FormBox["r", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["H", "z", RowBox[{"(", "r", ")"}]], "\[Equal]", RowBox[{ TagBox[ RowBox[{"\[Zeta]", "(", TagBox["r", (Editable -> True)], ")"}], InterpretTemplate[ Function[ e, Zeta[ e]]]], "-", TagBox[ RowBox[{"\[Zeta]", "(", RowBox[{ TagBox["r", (Editable -> True)], ",", TagBox[ RowBox[{"z", "+", "1"}], (Editable -> True)]}], ")"}], InterpretTemplate[ Function[ {e1, e2}, Zeta[ e1, e2]]]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["H", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Hermite function in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["H", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["2", "\[Nu]"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", "(", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"], ")"}]], TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ TagBox[ RowBox[{"-", FractionBox["\[Nu]", "2"]}], Hypergeometric1F1, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric1F1, Editable->False], ";", TagBox[ TagBox[ TagBox[ FractionBox["1", "2"], Hypergeometric1F1, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric1F1, Editable->False], ";", TagBox[ SuperscriptBox["z", "2"], Hypergeometric1F1, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&], Editable->False], Hypergeometric1F1]}], "-", RowBox[{ FractionBox[ RowBox[{"2", " ", "z", " "}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"-", FractionBox["\[Nu]", "2"]}], ")"}]], TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ TagBox[ FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"], Hypergeometric1F1, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric1F1, Editable->False], ";", TagBox[ TagBox[ TagBox[ FractionBox["3", "2"], Hypergeometric1F1, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric1F1, Editable->False], ";", TagBox[ SuperscriptBox["z", "2"], Hypergeometric1F1, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&], Editable->False], Hypergeometric1F1]}]}], ")"}]}]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox[ InterpretationBox["H", StruveH, Editable->False, Selectable->False], FontWeight->"Bold", FontSlant->"Plain"], "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Struve function H: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox[ InterpretationBox["H", StruveH, Editable->False, Selectable->False], FontWeight->"Bold", FontSlant->"Plain"], "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{"\[Nu]", "+", "1"}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " "}], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", FractionBox["3", "2"]}], ")"}]}], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", "\[Nu]", "+", FractionBox["3", "2"]}], ")"}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{"2", " ", "k"}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["H", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["A", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "n"], ",", SubscriptBox["A", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", SubscriptBox["A", RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "p"], ",", SubscriptBox["A", "p"]}], "}"}]}]}, { RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["B", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "m"], ",", SubscriptBox["B", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", SubscriptBox["B", RowBox[{"m", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "q"], ",", SubscriptBox["B", "q"]}], "}"}]}]} }]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Fox H function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["H", RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "(", RowBox[{"z", "\[VerticalSeparator]", GridBox[{ { RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["A", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "n"], ",", SubscriptBox["A", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", SubscriptBox["A", RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "p"], ",", SubscriptBox["A", "p"]}], "}"}]}]}, { RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["B", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "m"], ",", SubscriptBox["B", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", SubscriptBox["B", RowBox[{"m", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "q"], ",", SubscriptBox["B", "q"]}], "}"}]}]} }]}], ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", "1"}], RowBox[{" ", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]}]], RowBox[{ UnderscriptBox["\[Integral]", "\[ScriptCapitalL]"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "+", RowBox[{ SubscriptBox["B", "k"], "s"}]}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", RowBox[{ SubscriptBox["A", "k"], "s"}]}], ")"}]}], " "}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "+", RowBox[{ SubscriptBox["A", "k"], "s"}]}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", RowBox[{ SubscriptBox["B", "k"], "s"}]}], ")"}]}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]], RowBox[{"\[DifferentialD]", "s"}]}]}]}]}], "/;", RowBox[{"0", "\[LessEqual]", "m", "\[LessEqual]", "q"}]}], ",", " ", RowBox[{"0", "\[LessEqual]", "n", "\[LessEqual]", RowBox[{"p", "."}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"], Cell[TextData[{ "The infinite contour of integration ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " separates the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", RowBox[{ SubscriptBox["A", "k"], "s"}]}], ")"}], TraditionalForm]]], "at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "j"}], ")"}], "/", SubscriptBox["A", "k"]}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"j", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], " from the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", RowBox[{ SubscriptBox["B", "i"], "s"}]}], ")"}], TraditionalForm]]], " at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SubscriptBox["b", "i"], "+", "l"}], ")"}]}], "/", SubscriptBox["B", "i"]}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"l", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["I", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[ImaginaryI]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The imaginary unit ", Cell[BoxData[ FormBox["\[ImaginaryI]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", "\[Equal]", SqrtBox[ RowBox[{"-", "1"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["I", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The modified Bessel function of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["I", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"1", " "}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"k", "+", "\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"k", "!"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{ RowBox[{"2", " ", "k"}], "+", "\[Nu]"}]]}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], "\[Nu]"], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox["\[Null]", InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{"\[Nu]", "+", "1"}], HypergeometricPFQ, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->False], ";", TagBox[ FractionBox[ SuperscriptBox["z", "2"], "4"], HypergeometricPFQ, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&], Editable->False], HypergeometricPFQ]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], "z"], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized incomplete beta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], "z"], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", FractionBox[ RowBox[{ SubscriptBox[ InterpretationBox["\[CapitalBeta]", Beta], "z"], "(", RowBox[{"a", ",", "b"}], ")"}], RowBox[{ InterpretationBox["\[CapitalBeta]", Beta], "(", RowBox[{"a", ",", "b"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ InterpretationBox["I", BetaRegularized], "z", RowBox[{"-", "1"}]], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the regularized incomplete beta function. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], "u"], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized regularized incomplete beta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", FractionBox[ RowBox[{ InterpretationBox["\[CapitalBeta]", Beta], "(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"], ",", "a", ",", "b"}], ")"}], RowBox[{ InterpretationBox["\[CapitalBeta]", Beta], "(", RowBox[{"a", ",", "b"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ InterpretationBox["I", BetaRegularized], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], RowBox[{"-", "1"}]], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the generalized regularized incomplete beta function. The \ value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ InterpretationBox["I", BetaRegularized], RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", "u"}], ")"}]], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", SubscriptBox["z", "2"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Im", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The imaginary part of the number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", RowBox[{ RowBox[{"Re", "(", "z", ")"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Im", "(", "z", ")"}]}]}]}], ",", " ", " ", RowBox[{ RowBox[{"Im", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"z", "-", OverscriptBox["z", "_"]}], RowBox[{"2", "\[ImaginaryI]"}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"int", RowBox[{"(", "z", ")"}]}], "Traditional"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The integer part of number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"int", "(", "x", ")"}], "\[Equal]", "n"}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{"0", "\[LessEqual]", RowBox[{ RowBox[{"sgn", "(", "x", ")"}], " ", RowBox[{"(", RowBox[{"x", "-", "n"}], ")"}]}], "<", "1"}], "\[And]", RowBox[{"x", "\[NotEqual]", "0"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["J", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"J", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Klein invariant modular function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"J", RowBox[{"(", "z", ")"}]}], "\[Equal]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "2"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}], "8"], "+", SuperscriptBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "3"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}], "8"], "+", SuperscriptBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "4"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}], "8"]}], ")"}], "3"], RowBox[{"54", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "2"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}], " ", RowBox[{ SubscriptBox["\[CurlyTheta]", "3"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}], " ", RowBox[{ SubscriptBox["\[CurlyTheta]", "4"], RowBox[{"(", RowBox[{"0", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], ")"}]}]}], ")"}], "8"]}]]}], "/;", RowBox[{ RowBox[{"Im", RowBox[{"(", "z", ")"}]}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ SubscriptBox["J", "\[Nu]"], "Traditional"], "(", StyleBox["z", "Traditional"], StyleBox[")", "Traditional"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Bessel function of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["J", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " "}], RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"k", "+", "\[Nu]", "+", "1"}], ")"}], " ", RowBox[{"k", "!"}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{ RowBox[{"2", " ", "k"}], "+", "\[Nu]"}]]}]}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Nu]", "+", "1"}], ")"}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], "\[Nu]"], " ", TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["0", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox["\[Null]", InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{"\[Nu]", "+", "1"}], HypergeometricPFQ, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], HypergeometricPFQ, Editable->False], ";", TagBox[ RowBox[{"-", FractionBox[ SuperscriptBox["z", "2"], "4"]}], HypergeometricPFQ, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQ[ #, #2, #3]&], Editable->False], HypergeometricPFQ]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["K", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"K", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The complete elliptic integral of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"K", "(", "z", ")"}], "\[Equal]", RowBox[{"F", "(", RowBox[{ FractionBox["\[Pi]", "2"], "\[VerticalSeparator]", "z"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"1", "-", RowBox[{"z", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", RowBox[{"1", "-", "z"}], ")"}], "\[RightBracketingBar]"}], "<", "\[Pi]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["K", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The modified Bessel function of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["K", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"\[Pi]", " ", RowBox[{"csc", RowBox[{"(", RowBox[{"\[Pi]", " ", "\[Nu]"}], ")"}]}]}]}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["I", RowBox[{"-", "\[Nu]"}]], RowBox[{"(", "z", ")"}]}], "-", RowBox[{ SubscriptBox["I", "\[Nu]"], RowBox[{"(", "z", ")"}]}]}], ")"}]}]}], "/;", RowBox[{"\[Nu]", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["Khinchin", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Khinchin constant ", Cell[BoxData[ FormBox["Khinchin", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"Khinchin", "\[Tilde]", RowBox[{"2.685452001", "\[Ellipsis]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["L", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox[ InterpretationBox["L", StruveL, Editable->False, Selectable->False], FontWeight->"Bold", FontSlant->"Plain"], "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The modified Struve function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox[ StyleBox[ InterpretationBox["L", StruveL, Editable->False, Selectable->False], FontWeight->"Bold", FontSlant->"Plain"], "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{"\[Nu]", "+", "1"}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"1", " "}], RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", FractionBox["3", "2"]}], ")"}]}], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"k", "+", "\[Nu]", "+", FractionBox["3", "2"]}], ")"}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["z", "2"], ")"}], RowBox[{"2", " ", "k"}]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["L", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Laguerre function in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["L", "\[Nu]"], "(", "z", ")"}], "\[Equal]", "\[ThinSpace]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "1"], SubscriptBox["F", "1"]}], "(", RowBox[{ RowBox[{"-", "\[Nu]"}], ";", "1", ";", "z"}], ")"}]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["L", "\[Nu]", "\[Lambda]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th generalized Laguerre polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " for parameter ", Cell[BoxData[ FormBox["\[Lambda]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["L", "\[Vee]", "\[Lambda]"], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"\[Lambda]", "+", RowBox[{"\[Vee]", RowBox[{"+", "1"}]}]}], ")"}], " "}], RowBox[{"\[Vee]", "!"}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Vee]"}], ";", RowBox[{"\[Lambda]", "+", "1"}], ";", "z"}], ")"}]}]}]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"lcm", "(", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The least common multiple of the integers ", Cell[BoxData[ FormBox[ SubscriptBox["n", "k"], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"li", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The logarithmic integral: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"li", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", RowBox[{"log", "(", "t", ")"}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["Li", PolyLog], "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The polylogarithm function of ", Cell[BoxData[ FormBox[ RowBox[{"order", " ", Cell["\[Nu]"]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Li", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox["k", "\[Nu]"]]}]}], "/;", RowBox[{"|", "z", "|", RowBox[{"<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"log", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The natural logarithm: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"log", "(", "z", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}], "k"]}], "k"]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"z", "-", "1"}], "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["log", "a"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The logarithm in base ", Cell[BoxData[ FormBox["a", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["log", "a"], "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"log", "(", "z", ")"}], RowBox[{"log", "(", "a", ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"log\[CapitalGamma]", RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The logarithmic Gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox[ RowBox[{"log\[CapitalGamma]", "(", "z", ")"}], ScriptLevel->0], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"(", RowBox[{ FractionBox["z", "k"], "-", RowBox[{"log", "(", RowBox[{"1", "+", FractionBox["z", "k"]}], ")"}]}], ")"}]}], "-", RowBox[{ TagBox["\[DoubledGamma]", (EulerGamma&)], " ", "z"}], "-", RowBox[{"log", "(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["M", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox["max", "Traditional"], "(", StyleBox[ RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], "Traditional"], StyleBox[")", "Traditional"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The maximum function (the largest of the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]], ")." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox["min", "Traditional"], "(", StyleBox[ RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], "Traditional"], StyleBox[")", "Traditional"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The minimum function (the smallest of the ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], TraditionalForm]]], ")." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["N", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"nc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function nc: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"nc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox["1", RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["nc", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function nc. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"nc", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["nc", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "1"}]], " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["t", "2"]}], "+", "m"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ SuperscriptBox["z", "2"], ">", "1"}], "\[And]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["z", "2"]}], "+", "m"}], ">", "0"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"nd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function nd: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"nd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox["1", RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["nd", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function nd. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"nd", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["nd", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "1", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "1"}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["t", "2"]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ SuperscriptBox["z", "2"], ">", "1"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["z", "2"]}], "<", "1"}], "\[And]", RowBox[{"m", ">", "0"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"ns", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function ns: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"ns", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox["1", RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["ns", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function ns. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"ns", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["ns", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "1"}]], " ", SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "-", "m"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ SuperscriptBox["z", "2"], ">", "1"}], "\[And]", RowBox[{ SuperscriptBox["z", "2"], ">", "m"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["P", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"p", "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number of unrestricted partitions (independent of the order and with \ repetitions allowed) of the positive integer ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " into a sum of strictly positive integers which add up to ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"p", "(", "n", ")"}], " ", "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[Infinity]"], FractionBox["1", RowBox[{"1", "-", SuperscriptBox["t", "k"]}]]}]}], ")"}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["P", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th", " Legendre function in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["P", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", "1", ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["P", "\[Nu]", "\[Mu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The associated Legendre function of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["P", "\[Nu]", "\[Mu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"1", "-", "z"}]], ")"}], RowBox[{"\[Mu]", "/", "2"}]], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", RowBox[{"1", "-", "\[Mu]"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[GothicCapitalP]", "\[Nu]", "\[Mu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The associated Legendre function of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["\[GothicCapitalP]", "\[Nu]", "\[Mu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"z", "+", "1"}], RowBox[{"z", "-", "1"}]], ")"}], RowBox[{"\[Mu]", "/", "2"}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", "2"], SubscriptBox[ OverscriptBox["F", "~"], "1"]}], "(", RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{ RowBox[{"\[Nu]", "+", "1"}], ";", RowBox[{"1", "-", "\[Mu]"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["P", "\[Nu]", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th Jacobi function in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " for parameters ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["b", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["P", "n", RowBox[{"(", RowBox[{"a", ",", "b"}], ")"}]], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "n", "+", "1"}], ")"}]}], " "}], RowBox[{"n", "!"}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "n"}], ",", RowBox[{"a", "+", "b", "+", "n", "+", "1"}]}], ";", RowBox[{"a", "+", "1"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}]}], TraditionalForm]]], ". ", "For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[ScriptCapitalP]\[ScriptH]\[ScriptY]\[ScriptS]", RowBox[{ "\[ScriptI]\[ScriptC]\[ScriptA]\[ScriptL]\[ScriptCapitalQ]", "(", RowBox[{ SubscriptBox["j", "1"], ",", SubscriptBox["m", "1"], ",", SubscriptBox["j", "2"], ",", SubscriptBox["m", "2"], ",", "j", ",", "m"}], ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "A Boolean function that tests whether the angular momentum quantum numbers \ are physically realizable. ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ "\[ScriptCapitalP]\[ScriptH]\[ScriptY]\[ScriptS]\[ScriptI]", "\[ScriptC]\[ScriptA]\[ScriptL]\[ScriptCapitalQ]", RowBox[{"(", RowBox[{ SubscriptBox["j", "1"], ",", SubscriptBox["m", "1"], ",", SubscriptBox["j", "2"], ",", SubscriptBox["m", "2"], ",", "j", ",", "m"}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"2", " ", SubscriptBox["j", "1"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["j", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"2", " ", "j"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["m", "1"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"2", " ", SubscriptBox["m", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"2", " ", "m"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["j", "1"], "-", SubscriptBox["m", "1"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["j", "2"], "-", SubscriptBox["m", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"j", "-", "m"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], "\[And]", RowBox[{ RowBox[{"-", SubscriptBox["j", "1"]}], "\[LessEqual]", SubscriptBox["m", "1"], "\[LessEqual]", SubscriptBox["j", "1"]}], "\[And]", RowBox[{ RowBox[{"-", SubscriptBox["j", "2"]}], "\[LessEqual]", SubscriptBox["m", "2"], "\[LessEqual]", SubscriptBox["j", "2"]}], "\[And]", RowBox[{ RowBox[{"-", "j"}], "\[LessEqual]", "m", "\[LessEqual]", "j"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{ SubscriptBox["j", "1"], "-", SubscriptBox["j", "2"]}], "\[RightBracketingBar]"}], "\[LessEqual]", "j"}], "\[And]", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "j", "\[RightBracketingBar]"}], "\[LessEqual]", RowBox[{ SubscriptBox["j", "1"], "+", SubscriptBox["j", "2"]}]}]}], ")"}], "."}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"prime", RowBox[{"(", "n", ")"}]}], "\[Equal]", SubscriptBox["p", "n"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "-th prime number." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Q", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The elliptic nome ", Cell[BoxData[ FormBox["q", TraditionalForm]]], " of the module ", Cell[BoxData[ FormBox["m", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"q", "(", "m", ")"}], "\[Equal]", RowBox[{"exp", "(", RowBox[{ RowBox[{"-", "\[Pi]"}], FractionBox[ RowBox[{"K", "(", RowBox[{"1", "-", "m"}], ")"}], RowBox[{"K", "(", "m", ")"}]]}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ InterpretationBox["q", EllipticNomeQ], RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The module ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " of the nome ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["q", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{"16", "z", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[Infinity]"], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "+", SuperscriptBox["z", RowBox[{"2", "k"}]]}], RowBox[{"1", "+", SuperscriptBox["z", RowBox[{ RowBox[{"2", "k"}], "-", "1"}]]}]], ")"}], "8"]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox[ InterpretationBox["q", EllipticNomeQ], RowBox[{"-", "1"}]], "(", RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], ")"}], "\[Equal]", "m"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"q", "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number of ordered partitions (independent of the order and no \ repetitions allowed) of the positive integer ", Cell[BoxData[ FormBox["n", TraditionalForm]]], " into a sum of strictly positive integers which add up to ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"q", "(", "n", ")"}], " ", "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "n"], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["t", "k"]}], ")"}]}]}], ")"}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Q", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th", " Legendre function of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Q", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["Q", "\[Nu]", "0"], "(", "z", ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Q", "\[Nu]", "\[Mu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The associated Legendre function of the second kind of real argument: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["Q", "\[Nu]", "\[Mu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["\[Pi]", "2"], RowBox[{"csc", RowBox[{"(", RowBox[{"\[Mu]", " ", "\[Pi]"}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"1", "-", "z"}]], ")"}], RowBox[{"\[Mu]", "/", "2"}]], " ", RowBox[{"cos", RowBox[{"(", RowBox[{"\[Mu]", " ", "\[Pi]"}], ")"}]}], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", RowBox[{"1", "-", "\[Mu]"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"1", "-", "z"}]], ")"}], RowBox[{"-", FractionBox["\[Mu]", "2"]}]], FractionBox[ RowBox[{ RowBox[{" ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "+", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], " "}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", RowBox[{"\[Mu]", "+", "1"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}]}], ")"}]}]}], "/;", RowBox[{"\[Mu]", "\[NotElement]", RowBox[{"\[DoubleStruckCapitalZ]", "."}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[GothicCapitalQ]", "\[Nu]", "\[Mu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The associated Legendre function of the second kind of complex argument: \ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[GothicCapitalQ]", "\[Nu]", "\[Mu]"], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["\[Pi]", "2"], RowBox[{"csc", RowBox[{"(", RowBox[{"\[Mu]", " ", "\[Pi]"}], ")"}]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", "\[Mu]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"z", "+", "1"}], RowBox[{"z", "-", "1"}]], ")"}], RowBox[{"\[Mu]", "/", "2"}]], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", RowBox[{"1", "-", "\[Mu]"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}], "-", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"z", "+", "1"}], RowBox[{"z", "-", "1"}]], ")"}], RowBox[{"-", FractionBox["\[Mu]", "2"]}]], FractionBox[ RowBox[{" ", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "+", "\[Mu]", "+", "\[Nu]"}], ")"}]}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]", "+", "\[Nu]"}], ")"}]}]], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[Nu]"}], ",", RowBox[{"\[Nu]", "+", "1"}]}], ";", RowBox[{"\[Mu]", "+", "1"}], ";", FractionBox[ RowBox[{"1", "-", "z"}], "2"]}], ")"}]}]}]}], ")"}]}]}], "/;", RowBox[{"\[Mu]", "\[NotElement]", RowBox[{"\[DoubleStruckCapitalZ]", "."}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized incomplete gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", "z"}], ")"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", RowBox[{"(", "a", ")"}]}]], RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ InterpretationBox["Q", GammaRegularized], RowBox[{"-", "1"}]], "(", RowBox[{"a", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the regularized incomplete gamma function. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", "u"}], ")"}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized regularized incomplete gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[CapitalGamma]", RowBox[{"(", "a", ")"}]}]], RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["z", "1"], SubscriptBox["z", "2"]], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ InterpretationBox["Q", GammaRegularized], RowBox[{"-", "1"}]], "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the generalized regularized incomplete gamma function. The \ value ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["Q", GammaRegularized], "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", "u"}], ")"}], "\[Equal]", "w"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"quotient", "(", RowBox[{"m", ",", "n"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The integer quotient of ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " and", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox["n", "TraditionalForm"]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"quotient", "(", RowBox[{"m", ",", "n"}], ")"}], "\[Equal]", RowBox[{"\[LeftFloor]", FractionBox["m", "n"], "\[RightFloor]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["R", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ StyleBox["r", "Traditional"], "(", StyleBox[ RowBox[{"a", ",", "q"}], "Traditional"], StyleBox[")", "Traditional"]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The characteristic exponent of the Mathieu functions. ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"MathieuFunction", "(", RowBox[{"a", ",", "q", ",", "z"}], ")"}], "=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"i", " ", RowBox[{"r", RowBox[{"(", RowBox[{"a", ",", "q"}], ")"}]}], "z"}]], RowBox[{"f", "(", "z", ")"}]}]}], TraditionalForm]]], " (where ", Cell[BoxData[ FormBox[ RowBox[{"f", "(", "z", ")"}], TraditionalForm]]], " has period ", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]"}], TraditionalForm]]], ")." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Re", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The real part of the number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", RowBox[{ RowBox[{"Re", "(", "z", ")"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Im", "(", "z", ")"}]}]}]}], ",", " ", RowBox[{ RowBox[{"Re", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"z", "+", OverscriptBox["z", "_"]}], "2"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["S", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"S", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Fresnel integral S: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"S", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ RowBox[{"sin", RowBox[{"(", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["t", "2"]}], "2"], ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["S", "\[Nu]", "p"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Nielsen generalized polylogarithm: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["S", "\[Nu]", "p"], "(", "z", ")"}], "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "+", "p"}]], " ", SubsuperscriptBox["S", "k", RowBox[{"(", "p", ")"}]]}], RowBox[{ SuperscriptBox["k", "\[Nu]"], " ", RowBox[{"k", "!"}]}]], " ", SuperscriptBox["z", "k"]}]}], "/;", RowBox[{ RowBox[{"p", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}], "\[And]", " ", RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[LessEqual]", "1"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubsuperscriptBox["S", "n", RowBox[{"(", "m", ")"}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Stirling number of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["S", "n", RowBox[{"(", "m", ")"}]], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox["t", "m"], "]"}], SubscriptBox[ RowBox[{"(", RowBox[{"-", "t"}], ")"}], "n"]}], ")"}]}]}], "/;", "m"}], ",", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubsuperscriptBox["\[ScriptCapitalS]", "n", RowBox[{"(", "m", ")"}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Stirling number of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[ScriptCapitalS]", "n", RowBox[{"(", "m", ")"}]], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"m", "!"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "m"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "-", "k"}]], " ", RowBox[{"(", GridBox[{ {"m"}, {"k"} }], ")"}], " ", SuperscriptBox["k", "n"]}]}]}]}], "/;", "m"}], ",", RowBox[{ RowBox[{"n", "-", "1"}], "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function sc: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sc", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"cn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"cs", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sc", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function sc. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sc", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["sc", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["t", "2"], "+", "1"}]], " ", SqrtBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["t", "2"]}], "+", "1"}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["z", "2"]}], ">", RowBox[{"-", "1"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function sd: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sd", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", FractionBox[ RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], RowBox[{"dn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]], "\[Equal]", FractionBox["1", RowBox[{"ds", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sd", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function sd. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sd", RowBox[{"(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["sd", RowBox[{"-", "1"}]], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"m", " ", SuperscriptBox["t", "2"]}], "+", "1"}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["t", "2"]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ RowBox[{"m", " ", SuperscriptBox["z", "2"]}], ">", RowBox[{"-", "1"}]}], "\[And]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], " ", SuperscriptBox["z", "2"]}], "<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Se", "(", RowBox[{"a", ",", "q", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The odd Mathieu function with characteristic value ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Se", "z"], "(", RowBox[{"a", ",", "q", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the odd Mathieu function with characteristic value ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " and parameter ", Cell[BoxData[ FormBox["q", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Se", "z"], RowBox[{"(", RowBox[{"a", ",", "q", ",", "z"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"\[PartialD]", RowBox[{"Se", RowBox[{"(", RowBox[{"a", ",", "q", ",", "z"}], ")"}]}]}], " "}], RowBox[{"\[PartialD]", "z"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sec", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The secant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sec", "(", "z", ")"}], "\[Equal]", " ", FractionBox["1", RowBox[{"cos", "(", "z", ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sec", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse secant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["sec", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sech", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic secant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sech", "(", "z", ")"}], "\[Equal]", " ", FractionBox["1", RowBox[{"cosh", "(", "z", ")"}]], "\[Equal]", RowBox[{"sec", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sech", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic secant function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["sech", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["cosh", RowBox[{"-", "1"}]], "(", FractionBox["1", "z"], ")"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox[ RowBox[{ RowBox[{"1", "/", "z"}], "-", "1"}]], SqrtBox[ RowBox[{"1", "-", RowBox[{"1", "/", "z"}]}]]], RowBox[{ SuperscriptBox["sec", RowBox[{"-", "1"}]], "(", "z", ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sgn", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The signum of the number ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sgn", RowBox[{"(", "z", ")"}]}], "\[Equal]", FractionBox["z", RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}]]}], "/;", RowBox[{"z", "\[NotEqual]", "0"}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Shi", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic sine integral function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Shi", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox[ RowBox[{"sinh", "(", "t", ")"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Si", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The sine integral function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Si", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox[ RowBox[{"sin", "(", "t", ")"}], "t"], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sin", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The sine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sin", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "z"}]], "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], RowBox[{"2", " ", "\[ImaginaryI]"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse sine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", " ", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"log", "(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "z"}], "+", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["z", "2"]}]]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sinh", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic sine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sinh", "(", "z", ")"}], "\[Equal]", " ", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], "-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]]}], RowBox[{"2", " "}]], "\[Equal]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"sin", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sinh", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic sine function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["sinh", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", " ", RowBox[{"log", "(", RowBox[{"z", "+", SqrtBox[ RowBox[{"1", "+", SuperscriptBox["z", "2"]}]]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " "}], RowBox[{ SuperscriptBox["sin", RowBox[{"-", "1"}]], "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi elliptic function sn: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"sn", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"sin", "(", RowBox[{"am", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], ")"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["sn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Jacobi elliptic function sn. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"sn", "(", RowBox[{"u", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"z", ":", " ", RowBox[{ RowBox[{ SuperscriptBox["sn", RowBox[{"-", "1"}]], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "-", SuperscriptBox["t", "2"]}]], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", SuperscriptBox["t", "2"]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "<", "z", "<", "1"}], "\[And]", RowBox[{ RowBox[{"m", " ", SuperscriptBox["z", "2"]}], "<", "1"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["T", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["T", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th", " Chebyshev function of the first kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["T", "\[Nu]"], "(", "z", ")"}], "\[Equal]", RowBox[{"cos", "(", RowBox[{"\[Nu]", " ", RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}]}], ")"}]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"tan", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The tangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"tan", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"sin", "(", "z", ")"}], RowBox[{"cos", "(", "z", ")"}]]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse tangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", "\[ImaginaryI]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", "z"}]}], ")"}], "-", RowBox[{"log", "(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", "z"}]}], ")"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse tangent function of two variables: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"x", ",", "y"}], ")"}], "\[Equal]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"log", "(", FractionBox[ RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "y"}]}], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"tanh", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The hyperbolic tangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"tanh", "(", "z", ")"}], "\[Equal]", FractionBox[ RowBox[{"sinh", "(", "z", ")"}], RowBox[{"cosh", "(", "z", ")"}]], "\[Equal]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"tan", "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["tanh", RowBox[{"-", "1"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse hyperbolic tangent function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["tanh", RowBox[{"-", "1"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"log", "(", RowBox[{"1", "+", "z"}], ")"}], "-", RowBox[{"log", "(", RowBox[{"1", "-", "z"}], ")"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " "}], RowBox[{ SuperscriptBox["tan", RowBox[{"-", "1"}]], "(", RowBox[{"\[ImaginaryI]", " ", "z"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["U", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"U", "(", RowBox[{"a", ",", "b", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "TheTricomi hypergeometric function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"U", ":", " ", RowBox[{ RowBox[{"U", "(", RowBox[{"a", ",", "b", ",", "z"}], ")"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"b", "-", "1"}], ")"}]}], SuperscriptBox["z", RowBox[{"1", "-", "b"}]]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", "a", ")"}]}]], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"a", "-", "b", "+", "1"}], ";", RowBox[{"2", "-", "b"}], ";", "z"}], ")"}]}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}]}], " "}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "-", "b", "+", "1"}], ")"}]}]], RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["1", "TraditionalForm"]], SubscriptBox["F", FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"a", ";", "b", ";", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{"b", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["U", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th", " Chebyshev function of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["U", "\[Nu]"], "(", "z", ")"}], " ", " ", "\[Equal]", FractionBox[ RowBox[{"sin", "(", RowBox[{ RowBox[{"(", RowBox[{"\[Nu]", "+", "1"}], ")"}], " ", RowBox[{ SuperscriptBox["cos", RowBox[{"-", "1"}]], "(", "z", ")"}]}], ")"}], SqrtBox[ RowBox[{"1", "-", SuperscriptBox["z", "2"]}]]]}], TraditionalForm]]], ". For nonnegative integer ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], " it is a polynomial in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["W", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"W", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The product log function on the principle sheet. The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"u", " ", SuperscriptBox["e", "u"]}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["W", "k"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The product log function on the ", Cell[BoxData[ FormBox["k", TraditionalForm]]], "th sheet. The ", Cell[BoxData[ FormBox["k", TraditionalForm]]], "th value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"u", " ", SuperscriptBox["e", "u"]}], "\[Equal]", "z"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Y", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["Y", "\[Nu]"], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Bessel function of the second kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Y", "\[Nu]"], RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{ RowBox[{"csc", RowBox[{"(", RowBox[{"\[Pi]", " ", "\[Nu]"}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cos", RowBox[{"(", RowBox[{"\[Pi]", " ", "\[Nu]"}], ")"}]}], " ", RowBox[{ SubscriptBox["J", "\[Nu]"], RowBox[{"(", "z", ")"}]}]}], "-", RowBox[{ SubscriptBox["J", RowBox[{"-", "\[Nu]"}]], RowBox[{"(", "z", ")"}]}]}], ")"}]}]}], "/;", RowBox[{"\[Nu]", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["Y", "l", "m"], "(", RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The spherical harmonic function of ", Cell[BoxData[ FormBox["\[Theta]", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["\[CurlyPhi]", TraditionalForm]]], " for parameters ", Cell[BoxData[ FormBox["l", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["m", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubsuperscriptBox["Y", "l", "m"], RowBox[{"(", RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "l"}], "+", "1"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"l", "-", "m"}], ")"}], "!"}]}], RowBox[{"4", " ", "\[Pi]", " ", RowBox[{ RowBox[{"(", RowBox[{"l", "+", "m"}], ")"}], "!"}]}]]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[CurlyPhi]", " ", "m"}]], " ", RowBox[{ SuperscriptBox["cot", "m"], RowBox[{"(", FractionBox["\[Theta]", "2"], ")"}]}], " ", RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "l"}], ",", RowBox[{"l", "+", "1"}]}], ";", RowBox[{"1", "-", "m"}], ";", RowBox[{ SuperscriptBox["sin", "2"], RowBox[{"(", FractionBox["\[Theta]", "2"], ")"}]}]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Z", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"Z", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The Riemann-Siegel Zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Z", "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"\[CurlyTheta]", "(", "z", ")"}]}]], " ", RowBox[{"\[Zeta]", "(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "z"}], "+", FractionBox["1", "2"]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalZeta]", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Jacobi Zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CapitalZeta]", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{ RowBox[{"E", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], "-", RowBox[{ FractionBox[ RowBox[{"E", "(", "m", ")"}], RowBox[{"K", "(", "m", ")"}]], " ", RowBox[{"F", "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Greek", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[CapitalBeta]", Beta], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Euler Beta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ InterpretationBox["\[CapitalBeta]", Beta], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"\[CapitalGamma]", RowBox[{"(", "a", ")"}]}], " ", RowBox[{"\[CapitalGamma]", RowBox[{"(", "b", ")"}]}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}]}]], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "1"], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], RowBox[{"b", "-", "1"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Re", RowBox[{"(", "a", ")"}]}], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "b", ")"}]}], ">", "0"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["\[CapitalBeta]", Beta], "z"], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The incomplete beta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox[ InterpretationBox["\[CapitalBeta]", Beta], "z"], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], RowBox[{"b", "-", "1"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"Re", RowBox[{"(", "a", ")"}]}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CapitalBeta]", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]], "(", RowBox[{"a", ",", "b"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized incomplete beta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[CapitalBeta]", RowBox[{"(", RowBox[{ SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}]], "(", RowBox[{"a", ",", "b"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["z", "1"], SubscriptBox["z", "2"]], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "t"}], ")"}], RowBox[{"b", "-", "1"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[CapitalBeta]", SubscriptBox["z", "2"]], "(", RowBox[{"a", ",", "b"}], ")"}], "-", RowBox[{ SubscriptBox["\[CapitalBeta]", SubscriptBox["z", "1"]], "(", RowBox[{"a", ",", "b"}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Euler gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "(", "z", ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"z", "-", "1"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"Re", "(", "z", ")"}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", "z"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The incomplete gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", "z"}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "z", "\[Infinity]"], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized incomplete gamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", SubscriptBox["z", "1"], ",", SubscriptBox["z", "2"]}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", SubscriptBox["z", "1"], SubscriptBox["z", "2"]], RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"a", "-", "1"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]]}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", SubscriptBox["z", "1"]}], ")"}], "-", RowBox[{"\[CapitalGamma]", "(", RowBox[{"a", ",", SubscriptBox["z", "2"]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox["\[DoubledGamma]", TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "Euler gamma ", Cell[BoxData[ FormBox["\[DoubledGamma]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"\[DoubledGamma]", "\[Equal]", RowBox[{ UnderscriptBox["lim", RowBox[{"n", "\[Rule]", "\[Infinity]"}]], "\[ThinSpace]", RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], FractionBox["1", "k"]}], "-", RowBox[{"log", "(", "n", ")"}]}], ")"}]}], "\[TildeTilde]", StyleBox[ RowBox[{"0.5772156", "\[Ellipsis]"}], ZeroWidthTimes->True]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox["\[Gamma]", "n"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["n", TraditionalForm]]], "th Stieltjes constant: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Gamma]", "n"], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{"n", "!"}], " ", RowBox[{"(", RowBox[{ RowBox[{"[", SuperscriptBox[ RowBox[{"(", RowBox[{"s", "-", "1"}], ")"}], "n"], " ", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"\[Zeta]", "(", "s", ")"}], "-", FractionBox["1", RowBox[{"s", "-", "1"}]]}], ")"}]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Delta]", DiracDelta], "(", "x", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The Dirac delta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Delta]", RowBox[{"(", "x", ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{ UnderscriptBox["lim", RowBox[{"\[CurlyEpsilon]", "\[Rule]", "0"}]], "\[ThinSpace]", FractionBox["\[CurlyEpsilon]", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["\[CurlyEpsilon]", "2"]}]]}]}]}], "/;"}], "TraditionalForm"], "x"}], "\[Element]", "\[DoubleStruckCapitalR]"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Delta]", DiracDelta], "(", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The multidimensional Dirac delta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Delta]", RowBox[{"(", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]"}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{ UnderscriptBox["lim", RowBox[{"\[CurlyEpsilon]", "\[Rule]", "0"}]], FractionBox["\[CurlyEpsilon]", RowBox[{ SuperscriptBox["\[CurlyEpsilon]", "2"], "+", SubsuperscriptBox["x", "1", "2"], "+", SubsuperscriptBox["x", "2", "2"], "+", "\[Ellipsis]"}]]}]}]}], "/;", RowBox[{ SubscriptBox["x", "k"], "\[Element]", "\[DoubleStruckCapitalR]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Delta]", DiscreteDelta], "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The discrete delta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Delta]", "(", "n", ")"}], "=", RowBox[{ StyleBox["{", AutoStyleOptions->{"UnmatchedBracketStyle"->None}], GridBox[{ { RowBox[{ RowBox[{"1", " ", "n"}], "\[Equal]", "0"}]}, { RowBox[{"0", " ", "else"}]} }, ColumnAlignments->{Left}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Delta]", DiscreteDelta], "(", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ " The multidimensional discrete delta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Delta]", "(", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}], ")"}], "=", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "k"], RowBox[{"\[Delta]", "(", SubscriptBox["n", "j"], ")"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta], RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Kronecker delta function: ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ InterpretationBox["\[Delta]", KroneckerDelta], RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "k"]}]], "=", RowBox[{ StyleBox["{", AutoStyleOptions->{"UnmatchedBracketStyle"->None}], GridBox[{ { RowBox[{ RowBox[{"1", " ", SubscriptBox["n", "1"]}], "\[Equal]", SubscriptBox["n", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["n", "k"]}]}, { RowBox[{"0", " ", "else"}]} }, ColumnAlignments->{Left}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ SubscriptBox["\[CurlyEpsilon]", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "d"]}]], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The signature of the permutation ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["n", "1"], ",", SubscriptBox["n", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["n", "d"]}], "}"}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Zeta]", "(", "s", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Riemann zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "(", "s", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], FractionBox["1", SuperscriptBox["k", "s"]]}]}], "/;", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Zeta]", "(", RowBox[{"s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized Riemann zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "(", RowBox[{"s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "2"], ")"}], RowBox[{"s", "/", "2"}]]]}]}], "/;", RowBox[{ RowBox[{"-", "a"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[Zeta]", "^"], "(", RowBox[{"s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The generalized classical Riemann zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[Zeta]", "^"], "(", RowBox[{"s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[Zeta]", "~"], "(", RowBox[{"s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The regularized generalized classical Riemann zeta function: ", Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[Zeta]", "~"], "(", RowBox[{"s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", RowBox[{ RowBox[{"-", "a"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}]}], ";"}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[Zeta]", "~"], "(", RowBox[{"s", ",", RowBox[{"-", "n"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "s"]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "s"]]}]}]}], "/;", RowBox[{"n", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}], TraditionalForm]}]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Zeta]", "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "TheWeierstrass elliptic zeta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Zeta]", RowBox[{"(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "z"], "+", RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"z", "-", RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "-", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}]], "+", "\[IndentingNewLine]", FractionBox["1", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}]], "+", FractionBox["z", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ")"}], "2"]]}], ")"}], "."}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Eta]", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Dedekind eta modular function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Eta]", "(", "z", ")"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"z", "/", "12"}]}]], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ "2", " ", "\[Pi]", " ", "\[ImaginaryI]", " ", "k", " ", "z"}]]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"Im", RowBox[{"(", "z", ")"}]}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Eta]", "1"], ",", SubscriptBox["\[Eta]", "2"], ",", SubscriptBox["\[Eta]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Eta]", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Eta]", "3"], RowBox[{"(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], "}"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The values of the Weierstrass zeta function at the half-periods ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Eta]", "1"], ",", SubscriptBox["\[Eta]", "2"], ",", SubscriptBox["\[Eta]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Eta]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Eta]", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Eta]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], ")"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"\[Zeta]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], ",", RowBox[{"\[Zeta]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "2"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], ",", RowBox[{"\[Zeta]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "3"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}]}], "}"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Theta]", UnitStep], "(", "x", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The unit step function", Cell[BoxData[ FormBox[ RowBox[{":", FormBox[ RowBox[{ RowBox[{ InterpretationBox["\[Theta]", UnitStep], "(", "x", ")"}], "\[Equal]", RowBox[{ StyleBox["{", AutoStyleOptions->{"UnmatchedBracketStyle"->None}], GridBox[{ { RowBox[{ RowBox[{"1", " ", "if", " ", "x"}], "\[GreaterEqual]", "0"}]}, { RowBox[{ RowBox[{"0", " ", "if", " ", "x"}], "<", "0"}]} }]}]}], "TraditionalForm"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Theta]", UnitStep], "(", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["x", "n"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The multidimensional unit step: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["\[Theta]", UnitStep], "(", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["x", "n"]}], ")"}], "=", RowBox[{ SubsuperscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"\[Theta]", "(", SubscriptBox["x", "k"], ")"}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CurlyTheta]", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Riemann\[Hyphen]Siegel theta function: ", Cell[BoxData[ FormBox[ FormBox[ RowBox[{ RowBox[{"\[CurlyTheta]", "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"z", " ", RowBox[{"log", RowBox[{"(", "\[Pi]", ")"}]}]}], "2"]}], " ", "-", RowBox[{ FractionBox[ RowBox[{" ", "\[ImaginaryI]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"log\[CapitalGamma]", RowBox[{"(", RowBox[{ FractionBox["1", "4"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "z"}], "2"]}], ")"}]}], "-", RowBox[{"log\[CapitalGamma]", RowBox[{"(", RowBox[{ FractionBox["1", "4"], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "z"}], "2"]}], ")"}]}]}], ")"}]}]}]}], "TraditionalForm"], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], "(", RowBox[{"z", ",", "q"}], ")"}], "\[Equal]", RowBox[{"2", " ", RadicalBox["q", "4"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", SuperscriptBox["q", RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"sin", "(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "z"}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "1", "\[Prime]"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the first elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "1", "\[Prime]"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["\[CurlyTheta]", "1"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{"2", " ", RadicalBox["q", "4"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", SuperscriptBox["q", RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", RowBox[{"cos", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "2"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The second elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "2"], "(", RowBox[{"z", ",", "q"}], ")"}], "\[Equal]", RowBox[{"2", " ", RadicalBox["q", "4"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox["q", RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"cos", "(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "z"}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "2", "\[Prime]"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the second elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "2", "\[Prime]"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["\[CurlyTheta]", "2"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", RadicalBox["q", "4"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox["q", RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", RowBox[{"sin", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "3"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The third elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "3"], "(", RowBox[{"z", ",", "q"}], ")"}], "\[Equal]", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["q", SuperscriptBox["k", "2"]], " ", RowBox[{"cos", "(", RowBox[{"2", " ", "k", " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "3", "\[Prime]"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the third elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "3", "\[Prime]"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[PartialD]", RowBox[{ SubscriptBox["\[CurlyTheta]", "3"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["q", SuperscriptBox["k", "2"]], " ", "k", " ", RowBox[{"sin", RowBox[{"(", RowBox[{"2", " ", "k", " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "4"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The fourth elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "4"], "(", RowBox[{"z", ",", "q"}], ")"}], "\[Equal]", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", SuperscriptBox["q", SuperscriptBox["k", "2"]], " ", RowBox[{"cos", "(", RowBox[{"2", " ", "k", " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "4", "\[Prime]"], "(", RowBox[{"z", ",", "q"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The first derivative with respect to ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " of the fourth elliptic theta function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[CurlyTheta]", "4", "\[Prime]"], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "4"}], RowBox[{"(", RowBox[{"z", ",", "q"}], ")"}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", "k", " ", SuperscriptBox["q", SuperscriptBox["k", "2"]], " ", RowBox[{"sin", RowBox[{"(", RowBox[{"2", " ", "k", " ", "z"}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"\[LeftBracketingBar]", "q", "\[RightBracketingBar]"}], "<", "1"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "c"], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "TheNeville elliptic theta function C: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "c"], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}]]}], RowBox[{ SqrtBox["m"], " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"cos", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "\[Pi]", " ", "z"}], RowBox[{"2", " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]], ")"}]}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "d"], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "TheNeville elliptic theta function D: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "d"], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["\[Pi]", RowBox[{"2", " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], SuperscriptBox["k", "2"]], " ", RowBox[{"cos", RowBox[{"(", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "z"}], RowBox[{"K", RowBox[{"(", "m", ")"}]}]], ")"}]}]}]}]}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "n"], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "TheNeville elliptic theta function N: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "n"], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["\[Pi]", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "m"}]], " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", SuperscriptBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], SuperscriptBox["k", "2"]], " ", RowBox[{"cos", RowBox[{"(", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "z"}], RowBox[{"K", RowBox[{"(", "m", ")"}]}]], ")"}]}]}]}]}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[CurlyTheta]", "s"], "(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Neville elliptic theta function S: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[CurlyTheta]", "s"], RowBox[{"(", RowBox[{"z", "\[VerticalSeparator]", "m"}], ")"}]}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}]]}], RowBox[{ SqrtBox["m"], " ", SqrtBox[ RowBox[{"1", "-", "m"}]], " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", SuperscriptBox[ RowBox[{ InterpretationBox["q", EllipticNomeQ], "(", "m", ")"}], RowBox[{"k", " ", RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}]}]], " ", RowBox[{"sin", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], " ", "\[Pi]", " ", "z"}], RowBox[{"2", " ", RowBox[{"K", RowBox[{"(", "m", ")"}]}]}]], ")"}]}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ InterpretationBox["\[Lambda]", CarmichaelLambda], "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Carmichael lambda function: The smallest integer ", Cell[BoxData[ FormBox["\[Lambda]", TraditionalForm]]], " such that for any ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " with ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"gcd", "(", RowBox[{"m", ",", "n"}], ")"}], "\[Equal]", "1"}], TraditionalForm]]], " the congruence ", Cell[BoxData[ FormBox[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["m", RowBox[{"\[Lambda]", RowBox[{"(", "n", ")"}]}]], "mod", " ", "n"}], "\[Equal]", "1"}], "TraditionalForm"], TraditionalForm]]], " holds." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Lambda]", "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The lambda modular function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Lambda]", RowBox[{"(", "z", ")"}]}], "\[Equal]", RowBox[{"16", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "z"}]], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "\[Infinity]"], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "+", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ "2", "k", " ", "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], " ", "-", "1"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", " ", "z"}]]}]], ")"}], "8"]}]}]}], "/;", RowBox[{ RowBox[{"Im", RowBox[{"(", "z", ")"}]}], ">", "0"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Mu]", "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The M\[ODoubleDot]bius function ", Cell[BoxData[ FormBox["\[Mu]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "n", ")"}], "\[Equal]", RowBox[{ StyleBox["{", AutoStyleOptions->{"UnmatchedBracketStyle"->None}, SpanMaxSize->Infinity], GridBox[{ {"1", "if", RowBox[{"n", "\[Equal]", "1"}]}, {"0", "if", RowBox[{ SubscriptBox["\[Exists]", "m"], RowBox[{ FractionBox["n", SuperscriptBox["m", "2"]], "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}, { SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], "if", RowBox[{ RowBox[{"n", "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "k"], SubscriptBox["p", "j"]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["p", "j"], "\[Element]", "\[DoubleStruckCapitalP]"}], "\[And]", RowBox[{ SubscriptBox["p", RowBox[{"j", "-", "1"}]], "<", SubscriptBox["p", "j"]}]}]}]} }]}]}], TraditionalForm]]], ". " }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalPi]", "(", RowBox[{"n", "\[VerticalSeparator]", "m"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The complete elliptic integral of the third kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalPi]", "(", RowBox[{"n", "\[VerticalSeparator]", "m"}], ")"}], "\[Equal]", RowBox[{"\[CapitalPi]", "(", RowBox[{"n", ";", RowBox[{ FractionBox["\[Pi]", "2"], "\[VerticalSeparator]", "m"}]}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", FractionBox["\[Pi]", "2"]], RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"n", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}], ")"}], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], "<", "z", "<", FractionBox["\[Pi]", "2"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalPi]", "(", RowBox[{"n", ";", RowBox[{"z", "\[VerticalSeparator]", "m"}]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The incomplete elliptic integral of the third kind: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CapitalPi]", "(", RowBox[{"n", ";", RowBox[{"z", "\[VerticalSeparator]", "m"}]}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "z"], RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"n", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}], ")"}], " ", SqrtBox[ RowBox[{"1", "-", RowBox[{"m", " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "t", ")"}]}]}]]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox["\[Pi]", "Traditional"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The constant ", Cell[BoxData[ FormBox["\[Pi]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"\[Pi]", "\[Equal]", RowBox[{"4", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{ RowBox[{"2", " ", "k"}], "+", "1"}]]}]}], "\[Equal]", StyleBox[ RowBox[{"3.141592", "\[Ellipsis]"}], ZeroWidthTimes->True]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Pi]", "(", "x", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number of primes less than or equal to ", Cell[BoxData[ FormBox["x", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", "x", ")"}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"\[LeftFloor]", "x", "\[RightFloor]"}]], RowBox[{"\[Theta]", "(", RowBox[{"x", "-", SubscriptBox["p", "k"]}], ")"}]}]}], "/;", StyleBox[ RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{"x", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SubscriptBox["p", "k"], "\[Element]", "\[DoubleStruckCapitalP]"}]}], "Definition"]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Sigma]", "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The elliptic Weierstrass sigma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Sigma]", RowBox[{"(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", RowBox[{"z", RowBox[{ UnderoverscriptBox["\[Product]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{"1", "-", FractionBox["z", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}]]}], ")"}], " ", "\[Times]", RowBox[{ RowBox[{"exp", "(", RowBox[{ FractionBox[ SuperscriptBox["z", "2"], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ")"}], "2"]}]], "+", FractionBox["z", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}]]}], ")"}], "."}]}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sigma]", "n"], "(", RowBox[{"z", ",", SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The associated elliptic Weierstrass sigma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "n"], RowBox[{"(", RowBox[{"z", ",", SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SubscriptBox["\[Eta]", "n"]}], " ", "z"}]], " ", RowBox[{"\[Sigma]", "(", RowBox[{ RowBox[{ RowBox[{"z", "+", SubscriptBox["\[Omega]", "n"]}], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], RowBox[{"\[Sigma]", "(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "n"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "\[And]", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "-", RowBox[{ SubscriptBox["\[Omega]", "3"], RowBox[{"(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ",", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "}"}]}], "\[And]", RowBox[{ SubscriptBox["\[Eta]", "n"], "\[Equal]", RowBox[{"\[Zeta]", "(", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "n"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[And]", RowBox[{"n", "\[Element]", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "."}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Sigma]", "k"], "(", "n", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The sum of the ", Cell[BoxData[ FormBox["k", TraditionalForm]]], "th powers of the divisors of ", Cell[BoxData[ FormBox["n", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "k"], "(", "n", ")"}], "\[Equal]", RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"d", "\[VerticalBar]", "n"}]], SuperscriptBox["d", "k"]}]}], "/;", RowBox[{"n", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CapitalPhi]", "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Lerch function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "2"], ")"}], RowBox[{"s", "/", "2"}]]]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ RowBox[{"-", "a"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}]}]}], ";", " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "(", RowBox[{"z", ",", "s", ",", RowBox[{"-", "n"}]}], ")"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "2"], ")"}], RowBox[{"s", "/", "2"}]]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "2"], ")"}], RowBox[{"s", "/", "2"}]]]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{"n", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[CapitalPhi]", "^"], "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Lerch classical transcendent phi function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[CapitalPhi]", "^"], "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}], ")"}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ OverscriptBox["\[CapitalPhi]", "~"], "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Lerch classical regularized transcendent phi function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[CapitalPhi]", "~"], "(", RowBox[{"z", ",", "s", ",", "a"}], ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}]}], ")"}], "\[And]", RowBox[{ RowBox[{"-", "a"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}]}]}], ";", " ", RowBox[{ RowBox[{ RowBox[{ OverscriptBox["\[CapitalPhi]", "~"], RowBox[{"(", RowBox[{"z", ",", "s", ",", RowBox[{"-", "n"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "s"]]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "n"}], ")"}], "s"]]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{ RowBox[{ "\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", "s", ")"}]}], ">", "1"}]}]}], ")"}], "\[And]", RowBox[{"n", "\[Element]", RowBox[{"\[DoubleStruckCapitalN]", "."}]}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ StyleBox["\[CurlyPhi]", "Traditional"], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The golden ratio ", Cell[BoxData[ FormBox["\[CurlyPhi]", TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{"\[CurlyPhi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["5"]}], ")"}]}]}], TraditionalForm]]], "\[Tilde]1.618033\[Ellipsis]" }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[CurlyPhi]", "(", "x", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The number of positive integers less than ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{"x", " "}], "TraditionalForm"], "(", RowBox[{"x", "\[GreaterEqual]", "0"}], ")"}], TraditionalForm]]], " and relatively prime to ", Cell[BoxData[ FormBox[ RowBox[{"\[LeftFloor]", "x", "\[RightFloor]"}], TraditionalForm]]], " (the Euler totient function): ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[CurlyPhi]", "(", "n", ")"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], SubscriptBox["\[Delta]", RowBox[{ RowBox[{"gcd", RowBox[{"(", RowBox[{"n", ",", "k"}], ")"}]}], ",", " ", "1"}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[Psi]", RowBox[{"(", "z", ")"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The digamma function ", Cell[BoxData[ FormBox[ RowBox[{"\[Psi]", "(", "z", ")"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Psi]", "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{"(", RowBox[{ FractionBox["1", "k"], "-", FractionBox["1", RowBox[{"k", "+", "z", "-", "1"}]]}], ")"}]}], "-", "\[DoubledGamma]"}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Psi]", RowBox[{"(", "\[Nu]", ")"}]], "(", "z", ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The ", Cell[BoxData[ FormBox["\[Nu]", TraditionalForm]]], "\[Hyphen]th derivative of the digamma function: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox[ TagBox["\[Psi]", PolyGamma], RowBox[{"(", "\[Nu]", ")"}]], "(", "z", ")"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubsuperscriptBox["\[ScriptCapitalF]\[ScriptCapitalC]", "exp", RowBox[{"(", "\[Nu]", ")"}]], "(", RowBox[{"z", ",", RowBox[{"-", "1"}]}], ")"}]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "\[Nu]"}], "-", "1"}]]}], "-", FractionBox[ RowBox[{ TagBox["\[DoubledGamma]", (EulerGamma&)], " ", SuperscriptBox["z", RowBox[{"-", "\[Nu]"}]]}], RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", "\[Nu]"}], ")"}]], "+", " ", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", "\[Nu]"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], RowBox[{ FractionBox["1", SuperscriptBox["k", "2"]], TagBox[ TagBox[ RowBox[{ RowBox[{ SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", "TraditionalForm"]], SubscriptBox[ OverscriptBox["F", "~"], FormBox["1", "TraditionalForm"]]}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox["1", Hypergeometric2F1Regularized, Editable->True], ",", TagBox["2", Hypergeometric2F1Regularized, Editable->True]}], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ TagBox[ TagBox[ RowBox[{"2", "-", "\[Nu]"}], Hypergeometric2F1Regularized, Editable->True], InterpretTemplate[ { SlotSequence[ 1]}&]], Hypergeometric2F1Regularized, Editable->False], ";", TagBox[ RowBox[{"-", FractionBox["z", "k"]}], Hypergeometric2F1Regularized, Editable->True]}], ")"}]}], InterpretTemplate[ HypergeometricPFQRegularized[ #, #2, #3]&], Editable->False], Hypergeometric2F1Regularized]}]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "}"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The half\[Hyphen]periods ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], TraditionalForm]]], " for Weierstrass elliptic functions corresponding to the invariants ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], "}"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], "}"}], "\[Equal]", RowBox[{ StyleBox["{", FontVariations->{"CompatibilityType"->0}], RowBox[{ RowBox[{ SubscriptBox[ StyleBox["g", "Traditional", FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], "2"], RowBox[{ StyleBox["(", "Traditional", FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], StyleBox[")", "Traditional", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}]}], ",", RowBox[{ SubscriptBox[ StyleBox["g", "Traditional", FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], "3"], RowBox[{ StyleBox["(", "Traditional", FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}], RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], StyleBox[")", "Traditional", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}]}]}], StyleBox["}", "Traditional", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False, "StrikeThrough"->False, "Masked"->False, "CompatibilityType"->0, "RotationAngle"->0}]}]}], "/;", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ StyleBox[ SubscriptBox["\[Omega]", "1"], ScriptLevel->0], "(", StyleBox[ RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ScriptLevel->0], StyleBox[")", ScriptLevel->0]}], StyleBox[",", ScriptLevel->0], RowBox[{ StyleBox[ SubscriptBox["\[Omega]", "3"], ScriptLevel->0], "(", StyleBox[ RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ScriptLevel->0], StyleBox[")", ScriptLevel->0]}]}], StyleBox["}", ScriptLevel->0]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "-", RowBox[{ SubscriptBox["\[Omega]", "3"], RowBox[{"(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ",", RowBox[{ SubscriptBox["\[Omega]", "3"], RowBox[{"(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], "}"}]}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The half\[Hyphen]periods for Weierstrass elliptic functions corresponding \ to the invariants ", Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], "}"}], TraditionalForm]]], ":\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Omega]", "2"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}], ",", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "2"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}]}], "/;", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[Omega]", "3"]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"60", " "}], SubscriptBox["g", "2"]], RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", RowBox[{"2", " ", "n", " ", "t"}]}], ")"}], "4"]]}]}], ")"}], RowBox[{"1", "/", "4"}]]}], ",", RowBox[{"\[ImaginaryI]", " ", "t", " ", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"60", " "}], SubscriptBox["g", "2"]], RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", RowBox[{"2", " ", "n", " ", "t"}]}], ")"}], "4"]]}]}], ")"}], RowBox[{"1", "/", "4"}]]}]}], "}"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"J", RowBox[{"(", "t", ")"}]}], "\[Equal]", FractionBox[ SubsuperscriptBox["g", "2", "3"], RowBox[{ SubsuperscriptBox["g", "2", "3"], "-", RowBox[{"27", SubsuperscriptBox["g", "3", "2"]}]}]]}], "\[And]", RowBox[{ SubscriptBox["\[Omega]", "2"], "\[Equal]", RowBox[{ RowBox[{"-", SubscriptBox["\[Omega]", "1"]}], "-", SubscriptBox["\[Omega]", "3"]}]}]}]}], TraditionalForm]]] }], "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Other", "Subsection"], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"\[WeierstrassP]", "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The Weierstrass elliptic function \[WeierstrassP]: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", SuperscriptBox["z", "2"]], "+", RowBox[{ UnderoverscriptBox["\[Sum]", UnderscriptBox[ RowBox[{"m", ",", " ", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}]}], RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[NotEqual]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]], "\[Infinity]"], RowBox[{"(", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "-", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ")"}], "2"]], "-", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "+", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ")"}], "2"]]}], ")"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[WeierstrassP]", "\[Prime]"], "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The derivative of the Weierstrass elliptic function P: ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox["\[WeierstrassP]", "\[Prime]"], RowBox[{"(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", FractionBox[ RowBox[{"\[PartialD]", RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}]}], RowBox[{"\[PartialD]", "z"}]], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", RowBox[{"2", " ", "m", " ", RowBox[{ SubscriptBox["\[Omega]", "1"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}], "-", RowBox[{"2", " ", "n", " ", RowBox[{ SubscriptBox["\[Omega]", "3"], "(", RowBox[{ SubscriptBox["g", "2"], ",", SubscriptBox["g", "3"]}], ")"}]}]}], ")"}], "3"]]}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[WeierstrassP]", RowBox[{"-", "1"}]], "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Weierstrass elliptic function ", Cell[BoxData[ FormBox["\[WeierstrassP]", TraditionalForm]]], ". The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{"u", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", "z"}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[WeierstrassP]", RowBox[{"-", "1"}]], "(", RowBox[{ RowBox[{"z", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "\[Infinity]", "z"], RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["t", "3"]}], "-", RowBox[{ SubscriptBox["g", "2"], " ", "t"}], "-", SubscriptBox["g", "3"]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ RowBox[{"z", "\[Element]", "\[DoubleStruckCapitalR]"}], "\[And]", RowBox[{ RowBox[{"Re", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["z", "3"]}], "-", RowBox[{ SubscriptBox["g", "2"], " ", "z"}], "-", SubscriptBox["g", "3"]}], ")"}]}], ">", "0"}]}]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[WeierstrassP]", RowBox[{"-", "1"}]], "(", RowBox[{ SubscriptBox["z", "1"], ",", RowBox[{ SubscriptBox["z", "2"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], TraditionalForm]]]], "Subsection3"], Cell[TextData[{ "The inverse of the Weierstrass function ", Cell[BoxData[ FormBox["\[WeierstrassP]", TraditionalForm]]], ". The value of ", Cell[BoxData[ FormBox["u", TraditionalForm]]], " such that ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[WeierstrassP]", RowBox[{"(", RowBox[{ RowBox[{"u", ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}]}], "\[Equal]", SubscriptBox["z", "1"]}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["z", "2"], "\[Equal]", SqrtBox[ RowBox[{ RowBox[{"4", " ", SubsuperscriptBox["z", "1", "3"]}], "-", RowBox[{ SubscriptBox["g", "2"], " ", SubscriptBox["z", "1"]}], "-", SubscriptBox["g", "3"]}]]}], TraditionalForm]]], ": ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[WeierstrassP]", RowBox[{"-", "1"}]], "(", RowBox[{ SubscriptBox["z", "1"], ",", RowBox[{ SubscriptBox["z", "2"], ";", SubscriptBox["g", "2"]}], ",", SubscriptBox["g", "3"]}], ")"}], "\[Equal]", RowBox[{ SubsuperscriptBox["\[Integral]", "\[Infinity]", SubscriptBox["z", "1"]], RowBox[{ FractionBox["1", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox["t", "3"]}], "-", RowBox[{ SubscriptBox["g", "2"], " ", "t"}], "-", SubscriptBox["g", "3"]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "/;", RowBox[{ SubscriptBox["z", "2"], "\[Equal]", SqrtBox[ RowBox[{ RowBox[{"4", SubsuperscriptBox["z", "1", "3"]}], "-", RowBox[{ SubscriptBox["g", "2"], SubscriptBox["z", "1"]}], "-", SubscriptBox["g", "3"]}]]}]}], TraditionalForm]]], "." }], "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.1 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{734, 719}, WindowMargins->{{Automatic, 61}, {-149, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "PostScriptOutputFile":>FrontEnd`FileName[{"home", "SpecialFunctions", \ "Various"}, "NotationsT1.nb.ps", CharacterEncoding -> "ISO8859-1"], "Magnification"->1}, PrivateNotebookOptions->{"ShortBoxForm"->False}, Magnification->1.25, StyleDefinitions -> "FunctionariaStylesheet.nb" ] (******************************************************************* 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->{ "TextComment"->{ Cell[417645, 11268, 267, 9, 70, "TextComment", CellTags->"TextComment"], Cell[417915, 11279, 3922, 123, 70, "TextComment", CellTags->"TextComment"], Cell[421840, 11404, 2155, 75, 70, "TextComment", CellTags->"TextComment"], Cell[423998, 11481, 2101, 72, 70, "TextComment", CellTags->"TextComment"]} } *) (*CellTagsIndex CellTagsIndex->{ {"TextComment", 960004, 27253} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1727, 52, 29, 0, 82, "Subtitle"], Cell[1759, 54, 40, 0, 36, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1836, 59, 52, 0, 91, "Section"], Cell[CellGroupData[{ Cell[1913, 63, 51, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[1989, 67, 102, 1, 56, "Subsection3"], Cell[2094, 70, 241, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[2372, 83, 137, 3, 56, "Subsection3"], Cell[2512, 88, 238, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[2787, 101, 102, 1, 56, "Subsection3"], Cell[2892, 104, 318, 10, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[3247, 119, 102, 1, 56, "Subsection3"], Cell[3352, 122, 408, 12, 44, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[3797, 139, 102, 1, 56, "Subsection3"], Cell[3902, 142, 60, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[3999, 147, 102, 1, 56, "Subsection3"], Cell[4104, 150, 413, 13, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[4554, 168, 102, 1, 56, "Subsection3"], Cell[4659, 171, 272, 9, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[4968, 185, 102, 2, 56, "Subsection3"], Cell[5073, 189, 51, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[5161, 194, 289, 7, 57, "Subsection3"], Cell[5453, 203, 401, 12, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[5891, 220, 273, 7, 56, "Subsection3"], Cell[6167, 229, 571, 19, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[6775, 253, 137, 3, 56, "Subsection3"], Cell[6915, 258, 408, 14, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[7360, 277, 213, 4, 56, "Subsection3"], Cell[7576, 283, 266, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[7879, 296, 253, 6, 56, "Subsection3"], Cell[8135, 304, 257, 8, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8441, 318, 40, 0, 56, "Subsection"], Cell[8484, 320, 137, 3, 36, "Notations_TF_SectionText"], Cell[CellGroupData[{ Cell[8646, 327, 306, 7, 56, "Subsection3"], Cell[8955, 336, 62, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[9054, 341, 306, 7, 56, "Subsection3"], Cell[9363, 350, 532, 17, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[9932, 372, 518, 11, 56, "Subsection3"], Cell[10453, 385, 54, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[10544, 390, 306, 7, 56, "Subsection3"], Cell[10853, 399, 78, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[10968, 404, 138, 3, 56, "Subsection3"], Cell[11109, 409, 113, 3, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11271, 418, 36, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[11332, 422, 145, 3, 56, "Subsection3"], Cell[11480, 427, 233, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[11750, 440, 148, 3, 56, "Subsection3"], Cell[11901, 445, 230, 7, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[12168, 457, 176, 4, 56, "Subsection3"], Cell[12347, 463, 422, 16, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[12806, 484, 252, 6, 56, "Subsection3"], Cell[13061, 492, 431, 16, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[13529, 513, 179, 4, 56, "Subsection3"], Cell[13711, 519, 282, 9, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14042, 534, 40, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[14107, 538, 208, 6, 57, "Subsection3"], Cell[14318, 546, 676, 24, 38, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[15031, 575, 245, 6, 56, "Subsection3"], Cell[15279, 583, 414, 13, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[15730, 601, 174, 4, 56, "Subsection3"], Cell[15907, 607, 297, 6, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[16241, 618, 229, 7, 56, "Subsection3"], Cell[16473, 627, 190, 8, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16724, 642, 54, 0, 91, "Section"], Cell[CellGroupData[{ Cell[16803, 646, 39, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[16867, 650, 112, 2, 56, "Subsection3"], Cell[16982, 654, 181, 7, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[17200, 666, 111, 2, 56, "Subsection3"], Cell[17314, 670, 187, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[17538, 683, 107, 2, 56, "Subsection3"], Cell[17648, 687, 138, 5, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[17823, 697, 88, 1, 56, "Subsection3"], Cell[17914, 700, 58, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[18009, 705, 88, 1, 56, "Subsection3"], Cell[18100, 708, 60, 0, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18209, 714, 67, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[18301, 718, 108, 2, 56, "Subsection3"], Cell[18412, 722, 211, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[18660, 735, 114, 2, 56, "Subsection3"], Cell[18777, 739, 222, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[19036, 752, 117, 2, 56, "Subsection3"], Cell[19156, 756, 224, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[19417, 769, 107, 2, 56, "Subsection3"], Cell[19527, 773, 224, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[19788, 786, 128, 3, 56, "Subsection3"], Cell[19919, 791, 220, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[20176, 804, 107, 2, 56, "Subsection3"], Cell[20286, 808, 221, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[20544, 821, 118, 2, 56, "Subsection3"], Cell[20665, 825, 233, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[20935, 838, 314, 9, 59, "Subsection3"], Cell[21252, 849, 328, 9, 38, "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21641, 865, 30, 0, 91, "Section"], Cell[CellGroupData[{ Cell[21696, 869, 38, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[21759, 873, 309, 7, 56, "Subsection3"], Cell[22071, 882, 695, 22, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22815, 910, 79, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[22919, 914, 304, 7, 56, "Subsection3"], Cell[23226, 923, 326, 11, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[23589, 939, 328, 11, 58, "Subsection3"], Cell[23920, 952, 1164, 36, 76, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[25121, 993, 463, 12, 56, "Subsection3"], Cell[25587, 1007, 517, 15, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[26141, 1027, 251, 6, 56, "Subsection3"], Cell[26395, 1035, 375, 13, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[26807, 1053, 236, 6, 58, "Subsection3"], Cell[27046, 1061, 344, 9, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[27427, 1075, 214, 5, 56, "Subsection3"], Cell[27644, 1082, 298, 8, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27991, 1096, 44, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[28060, 1100, 391, 10, 56, "Subsection3"], Cell[28454, 1112, 494, 14, 47, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[28985, 1131, 561, 15, 64, "Subsection3"], Cell[29549, 1148, 502, 16, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[30088, 1169, 479, 13, 56, "Subsection3"], Cell[30570, 1184, 561, 18, 45, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[31168, 1207, 332, 9, 63, "Subsection3"], Cell[31503, 1218, 426, 16, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[31966, 1239, 239, 7, 56, "Subsection3"], Cell[32208, 1248, 921, 29, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[33166, 1282, 311, 9, 56, "Subsection3"], Cell[33480, 1293, 1143, 35, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[34660, 1333, 719, 18, 61, "Subsection3"], Cell[35382, 1353, 3202, 79, 87, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[38621, 1437, 233, 6, 56, "Subsection3"], Cell[38857, 1445, 1283, 41, 58, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[40177, 1491, 727, 19, 60, "Subsection3"], Cell[40907, 1512, 3840, 105, 112, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[44784, 1622, 1109, 25, 77, "Subsection3"], Cell[45896, 1649, 2671, 70, 75, "Notations_TF_SectionText"], Cell[48570, 1721, 5806, 133, 105, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[54413, 1859, 1109, 25, 77, "Subsection3"], Cell[55525, 1886, 2639, 69, 75, "Notations_TF_SectionText"], Cell[58167, 1957, 5770, 132, 105, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[63974, 2094, 574, 15, 60, "Subsection3"], Cell[64551, 2111, 3712, 96, 63, "Notations_TF_SectionText"], Cell[68266, 2209, 6236, 138, 93, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[74539, 2352, 737, 20, 79, "Subsection3"], Cell[75279, 2374, 2757, 68, 59, "Notations_TF_SectionText"], Cell[78039, 2444, 13669, 315, 390, "Notations_TF_SectionText"], Cell[91711, 2761, 849, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[92597, 2790, 797, 22, 70, "Subsection3"], Cell[93397, 2814, 2816, 71, 70, "Notations_TF_SectionText"], Cell[96216, 2887, 4720, 116, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[100973, 3008, 704, 19, 70, "Subsection3"], Cell[101680, 3029, 4266, 110, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[105983, 3144, 842, 23, 70, "Subsection3"], Cell[106828, 3169, 2936, 76, 70, "Notations_TF_SectionText"], Cell[109767, 3247, 4062, 94, 70, "Notations_TF_SectionText"], Cell[113832, 3343, 1740, 47, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[115609, 3395, 840, 23, 70, "Subsection3"], Cell[116452, 3420, 2996, 79, 70, "Notations_TF_SectionText"], Cell[119451, 3501, 10159, 242, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[129647, 3748, 884, 24, 70, "Subsection3"], Cell[130534, 3774, 2928, 77, 70, "Notations_TF_SectionText"], Cell[133465, 3853, 11391, 269, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[144893, 4127, 848, 23, 70, "Subsection3"], Cell[145744, 4152, 4295, 112, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[150076, 4269, 1138, 29, 70, "Subsection3"], Cell[151217, 4300, 2926, 81, 70, "Notations_TF_SectionText"], Cell[154146, 4383, 4413, 100, 70, "Notations_TF_SectionText"], Cell[158562, 4485, 3101, 90, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[161700, 4580, 1179, 30, 70, "Subsection3"], Cell[162882, 4612, 2936, 81, 70, "Notations_TF_SectionText"], Cell[165821, 4695, 11139, 259, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[176997, 4959, 1180, 30, 70, "Subsection3"], Cell[178180, 4991, 2951, 81, 70, "Notations_TF_SectionText"], Cell[181134, 5074, 15223, 338, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[196394, 5417, 1136, 29, 70, "Subsection3"], Cell[197533, 5448, 2874, 79, 70, "Notations_TF_SectionText"], Cell[200410, 5529, 12524, 294, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[212971, 5828, 1241, 32, 70, "Subsection3"], Cell[214215, 5862, 2965, 82, 70, "Notations_TF_SectionText"], Cell[217183, 5946, 4745, 105, 70, "Notations_TF_SectionText"], Cell[221931, 6053, 3212, 93, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[225180, 6151, 1282, 33, 70, "Subsection3"], Cell[226465, 6186, 3027, 84, 70, "Notations_TF_SectionText"], Cell[229495, 6272, 11393, 265, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[240925, 6542, 1283, 33, 70, "Subsection3"], Cell[242211, 6577, 3042, 84, 81, "Notations_TF_SectionText"], Cell[245256, 6663, 15548, 345, 449, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[260841, 7013, 1239, 32, 79, "Subsection3"], Cell[262083, 7047, 2965, 82, 81, "Notations_TF_SectionText"], Cell[265051, 7131, 12656, 297, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[277744, 7433, 1144, 29, 70, "Subsection3"], Cell[278891, 7464, 5127, 138, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[284055, 7607, 1249, 32, 70, "Subsection3"], Cell[285307, 7641, 3125, 85, 70, "Notations_TF_SectionText"], Cell[288435, 7728, 23823, 511, 70, "Notations_TF_SectionText"], Cell[312261, 8241, 1385, 36, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[313683, 8282, 1093, 28, 70, "Subsection3"], Cell[314779, 8312, 3114, 86, 100, "Notations_TF_SectionText"], Cell[317896, 8400, 8568, 201, 230, "Notations_TF_SectionText"], Cell[326467, 8603, 9148, 213, 230, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[335652, 8821, 1103, 28, 79, "Subsection3"], Cell[336758, 8851, 4941, 130, 126, "Notations_TF_SectionText"] }, Open ]], Cell[341714, 8984, 877, 28, 61, "Notations_SF_Section"] }, Open ]], Cell[CellGroupData[{ Cell[342628, 9017, 32, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[342685, 9021, 211, 5, 58, "Subsection3"], Cell[342899, 9028, 1234, 33, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[344170, 9066, 288, 7, 70, "Subsection3"], Cell[344461, 9075, 453, 14, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[344951, 9094, 221, 5, 57, "Subsection3"], Cell[345175, 9101, 405, 12, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[345617, 9118, 450, 12, 74, "Subsection3"], Cell[346070, 9132, 472, 14, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[346579, 9151, 420, 12, 61, "Subsection3"], Cell[347002, 9165, 267, 9, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[347306, 9179, 233, 5, 57, "Subsection3"], Cell[347542, 9186, 154, 5, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[347733, 9196, 215, 5, 58, "Subsection3"], Cell[347951, 9203, 184, 7, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[348172, 9215, 1000, 27, 69, "Subsection3"], Cell[349175, 9244, 894, 27, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[350106, 9276, 555, 14, 72, "Subsection3"], Cell[350664, 9292, 424, 15, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[351137, 9313, 30, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[351192, 9317, 215, 5, 58, "Subsection3"], Cell[351410, 9324, 1220, 34, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[352667, 9363, 292, 7, 70, "Subsection3"], Cell[352962, 9372, 441, 14, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[353440, 9391, 225, 5, 57, "Subsection3"], Cell[353668, 9398, 588, 18, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[354293, 9421, 237, 5, 57, "Subsection3"], Cell[354533, 9428, 153, 5, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[354723, 9438, 219, 5, 58, "Subsection3"], Cell[354945, 9445, 188, 7, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[355170, 9457, 559, 14, 72, "Subsection3"], Cell[355732, 9473, 459, 16, 36, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[356240, 9495, 38, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[356303, 9499, 156, 4, 56, "Subsection3"], Cell[356462, 9505, 735, 22, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[357234, 9532, 164, 4, 56, "Subsection3"], Cell[357401, 9538, 1005, 28, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[358443, 9571, 180, 5, 56, "Subsection3"], Cell[358626, 9578, 2385, 64, 75, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[361048, 9647, 247, 6, 57, "Subsection3"], Cell[361298, 9655, 625, 22, 37, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[361960, 9682, 232, 6, 64, "Subsection3"], Cell[362195, 9690, 889, 28, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[363121, 9723, 296, 8, 66, "Subsection3"], Cell[363420, 9733, 2603, 70, 75, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[366060, 9808, 487, 12, 56, "Subsection3"], Cell[366550, 9822, 464, 13, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[367051, 9840, 248, 7, 56, "Subsection3"], Cell[367302, 9849, 1350, 36, 77, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[368689, 9890, 421, 12, 56, "Subsection3"], Cell[369113, 9904, 2510, 61, 129, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[371672, 9971, 57, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[371754, 9975, 252, 5, 70, "Subsection3"], Cell[372009, 9982, 3599, 83, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[375645, 10070, 506, 11, 70, "Subsection3"], Cell[376154, 10083, 1972, 49, 91, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[378163, 10137, 252, 5, 62, "Subsection3"], Cell[378418, 10144, 3417, 76, 91, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[381872, 10225, 269, 6, 62, "Subsection3"], Cell[382144, 10233, 2170, 55, 62, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[384351, 10293, 557, 16, 66, "Subsection3"], Cell[384911, 10311, 473, 13, 55, "Notations_TF_SectionText"], Cell[385387, 10326, 5871, 150, 232, "LinkingEquationsIndent"], Cell[391261, 10478, 694, 21, 70, "Notations_TF_SectionText"], Cell[391958, 10501, 315, 10, 70, "InventorsBox"], Cell[392276, 10513, 858, 21, 70, "LinkingEquationsIndent"], Cell[393137, 10536, 1240, 36, 70, "InventorsBox"], Cell[394380, 10574, 2944, 73, 70, "LinkingEquationsIndent"], Cell[397327, 10649, 164, 6, 70, "InventorsBox"], Cell[397494, 10657, 1106, 26, 70, "LinkingEquationsIndent"], Cell[398603, 10685, 372, 8, 70, "InventorsBox"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[399024, 10699, 34, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[399083, 10703, 248, 7, 70, "Subsection3"], Cell[399334, 10712, 251, 9, 70, "Notations_TF_SectionText"], Cell[399588, 10723, 3727, 105, 70, "Text"], Cell[403318, 10830, 1177, 37, 70, "Text"], Cell[404498, 10869, 1527, 45, 70, "Text"], Cell[406028, 10916, 1676, 53, 70, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[407741, 10974, 220, 6, 70, "Subsection3"], Cell[407964, 10982, 669, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[408670, 11007, 258, 7, 70, "Subsection3"], Cell[408931, 11016, 2584, 67, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[411552, 11088, 1127, 28, 70, "Subsection3"], Cell[412682, 11118, 907, 27, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[413626, 11150, 1283, 32, 70, "Subsection3"], Cell[414912, 11184, 390, 14, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[415339, 11203, 374, 10, 70, "Subsection3"], Cell[415716, 11215, 1555, 37, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[417308, 11257, 96, 1, 70, "Subsection3"], Cell[417407, 11260, 235, 6, 70, "Notations_TF_SectionText"], Cell[417645, 11268, 267, 9, 70, "TextComment", CellTags->"TextComment"], Cell[417915, 11279, 3922, 123, 70, "TextComment", CellTags->"TextComment"], Cell[421840, 11404, 2155, 75, 70, "TextComment", CellTags->"TextComment"], Cell[423998, 11481, 2101, 72, 70, "TextComment", CellTags->"TextComment"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[426148, 11559, 41, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[426214, 11563, 247, 6, 70, "Subsection3"], Cell[426464, 11571, 1242, 33, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[427743, 11609, 285, 7, 70, "Subsection3"], Cell[428031, 11618, 1612, 42, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[429680, 11665, 680, 20, 70, "Subsection3"], Cell[430363, 11687, 2912, 74, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[433312, 11766, 257, 6, 70, "Subsection3"], Cell[433572, 11774, 1167, 31, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[434776, 11810, 257, 6, 70, "Subsection3"], Cell[435036, 11818, 1165, 31, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[436238, 11854, 247, 6, 70, "Subsection3"], Cell[436488, 11862, 909, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[437434, 11891, 284, 7, 70, "Subsection3"], Cell[437721, 11900, 1178, 31, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[438936, 11936, 247, 6, 70, "Subsection3"], Cell[439186, 11944, 697, 19, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[439920, 11968, 285, 7, 70, "Subsection3"], Cell[440208, 11977, 1464, 37, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[441709, 12019, 590, 17, 70, "Subsection3"], Cell[442302, 12038, 1738, 44, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[444077, 12087, 247, 6, 56, "Subsection3"], Cell[444327, 12095, 1016, 27, 58, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[445380, 12127, 325, 8, 60, "Subsection3"], Cell[445708, 12137, 2292, 57, 84, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[448037, 12199, 315, 8, 58, "Subsection3"], Cell[448355, 12209, 1597, 42, 78, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[450001, 12257, 28, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[450054, 12261, 221, 5, 56, "Subsection3"], Cell[450278, 12268, 1689, 46, 56, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[452004, 12319, 483, 12, 57, "Subsection3"], Cell[452490, 12333, 1972, 53, 56, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[454499, 12391, 483, 12, 56, "Subsection3"], Cell[454985, 12405, 2061, 56, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[457083, 12466, 301, 7, 70, "Subsection3"], Cell[457387, 12475, 2181, 57, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[459605, 12537, 301, 7, 70, "Subsection3"], Cell[459909, 12546, 2083, 55, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[462029, 12606, 231, 5, 70, "Subsection3"], Cell[462263, 12613, 1551, 43, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[463851, 12661, 259, 6, 70, "Subsection3"], Cell[464113, 12669, 1653, 46, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[465803, 12720, 339, 9, 70, "Subsection3"], Cell[466145, 12731, 1979, 55, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[468173, 12792, 41, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[468239, 12796, 2101, 50, 133, "Subsection3"], Cell[470343, 12848, 70, 0, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[470450, 12853, 293, 7, 73, "Subsection3"], Cell[470746, 12862, 1252, 33, 80, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[472047, 12901, 47, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[472119, 12905, 390, 10, 73, "Subsection3"], Cell[472512, 12917, 296, 11, 38, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[472845, 12933, 524, 13, 84, "Subsection3"], Cell[473372, 12948, 317, 11, 38, "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[473750, 12966, 26, 0, 58, "Section"], Cell[CellGroupData[{ Cell[473801, 12970, 193, 5, 70, "Subsection3"], Cell[473997, 12977, 259, 10, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[474293, 12992, 153, 3, 70, "Subsection3"], Cell[474449, 12997, 1527, 46, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[476013, 13048, 107, 2, 70, "Subsection3"], Cell[476123, 13052, 867, 25, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[477027, 13082, 102, 2, 70, "Subsection3"], Cell[477132, 13086, 901, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[478070, 13117, 103, 2, 70, "Subsection3"], Cell[478176, 13121, 2731, 72, 108, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[480944, 13198, 165, 5, 75, "Subsection3"], Cell[481112, 13205, 1499, 45, 56, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[482648, 13255, 289, 7, 56, "Subsection3"], Cell[482940, 13264, 896, 25, 47, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[483873, 13294, 135, 3, 57, "Subsection3"], Cell[484011, 13299, 1460, 39, 62, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[485508, 13343, 108, 2, 56, "Subsection3"], Cell[485619, 13347, 893, 25, 50, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[486549, 13377, 419, 11, 69, "Subsection3"], Cell[486971, 13390, 1388, 43, 51, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[488396, 13438, 130, 3, 56, "Subsection3"], Cell[488529, 13443, 61, 0, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[488627, 13448, 159, 4, 70, "Subsection3"], Cell[488789, 13454, 123, 3, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[488949, 13462, 159, 4, 70, "Subsection3"], Cell[489111, 13468, 498, 14, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[489646, 13487, 134, 3, 70, "Subsection3"], Cell[489783, 13492, 63, 0, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[489883, 13497, 88, 1, 70, "Subsection3"], Cell[489974, 13500, 386, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[490397, 13517, 137, 3, 70, "Subsection3"], Cell[490537, 13522, 659, 19, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[491233, 13546, 141, 3, 70, "Subsection3"], Cell[491377, 13551, 700, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[492114, 13577, 195, 5, 70, "Subsection3"], Cell[492312, 13584, 865, 25, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[493214, 13614, 167, 4, 70, "Subsection3"], Cell[493384, 13620, 649, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[494070, 13646, 631, 14, 70, "Subsection3"], Cell[494704, 13662, 519, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[495260, 13685, 425, 11, 70, "Subsection3"], Cell[495688, 13698, 236, 9, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[495961, 13712, 425, 11, 70, "Subsection3"], Cell[496389, 13725, 237, 9, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[496663, 13739, 764, 21, 70, "Subsection3"], Cell[497430, 13762, 2579, 75, 87, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[500046, 13842, 134, 3, 62, "Subsection3"], Cell[500183, 13847, 2822, 68, 125, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[503054, 13921, 50, 0, 91, "Section"], Cell[CellGroupData[{ Cell[503129, 13925, 23, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[503177, 13929, 213, 6, 56, "Subsection3"], Cell[503393, 13937, 1265, 45, 75, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[504695, 13987, 206, 5, 56, "Subsection3"], Cell[504904, 13994, 912, 28, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[505853, 14027, 113, 2, 56, "Subsection3"], Cell[505969, 14031, 1616, 43, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[507622, 14079, 157, 4, 70, "Subsection3"], Cell[507782, 14085, 1743, 45, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[509562, 14135, 168, 4, 70, "Subsection3"], Cell[509733, 14141, 1682, 46, 64, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[511452, 14192, 114, 2, 56, "Subsection3"], Cell[511569, 14196, 899, 27, 45, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[512517, 14229, 23, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[512565, 14233, 213, 6, 56, "Subsection3"], Cell[512781, 14241, 1264, 45, 56, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[514082, 14291, 106, 2, 56, "Subsection3"], Cell[514191, 14295, 749, 23, 40, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[514977, 14323, 147, 4, 56, "Subsection3"], Cell[515127, 14329, 1014, 30, 44, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[516178, 14364, 113, 2, 56, "Subsection3"], Cell[516294, 14368, 1579, 42, 61, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[517910, 14415, 157, 4, 56, "Subsection3"], Cell[518070, 14421, 1602, 43, 61, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[519721, 14470, 23, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[519769, 14474, 80, 1, 56, "Subsection3"], Cell[519852, 14477, 334, 11, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[520223, 14493, 112, 2, 56, "Subsection3"], Cell[520338, 14497, 556, 16, 52, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[520931, 14518, 147, 4, 56, "Subsection3"], Cell[521081, 14524, 1177, 33, 100, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[522295, 14562, 192, 5, 59, "Subsection3"], Cell[522490, 14569, 1354, 44, 61, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[523881, 14618, 169, 4, 58, "Subsection3"], Cell[524053, 14624, 3657, 96, 85, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[527747, 14725, 168, 4, 70, "Subsection3"], Cell[527918, 14731, 646, 18, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[528601, 14754, 224, 6, 57, "Subsection3"], Cell[528828, 14762, 1437, 36, 74, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[530302, 14803, 159, 4, 56, "Subsection3"], Cell[530464, 14809, 242, 8, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[530743, 14822, 187, 5, 56, "Subsection3"], Cell[530933, 14829, 832, 26, 62, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[531802, 14860, 114, 2, 56, "Subsection3"], Cell[531919, 14864, 696, 20, 41, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[532652, 14889, 113, 2, 56, "Subsection3"], Cell[532768, 14893, 1220, 35, 41, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[534025, 14933, 168, 4, 56, "Subsection3"], Cell[534196, 14939, 412, 12, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[534645, 14956, 224, 6, 57, "Subsection3"], Cell[534872, 14964, 1616, 42, 74, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[536525, 15011, 114, 2, 56, "Subsection3"], Cell[536642, 15015, 575, 16, 45, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[537254, 15036, 177, 5, 57, "Subsection3"], Cell[537434, 15043, 455, 14, 41, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[537926, 15062, 115, 2, 56, "Subsection3"], Cell[538044, 15066, 548, 15, 42, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[538629, 15086, 178, 5, 57, "Subsection3"], Cell[538810, 15093, 833, 25, 48, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[539680, 15123, 114, 2, 56, "Subsection3"], Cell[539797, 15127, 412, 12, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[540246, 15144, 177, 5, 57, "Subsection3"], Cell[540426, 15151, 417, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[540880, 15169, 115, 2, 70, "Subsection3"], Cell[540998, 15173, 583, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[541618, 15194, 178, 5, 70, "Subsection3"], Cell[541799, 15201, 677, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[542513, 15226, 168, 4, 56, "Subsection3"], Cell[542684, 15232, 646, 18, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[543367, 15255, 224, 6, 57, "Subsection3"], Cell[543594, 15263, 1570, 42, 72, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[545201, 15310, 114, 2, 56, "Subsection3"], Cell[545318, 15314, 280, 9, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[545635, 15328, 177, 5, 57, "Subsection3"], Cell[545815, 15335, 416, 13, 41, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[546268, 15353, 115, 2, 56, "Subsection3"], Cell[546386, 15357, 454, 13, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[546877, 15375, 178, 5, 57, "Subsection3"], Cell[547058, 15382, 653, 19, 41, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[547760, 15407, 23, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[547808, 15411, 168, 4, 70, "Subsection3"], Cell[547979, 15417, 646, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[548662, 15440, 224, 6, 70, "Subsection3"], Cell[548889, 15448, 1623, 43, 72, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[550549, 15496, 119, 2, 56, "Subsection3"], Cell[550671, 15500, 134, 5, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[550842, 15510, 168, 4, 56, "Subsection3"], Cell[551013, 15516, 651, 18, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[551701, 15539, 224, 6, 57, "Subsection3"], Cell[551928, 15547, 1464, 39, 74, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[553429, 15591, 168, 4, 56, "Subsection3"], Cell[553600, 15597, 646, 18, 43, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[554283, 15620, 224, 6, 57, "Subsection3"], Cell[554510, 15628, 1549, 42, 72, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[556096, 15675, 235, 6, 63, "Subsection3"], Cell[556334, 15683, 4425, 105, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[560796, 15793, 288, 7, 70, "Subsection3"], Cell[561087, 15802, 1090, 31, 70, "Notations_SF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[562226, 15839, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[562274, 15843, 94, 1, 70, "Subsection3"], Cell[562371, 15846, 373, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[562781, 15862, 894, 25, 70, "Subsection3"], Cell[563678, 15889, 2674, 69, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[566389, 15963, 1236, 31, 70, "Subsection3"], Cell[567628, 15996, 2999, 78, 74, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[570664, 16079, 112, 2, 56, "Subsection3"], Cell[570779, 16083, 1034, 27, 76, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[571850, 16115, 167, 4, 56, "Subsection3"], Cell[572020, 16121, 624, 17, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[572681, 16143, 106, 2, 56, "Subsection3"], Cell[572790, 16147, 915, 26, 46, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[573742, 16178, 147, 4, 56, "Subsection3"], Cell[573892, 16184, 963, 29, 45, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[574892, 16218, 151, 4, 56, "Subsection3"], Cell[575046, 16224, 824, 24, 44, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[575907, 16253, 182, 5, 56, "Subsection3"], Cell[576092, 16260, 1131, 35, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[577260, 16300, 227, 6, 70, "Subsection3"], Cell[577490, 16308, 728, 22, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[578255, 16335, 144, 3, 70, "Subsection3"], Cell[578402, 16340, 1396, 40, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[579835, 16385, 113, 2, 70, "Subsection3"], Cell[579951, 16389, 955, 27, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[580943, 16421, 254, 7, 70, "Subsection3"], Cell[581200, 16430, 2214, 59, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[583451, 16494, 114, 2, 70, "Subsection3"], Cell[583568, 16498, 619, 19, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[584224, 16522, 177, 5, 70, "Subsection3"], Cell[584404, 16529, 317, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[584758, 16545, 289, 9, 70, "Subsection3"], Cell[585050, 16556, 1305, 40, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[586392, 16601, 259, 7, 70, "Subsection3"], Cell[586654, 16610, 418, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[587109, 16628, 115, 2, 70, "Subsection3"], Cell[587227, 16632, 723, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[587987, 16657, 178, 5, 70, "Subsection3"], Cell[588168, 16664, 333, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[588538, 16680, 115, 2, 56, "Subsection3"], Cell[588656, 16684, 769, 22, 52, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[589462, 16711, 201, 5, 56, "Subsection3"], Cell[589666, 16718, 434, 13, 46, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[590149, 16737, 23, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[590197, 16741, 118, 2, 56, "Subsection3"], Cell[590318, 16745, 178, 5, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[590533, 16755, 247, 8, 56, "Subsection3"], Cell[590783, 16765, 908, 26, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[591728, 16796, 167, 4, 56, "Subsection3"], Cell[591898, 16802, 666, 18, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[592601, 16825, 110, 2, 56, "Subsection3"], Cell[592714, 16829, 653, 19, 45, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[593404, 16853, 151, 4, 56, "Subsection3"], Cell[593558, 16859, 1559, 45, 54, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[595154, 16909, 427, 12, 56, "Subsection3"], Cell[595584, 16923, 2284, 56, 74, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[597905, 16984, 439, 12, 56, "Subsection3"], Cell[598347, 16998, 964, 27, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[599348, 17030, 433, 12, 56, "Subsection3"], Cell[599784, 17044, 1043, 29, 36, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[600864, 17078, 433, 12, 56, "Subsection3"], Cell[601300, 17092, 1258, 34, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[602595, 17131, 466, 13, 59, "Subsection3"], Cell[603064, 17146, 1591, 42, 44, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[604692, 17193, 427, 12, 56, "Subsection3"], Cell[605122, 17207, 1371, 36, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[606530, 17248, 460, 13, 59, "Subsection3"], Cell[606993, 17263, 1507, 39, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[608537, 17307, 460, 13, 56, "Subsection3"], Cell[609000, 17322, 1720, 44, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[610757, 17371, 493, 14, 59, "Subsection3"], Cell[611253, 17387, 1874, 47, 53, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[613164, 17439, 560, 16, 56, "Subsection3"], Cell[613727, 17457, 1771, 46, 55, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[615535, 17508, 629, 18, 56, "Subsection3"], Cell[616167, 17528, 1993, 51, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[618197, 17584, 673, 19, 70, "Subsection3"], Cell[618873, 17605, 2182, 55, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[621092, 17665, 673, 19, 70, "Subsection3"], Cell[621768, 17686, 2428, 59, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[624233, 17750, 761, 21, 70, "Subsection3"], Cell[624997, 17773, 2822, 67, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[627856, 17845, 757, 20, 70, "Subsection3"], Cell[628616, 17867, 2627, 63, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[631280, 17935, 790, 21, 70, "Subsection3"], Cell[632073, 17958, 2780, 66, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[634890, 18029, 1338, 31, 70, "Subsection3"], Cell[636231, 18062, 4375, 98, 70, "Notations_TF_SectionText"], Cell[640609, 18162, 24987, 534, 70, "LinkingEquationsIndent"] }, Open ]], Cell[CellGroupData[{ Cell[665633, 18701, 1369, 32, 70, "Subsection3"], Cell[667005, 18735, 4555, 101, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[671609, 18842, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[671657, 18846, 691, 19, 70, "Subsection3"], Cell[672351, 18867, 3952, 93, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[676340, 18965, 263, 6, 70, "Subsection3"], Cell[676606, 18973, 267, 8, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[676910, 18986, 87, 1, 70, "Subsection3"], Cell[677000, 18989, 349, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[677386, 19005, 904, 21, 70, "Subsection3"], Cell[678293, 19028, 3776, 82, 70, "Notations_TF_SectionText"], Cell[682072, 19112, 1479, 49, 70, "Notations_TF_SectionText"], Cell[683554, 19163, 288, 9, 70, "Notations_TF_SectionText"], Cell[683845, 19174, 3908, 122, 70, "Notations_TF_SectionText"], Cell[687756, 19298, 2141, 74, 70, "Notations_TF_SectionText"], Cell[689900, 19374, 2087, 71, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[692024, 19450, 965, 22, 70, "Subsection3"], Cell[692992, 19474, 4173, 95, 70, "Notations_TF_SectionText"], Cell[697168, 19571, 1096, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[698301, 19604, 3550, 95, 70, "Subsection3"], Cell[701854, 19701, 22029, 420, 70, "Notations_TF_SectionText"], Cell[723886, 20123, 1233, 33, 70, "Notations_SF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[725168, 20162, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[725216, 20166, 160, 4, 70, "Subsection3"], Cell[725379, 20172, 705, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[726121, 20198, 199, 5, 70, "Subsection3"], Cell[726323, 20205, 955, 30, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[727315, 20240, 151, 4, 70, "Subsection3"], Cell[727469, 20246, 5072, 118, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[732578, 20369, 355, 11, 70, "Subsection3"], Cell[732936, 20382, 1574, 42, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[734547, 20429, 2086, 51, 70, "Subsection3"], Cell[736636, 20482, 5466, 115, 70, "Notations_TF_SectionText"], Cell[742105, 20599, 1521, 50, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[743675, 20655, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[743723, 20659, 92, 1, 70, "Subsection3"], Cell[743818, 20662, 304, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[744159, 20678, 151, 4, 70, "Subsection3"], Cell[744313, 20684, 2639, 66, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[746989, 20755, 228, 6, 70, "Subsection3"], Cell[747220, 20763, 711, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[747968, 20789, 264, 7, 70, "Subsection3"], Cell[748235, 20798, 469, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[748741, 20818, 360, 10, 70, "Subsection3"], Cell[749104, 20830, 925, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[750066, 20861, 396, 11, 70, "Subsection3"], Cell[750465, 20874, 614, 19, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[751116, 20898, 113, 2, 70, "Subsection3"], Cell[751232, 20902, 673, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[751942, 20927, 177, 5, 70, "Subsection3"], Cell[752122, 20934, 784, 22, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[752955, 20962, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[753003, 20966, 112, 2, 70, "Subsection3"], Cell[753118, 20970, 3131, 71, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[756286, 21046, 278, 9, 70, "Subsection3"], Cell[756567, 21057, 2793, 70, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[759409, 21133, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[759457, 21137, 112, 2, 70, "Subsection3"], Cell[759572, 21141, 1078, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[760687, 21174, 151, 4, 70, "Subsection3"], Cell[760841, 21180, 1023, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[761901, 21213, 87, 1, 70, "Subsection3"], Cell[761991, 21216, 289, 9, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[762329, 21231, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[762377, 21235, 355, 11, 70, "Subsection3"], Cell[762735, 21248, 1456, 39, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[764228, 21292, 151, 4, 70, "Subsection3"], Cell[764382, 21298, 835, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[765254, 21331, 169, 4, 70, "Subsection3"], Cell[765426, 21337, 1540, 46, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[767003, 21388, 230, 6, 70, "Subsection3"], Cell[767236, 21396, 184, 6, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[767457, 21407, 113, 2, 70, "Subsection3"], Cell[767573, 21411, 441, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[768051, 21429, 203, 6, 70, "Subsection3"], Cell[768257, 21437, 697, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[768991, 21463, 114, 2, 70, "Subsection3"], Cell[769108, 21467, 886, 25, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[770031, 21497, 149, 4, 70, "Subsection3"], Cell[770183, 21503, 414, 14, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[770634, 21522, 148, 3, 70, "Subsection3"], Cell[770785, 21527, 831, 23, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[771665, 21556, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[771713, 21560, 361, 11, 70, "Subsection3"], Cell[772077, 21573, 265, 8, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[772379, 21586, 361, 11, 70, "Subsection3"], Cell[772743, 21599, 266, 8, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[773058, 21613, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[773106, 21617, 168, 4, 70, "Subsection3"], Cell[773277, 21623, 403, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[773717, 21640, 224, 6, 70, "Subsection3"], Cell[773944, 21648, 1858, 49, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[775839, 21702, 168, 4, 70, "Subsection3"], Cell[776010, 21708, 403, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[776450, 21725, 224, 6, 70, "Subsection3"], Cell[776677, 21733, 1854, 48, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[778568, 21786, 168, 4, 70, "Subsection3"], Cell[778739, 21792, 403, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[779179, 21809, 224, 6, 70, "Subsection3"], Cell[779406, 21817, 1548, 41, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[781003, 21864, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[781051, 21868, 112, 2, 70, "Subsection3"], Cell[781166, 21872, 994, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[782197, 21903, 151, 4, 70, "Subsection3"], Cell[782351, 21909, 1149, 37, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[783537, 21951, 165, 4, 70, "Subsection3"], Cell[783705, 21957, 1244, 34, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[784986, 21996, 183, 4, 70, "Subsection3"], Cell[785172, 22002, 1062, 29, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[786271, 22036, 225, 6, 70, "Subsection3"], Cell[786499, 22044, 1764, 55, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[788300, 22104, 453, 10, 70, "Subsection3"], Cell[788756, 22116, 3522, 81, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[792315, 22202, 201, 5, 70, "Subsection3"], Cell[792519, 22209, 134, 5, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[792702, 22220, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[792750, 22224, 165, 4, 70, "Subsection3"], Cell[792918, 22230, 601, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[793556, 22255, 232, 7, 70, "Subsection3"], Cell[793791, 22264, 1578, 45, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[795406, 22314, 112, 2, 70, "Subsection3"], Cell[795521, 22318, 989, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[796547, 22349, 151, 4, 70, "Subsection3"], Cell[796701, 22355, 438, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[797176, 22375, 165, 4, 70, "Subsection3"], Cell[797344, 22381, 3714, 84, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[801095, 22470, 183, 4, 70, "Subsection3"], Cell[801281, 22476, 3679, 83, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[804997, 22564, 197, 5, 70, "Subsection3"], Cell[805197, 22571, 850, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[806084, 22600, 257, 7, 70, "Subsection3"], Cell[806344, 22609, 436, 14, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[806817, 22628, 267, 7, 70, "Subsection3"], Cell[807087, 22637, 1003, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[808127, 22670, 327, 9, 70, "Subsection3"], Cell[808457, 22681, 491, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[808985, 22702, 148, 3, 70, "Subsection3"], Cell[809136, 22707, 538, 19, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[809723, 22732, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[809771, 22736, 275, 9, 70, "Subsection3"], Cell[810049, 22747, 759, 23, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[810845, 22775, 113, 2, 70, "Subsection3"], Cell[810961, 22779, 622, 19, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[811632, 22804, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[811680, 22808, 112, 2, 70, "Subsection3"], Cell[811795, 22812, 556, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[812388, 22833, 161, 4, 70, "Subsection3"], Cell[812552, 22839, 1268, 33, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[813857, 22877, 145, 3, 70, "Subsection3"], Cell[814005, 22882, 851, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[814893, 22911, 161, 3, 70, "Subsection3"], Cell[815057, 22916, 1086, 29, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[816180, 22950, 168, 4, 70, "Subsection3"], Cell[816351, 22956, 646, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[817034, 22979, 224, 6, 70, "Subsection3"], Cell[817261, 22987, 1752, 46, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[819050, 23038, 168, 4, 70, "Subsection3"], Cell[819221, 23044, 646, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[819904, 23067, 224, 6, 70, "Subsection3"], Cell[820131, 23075, 1933, 51, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[822101, 23131, 159, 4, 70, "Subsection3"], Cell[822263, 23137, 241, 8, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[822541, 23150, 187, 5, 70, "Subsection3"], Cell[822731, 23157, 831, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[823599, 23188, 114, 2, 70, "Subsection3"], Cell[823716, 23192, 283, 9, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[824036, 23206, 177, 5, 70, "Subsection3"], Cell[824216, 23213, 414, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[824667, 23231, 115, 2, 70, "Subsection3"], Cell[824785, 23235, 396, 11, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[825218, 23251, 178, 5, 70, "Subsection3"], Cell[825399, 23258, 809, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[826245, 23287, 114, 2, 70, "Subsection3"], Cell[826362, 23291, 500, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[826899, 23312, 114, 2, 70, "Subsection3"], Cell[827016, 23316, 456, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[827509, 23334, 113, 2, 70, "Subsection3"], Cell[827625, 23338, 443, 13, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[828105, 23356, 114, 2, 70, "Subsection3"], Cell[828222, 23360, 546, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[828805, 23380, 177, 5, 70, "Subsection3"], Cell[828985, 23387, 595, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[829617, 23410, 115, 2, 70, "Subsection3"], Cell[829735, 23414, 630, 18, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[830402, 23437, 178, 5, 70, "Subsection3"], Cell[830583, 23444, 745, 22, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[831365, 23471, 168, 4, 70, "Subsection3"], Cell[831536, 23477, 412, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[831985, 23494, 224, 6, 70, "Subsection3"], Cell[832212, 23502, 1476, 39, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[833737, 23547, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[833785, 23551, 151, 4, 70, "Subsection3"], Cell[833939, 23557, 720, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[834696, 23586, 114, 2, 70, "Subsection3"], Cell[834813, 23590, 319, 10, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[835169, 23605, 177, 5, 70, "Subsection3"], Cell[835349, 23612, 735, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[836121, 23638, 199, 5, 70, "Subsection3"], Cell[836323, 23645, 722, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[837082, 23671, 115, 2, 70, "Subsection3"], Cell[837200, 23675, 517, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[837754, 23695, 178, 5, 70, "Subsection3"], Cell[837935, 23702, 867, 25, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[838851, 23733, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[838899, 23737, 158, 4, 70, "Subsection3"], Cell[839060, 23743, 2316, 55, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[841413, 23803, 151, 4, 70, "Subsection3"], Cell[841567, 23809, 943, 30, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[842559, 23845, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[842607, 23849, 112, 2, 70, "Subsection3"], Cell[842722, 23853, 358, 12, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[843117, 23870, 147, 4, 70, "Subsection3"], Cell[843267, 23876, 476, 18, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[843792, 23900, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[843840, 23904, 151, 4, 70, "Subsection3"], Cell[843994, 23910, 1077, 29, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[845108, 23944, 203, 5, 70, "Subsection3"], Cell[845314, 23951, 2209, 62, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[847572, 24019, 23, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[847620, 24023, 112, 2, 70, "Subsection3"], Cell[847735, 24027, 564, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[848336, 24047, 180, 4, 70, "Subsection3"], Cell[848519, 24053, 656, 18, 70, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[849224, 24077, 27, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[849276, 24081, 198, 5, 70, "Subsection3"], Cell[849477, 24088, 1411, 39, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[850925, 24132, 230, 6, 70, "Subsection3"], Cell[851158, 24140, 929, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[852124, 24171, 314, 8, 70, "Subsection3"], Cell[852441, 24181, 1302, 35, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[853780, 24221, 133, 3, 70, "Subsection3"], Cell[853916, 24226, 708, 19, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[854661, 24250, 155, 3, 70, "Subsection3"], Cell[854819, 24255, 624, 17, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[855480, 24277, 225, 5, 70, "Subsection3"], Cell[855708, 24284, 1066, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[856811, 24317, 94, 1, 70, "Subsection3"], Cell[856908, 24320, 774, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[857719, 24346, 113, 2, 70, "Subsection3"], Cell[857835, 24350, 1052, 31, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[858924, 24386, 169, 4, 70, "Subsection3"], Cell[859096, 24392, 940, 25, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[860073, 24422, 285, 8, 70, "Subsection3"], Cell[860361, 24432, 1038, 27, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[861436, 24464, 172, 4, 70, "Subsection3"], Cell[861611, 24470, 563, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[862211, 24491, 321, 8, 70, "Subsection3"], Cell[862535, 24501, 583, 15, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[863155, 24521, 316, 8, 70, "Subsection3"], Cell[863474, 24531, 972, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[864483, 24562, 269, 6, 70, "Subsection3"], Cell[864755, 24570, 333, 10, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[865125, 24585, 118, 2, 70, "Subsection3"], Cell[865246, 24589, 544, 16, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[865827, 24610, 147, 3, 70, "Subsection3"], Cell[865977, 24615, 810, 22, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[866824, 24642, 176, 4, 70, "Subsection3"], Cell[867003, 24648, 716, 20, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[867756, 24673, 176, 4, 70, "Subsection3"], Cell[867935, 24679, 1977, 50, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[869949, 24734, 240, 6, 70, "Subsection3"], Cell[870192, 24742, 3380, 73, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[873609, 24820, 117, 2, 70, "Subsection3"], Cell[873729, 24824, 946, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[874712, 24853, 955, 26, 70, "Subsection3"], Cell[875670, 24881, 2263, 60, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[877970, 24946, 167, 4, 70, "Subsection3"], Cell[878140, 24952, 831, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[879008, 24981, 316, 8, 70, "Subsection3"], Cell[879327, 24991, 623, 17, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[879987, 25013, 131, 3, 70, "Subsection3"], Cell[880121, 25018, 1345, 34, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[881503, 25057, 181, 4, 70, "Subsection3"], Cell[881687, 25063, 1239, 32, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[882963, 25100, 198, 4, 70, "Subsection3"], Cell[883164, 25106, 1849, 47, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[885050, 25158, 181, 4, 70, "Subsection3"], Cell[885234, 25164, 1111, 29, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[886382, 25198, 198, 4, 70, "Subsection3"], Cell[886583, 25204, 1751, 45, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[888371, 25254, 181, 4, 70, "Subsection3"], Cell[888555, 25260, 895, 24, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[889487, 25289, 198, 4, 70, "Subsection3"], Cell[889688, 25295, 1353, 36, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[891078, 25336, 181, 4, 70, "Subsection3"], Cell[891262, 25342, 1031, 27, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[892330, 25374, 198, 4, 70, "Subsection3"], Cell[892531, 25380, 1429, 38, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[893997, 25423, 207, 5, 70, "Subsection3"], Cell[894207, 25430, 1704, 46, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[895948, 25481, 207, 5, 70, "Subsection3"], Cell[896158, 25488, 1379, 36, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[897574, 25529, 207, 5, 70, "Subsection3"], Cell[897784, 25536, 1600, 41, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[899421, 25582, 207, 5, 70, "Subsection3"], Cell[899631, 25589, 1908, 51, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[901576, 25645, 183, 5, 70, "Subsection3"], Cell[901762, 25652, 775, 26, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[902574, 25683, 120, 2, 70, "Subsection3"], Cell[902697, 25687, 1416, 34, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[904150, 25726, 116, 2, 70, "Subsection3"], Cell[904269, 25730, 1644, 42, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[905950, 25777, 178, 4, 70, "Subsection3"], Cell[906131, 25783, 1469, 37, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[907637, 25825, 209, 5, 70, "Subsection3"], Cell[907849, 25832, 1040, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[908926, 25865, 124, 3, 70, "Subsection3"], Cell[909053, 25870, 722, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[909812, 25896, 116, 2, 70, "Subsection3"], Cell[909931, 25900, 1001, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[910969, 25933, 241, 6, 70, "Subsection3"], Cell[911213, 25941, 3679, 79, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[914929, 26025, 246, 6, 70, "Subsection3"], Cell[915178, 26033, 3278, 79, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[918493, 26117, 154, 4, 70, "Subsection3"], Cell[918650, 26123, 689, 22, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[919376, 26150, 170, 4, 70, "Subsection3"], Cell[919549, 26156, 3743, 92, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[923329, 26253, 199, 5, 70, "Subsection3"], Cell[923531, 26260, 1185, 32, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[924753, 26297, 199, 5, 70, "Subsection3"], Cell[924955, 26304, 3307, 82, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[928299, 26391, 130, 3, 70, "Subsection3"], Cell[928432, 26396, 432, 14, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[928901, 26415, 129, 3, 70, "Subsection3"], Cell[929033, 26420, 937, 28, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[930007, 26453, 136, 3, 70, "Subsection3"], Cell[930146, 26458, 694, 21, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[930877, 26484, 189, 5, 70, "Subsection3"], Cell[931069, 26491, 3835, 91, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[934941, 26587, 691, 19, 70, "Subsection3"], Cell[935635, 26608, 6146, 158, 70, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[941818, 26771, 1279, 34, 70, "Subsection3"], Cell[943100, 26807, 5193, 116, 189, "Notations_TF_SectionText"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[948342, 26929, 27, 0, 56, "Subsection"], Cell[CellGroupData[{ Cell[948394, 26933, 248, 6, 56, "Subsection3"], Cell[948645, 26941, 2749, 62, 89, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[951431, 27008, 285, 7, 56, "Subsection3"], Cell[951719, 27017, 2048, 49, 72, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[953804, 27071, 304, 8, 57, "Subsection3"], Cell[954111, 27081, 2058, 57, 94, "Notations_TF_SectionText"] }, Open ]], Cell[CellGroupData[{ Cell[956206, 27143, 376, 10, 57, "Subsection3"], Cell[956585, 27155, 2397, 69, 94, "Notations_TF_SectionText"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)