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.8644.01

 Input Form

 HypergeometricPFQ[{-(21/4)}, {-(7/2), 3/4}, z] == (1/1238630400) ((-4 (-154828800 + 56865375 Sqrt[z] - 130617900 z + 16309440 z^(3/2) - 48061440 z^2 + 3709440 z^(5/2) - 11827200 z^3 + 1228800 z^(7/2) - 5111808 z^4 - 65536 z^(9/2) + 262144 z^5 + E^(4 Sqrt[z]) (-154828800 - 56865375 Sqrt[z] - 130617900 z - 16309440 z^(3/2) - 48061440 z^2 - 3709440 z^(5/2) - 11827200 z^3 - 1228800 z^(7/2) - 5111808 z^4 + 65536 z^(9/2) + 262144 z^5)) + E^(2 Sqrt[z]) Sqrt[2 Pi] z^(1/4) (366522975 + 451105200 z + 178214400 z^2 + 43868160 z^3 + 20643840 z^4 - 1048576 z^5) Erf[Sqrt[2] z^(1/4)] + E^(2 Sqrt[z]) Sqrt[2 Pi] z^(1/4) (-366522975 - 451105200 z - 178214400 z^2 - 43868160 z^3 - 20643840 z^4 + 1048576 z^5) Erfi[Sqrt[2] z^(1/4)])/E^(2 Sqrt[z]))

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List["-", FractionBox["21", "4"]]], "}"]], ",", RowBox[List["{", RowBox[List[RowBox[List["-", FractionBox["7", "2"]]], ",", FractionBox["3", "4"]]], "}"]], ",", "z"]], "]"]], "\[Equal]", RowBox[List[FractionBox["1", "1238630400"], RowBox[List["(", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List[RowBox[List["-", "2"]], " ", SqrtBox["z"]]]], " ", RowBox[List["(", RowBox[List[RowBox[List[RowBox[List["-", "4"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "154828800"]], "+", RowBox[List["56865375", " ", SqrtBox["z"]]], "-", RowBox[List["130617900", " ", "z"]], "+", RowBox[List["16309440", " ", SuperscriptBox["z", RowBox[List["3", "/", "2"]]]]], "-", RowBox[List["48061440", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["3709440", " ", SuperscriptBox["z", RowBox[List["5", "/", "2"]]]]], "-", RowBox[List["11827200", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["1228800", " ", SuperscriptBox["z", RowBox[List["7", "/", "2"]]]]], "-", RowBox[List["5111808", " ", SuperscriptBox["z", "4"]]], "-", RowBox[List["65536", " ", SuperscriptBox["z", RowBox[List["9", "/", "2"]]]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "5"]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["4", " ", SqrtBox["z"]]]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "154828800"]], "-", RowBox[List["56865375", " ", SqrtBox["z"]]], "-", RowBox[List["130617900", " ", "z"]], "-", RowBox[List["16309440", " ", SuperscriptBox["z", RowBox[List["3", "/", "2"]]]]], "-", RowBox[List["48061440", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["3709440", " ", SuperscriptBox["z", RowBox[List["5", "/", "2"]]]]], "-", RowBox[List["11827200", " ", SuperscriptBox["z", "3"]]], "-", RowBox[List["1228800", " ", SuperscriptBox["z", RowBox[List["7", "/", "2"]]]]], "-", RowBox[List["5111808", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", RowBox[List["9", "/", "2"]]]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "5"]]]]], ")"]]]]]], ")"]]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["2", " ", SqrtBox["z"]]]], " ", SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List["366522975", "+", RowBox[List["451105200", " ", "z"]], "+", RowBox[List["178214400", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["43868160", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["20643840", " ", SuperscriptBox["z", "4"]]], "-", RowBox[List["1048576", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["Erf", "[", RowBox[List[SqrtBox["2"], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]]]], "]"]]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["2", " ", SqrtBox["z"]]]], " ", SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "366522975"]], "-", RowBox[List["451105200", " ", "z"]], "-", RowBox[List["178214400", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["43868160", " ", SuperscriptBox["z", "3"]]], "-", RowBox[List["20643840", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["1048576", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["Erfi", "[", RowBox[List[SqrtBox["2"], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]]]], "]"]]]]]], ")"]]]], ")"]]]]]]]]

 MathML Form

 1 F 2 ( - 21 4 ; - 7 2 , 3 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["21", "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[RowBox[List["-", FractionBox["7", "2"]]], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]], ",", TagBox[FractionBox["3", "4"], HypergeometricPFQ, Rule[Editable, True], Rule[Selectable, True]]]], InterpretTemplate[Function[List[SlotSequence[1]]]]], HypergeometricPFQ, Rule[Editable, False], Rule[Selectable, False]], ";", TagBox["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 1238630400 ( - 2 z ( - 4 ( 262144 z 5 - 65536 z 9 / 2 - 5111808 z 4 + 1228800 z 7 / 2 - 11827200 z 3 + 3709440 z 5 / 2 - 48061440 z 2 + 16309440 z 3 / 2 - 130617900 z + 56865375 z + 4 z ( 262144 z 5 + 65536 z 9 / 2 - 5111808 z 4 - 1228800 z 7 / 2 - 11827200 z 3 - 3709440 z 5 / 2 - 48061440 z 2 - 16309440 z 3 / 2 - 130617900 z - 56865375 z - 154828800 ) - 154828800 ) + 2 z 2 π z 4 ( - 1048576 z 5 + 20643840 z 4 + 43868160 z 3 + 178214400 z 2 + 451105200 z + 366522975 ) erf ( 2 z 4 ) + 2 z 2 π z 4 ( 1048576 z 5 - 20643840 z 4 - 43868160 z 3 - 178214400 z 2 - 451105200 z - 366522975 ) erfi ( 2 z 4 ) ) ) HypergeometricPFQ -1 21 4 -1 7 2 3 4 z 1 1238630400 -2 z 1 2 -4 262144 z 5 -1 65536 z 9 2 -1 5111808 z 4 1228800 z 7 2 -1 11827200 z 3 3709440 z 5 2 -1 48061440 z 2 16309440 z 3 2 -1 130617900 z 56865375 z 1 2 4 z 1 2 262144 z 5 65536 z 9 2 -1 5111808 z 4 -1 1228800 z 7 2 -1 11827200 z 3 -1 3709440 z 5 2 -1 48061440 z 2 -1 16309440 z 3 2 -1 130617900 z -1 56865375 z 1 2 -154828800 -154828800 2 z 1 2 2 1 2 z 1 4 -1048576 z 5 20643840 z 4 43868160 z 3 178214400 z 2 451105200 z 366522975 Erf 2 1 2 z 1 4 2 z 1 2 2 1 2 z 1 4 1048576 z 5 -1 20643840 z 4 -1 43868160 z 3 -1 178214400 z 2 -1 451105200 z -366522975 Erfi 2 1 2 z 1 4 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["HypergeometricPFQ", "[", RowBox[List[RowBox[List["{", RowBox[List["-", FractionBox["21", "4"]]], "}"]], ",", RowBox[List["{", RowBox[List[RowBox[List["-", FractionBox["7", "2"]]], ",", FractionBox["3", "4"]]], "}"]], ",", "z_"]], "]"]], "]"]], "\[RuleDelayed]", FractionBox[RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List[RowBox[List["-", "2"]], " ", SqrtBox["z"]]]], " ", RowBox[List["(", RowBox[List[RowBox[List[RowBox[List["-", "4"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "154828800"]], "+", RowBox[List["56865375", " ", SqrtBox["z"]]], "-", RowBox[List["130617900", " ", "z"]], "+", RowBox[List["16309440", " ", SuperscriptBox["z", RowBox[List["3", "/", "2"]]]]], "-", RowBox[List["48061440", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["3709440", " ", SuperscriptBox["z", RowBox[List["5", "/", "2"]]]]], "-", RowBox[List["11827200", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["1228800", " ", SuperscriptBox["z", RowBox[List["7", "/", "2"]]]]], "-", RowBox[List["5111808", " ", SuperscriptBox["z", "4"]]], "-", RowBox[List["65536", " ", SuperscriptBox["z", RowBox[List["9", "/", "2"]]]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "5"]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["4", " ", SqrtBox["z"]]]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "154828800"]], "-", RowBox[List["56865375", " ", SqrtBox["z"]]], "-", RowBox[List["130617900", " ", "z"]], "-", RowBox[List["16309440", " ", SuperscriptBox["z", RowBox[List["3", "/", "2"]]]]], "-", RowBox[List["48061440", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["3709440", " ", SuperscriptBox["z", RowBox[List["5", "/", "2"]]]]], "-", RowBox[List["11827200", " ", SuperscriptBox["z", "3"]]], "-", RowBox[List["1228800", " ", SuperscriptBox["z", RowBox[List["7", "/", "2"]]]]], "-", RowBox[List["5111808", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["65536", " ", SuperscriptBox["z", RowBox[List["9", "/", "2"]]]]], "+", RowBox[List["262144", " ", SuperscriptBox["z", "5"]]]]], ")"]]]]]], ")"]]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["2", " ", SqrtBox["z"]]]], " ", SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List["366522975", "+", RowBox[List["451105200", " ", "z"]], "+", RowBox[List["178214400", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["43868160", " ", SuperscriptBox["z", "3"]]], "+", RowBox[List["20643840", " ", SuperscriptBox["z", "4"]]], "-", RowBox[List["1048576", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["Erf", "[", RowBox[List[SqrtBox["2"], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]]]], "]"]]]], "+", RowBox[List[SuperscriptBox["\[ExponentialE]", RowBox[List["2", " ", SqrtBox["z"]]]], " ", SqrtBox[RowBox[List["2", " ", "\[Pi]"]]], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "366522975"]], "-", RowBox[List["451105200", " ", "z"]], "-", RowBox[List["178214400", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["43868160", " ", SuperscriptBox["z", "3"]]], "-", RowBox[List["20643840", " ", SuperscriptBox["z", "4"]]], "+", RowBox[List["1048576", " ", SuperscriptBox["z", "5"]]]]], ")"]], " ", RowBox[List["Erfi", "[", RowBox[List[SqrtBox["2"], " ", SuperscriptBox["z", RowBox[List["1", "/", "4"]]]]], "]"]]]]]], ")"]]]], "1238630400"]]]]]

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

 2007-05-02