|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
http://functions.wolfram.com/10.12.21.0005.01
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Integrate[RamanujanTauTheta[t], {t, z, z + 1}] ==
(1/2) (-Log[2 Pi] - 2 z Log[2 Pi] + PolyGamma[-2, 6 - I z] +
PolyGamma[-2, 6 + I z] - PolyGamma[-2, (6 + I) + I z] -
PolyGamma[-2, (-I) ((1 + 6 I) + z)]) /;
!IntervalMemberQ[Interval[{-Infinity, -6}], I z] &&
!IntervalMemberQ[Interval[{6, Infinity}], I z]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Cell[BoxData[RowBox[List[RowBox[List[RowBox[List[SubsuperscriptBox["\[Integral]", "z", RowBox[List["z", "+", "1"]]], RowBox[List[RowBox[List["RamanujanTauTheta", "[", "t", "]"]], RowBox[List["\[DifferentialD]", "t"]]]]]], "\[Equal]", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", RowBox[List["Log", "[", RowBox[List["2", " ", "\[Pi]"]], "]"]]]], "-", RowBox[List["2", " ", "z", " ", RowBox[List["Log", "[", RowBox[List["2", " ", "\[Pi]"]], "]"]]]], "+", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List["6", "-", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "+", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List["6", "+", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List[RowBox[List["(", RowBox[List["6", "+", "\[ImaginaryI]"]], ")"]], "+", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List[RowBox[List["-", "\[ImaginaryI]"]], " ", RowBox[List["(", RowBox[List[RowBox[List["(", RowBox[List["1", "+", RowBox[List["6", " ", "\[ImaginaryI]"]]]], ")"]], "+", "z"]], ")"]]]]]], "]"]]]], ")"]]]]]], "/;", RowBox[List[RowBox[List["Not", "[", RowBox[List["IntervalMemberQ", "[", RowBox[List[RowBox[List["Interval", "[", RowBox[List["{", RowBox[List[RowBox[List["-", "\[Infinity]"]], ",", RowBox[List["-", "6"]]]], "}"]], "]"]], ",", " ", RowBox[List["\[ImaginaryI]", " ", "z"]]]], "]"]], "]"]], "\[And]", RowBox[List["Not", "[", RowBox[List["IntervalMemberQ", "[", RowBox[List[RowBox[List["Interval", "[", RowBox[List["{", RowBox[List["6", ",", "\[Infinity]"]], "}"]], "]"]], ",", " ", RowBox[List["\[ImaginaryI]", " ", "z"]]]], "]"]], "]"]]]]]]]]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<math xmlns='http://www.w3.org/1998/Math/MathML' mathematica:form='TraditionalForm' xmlns:mathematica='http://www.wolfram.com/XML/'> <semantics> <mrow> <mrow> <mrow> <msubsup> <mo> ∫ </mo> <mi> z </mi> <mrow> <mi> z </mi> <mo> + </mo> <mn> 1 </mn> </mrow> </msubsup> <mrow> <mrow> <mi> τθ </mi> <mo> ⁡ </mo> <mo> ( </mo> <mi> t </mi> <mo> ) </mo> </mrow> <mo> ⁢ </mo> <mrow> <mo> ⅆ </mo> <mi> t </mi> </mrow> </mrow> </mrow> <mo>  </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 2 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ⁢ </mo> <mi> z </mi> <mo> ⁢ </mo> <mrow> <mi> log </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mi> log </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> <mo> ) </mo> </mrow> <mo> - </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mrow> <mo> - </mo> <mi> ⅈ </mi> </mrow> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mi> z </mi> <mo> + </mo> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> + </mo> <mrow> <mn> 6 </mn> <mo> ⁢ </mo> <mi> ⅈ </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> + </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> - </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mrow> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> + </mo> <mi> ⅈ </mi> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> - </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> <mo> /; </mo> <mrow> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> <mo> ∉ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mo> - </mo> <mi> ∞ </mi> </mrow> <mo> , </mo> <mrow> <mo> - </mo> <mn> 6 </mn> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ∧ </mo> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> <mo> ∉ </mo> <mrow> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> , </mo> <mi> ∞ </mi> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> </mrow> <annotation-xml encoding='MathML-Content'> <mrow> <mrow> <mrow> <msubsup> <mo> ∫ </mo> <mi> z </mi> <mrow> <mi> z </mi> <mo> + </mo> <mn> 1 </mn> </mrow> </msubsup> <mrow> <mrow> <mi> τθ </mi> <mo> ⁡ </mo> <mo> ( </mo> <mi> t </mi> <mo> ) </mo> </mrow> <mo> ⁢ </mo> <mrow> <mo> ⅆ </mo> <mi> t </mi> </mrow> </mrow> </mrow> <mo>  </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 2 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ⁢ </mo> <mi> z </mi> <mo> ⁢ </mo> <mrow> <mi> log </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mi> log </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> <mo> ) </mo> </mrow> <mo> - </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mrow> <mo> - </mo> <mi> ⅈ </mi> </mrow> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mi> z </mi> <mo> + </mo> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> + </mo> <mrow> <mn> 6 </mn> <mo> ⁢ </mo> <mi> ⅈ </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> + </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> - </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mrow> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> + </mo> <mi> ⅈ </mi> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> + </mo> <mrow> <msup> <semantics> <mi> ψ </mi> <annotation encoding='Mathematica'> TagBox["\[Psi]", PolyGamma] </annotation> </semantics> <mrow> <mo> ( </mo> <mrow> <mo> - </mo> <mn> 2 </mn> </mrow> <mo> ) </mo> </mrow> </msup> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> - </mo> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> <mo> /; </mo> <mrow> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> <mo> ∉ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mo> - </mo> <mi> ∞ </mi> </mrow> <mo> , </mo> <mrow> <mo> - </mo> <mn> 6 </mn> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ∧ </mo> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> z </mi> </mrow> <mo> ∉ </mo> <mrow> <mo> ( </mo> <mrow> <mn> 6 </mn> <mo> , </mo> <mi> ∞ </mi> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> </mrow> </annotation-xml> </semantics> </math>
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
| Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List[SubsuperscriptBox["\[Integral]", "z_", RowBox[List["z_", "+", "1"]]], RowBox[List[RowBox[List["RamanujanTauTheta", "[", "t_", "]"]], RowBox[List["\[DifferentialD]", "t_"]]]]]], "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", RowBox[List["Log", "[", RowBox[List["2", " ", "\[Pi]"]], "]"]]]], "-", RowBox[List["2", " ", "z", " ", RowBox[List["Log", "[", RowBox[List["2", " ", "\[Pi]"]], "]"]]]], "+", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List["6", "-", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "+", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List["6", "+", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List[RowBox[List["(", RowBox[List["6", "+", "\[ImaginaryI]"]], ")"]], "+", RowBox[List["\[ImaginaryI]", " ", "z"]]]]]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", "2"]], ",", RowBox[List[RowBox[List["-", "\[ImaginaryI]"]], " ", RowBox[List["(", RowBox[List[RowBox[List["(", RowBox[List["1", "+", RowBox[List["6", " ", "\[ImaginaryI]"]]]], ")"]], "+", "z"]], ")"]]]]]], "]"]]]], ")"]]]], "/;", RowBox[List[RowBox[List["!", RowBox[List["IntervalMemberQ", "[", RowBox[List[RowBox[List["Interval", "[", RowBox[List["{", RowBox[List[RowBox[List["-", "\[Infinity]"]], ",", RowBox[List["-", "6"]]]], "}"]], "]"]], ",", RowBox[List["\[ImaginaryI]", " ", "z"]]]], "]"]]]], "&&", RowBox[List["!", RowBox[List["IntervalMemberQ", "[", RowBox[List[RowBox[List["Interval", "[", RowBox[List["{", RowBox[List["6", ",", "\[Infinity]"]], "}"]], "]"]], ",", RowBox[List["\[ImaginaryI]", " ", "z"]]]], "]"]]]]]]]]]]]] |
|
|
|
|
|
|
|
|
|
|
Date Added to functions.wolfram.com (modification date)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|