html, body, form { margin: 0; padding: 0; width: 100%; } #calculate { position: relative; width: 177px; height: 110px; background: transparent url(/images/alphabox/embed_functions_inside.gif) no-repeat scroll 0 0; } #i { position: relative; left: 18px; top: 44px; width: 133px; border: 0 none; outline: 0; font-size: 11px; } #eq { width: 9px; height: 10px; background: transparent; position: absolute; top: 47px; right: 18px; cursor: pointer; }

 SphericalBesselJ

 http://functions.wolfram.com/03.21.21.0066.01

 Input Form

 Integrate[t^(-1 + \[Alpha]) SphericalBesselJ[\[Lambda], a t] SphericalBesselJ[\[Mu], b t] SphericalBesselJ[\[Nu], c t], {t, 0, Infinity}] == (2^(-4 + \[Alpha]) a^\[Lambda] b^\[Mu] c^(-\[Alpha] - \[Lambda] - \[Mu]) Pi^(3/2) Gamma[(1/2) (\[Alpha] + \[Lambda] + \[Mu] + \[Nu])] HypergeometricPFQ[{{(1/2) (\[Alpha] + \[Lambda] + \[Mu] + \[Nu]), (1/2) (-1 + \[Alpha] + \[Lambda] + \[Mu] - \[Nu])}, {}, {}}, {{}, {3/2 + \[Lambda]}, {3/2 + \[Mu]}}, a^2/c^2, b^2/c^2])/ (Gamma[3/2 + \[Lambda]] Gamma[3/2 + \[Mu]] Gamma[(1/2) (3 - \[Alpha] - \[Lambda] - \[Mu] + \[Nu])]) /; Element[a, Reals] && Element[b, Reals] && Element[c, Reals] && a > 0 && b > 0 && Re[\[Alpha] + \[Lambda] + \[Mu] + \[Nu]] > 0 && a + b < c && Re[\[Alpha]] < 4

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List[RowBox[List[SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[List[RowBox[List[SuperscriptBox["t", RowBox[List[RowBox[List["-", "1"]], "+", "\[Alpha]"]]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Lambda]", ",", RowBox[List["a", " ", "t"]]]], "]"]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Mu]", ",", RowBox[List["b", " ", "t"]]]], "]"]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Nu]", ",", RowBox[List["c", " ", "t"]]]], "]"]]]], RowBox[List["\[DifferentialD]", "t"]]]]]], "\[Equal]", RowBox[List[RowBox[List["(", RowBox[List[SuperscriptBox["2", RowBox[List[RowBox[List["-", "4"]], "+", "\[Alpha]"]]], " ", SuperscriptBox["a", "\[Lambda]"], " ", SuperscriptBox["b", "\[Mu]"], " ", SuperscriptBox["c", RowBox[List[RowBox[List["-", "\[Alpha]"]], "-", "\[Lambda]", "-", "\[Mu]"]]], " ", SuperscriptBox["\[Pi]", RowBox[List["3", "/", "2"]]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], ")"]]]], "]"]], " ", RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List[RowBox[List["{", RowBox[List[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], ")"]]]], ",", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "-", "\[Nu]"]], ")"]]]]]], "}"]], ",", RowBox[List["{", "}"]], ",", RowBox[List["{", "}"]]]], "}"]], ",", RowBox[List["{", RowBox[List[RowBox[List["{", "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["3", "2"], "+", "\[Lambda]"]], "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["3", "2"], "+", "\[Mu]"]], "}"]]]], "}"]], ",", FractionBox[SuperscriptBox["a", "2"], SuperscriptBox["c", "2"]], ",", FractionBox[SuperscriptBox["b", "2"], SuperscriptBox["c", "2"]]]], "]"]]]], ")"]], "/", RowBox[List["(", RowBox[List[RowBox[List["Gamma", "[", RowBox[List[FractionBox["3", "2"], "+", "\[Lambda]"]], "]"]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["3", "2"], "+", "\[Mu]"]], "]"]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["3", "-", "\[Alpha]", "-", "\[Lambda]", "-", "\[Mu]", "+", "\[Nu]"]], ")"]]]], "]"]]]], ")"]]]]]], "/;", RowBox[List[RowBox[List["a", "\[Element]", "Reals"]], "&&", RowBox[List["b", "\[Element]", "Reals"]], "&&", RowBox[List["c", "\[Element]", "Reals"]], "&&", RowBox[List["a", ">", "0"]], "&&", RowBox[List["b", ">", "0"]], "&&", RowBox[List[RowBox[List["Re", "[", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], "]"]], ">", "0"]], "&&", RowBox[List[RowBox[List["a", "+", "b"]], "<", "c"]], "&&", RowBox[List[RowBox[List["Re", "[", "\[Alpha]", "]"]], "<", "4"]]]]]]]]

 MathML Form

 0 t α - 1 j λ ( a t ) j μ ( b t ) j ν ( c t ) t 2 α - 4 a λ b μ c - α - λ - μ π 3 / 2 Γ ( α + λ + μ + ν 2 ) Γ ( λ + 3 2 ) Γ ( μ + 3 2 ) Γ ( 3 - α - λ - μ + ν 2 ) F 0 , 1 , 1 2 , 0 , 0 ( α + λ + μ + ν 2 , α + λ + μ - ν - 1 2 ; ; ; ; λ + 3 2 ; μ + 3 2 ; a 2 c 2 , b 2 c 2 ) /; a TagBox["\[DoubleStruckCapitalR]", Function[List[], Reals]] b TagBox["\[DoubleStruckCapitalR]", Function[List[], Reals]] c TagBox["\[DoubleStruckCapitalR]", Function[List[], Reals]] a > 0 b > 0 Re ( α + λ + μ + ν ) > 0 a + b < c Re ( α ) < 4 FormBox RowBox RowBox RowBox SubsuperscriptBox 0 RowBox RowBox SuperscriptBox t RowBox α - 1 RowBox SubscriptBox j λ ( RowBox a t ) RowBox SubscriptBox j μ ( RowBox b t ) RowBox SubscriptBox j ν ( RowBox c t ) RowBox t RowBox FractionBox RowBox SuperscriptBox 2 RowBox α - 4 SuperscriptBox a λ SuperscriptBox b μ SuperscriptBox c RowBox RowBox - α - λ - μ SuperscriptBox π RowBox 3 / 2 Γ RowBox ( FractionBox RowBox α + λ + μ + ν 2 ) RowBox RowBox Γ ( RowBox λ + FractionBox 3 2 ) RowBox Γ ( RowBox μ + FractionBox 3 2 ) RowBox Γ ( FractionBox RowBox 3 - α - λ - μ + ν 2 ) RowBox SubsuperscriptBox F RowBox 0 , 1 , 1 RowBox 2 , 0 , 0 [ RowBox RowBox GridBox RowBox FractionBox RowBox α + λ + μ + ν 2 , RowBox RowBox FractionBox RowBox α + λ + μ - ν - 1 2 RowBox ; ; ; RowBox ; RowBox λ + FractionBox 3 2 ; RowBox μ + FractionBox 3 2 ; FractionBox SuperscriptBox a 2 SuperscriptBox c 2 , FractionBox SuperscriptBox b 2 SuperscriptBox c 2 ] /; RowBox RowBox a TagBox Function RowBox b TagBox Function RowBox c TagBox Function RowBox a > 0 RowBox b > 0 RowBox RowBox Re ( RowBox α + λ + μ + ν ) > 0 RowBox RowBox a + b < c RowBox RowBox Re ( α ) < 4 TraditionalForm [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List[SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[List[RowBox[List[SuperscriptBox["t_", RowBox[List[RowBox[List["-", "1"]], "+", "\[Alpha]_"]]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Lambda]_", ",", RowBox[List["a_", " ", "t_"]]]], "]"]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Mu]_", ",", RowBox[List["b_", " ", "t_"]]]], "]"]], " ", RowBox[List["SphericalBesselJ", "[", RowBox[List["\[Nu]_", ",", RowBox[List["c_", " ", "t_"]]]], "]"]]]], RowBox[List["\[DifferentialD]", "t_"]]]]]], "]"]], "\[RuleDelayed]", RowBox[List[FractionBox[RowBox[List[SuperscriptBox["2", RowBox[List[RowBox[List["-", "4"]], "+", "\[Alpha]"]]], " ", SuperscriptBox["a", "\[Lambda]"], " ", SuperscriptBox["b", "\[Mu]"], " ", SuperscriptBox["c", RowBox[List[RowBox[List["-", "\[Alpha]"]], "-", "\[Lambda]", "-", "\[Mu]"]]], " ", SuperscriptBox["\[Pi]", RowBox[List["3", "/", "2"]]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], ")"]]]], "]"]], " ", RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List[RowBox[List["{", RowBox[List[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], ")"]]]], ",", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "-", "\[Nu]"]], ")"]]]]]], "}"]], ",", RowBox[List["{", "}"]], ",", RowBox[List["{", "}"]]]], "}"]], ",", RowBox[List["{", RowBox[List[RowBox[List["{", "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["3", "2"], "+", "\[Lambda]"]], "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["3", "2"], "+", "\[Mu]"]], "}"]]]], "}"]], ",", FractionBox[SuperscriptBox["a", "2"], SuperscriptBox["c", "2"]], ",", FractionBox[SuperscriptBox["b", "2"], SuperscriptBox["c", "2"]]]], "]"]]]], RowBox[List[RowBox[List["Gamma", "[", RowBox[List[FractionBox["3", "2"], "+", "\[Lambda]"]], "]"]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["3", "2"], "+", "\[Mu]"]], "]"]], " ", RowBox[List["Gamma", "[", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["3", "-", "\[Alpha]", "-", "\[Lambda]", "-", "\[Mu]", "+", "\[Nu]"]], ")"]]]], "]"]]]]], "/;", RowBox[List[RowBox[List["a", "\[Element]", "Reals"]], "&&", RowBox[List["b", "\[Element]", "Reals"]], "&&", RowBox[List["c", "\[Element]", "Reals"]], "&&", RowBox[List["a", ">", "0"]], "&&", RowBox[List["b", ">", "0"]], "&&", RowBox[List[RowBox[List["Re", "[", RowBox[List["\[Alpha]", "+", "\[Lambda]", "+", "\[Mu]", "+", "\[Nu]"]], "]"]], ">", "0"]], "&&", RowBox[List[RowBox[List["a", "+", "b"]], "<", "c"]], "&&", RowBox[List[RowBox[List["Re", "[", "\[Alpha]", "]"]], "<", "4"]]]]]]]]]]

 Date Added to functions.wolfram.com (modification date)

 2007-05-02