Cell[BoxData[RowBox[List[RowBox[List["HoldPattern", "[", RowBox[List["MathieuCharacteristicB", "[", RowBox[List["0", ",", "q_"]], "]"]], "]"]], "\[RuleDelayed]", InterpretationBox[RowBox[List[SuperscriptBox["$CellContext`r", "2"], "+", FractionBox[RowBox[List[FractionBox["1", "2"], " ", SuperscriptBox["$CellContext`q", "2"]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List["1", "+", "$CellContext`r"]], ")"]]]]], "+", FractionBox[RowBox[List[FractionBox["1", "32"], " ", RowBox[List["(", RowBox[List["7", "+", RowBox[List["5", " ", SuperscriptBox["$CellContext`r", "2"]]]]], ")"]], " ", SuperscriptBox["$CellContext`q", "4"]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "2"]], "+", "$CellContext`r"]], ")"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "$CellContext`r"]], ")"]], "3"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["1", "+", "$CellContext`r"]], ")"]], "3"], " ", RowBox[List["(", RowBox[List["2", "+", "$CellContext`r"]], ")"]]]]], "+", FractionBox[RowBox[List[FractionBox["1", "64"], " ", RowBox[List["(", RowBox[List["29", "+", RowBox[List["58", " ", SuperscriptBox["$CellContext`r", "2"]]], "+", RowBox[List["9", " ", SuperscriptBox["$CellContext`r", "4"]]]]], ")"]], " ", SuperscriptBox["$CellContext`q", "6"]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "3"]], "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "2"]], "+", "$CellContext`r"]], ")"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "$CellContext`r"]], ")"]], "5"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["1", "+", "$CellContext`r"]], ")"]], "5"], " ", RowBox[List["(", RowBox[List["2", "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List["3", "+", "$CellContext`r"]], ")"]]]]], "+", FractionBox[RowBox[List[FractionBox["1", "8192"], " ", RowBox[List["(", RowBox[List["274748", "+", RowBox[List["827565", " ", SuperscriptBox["$CellContext`r", "2"]]], "+", RowBox[List["64228", " ", SuperscriptBox["$CellContext`r", "4"]]], "-", RowBox[List["140354", " ", SuperscriptBox["$CellContext`r", "6"]]], "+", RowBox[List["9144", " ", SuperscriptBox["$CellContext`r", "8"]]], "+", RowBox[List["1469", " ", SuperscriptBox["$CellContext`r", "10"]]]]], ")"]], " ", SuperscriptBox["$CellContext`q", "8"]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "4"]], "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "3"]], "+", "$CellContext`r"]], ")"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "2"]], "+", "$CellContext`r"]], ")"]], "3"], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "$CellContext`r"]], ")"]], "7"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["1", "+", "$CellContext`r"]], ")"]], "7"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["2", "+", "$CellContext`r"]], ")"]], "3"], " ", RowBox[List["(", RowBox[List["3", "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List["4", "+", "$CellContext`r"]], ")"]]]]], "+", FractionBox[RowBox[List[FractionBox["1", "16384"], " ", RowBox[List["(", RowBox[List["4453452", "+", RowBox[List["20651309", " ", SuperscriptBox["$CellContext`r", "2"]]], "+", RowBox[List["13541915", " ", SuperscriptBox["$CellContext`r", "4"]]], "-", RowBox[List["2844430", " ", SuperscriptBox["$CellContext`r", "6"]]], "-", RowBox[List["1039598", " ", SuperscriptBox["$CellContext`r", "8"]]], "+", RowBox[List["69361", " ", SuperscriptBox["$CellContext`r", "10"]]], "+", RowBox[List["4471", " ", SuperscriptBox["$CellContext`r", "12"]]]]], ")"]], " ", SuperscriptBox["$CellContext`q", "10"]]], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", "5"]], "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "4"]], "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List[RowBox[List["-", "3"]], "+", "$CellContext`r"]], ")"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "2"]], "+", "$CellContext`r"]], ")"]], "3"], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["-", "1"]], "+", "$CellContext`r"]], ")"]], "9"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["1", "+", "$CellContext`r"]], ")"]], "9"], " ", SuperscriptBox[RowBox[List["(", RowBox[List["2", "+", "$CellContext`r"]], ")"]], "3"], " ", RowBox[List["(", RowBox[List["3", "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List["4", "+", "$CellContext`r"]], ")"]], " ", RowBox[List["(", RowBox[List["5", "+", "$CellContext`r"]], ")"]]]]], "+", InterpretationBox[SuperscriptBox[RowBox[List["O", "[", "$CellContext`q", "]"]], "11"], SeriesData[$CellContext`q, 0, List[], 0, 11, 1], Rule[Editable, False]]]], SeriesData[$CellContext`q, 0, List[Power[$CellContext`r, 2], 0, Times[Rational[1, 2], Power[Plus[-1, $CellContext`r], -1], Power[Plus[1, $CellContext`r], -1]], 0, Times[Rational[1, 32], Power[Plus[-2, $CellContext`r], -1], Power[Plus[-1, $CellContext`r], -3], Power[Plus[1, $CellContext`r], -3], Power[Plus[2, $CellContext`r], -1], Plus[7, Times[5, Power[$CellContext`r, 2]]]], 0, Times[Rational[1, 64], Power[Plus[-3, $CellContext`r], -1], Power[Plus[-2, $CellContext`r], -1], Power[Plus[-1, $CellContext`r], -5], Power[Plus[1, $CellContext`r], -5], Power[Plus[2, $CellContext`r], -1], Power[Plus[3, $CellContext`r], -1], Plus[29, Times[58, Power[$CellContext`r, 2]], Times[9, Power[$CellContext`r, 4]]]], 0, Times[Rational[1, 8192], Power[Plus[-4, $CellContext`r], -1], Power[Plus[-3, $CellContext`r], -1], Power[Plus[-2, $CellContext`r], -3], Power[Plus[-1, $CellContext`r], -7], Power[Plus[1, $CellContext`r], -7], Power[Plus[2, $CellContext`r], -3], Power[Plus[3, $CellContext`r], -1], Power[Plus[4, $CellContext`r], -1], Plus[274748, Times[827565, Power[$CellContext`r, 2]], Times[64228, Power[$CellContext`r, 4]], Times[-1, 140354, Power[$CellContext`r, 6]], Times[9144, Power[$CellContext`r, 8]], Times[1469, Power[$CellContext`r, 10]]]], 0, Times[Rational[1, 16384], Power[Plus[-5, $CellContext`r], -1], Power[Plus[-4, $CellContext`r], -1], Power[Plus[-3, $CellContext`r], -1], Power[Plus[-2, $CellContext`r], -3], Power[Plus[-1, $CellContext`r], -9], Power[Plus[1, $CellContext`r], -9], Power[Plus[2, $CellContext`r], -3], Power[Plus[3, $CellContext`r], -1], Power[Plus[4, $CellContext`r], -1], Power[Plus[5, $CellContext`r], -1], Plus[4453452, Times[20651309, Power[$CellContext`r, 2]], Times[13541915, Power[$CellContext`r, 4]], Times[-1, 2844430, Power[$CellContext`r, 6]], Times[-1, 1039598, Power[$CellContext`r, 8]], Times[69361, Power[$CellContext`r, 10]], Times[4471, Power[$CellContext`r, 12]]]]], 0, 11, 1], Rule[Editable, False]]]]]] |