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

 JacobiNS

 http://functions.wolfram.com/09.33.16.0021.01

 Input Form

 JacobiNS[z/M + EllipticK[m]/(n M), l] == Product[(JacobiNS[z, m]^2 JacobiNS[((2 r - 1) EllipticK[m])/n, m]^2 - m)/ (JacobiNS[z, m]^2 JacobiNS[((2 r - 1) EllipticK[m])/n, m]^2 - JacobiNS[((2 r - 1) EllipticK[m])/n, m]^4), {r, 1, n/2}] /; Element[n/2, Integers] && n > 0 && l == m^n Product[1/JacobiNS[((2 r - 1) EllipticK[m])/n, m]^8, {r, 1, n/2}] && M == Product[JacobiNS[(2 r EllipticK[m])/n, m]^2/ JacobiNS[((2 r - 1) EllipticK[m])/n, m]^2, {r, 1, n/2}]

 Standard Form

 Cell[BoxData[RowBox[List[RowBox[List[RowBox[List["JacobiNS", "[", RowBox[List[RowBox[List[FractionBox["z", "M"], "+", FractionBox[RowBox[List["EllipticK", "[", "m", "]"]], RowBox[List["n", " ", "M"]]]]], ",", "l"]], "]"]], "\[Equal]", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List["z", ",", "m"]], "]"]], "2"], " ", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]], "-", "m"]], ")"]], "/", RowBox[List["(", RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List["z", ",", "m"]], "]"]], "2"], " ", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]], "-", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "4"]]], ")"]]]]]]]], "/;", RowBox[List[RowBox[List[FractionBox["n", "2"], "\[Element]", "Integers"]], "\[And]", RowBox[List["n", ">", "0"]], "\[And]", RowBox[List["l", "\[Equal]", RowBox[List[SuperscriptBox["m", "n"], " ", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], FractionBox["1", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "8"]]]]]]]], "\[And]", RowBox[List["M", "\[Equal]", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], FractionBox[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List["2", "r", " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"], SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]]]]]]]]]]]

 MathML Form

 ns ( z M + K ( m ) n M l ) r = 1 n 2 ns ( z m ) 2 ns ( ( 2 r - 1 ) K ( m ) n m ) 2 - m ns ( z m ) 2 ns ( ( 2 r - 1 ) K ( m ) n m ) 2 - ns ( ( 2 r - 1 ) K ( m ) n m ) 4 /; n 2 TagBox["\[DoubleStruckCapitalZ]", Function[Integers]] + l m n r = 1 n 2 1 ns ( ( 2 r - 1 ) K ( m ) n m ) 8 M r = 1 n 2 ns ( 2 r K ( m ) n m ) 2 ns ( ( 2 r - 1 ) K ( m ) n m ) 2 Condition JacobiNS z M -1 EllipticK m n M -1 l r 1 n 2 -1 JacobiNS z m 2 JacobiNS 2 r -1 EllipticK m n -1 m 2 -1 m JacobiNS z m 2 JacobiNS 2 r -1 EllipticK m n -1 m 2 -1 JacobiNS 2 r -1 EllipticK m n -1 m 4 -1 n 2 -1 SuperPlus l m n r 1 n 2 -1 1 JacobiNS 2 r -1 EllipticK m n -1 m 8 -1 M r 1 n 2 -1 JacobiNS 2 r EllipticK m n -1 m 2 JacobiNS 2 r -1 EllipticK m n -1 m 2 -1 [/itex]

 Rule Form

 Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["JacobiNS", "[", RowBox[List[RowBox[List[FractionBox["z_", "M_"], "+", FractionBox[RowBox[List["EllipticK", "[", "m_", "]"]], RowBox[List["n_", " ", "M_"]]]]], ",", "l_"]], "]"]], "]"]], "\[RuleDelayed]", RowBox[List[RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], FractionBox[RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List["z", ",", "m"]], "]"]], "2"], " ", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", " ", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]], "-", "m"]], RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List["z", ",", "m"]], "]"]], "2"], " ", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", " ", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]], "-", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", " ", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "4"]]]]]], "/;", RowBox[List[RowBox[List[FractionBox["n", "2"], "\[Element]", "Integers"]], "&&", RowBox[List["n", ">", "0"]], "&&", RowBox[List["l", "\[Equal]", RowBox[List[SuperscriptBox["m", "n"], " ", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], FractionBox["1", SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", " ", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "8"]]]]]]]], "&&", RowBox[List["M", "\[Equal]", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["r", "=", "1"]], FractionBox["n", "2"]], FractionBox[SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List["2", " ", "r", " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"], SuperscriptBox[RowBox[List["JacobiNS", "[", RowBox[List[FractionBox[RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", " ", "r"]], "-", "1"]], ")"]], " ", RowBox[List["EllipticK", "[", "m", "]"]]]], "n"], ",", "m"]], "]"]], "2"]]]]]]]]]]]]]]

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

 2001-10-29