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

 Fibonacci

 http://functions.wolfram.com/07.06.21.0003.01

 Input Form

 Integrate[z^(\[Alpha] - 1) Fibonacci[\[Nu], z], z] == -((2^(\[Alpha] - \[Nu] - 1) z^\[Alpha] (z + Sqrt[4 + z^2])^(1 - \[Nu]) (4^\[Nu] (1 - \[Alpha] + \[Nu]) Cos[Pi \[Nu]] Hypergeometric2F1[ (1 - \[Alpha] - \[Nu])/2, 1 - \[Alpha], (3 - \[Alpha] - \[Nu])/2, (1/4) (z + Sqrt[4 + z^2])^2] + (z + Sqrt[4 + z^2])^(2 \[Nu]) (\[Alpha] + \[Nu] - 1) Hypergeometric2F1[(1 - \[Alpha] + \[Nu])/2, 1 - \[Alpha], (3 - \[Alpha] + \[Nu])/2, (1/4) (z + Sqrt[4 + z^2])^2]))/((-z) (z + Sqrt[4 + z^2]))^\[Alpha])/ ((1 - \[Alpha] + \[Nu]) (\[Alpha] + \[Nu] - 1))

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List["\[Integral]", RowBox[List[SuperscriptBox["z", RowBox[List["\[Alpha]", "-", "1"]]], RowBox[List["Fibonacci", "[", RowBox[List["\[Nu]", ",", "z"]], "]"]], RowBox[List["\[DifferentialD]", "z"]]]]]], "\[Equal]", RowBox[List[RowBox[List["-", RowBox[List["(", RowBox[List[SuperscriptBox["2", RowBox[List["\[Alpha]", "-", "\[Nu]", "-", "1"]]], " ", SuperscriptBox["z", "\[Alpha]"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], RowBox[List["1", "-", "\[Nu]"]]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "z"]], " ", RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]]]], ")"]], RowBox[List["-", "\[Alpha]"]]], " ", RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox["4", "\[Nu]"], " ", RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]], " ", RowBox[List["Cos", "[", RowBox[List["\[Pi]", " ", "\[Nu]"]], "]"]], " ", RowBox[List["Hypergeometric2F1", "[", RowBox[List[FractionBox[RowBox[List["1", "-", "\[Alpha]", "-", "\[Nu]"]], "2"], ",", RowBox[List["1", "-", "\[Alpha]"]], ",", FractionBox[RowBox[List["3", "-", "\[Alpha]", "-", "\[Nu]"]], "2"], ",", RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], "2"]]]]], "]"]]]], "+", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], RowBox[List["2", " ", "\[Nu]"]]], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Nu]", "-", "1"]], ")"]], " ", RowBox[List["Hypergeometric2F1", "[", RowBox[List[FractionBox[RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], "2"], ",", RowBox[List["1", "-", "\[Alpha]"]], ",", FractionBox[RowBox[List["3", "-", "\[Alpha]", "+", "\[Nu]"]], "2"], ",", RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], "2"]]]]], "]"]]]]]], ")"]]]], ")"]]]], "/", RowBox[List["(", RowBox[List[RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Nu]", "-", "1"]], ")"]]]], ")"]]]]]]]]

 MathML Form

 z α - 1 F TagBox["F", Fibonacci] ν ( z ) z - ( 2 α - ν - 1 z α ( z + z 2 + 4 ) 1 - ν ( - z ( z + z 2 + 4 ) ) - α ( ( α + ν - 1 ) 2 F 1 ( 1 2 ( - α + ν + 1 ) , 1 - α ; 1 2 ( - α + ν + 3 ) ; 1 4 ( z + z 2 + 4 ) 2 ) TagBox[TagBox[RowBox[List[RowBox[List[SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", TraditionalForm]], SubscriptBox["F", FormBox["1", TraditionalForm]]]], "\[InvisibleApplication]", RowBox[List["(", RowBox[List[TagBox[TagBox[RowBox[List[TagBox[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "\[Alpha]"]], "+", "\[Nu]", "+", "1"]], ")"]]]], Hypergeometric2F1, Rule[Editable, True]], ",", TagBox[RowBox[List["1", "-", "\[Alpha]"]], Hypergeometric2F1, Rule[Editable, True]]]], InterpretTemplate[Function[List[SlotSequence[1]]]]], Hypergeometric2F1, Rule[Editable, False]], ";", TagBox[TagBox[TagBox[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "\[Alpha]"]], "+", "\[Nu]", "+", "3"]], ")"]]]], Hypergeometric2F1, Rule[Editable, True]], InterpretTemplate[Function[List[SlotSequence[1]]]]], Hypergeometric2F1, Rule[Editable, False]], ";", TagBox[RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List[SuperscriptBox["z", "2"], "+", "4"]]]]], ")"]], "2"]]], Hypergeometric2F1, Rule[Editable, True]]]], ")"]]]], InterpretTemplate[Function[HypergeometricPFQ[Slot[1], Slot[2], Slot[3]]]], Rule[Editable, False]], Hypergeometric2F1] ( z + z 2 + 4 ) 2 ν + 4 ν ( - α + ν + 1 ) cos ( π ν ) 2 F 1 ( 1 2 ( - α - ν + 1 ) , 1 - α ; 1 2 ( - α - ν + 3 ) ; 1 4 ( z + z 2 + 4 ) 2 ) TagBox[TagBox[RowBox[List[RowBox[List[SubscriptBox["\[InvisiblePrefixScriptBase]", FormBox["2", TraditionalForm]], SubscriptBox["F", FormBox["1", TraditionalForm]]]], "\[InvisibleApplication]", RowBox[List["(", RowBox[List[TagBox[TagBox[RowBox[List[TagBox[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "\[Alpha]"]], "-", "\[Nu]", "+", "1"]], ")"]]]], Hypergeometric2F1, Rule[Editable, True]], ",", TagBox[RowBox[List["1", "-", "\[Alpha]"]], Hypergeometric2F1, Rule[Editable, True]]]], InterpretTemplate[Function[List[SlotSequence[1]]]]], Hypergeometric2F1, Rule[Editable, False]], ";", TagBox[TagBox[TagBox[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "\[Alpha]"]], "-", "\[Nu]", "+", "3"]], ")"]]]], Hypergeometric2F1, Rule[Editable, True]], InterpretTemplate[Function[List[SlotSequence[1]]]]], Hypergeometric2F1, Rule[Editable, False]], ";", TagBox[RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List[SuperscriptBox["z", "2"], "+", "4"]]]]], ")"]], "2"]]], Hypergeometric2F1, Rule[Editable, True]]]], ")"]]]], InterpretTemplate[Function[HypergeometricPFQ[Slot[1], Slot[2], Slot[3]]]], Rule[Editable, False]], Hypergeometric2F1] ) ) / ( ( - α + ν + 1 ) ( α + ν - 1 ) ) z z α -1 Fibonacci ν z -1 2 α -1 ν -1 z α z z 2 4 1 2 1 -1 ν -1 z z z 2 4 1 2 -1 α α ν -1 Hypergeometric2F1 1 2 -1 α ν 1 1 -1 α 1 2 -1 α ν 3 1 4 z z 2 4 1 2 2 z z 2 4 1 2 2 ν 4 ν -1 α ν 1 ν Hypergeometric2F1 1 2 -1 α -1 ν 1 1 -1 α 1 2 -1 α -1 ν 3 1 4 z z 2 4 1 2 2 -1 α ν 1 α ν -1 -1 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["\[Integral]", RowBox[List[RowBox[List[SuperscriptBox["z_", RowBox[List["\[Alpha]_", "-", "1"]]], " ", RowBox[List["Fibonacci", "[", RowBox[List["\[Nu]_", ",", "z_"]], "]"]]]], RowBox[List["\[DifferentialD]", "z_"]]]]]], "]"]], "\[RuleDelayed]", RowBox[List["-", FractionBox[RowBox[List[SuperscriptBox["2", RowBox[List["\[Alpha]", "-", "\[Nu]", "-", "1"]]], " ", SuperscriptBox["z", "\[Alpha]"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], RowBox[List["1", "-", "\[Nu]"]]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "z"]], " ", RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]]]], ")"]], RowBox[List["-", "\[Alpha]"]]], " ", RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox["4", "\[Nu]"], " ", RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]], " ", RowBox[List["Cos", "[", RowBox[List["\[Pi]", " ", "\[Nu]"]], "]"]], " ", RowBox[List["Hypergeometric2F1", "[", RowBox[List[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "-", "\[Nu]"]], ")"]]]], ",", RowBox[List["1", "-", "\[Alpha]"]], ",", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["3", "-", "\[Alpha]", "-", "\[Nu]"]], ")"]]]], ",", RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], "2"]]]]], "]"]]]], "+", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], RowBox[List["2", " ", "\[Nu]"]]], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Nu]", "-", "1"]], ")"]], " ", RowBox[List["Hypergeometric2F1", "[", RowBox[List[RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]]]], ",", RowBox[List["1", "-", "\[Alpha]"]], ",", RowBox[List[FractionBox["1", "2"], " ", RowBox[List["(", RowBox[List["3", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]]]], ",", RowBox[List[FractionBox["1", "4"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["z", "+", SqrtBox[RowBox[List["4", "+", SuperscriptBox["z", "2"]]]]]], ")"]], "2"]]]]], "]"]]]]]], ")"]]]], RowBox[List[RowBox[List["(", RowBox[List["1", "-", "\[Alpha]", "+", "\[Nu]"]], ")"]], " ", RowBox[List["(", RowBox[List["\[Alpha]", "+", "\[Nu]", "-", "1"]], ")"]]]]]]]]]]]

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

 2001-10-29