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; }

 HypergeometricPFQ

 http://functions.wolfram.com/07.22.03.8257.01

 Input Form

 HypergeometricPFQ[{-(23/4)}, {1/2, -(1/4)}, -z] == -((1/(197358525 Sqrt[2])) (z^(1/4) ((-197358525 + 9473209200 z + 31425457140 z^2 + 12966912000 z^3 + 1263568896 z^4 + 35651584 z^5 + 262144 z^6) BesselJ[-(1/4), Sqrt[z]]^ 2 - 2 Sqrt[z] (394717050 + 6267428055 z + 3058503840 z^2 + 310431744 z^3 + 8871936 z^4 + 65536 z^5) BesselJ[-(1/4), Sqrt[z]] BesselJ[3/4, Sqrt[z]] + 4 z (1233565200 + 7154142345 z + 3166115904 z^2 + 313689600 z^3 + 8896512 z^4 + 65536 z^5) BesselJ[3/4, Sqrt[z]]^2) Gamma[3/4]^2))

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List["-", FractionBox["23", "4"]]], "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["1", "2"], ",", RowBox[List["-", FractionBox["1", "4"]]]]], "}"]], ",", RowBox[List["-", "z"]]]], "]"]], "\[Equal]", RowBox[List["-", RowBox[List[FractionBox["1", RowBox[List["197358525", " ", SqrtBox["2"]]]], RowBox[List["(", RowBox[List[SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "197358525"]], "+", RowBox[List["9473209200", " ", "z"]], "+", RowBox[List["31425457140", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["12966912000", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["1263568896", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["35651584", " ", SuperscriptBox["z", "5"]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "6"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["BesselJ", "[", RowBox[List[RowBox[List["-", FractionBox["1", "4"]]], ",", SqrtBox["z"]]], "]"]], "2"]]], "-", RowBox[List["2", " ", SqrtBox["z"], " ", RowBox[List["(", RowBox[List["394717050", "+", RowBox[List["6267428055", " ", "z"]], "+", RowBox[List["3058503840", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["310431744", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["8871936", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["BesselJ", "[", RowBox[List[RowBox[List["-", FractionBox["1", "4"]]], ",", SqrtBox["z"]]], "]"]], " ", RowBox[List["BesselJ", "[", RowBox[List[FractionBox["3", "4"], ",", SqrtBox["z"]]], "]"]]]], "+", RowBox[List["4", " ", "z", " ", RowBox[List["(", RowBox[List["1233565200", "+", RowBox[List["7154142345", " ", "z"]], "+", RowBox[List["3166115904", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["313689600", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["8896512", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["BesselJ", "[", RowBox[List[FractionBox["3", "4"], ",", SqrtBox["z"]]], "]"]], "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["Gamma", "[", FractionBox["3", "4"], "]"]], "2"]]], ")"]]]]]]]]]]

 MathML Form

 1 F 2 ( - 23 4 ; 1 2 , - 1 4 ; - z ) TagBox[TagBox[RowBox[List[RowBox[List[SubscriptBox["\[InvisiblePrefixScriptBase]", "1"], SubscriptBox["F", "2"]]], "\[InvisibleApplication]", RowBox[List["(", RowBox[List[TagBox[TagBox[TagBox[RowBox[List["-", FractionBox["23", "4"]]], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]], InterpretTemplate[Function[List[SlotSequence[1]]]]], HypergeometricPFQ, Rule[Editable, False], Rule[Selectable, False]], ";", TagBox[TagBox[RowBox[List[TagBox[FractionBox["1", "2"], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]], ",", TagBox[RowBox[List["-", FractionBox["1", "4"]]], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]]]], InterpretTemplate[Function[List[SlotSequence[1]]]]], HypergeometricPFQ, Rule[Editable, False], Rule[Selectable, False]], ";", TagBox[RowBox[List["-", "z"]], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]]]], ")"]]]], InterpretTemplate[Function[HypergeometricPFQ[Slot[1], Slot[2], Slot[3]]]], Rule[Editable, False], Rule[Selectable, False]], HypergeometricPFQ] - 1 197358525 2 ( z 4 ( ( 262144 z 6 + 35651584 z 5 + 1263568896 z 4 + 12966912000 z 3 + 31425457140 z 2 + 9473209200 z - 197358525 ) J - 1 4 ( z ) 2 - 2 z ( 65536 z 5 + 8871936 z 4 + 310431744 z 3 + 3058503840 z 2 + 6267428055 z + 394717050 ) J 3 4 ( z ) J - 1 4 ( z ) + 4 z ( 65536 z 5 + 8896512 z 4 + 313689600 z 3 + 3166115904 z 2 + 7154142345 z + 1233565200 ) J 3 4 ( z ) 2 ) Γ ( 3 4 ) 2 ) HypergeometricPFQ -1 23 4 1 2 -1 1 4 -1 z -1 1 197358525 2 1 2 -1 z 1 4 262144 z 6 35651584 z 5 1263568896 z 4 12966912000 z 3 31425457140 z 2 9473209200 z -197358525 BesselJ -1 1 4 z 1 2 2 -1 2 z 1 2 65536 z 5 8871936 z 4 310431744 z 3 3058503840 z 2 6267428055 z 394717050 BesselJ 3 4 z 1 2 BesselJ -1 1 4 z 1 2 4 z 65536 z 5 8896512 z 4 313689600 z 3 3166115904 z 2 7154142345 z 1233565200 BesselJ 3 4 z 1 2 2 Gamma 3 4 2 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List["-", FractionBox["23", "4"]]], "}"]], ",", RowBox[List["{", RowBox[List[FractionBox["1", "2"], ",", RowBox[List["-", FractionBox["1", "4"]]]]], "}"]], ",", RowBox[List["-", "z_"]]]], "]"]], "]"]], "\[RuleDelayed]", RowBox[List["-", FractionBox[RowBox[List[SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "197358525"]], "+", RowBox[List["9473209200", " ", "z"]], "+", RowBox[List["31425457140", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["12966912000", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["1263568896", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["35651584", " ", SuperscriptBox["z", "5"]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "6"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["BesselJ", "[", RowBox[List[RowBox[List["-", FractionBox["1", "4"]]], ",", SqrtBox["z"]]], "]"]], "2"]]], "-", RowBox[List["2", " ", SqrtBox["z"], " ", RowBox[List["(", RowBox[List["394717050", "+", RowBox[List["6267428055", " ", "z"]], "+", RowBox[List["3058503840", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["310431744", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["8871936", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["BesselJ", "[", RowBox[List[RowBox[List["-", FractionBox["1", "4"]]], ",", SqrtBox["z"]]], "]"]], " ", RowBox[List["BesselJ", "[", RowBox[List[FractionBox["3", "4"], ",", SqrtBox["z"]]], "]"]]]], "+", RowBox[List["4", " ", "z", " ", RowBox[List["(", RowBox[List["1233565200", "+", RowBox[List["7154142345", " ", "z"]], "+", RowBox[List["3166115904", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["313689600", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["8896512", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["BesselJ", "[", RowBox[List[FractionBox["3", "4"], ",", SqrtBox["z"]]], "]"]], "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["Gamma", "[", FractionBox["3", "4"], "]"]], "2"]]], RowBox[List["197358525", " ", SqrtBox["2"]]]]]]]]]]

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

 2007-05-02