Cell[BoxData[RowBox[List[RowBox[List[RowBox[List["JacobiZeta", "[", RowBox[List["z", ",", "m"]], "]"]], "\[Equal]", RowBox[List[RowBox[List["JacobiZeta", "[", RowBox[List[RowBox[List["ArcCsc", "[", SqrtBox["m"], "]"]], ",", "m"]], "]"]], "+", RowBox[List[FractionBox[RowBox[List[SqrtBox["2"], RowBox[List["EllipticE", "[", "m", "]"]]]], RowBox[List[SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m"]]], RowBox[List["EllipticK", "[", "m", "]"]]]]], SqrtBox[RowBox[List[RowBox[List["-", SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m"]]]]], RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]]]], "+", RowBox[List[SqrtBox["2"], SqrtBox[RowBox[List[RowBox[List["-", SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m"]]]]], " ", RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]]]]], RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]], RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["k", "=", "0"]], "\[Infinity]"], RowBox[List[FractionBox[RowBox[List["2", RowBox[List["Binomial", "[", RowBox[List[RowBox[List["k", "-", RowBox[List["1", "/", "2"]]]], ",", "k"]], "]"]]]], RowBox[List[RowBox[List["2", " ", "k"]], "+", "3"]]], RowBox[List["(", RowBox[List[RowBox[List[Cell[""], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "0"]], "k"], RowBox[List[FractionBox[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], "j"], " ", RowBox[List["Binomial", "[", RowBox[List["k", ",", "j"]], "]"]]]], RowBox[List["1", "-", RowBox[List["2", "j"]]]]], SubscriptBox["p", RowBox[List["j", ",", "k"]]]]]]]]], "+", RowBox[List[FractionBox[RowBox[List[RowBox[List["EllipticE", "[", "m", "]"]], RowBox[List["(", RowBox[List["3", "+", RowBox[List["8", " ", "k"]], "+", RowBox[List["4", " ", SuperscriptBox["k", "2"]]]]], ")"]]]], RowBox[List["4", SqrtBox[RowBox[List[RowBox[List["-", "1"]], "+", "m"]]], RowBox[List["EllipticK", "[", "m", "]"]], RowBox[List["(", RowBox[List["1", "+", "k"]], ")"]]]]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "0"]], RowBox[List["k", "+", "1"]]], RowBox[List[FractionBox[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], "j"], " ", RowBox[List["Binomial", "[", RowBox[List[RowBox[List["k", "+", "1"]], ",", "j"]], "]"]]]], RowBox[List[RowBox[List["2", "j"]], "+", "1"]]], SubscriptBox["p", RowBox[List["j", ",", RowBox[List["k", "+", "1"]]]]]]]]]]]]], ")"]], SuperscriptBox[RowBox[List["(", RowBox[List["z", "-", SubscriptBox["z", "0"]]], ")"]], "k"]]]]]]]]]]], "/;", RowBox[List[RowBox[List[SubscriptBox["z", "0"], "\[Equal]", RowBox[List[RowBox[List["ArcCsc", "[", SqrtBox["m"], "]"]], "+", RowBox[List["\[Pi]", " ", "u"]]]]]], "\[And]", RowBox[List["u", "\[Element]", "Integers"]], "\[And]", RowBox[List[SubscriptBox["a", "0"], "\[Equal]", "1"]], "\[And]", RowBox[List[SubscriptBox["a", RowBox[List["2", "k"]]], "\[Equal]", FractionBox[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], "k"], " ", SuperscriptBox["2", RowBox[List["2", "k"]]]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "k"]], "+", "1"]], ")"]], "!"]]]]], "\[And]", RowBox[List[SubscriptBox["a", RowBox[List[RowBox[List["2", "k"]], "+", "1"]]], "\[Equal]", FractionBox[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], RowBox[List["k", "-", "1"]]], SuperscriptBox["2", RowBox[List["2", "k"]]], " ", RowBox[List["(", RowBox[List["2", "-", "m"]], ")"]]]], RowBox[List[SqrtBox[RowBox[List["m", "-", "1"]]], " ", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", "k"]], "+", "2"]], ")"]], "!"]]]]]]], "\[And]", RowBox[List["k", "\[Element]", "Integers"]], "\[And]", RowBox[List["k", "\[GreaterEqual]", "0"]], "\[And]", RowBox[List[SubscriptBox["p", RowBox[List["u", ",", "0"]]], "\[Equal]", "1"]], "\[And]", RowBox[List[SubscriptBox["p", RowBox[List["u", ",", "v"]]], "\[Equal]", RowBox[List[FractionBox["1", "v"], RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "1"]], "v"], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["u", " ", "j"]], "-", "v", "+", "j"]], ")"]], SubscriptBox["a", "j"], " ", SubscriptBox["p", RowBox[List["u", ",", RowBox[List["v", "-", "j"]]]]]]]]]]]]]]]]]]]
|