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

 InverseJacobiDN

 http://functions.wolfram.com/09.41.07.0003.01

 Input Form

 InverseJacobiDN[z, m] == InverseJacobiDN[Subscript[z, 0], m] - ((Sqrt[1 - z^2] JacobiCS[InverseJacobiDN[z, m], m])/Sqrt[-1 + m + z^2]) Integrate[1/(Sqrt[1 - t^2] Sqrt[t^2 + m - 1]), {t, Subscript[z, 0], z}] /; !Exists[\[Tau], {Element[\[Tau], Reals], 0 < \[Tau] < 1}, Im[1 - (Subscript[z, 0] + \[Tau] (z - Subscript[z, 0]))^2] == 0 && 1 - (Subscript[z, 0] + \[Tau] (z - Subscript[z, 0]))^2 < 0 && Im[(Subscript[z, 0] + \[Tau] (z - Subscript[z, 0]))^2 + m - 1] == 0 && (Subscript[z, 0] + \[Tau] (z - Subscript[z, 0]))^2 + m - 1 < 0]

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List[RowBox[List["InverseJacobiDN", "[", RowBox[List["z", ",", "m"]], "]"]], "\[Equal]", RowBox[List[RowBox[List["InverseJacobiDN", "[", RowBox[List[SubscriptBox["z", "0"], ",", "m"]], "]"]], "-", RowBox[List[FractionBox[RowBox[List[SqrtBox[RowBox[List["1", "-", SuperscriptBox["z", "2"]]]], " ", RowBox[List["JacobiCS", "[", RowBox[List[RowBox[List["InverseJacobiDN", "[", RowBox[List["z", ",", "m"]], "]"]], ",", "m"]], "]"]]]], SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m", "+", SuperscriptBox["z", "2"]]]]], RowBox[List[SubsuperscriptBox["\[Integral]", SubscriptBox["z", "0"], "z"], RowBox[List[FractionBox["1", RowBox[List[SqrtBox[RowBox[List["1", "-", SuperscriptBox["t", "2"]]]], " ", SqrtBox[RowBox[List[SuperscriptBox["t", "2"], "+", "m", "-", "1"]]]]]], RowBox[List["\[DifferentialD]", "t"]]]]]]]]]]]], "/;", " ", RowBox[List["Not", "[", RowBox[List["Exists", "[", RowBox[List["\[Tau]", ",", " ", RowBox[List["{", RowBox[List[RowBox[List["\[Tau]", "\[Element]", "Reals"]], ",", " ", RowBox[List["0", "<", "\[Tau]", "<", "1"]]]], "}"]], ",", RowBox[List[RowBox[List[RowBox[List["Im", "[", RowBox[List["1", "-", SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["z", "0"], "+", RowBox[List["\[Tau]", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]]], ")"]], "2"]]], "]"]], "\[Equal]", "0"]], "\[And]", RowBox[List[RowBox[List["1", "-", SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["z", "0"], "+", RowBox[List["\[Tau]", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]]], ")"]], "2"]]], "<", "0"]], "\[And]", RowBox[List[RowBox[List["Im", "[", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["z", "0"], "+", RowBox[List["\[Tau]", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]]], ")"]], "2"], "+", "m", "-", "1"]], "]"]], "\[Equal]", "0"]], "\[And]", RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["z", "0"], "+", RowBox[List["\[Tau]", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]]], ")"]], "2"], "+", "m", "-", "1"]], "<", "0"]]]]]], "]"]], "]"]]]]]]

 MathML Form

 dn - 1 ( z m ) dn - 1 ( z 0 m ) - 1 - z 2 cs ( dn - 1 ( z m ) m ) z 2 + m - 1 z 0 z 1 1 - t 2 t 2 + m - 1 t /; ¬ τ , { τ TagBox["\[DoubleStruckCapitalR]", Function[List[], Reals]] , 0 < τ < 1 } ( Im ( 1 - ( τ ( z - z 0 ) + z 0 ) 2 ) 0 1 - ( τ ( z - z 0 ) + z 0 ) 2 < 0 Im ( ( τ ( z - z 0 ) + z 0 ) 2 + m - 1 ) 0 ( τ ( z - z 0 ) + z 0 ) 2 + m - 1 < 0 ) Condition InverseJacobiDN z m InverseJacobiDN Subscript z 0 m -1 1 -1 z 2 1 2 JacobiCS InverseJacobiDN z m m z 2 m -1 1 2 -1 t Subscript z 0 z 1 1 -1 t 2 1 2 t 2 m -1 1 2 -1 τ τ 0 τ 1 1 -1 τ z -1 Subscript z 0 Subscript z 0 2 0 1 -1 τ z -1 Subscript z 0 Subscript z 0 2 0 τ z -1 Subscript z 0 Subscript z 0 2 m -1 0 τ z -1 Subscript z 0 Subscript z 0 2 m -1 0 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["InverseJacobiDN", "[", RowBox[List["z_", ",", "m_"]], "]"]], "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List[RowBox[List["InverseJacobiDN", "[", RowBox[List[SubscriptBox["zz", "0"], ",", "m"]], "]"]], "-", FractionBox[RowBox[List[RowBox[List["(", RowBox[List[SqrtBox[RowBox[List["1", "-", SuperscriptBox["z", "2"]]]], " ", RowBox[List["JacobiCS", "[", RowBox[List[RowBox[List["InverseJacobiDN", "[", RowBox[List["z", ",", "m"]], "]"]], ",", "m"]], "]"]]]], ")"]], " ", RowBox[List[SubsuperscriptBox["\[Integral]", SubscriptBox["zz", "0"], "z"], RowBox[List[FractionBox["1", RowBox[List[SqrtBox[RowBox[List["1", "-", SuperscriptBox["t", "2"]]]], " ", SqrtBox[RowBox[List[SuperscriptBox["t", "2"], "+", "m", "-", "1"]]]]]], RowBox[List["\[DifferentialD]", "t"]]]]]]]], SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m", "+", SuperscriptBox["z", "2"]]]]]]], "/;", RowBox[List["!", RowBox[List[SubscriptBox["\[Exists]", RowBox[List["\[Tau]", ",", RowBox[List["{", RowBox[List[RowBox[List["\[Tau]", "\[Element]", "Reals"]], ",", RowBox[List["0", "<", "\[Tau]", "<", "1"]]]], "}"]]]]], RowBox[List["(", RowBox[List[RowBox[List[RowBox[List["Im", "[", RowBox[List["1", "-", SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["zz", "0"], "+", RowBox[List["\[Tau]", " ", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["zz", "0"]]], ")"]]]]]], ")"]], "2"]]], "]"]], "\[Equal]", "0"]], "&&", RowBox[List[RowBox[List["1", "-", SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["zz", "0"], "+", RowBox[List["\[Tau]", " ", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["zz", "0"]]], ")"]]]]]], ")"]], "2"]]], "<", "0"]], "&&", RowBox[List[RowBox[List["Im", "[", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["zz", "0"], "+", RowBox[List["\[Tau]", " ", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["zz", "0"]]], ")"]]]]]], ")"]], "2"], "+", "m", "-", "1"]], "]"]], "\[Equal]", "0"]], "&&", RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List[SubscriptBox["zz", "0"], "+", RowBox[List["\[Tau]", " ", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["zz", "0"]]], ")"]]]]]], ")"]], "2"], "+", "m", "-", "1"]], "<", "0"]]]], ")"]]]]]]]]]]]]

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

 2007-05-02