|
Cell[BoxData[RowBox[List[RowBox[List[RowBox[List[RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "3"], " ", SuperscriptBox["z", "2"]]], "+", RowBox[List[RowBox[List["(", RowBox[List["1", "+", RowBox[List["3", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["12", " ", "m", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["15", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["6", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "2"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "4"]], "-", RowBox[List["3", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["18", " ", "m", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["30", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["15", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "4"]]], "+", RowBox[List[RowBox[List["(", RowBox[List["6", "+", SuperscriptBox["z", "2"], "-", RowBox[List["12", " ", "m", " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["30", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["20", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "6"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "4"]], "+", RowBox[List["3", " ", "m", " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["15", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["z", "2"]]], "+", RowBox[List["15", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "8"]]], "+", RowBox[List[RowBox[List["(", RowBox[List["1", "+", RowBox[List["3", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["z", "2"]]], "-", RowBox[List["6", " ", SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "10"]]], "+", RowBox[List[SuperscriptBox["m", "3"], " ", SuperscriptBox["z", "2"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "12"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["8", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", RowBox[List["w", "[", "m", "]"]]]], "-", RowBox[List["8", " ", RowBox[List["(", RowBox[List["3", "-", RowBox[List["6", " ", "m"]], "+", RowBox[List["4", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "3"]]], "+", RowBox[List["24", " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["2", " ", "m"]], "+", RowBox[List["2", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "5"]]], "-", RowBox[List["8", " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["2", " ", "m"]], "+", RowBox[List["4", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "7"]]], "+", RowBox[List["8", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "9"]]]]], ")"]], " ", RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["16", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "4"]]], "-", RowBox[List["8", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "4"]], "+", RowBox[List["13", " ", "m"]], "-", RowBox[List["18", " ", SuperscriptBox["m", "2"]]], "+", RowBox[List["8", " ", SuperscriptBox["m", "3"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "2"]]], "+", RowBox[List["16", " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["5", " ", "m"]], "+", RowBox[List["14", " ", SuperscriptBox["m", "2"]]], "-", RowBox[List["15", " ", SuperscriptBox["m", "3"]]], "+", RowBox[List["6", " ", SuperscriptBox["m", "4"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "4"]]], "-", RowBox[List["8", " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["11", " ", "m"]], "-", RowBox[List["14", " ", SuperscriptBox["m", "2"]]], "+", RowBox[List["8", " ", SuperscriptBox["m", "3"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "6"]]], "+", RowBox[List["16", " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List["1", "-", "m", "+", SuperscriptBox["m", "2"]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "8"]]]]], ")"]], " ", SuperscriptBox[RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]], "2"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "3"], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", RowBox[List["w", "[", "m", "]"]]]], "-", RowBox[List["32", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["6", " ", "m"]], "-", RowBox[List["10", " ", SuperscriptBox["m", "2"]]], "+", RowBox[List["6", " ", SuperscriptBox["m", "3"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "3"]]], "+", RowBox[List["32", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List["2", "-", RowBox[List["5", " ", "m"]], "+", RowBox[List["6", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "5"]]], "-", RowBox[List["64", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", SuperscriptBox["m", "4"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "7"]]]]], ")"]], " ", SuperscriptBox[RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]], "3"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["16", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "2"], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], "2"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "2"]]], "-", RowBox[List["64", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "3"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "4"]]], "+", RowBox[List["64", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "4"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "6"]]]]], ")"]], " ", SuperscriptBox[RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]], "4"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["8", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", "m", " ", RowBox[List["w", "[", "m", "]"]]]], "-", RowBox[List["8", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "3"]], "+", RowBox[List["4", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "3"]]], "+", RowBox[List["24", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "5"]]], "-", RowBox[List["8", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["4", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "7"]]], "+", RowBox[List["8", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", SuperscriptBox["m", "2"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "9"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "4"], " ", "m"]], "-", RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", "m", " ", RowBox[List["(", RowBox[List["2", "-", RowBox[List["5", " ", "m"]], "+", RowBox[List["4", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "2"]]], "+", RowBox[List["32", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", "m", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["3", " ", "m"]], "+", RowBox[List["3", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "4"]]], "-", RowBox[List["32", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["3", " ", "m"]], "+", RowBox[List["4", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "6"]]], "+", RowBox[List["32", " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], " ", SuperscriptBox["m", "4"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "8"]]]]], ")"]], " ", RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "3"], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", RowBox[List["w", "[", "m", "]"]]]], "-", RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["6", " ", "m"]], "+", RowBox[List["6", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "3"]]], "+", RowBox[List["96", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "3"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "5"]]], "-", RowBox[List["64", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "4"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "7"]]]]], ")"]], " ", SuperscriptBox[RowBox[List[SuperscriptBox["w", "\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]], "2"]]]]], ")"]], " ", RowBox[List[SuperscriptBox["w", "\[Prime]\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["16", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "4"], " ", SuperscriptBox["m", "2"]]], "-", RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "3"], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "2"]]], "+", RowBox[List["16", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "2"], " ", RowBox[List["(", RowBox[List["1", "-", RowBox[List["6", " ", "m"]], "+", RowBox[List["6", " ", SuperscriptBox["m", "2"]]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "4"]]], "-", RowBox[List["32", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "3"], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", RowBox[List["2", " ", "m"]]]], ")"]], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "6"]]], "+", RowBox[List["16", " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "m"]], ")"]], "2"], " ", SuperscriptBox["m", "4"], " ", SuperscriptBox[RowBox[List["w", "[", "m", "]"]], "8"]]]]], ")"]], " ", SuperscriptBox[RowBox[List[SuperscriptBox["w", "\[Prime]\[Prime]", Rule[MultilineFunction, None]], "[", "m", "]"]], "2"]]]]], "\[Equal]", "0"]], "/;", RowBox[List[RowBox[List["w", "[", "m", "]"]], "\[Equal]", RowBox[List["JacobiCN", "[", RowBox[List["z", ",", "m"]], "]"]]]]]]]]
|