|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
http://functions.wolfram.com/03.18.06.0040.01
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
KelvinBer[\[Nu], z] \[Proportional] (1/(Sqrt[2 Pi] Sqrt[z]))
(E^(z/Sqrt[2]) Cos[(1/8) (Pi (1 - 4 \[Nu]) - 4 Sqrt[2] z)] +
I E^(I Pi \[Nu] - z/Sqrt[2]) Sin[(1/8) (Pi (3 + 4 \[Nu]) - 4 Sqrt[2] z)])
(1 + O[1/z^4]) /; Inequality[-(Pi/2), Less, Arg[z], LessEqual, Pi] &&
(Abs[z] -> Infinity)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Cell[BoxData[RowBox[List[RowBox[List[RowBox[List["KelvinBer", "[", RowBox[List["\[Nu]", ",", "z"]], "]"]], "\[Proportional]", RowBox[List[FractionBox["1", RowBox[List[SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], SqrtBox["z"]]]], RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox["\[ExponentialE]", FractionBox["z", SqrtBox["2"]]], " ", RowBox[List["Cos", "[", RowBox[List[FractionBox["1", "8"], " ", RowBox[List["(", RowBox[List[RowBox[List["\[Pi]", " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["4", " ", "\[Nu]"]]]], ")"]]]], "-", RowBox[List["4", " ", SqrtBox["2"], " ", "z"]]]], ")"]]]], "]"]]]], "+", RowBox[List["\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[List[RowBox[List["\[ImaginaryI]", " ", "\[Pi]", " ", "\[Nu]"]], "-", FractionBox["z", SqrtBox["2"]]]]], RowBox[List["Sin", "[", RowBox[List[FractionBox["1", "8"], " ", RowBox[List["(", RowBox[List[RowBox[List["\[Pi]", " ", RowBox[List["(", RowBox[List["3", "+", RowBox[List["4", " ", "\[Nu]"]]]], ")"]]]], "-", RowBox[List["4", " ", SqrtBox["2"], " ", "z"]]]], ")"]]]], "]"]]]]]], ")"]], RowBox[List["(", RowBox[List["1", "+", RowBox[List["O", "[", FractionBox["1", SuperscriptBox["z", "4"]], "]"]]]], ")"]]]]]], "/;", RowBox[List[RowBox[List[RowBox[List["-", FractionBox["\[Pi]", "2"]]], "<", RowBox[List["Arg", "[", "z", "]"]], "\[LessEqual]", "\[Pi]"]], "\[And]", RowBox[List["(", RowBox[List[RowBox[List["Abs", "[", "z", "]"]], "\[Rule]", "\[Infinity]"]], ")"]]]]]]]]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<math xmlns='http://www.w3.org/1998/Math/MathML' mathematica:form='TraditionalForm' xmlns:mathematica='http://www.wolfram.com/XML/'> <semantics> <mrow> <mrow> <mrow> <mrow> <msub> <mi> ber </mi> <mi> ν </mi> </msub> <mo> ( </mo> <mi> z </mi> <mo> ) </mo> </mrow> <mo> ∝ </mo> <mrow> <mfrac> <mn> 1 </mn> <mrow> <msqrt> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> </msqrt> <mo> ⁢ </mo> <msqrt> <mi> z </mi> </msqrt> </mrow> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <msup> <mi> ⅇ </mi> <mfrac> <mi> z </mi> <msqrt> <mn> 2 </mn> </msqrt> </mfrac> </msup> <mo> ⁢ </mo> <mrow> <mi> cos </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 8 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mi> π </mi> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <mi> ν </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <msqrt> <mn> 2 </mn> </msqrt> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> + </mo> <mrow> <msup> <mi> ⅇ </mi> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> π </mi> <mo> ⁢ </mo> <mi> ν </mi> </mrow> <mo> - </mo> <mfrac> <mi> z </mi> <msqrt> <mn> 2 </mn> </msqrt> </mfrac> </mrow> </msup> <mo> ⁢ </mo> <mi> ⅈ </mi> <mo> ⁢ </mo> <mrow> <mi> sin </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 8 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mi> π </mi> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <mi> ν </mi> </mrow> <mo> + </mo> <mn> 3 </mn> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <msqrt> <mn> 2 </mn> </msqrt> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> ⁢ </mo> <semantics> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> + </mo> <mrow> <mi> O </mi> <mo> ⁡ </mo> <mo> ( </mo> <mfrac> <mn> 1 </mn> <msup> <mi> z </mi> <mn> 4 </mn> </msup> </mfrac> <mo> ) </mo> </mrow> </mrow> </mrow> <annotation encoding='Mathematica'> TagBox[RowBox[List["(", RowBox[List["1", "+", RowBox[List["O", "(", FractionBox["1", SuperscriptBox["z", "4"]], ")"]]]]]], HypergeometricPFQ] </annotation> </semantics> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> /; </mo> <mrow> <mrow> <mrow> <mo> - </mo> <mfrac> <mi> π </mi> <mn> 2 </mn> </mfrac> </mrow> <mo> < </mo> <mrow> <mi> arg </mi> <mo> ⁡ </mo> <mo> ( </mo> <mi> z </mi> <mo> ) </mo> </mrow> <mo> ≤ </mo> <mi> π </mi> </mrow> <mo> ∧ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <semantics> <mo> ❘ </mo> <annotation encoding='Mathematica'> "\[LeftBracketingBar]" </annotation> </semantics> <mi> z </mi> <semantics> <mo> ❘ </mo> <annotation encoding='Mathematica'> "\[RightBracketingBar]" </annotation> </semantics> </mrow> <semantics> <mo> → </mo> <annotation encoding='Mathematica'> "\[Rule]" </annotation> </semantics> <mi> ∞ </mi> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> <annotation-xml encoding='MathML-Content'> <mrow> <mrow> <mrow> <mrow> <msub> <mi> ber </mi> <mi> ν </mi> </msub> <mo> ( </mo> <mi> z </mi> <mo> ) </mo> </mrow> <mo> ∝ </mo> <mrow> <mfrac> <mn> 1 </mn> <mrow> <msqrt> <mrow> <mn> 2 </mn> <mo> ⁢ </mo> <mi> π </mi> </mrow> </msqrt> <mo> ⁢ </mo> <msqrt> <mi> z </mi> </msqrt> </mrow> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <msup> <mi> ⅇ </mi> <mfrac> <mi> z </mi> <msqrt> <mn> 2 </mn> </msqrt> </mfrac> </msup> <mo> ⁢ </mo> <mrow> <mi> cos </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 8 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mi> π </mi> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <mi> ν </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <msqrt> <mn> 2 </mn> </msqrt> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> + </mo> <mrow> <msup> <mi> ⅇ </mi> <mrow> <mrow> <mi> ⅈ </mi> <mo> ⁢ </mo> <mi> π </mi> <mo> ⁢ </mo> <mi> ν </mi> </mrow> <mo> - </mo> <mfrac> <mi> z </mi> <msqrt> <mn> 2 </mn> </msqrt> </mfrac> </mrow> </msup> <mo> ⁢ </mo> <mi> ⅈ </mi> <mo> ⁢ </mo> <mrow> <mi> sin </mi> <mo> ⁡ </mo> <mo> ( </mo> <mrow> <mfrac> <mn> 1 </mn> <mn> 8 </mn> </mfrac> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mi> π </mi> <mo> ⁢ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <mi> ν </mi> </mrow> <mo> + </mo> <mn> 3 </mn> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> - </mo> <mrow> <mn> 4 </mn> <mo> ⁢ </mo> <msqrt> <mn> 2 </mn> </msqrt> <mo> ⁢ </mo> <mi> z </mi> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> ⁢ </mo> <semantics> <mrow> <mo> ( </mo> <mrow> <mn> 1 </mn> <mo> + </mo> <mrow> <mi> O </mi> <mo> ⁡ </mo> <mo> ( </mo> <mfrac> <mn> 1 </mn> <msup> <mi> z </mi> <mn> 4 </mn> </msup> </mfrac> <mo> ) </mo> </mrow> </mrow> </mrow> <annotation encoding='Mathematica'> TagBox[RowBox[List["(", RowBox[List["1", "+", RowBox[List["O", "(", FractionBox["1", SuperscriptBox["z", "4"]], ")"]]]]]], HypergeometricPFQ] </annotation> </semantics> </mrow> </mrow> <mo> ) </mo> </mrow> <mo> /; </mo> <mrow> <mrow> <mrow> <mo> - </mo> <mfrac> <mi> π </mi> <mn> 2 </mn> </mfrac> </mrow> <mo> < </mo> <mrow> <mi> arg </mi> <mo> ⁡ </mo> <mo> ( </mo> <mi> z </mi> <mo> ) </mo> </mrow> <mo> ≤ </mo> <mi> π </mi> </mrow> <mo> ∧ </mo> <mrow> <mo> ( </mo> <mrow> <mrow> <semantics> <mo> ❘ </mo> <annotation encoding='Mathematica'> "\[LeftBracketingBar]" </annotation> </semantics> <mi> z </mi> <semantics> <mo> ❘ </mo> <annotation encoding='Mathematica'> "\[RightBracketingBar]" </annotation> </semantics> </mrow> <semantics> <mo> → </mo> <annotation encoding='Mathematica'> "\[Rule]" </annotation> </semantics> <mi> ∞ </mi> </mrow> <mo> ) </mo> </mrow> </mrow> </mrow> </annotation-xml> </semantics> </math>
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
| Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["KelvinBer", "[", RowBox[List["\[Nu]_", ",", "z_"]], "]"]], "]"]], "\[RuleDelayed]", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox["\[ExponentialE]", FractionBox["z", SqrtBox["2"]]], " ", RowBox[List["Cos", "[", RowBox[List[FractionBox["1", "8"], " ", RowBox[List["(", RowBox[List[RowBox[List["\[Pi]", " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["4", " ", "\[Nu]"]]]], ")"]]]], "-", RowBox[List["4", " ", SqrtBox["2"], " ", "z"]]]], ")"]]]], "]"]]]], "+", RowBox[List["\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[List[RowBox[List["\[ImaginaryI]", " ", "\[Pi]", " ", "\[Nu]"]], "-", FractionBox["z", SqrtBox["2"]]]]], " ", RowBox[List["Sin", "[", RowBox[List[FractionBox["1", "8"], " ", RowBox[List["(", RowBox[List[RowBox[List["\[Pi]", " ", RowBox[List["(", RowBox[List["3", "+", RowBox[List["4", " ", "\[Nu]"]]]], ")"]]]], "-", RowBox[List["4", " ", SqrtBox["2"], " ", "z"]]]], ")"]]]], "]"]]]]]], ")"]], " ", RowBox[List["(", RowBox[List["1", "+", RowBox[List["SeriesData", "[", RowBox[List["z", ",", "\[Infinity]", ",", RowBox[List["{", "0", "}"]], ",", "0", ",", "4"]], "]"]]]], ")"]]]], RowBox[List[SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], " ", SqrtBox["z"]]]], "/;", RowBox[List[RowBox[List[RowBox[List["-", FractionBox["\[Pi]", "2"]]], "<", RowBox[List["Arg", "[", "z", "]"]], "\[LessEqual]", "\[Pi]"]], "&&", RowBox[List["(", RowBox[List[RowBox[List["Abs", "[", "z", "]"]], "\[Rule]", "\[Infinity]"]], ")"]]]]]]]]]] |
|
|
|
|
|
|
|
|
|
|
Date Added to functions.wolfram.com (modification date)
|
|
|
|
|
|
|
|
|
|
|
|
|
|