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

 ArcCos

 http://functions.wolfram.com/01.13.06.0067.01

 Input Form

 ArcCos[z]^2 == -(Log[-4 z^2]^2/4) - (Pi z Log[-4 z^2])/(2 Sqrt[-z^2]) + Pi^2/4 + (1/(4 z^2)) ((Pi z)/Sqrt[-z^2] + Log[-z^2]) Sum[Pochhammer[3/2, k]/((k + 1)^2 k!)/z^(2 k), {k, 0, Infinity}] + (1/(2 z^2)) Sum[Pochhammer[3/2, k]/((k + 1)^3 k!)/z^(2 k), {k, 0, Infinity}] - (1/(4 z^2)) Sum[(Pochhammer[3/2, k] ((PolyGamma[-(1/2) - k] - PolyGamma[k + 1])/ ((k + 1)^2 k!)))/z^(2 k), {k, 0, Infinity}] /; Abs[z] > 1

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["ArcCos", "[", "z", "]"]], "2"], "\[Equal]", RowBox[List[RowBox[List["-", FractionBox[SuperscriptBox[RowBox[List["Log", "[", RowBox[List[RowBox[List["-", "4"]], " ", SuperscriptBox["z", "2"]]], "]"]], "2"], "4"]]], "-", FractionBox[RowBox[List["\[Pi]", " ", "z", " ", RowBox[List["Log", "[", RowBox[List[RowBox[List["-", "4"]], " ", SuperscriptBox["z", "2"]]], "]"]]]], RowBox[List["2", " ", SqrtBox[RowBox[List["-", SuperscriptBox["z", "2"]]]]]]], "+", FractionBox[SuperscriptBox["\[Pi]", "2"], "4"], "+", RowBox[List[FractionBox[RowBox[List["1", " "]], RowBox[List["4", " ", SuperscriptBox["z", "2"]]]], RowBox[List["(", RowBox[List[FractionBox[RowBox[List["\[Pi]", " ", "z"]], SqrtBox[RowBox[List["-", SuperscriptBox["z", "2"]]]]], "+", RowBox[List["Log", "[", RowBox[List["-", SuperscriptBox["z", "2"]]], "]"]]]], ")"]], RowBox[List["Sum", "[", RowBox[List[RowBox[List[FractionBox[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "2"], " ", RowBox[List["k", "!"]]]]], SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], "k"]]]]], ",", RowBox[List["{", RowBox[List["k", ",", "0", ",", "\[Infinity]"]], "}"]]]], "]"]]]], "+", RowBox[List[FractionBox["1", RowBox[List["2", SuperscriptBox["z", "2"]]]], RowBox[List["Sum", "[", RowBox[List[RowBox[List[FractionBox[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "3"], RowBox[List["k", "!"]]]]], SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], "k"]]]]], ",", RowBox[List["{", RowBox[List["k", ",", "0", ",", "\[Infinity]"]], "}"]]]], "]"]]]], "-", RowBox[List[FractionBox["1", RowBox[List["4", SuperscriptBox["z", "2"]]]], RowBox[List["Sum", "[", RowBox[List[RowBox[List[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], FractionBox[RowBox[List[RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", FractionBox["1", "2"]]], "-", "k"]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List["k", "+", "1"]], "]"]]]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "2"], " ", RowBox[List["k", "!"]]]]], SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], "k"]]]]], ",", RowBox[List["{", RowBox[List["k", ",", "0", ",", "\[Infinity]"]], "}"]]]], "]"]]]]]]]], "/;", RowBox[List[RowBox[List["Abs", "[", "z", "]"]], ">", "1"]]]]]]

 MathML Form

 cos - 1 ( z ) 2 - 1 4 log 2 ( - 4 z 2 ) - π z log ( - 4 z 2 ) 2 - z 2 + π 2 4 + 1 4 z 2 ( π z - z 2 + log ( - z 2 ) ) k = 0 ( 3 2 ) k TagBox[SubscriptBox[RowBox[List["(", FractionBox["3", "2"], ")"]], "k"], Pochhammer] z - 2 k ( k + 1 ) 2 k ! - 1 4 z 2 k = 0 ( 3 2 ) k TagBox[SubscriptBox[RowBox[List["(", FractionBox["3", "2"], ")"]], "k"], Pochhammer] ( ψ TagBox["\[Psi]", PolyGamma] ( - k - 1 2 ) - ψ TagBox["\[Psi]", PolyGamma] ( k + 1 ) ) z - 2 k ( k + 1 ) 2 k ! + 1 2 z 2 k = 0 ( 3 2 ) k TagBox[SubscriptBox[RowBox[List["(", FractionBox["3", "2"], ")"]], "k"], Pochhammer] z - 2 k ( k + 1 ) 3 k ! /; "\[LeftBracketingBar]" z "\[RightBracketingBar]" > 1 Condition z 2 -1 1 4 -4 z 2 2 -1 z -4 z 2 2 -1 z 2 1 2 -1 2 4 -1 1 4 z 2 -1 z -1 z 2 1 2 -1 -1 z 2 k 0 Pochhammer 3 2 k z -2 k k 1 2 k -1 -1 1 4 z 2 -1 k 0 Pochhammer 3 2 k PolyGamma -1 k -1 1 2 -1 PolyGamma k 1 z -2 k k 1 2 k -1 1 2 z 2 -1 k 0 Pochhammer 3 2 k z -2 k k 1 3 k -1 z 1 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", SuperscriptBox[RowBox[List["ArcCos", "[", "z_", "]"]], "2"], "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List[RowBox[List[RowBox[List["-", FractionBox["1", "4"]]], " ", SuperscriptBox[RowBox[List["Log", "[", RowBox[List[RowBox[List["-", "4"]], " ", SuperscriptBox["z", "2"]]], "]"]], "2"]]], "-", FractionBox[RowBox[List["\[Pi]", " ", "z", " ", RowBox[List["Log", "[", RowBox[List[RowBox[List["-", "4"]], " ", SuperscriptBox["z", "2"]]], "]"]]]], RowBox[List["2", " ", SqrtBox[RowBox[List["-", SuperscriptBox["z", "2"]]]]]]], "+", FractionBox[SuperscriptBox["\[Pi]", "2"], "4"], "+", FractionBox[RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["\[Pi]", " ", "z"]], SqrtBox[RowBox[List["-", SuperscriptBox["z", "2"]]]]], "+", RowBox[List["Log", "[", RowBox[List["-", SuperscriptBox["z", "2"]]], "]"]]]], ")"]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "0"]], "\[Infinity]"], FractionBox[RowBox[List[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], " ", SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], " ", "k"]]]]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "2"], " ", RowBox[List["k", "!"]]]]]]]]], RowBox[List["4", " ", SuperscriptBox["z", "2"]]]], "+", FractionBox[RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "0"]], "\[Infinity]"], FractionBox[RowBox[List[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], " ", SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], " ", "k"]]]]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "3"], " ", RowBox[List["k", "!"]]]]]]], RowBox[List["2", " ", SuperscriptBox["z", "2"]]]], "-", FractionBox[RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "0"]], "\[Infinity]"], FractionBox[RowBox[List[RowBox[List["Pochhammer", "[", RowBox[List[FractionBox["3", "2"], ",", "k"]], "]"]], " ", RowBox[List["(", RowBox[List[RowBox[List["PolyGamma", "[", RowBox[List[RowBox[List["-", FractionBox["1", "2"]]], "-", "k"]], "]"]], "-", RowBox[List["PolyGamma", "[", RowBox[List["k", "+", "1"]], "]"]]]], ")"]], " ", SuperscriptBox["z", RowBox[List[RowBox[List["-", "2"]], " ", "k"]]]]], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["k", "+", "1"]], ")"]], "2"], " ", RowBox[List["k", "!"]]]]]]], RowBox[List["4", " ", SuperscriptBox["z", "2"]]]]]], "/;", RowBox[List[RowBox[List["Abs", "[", "z", "]"]], ">", "1"]]]]]]]]

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

 2007-05-02