|
Cell[BoxData[RowBox[List[RowBox[List["MathieuCPrime", "[", RowBox[List[RowBox[List["MathieuCharacteristicA", "[", RowBox[List["1", ",", "q"]], "]"]], ",", "q", ",", "z"]], "]"]], "\[Proportional]", RowBox[List[RowBox[List["-", RowBox[List["Sin", "[", "z", "]"]]]], "+", RowBox[List[FractionBox["3", "8"], " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]], " ", "q"]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["Sin", "[", "z", "]"]], "128"], "+", RowBox[List[FractionBox["3", "64"], " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "-", RowBox[List[FractionBox["5", "192"], " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]]]], ")"]], " ", SuperscriptBox["q", "2"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["Sin", "[", "z", "]"]], "512"], "-", FractionBox[RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]], "1024"], "-", FractionBox[RowBox[List["5", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "1152"], "+", FractionBox[RowBox[List["7", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "9216"]]], ")"]], " ", SuperscriptBox["q", "3"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["37", " ", RowBox[List["Sin", "[", "z", "]"]]]], "294912"], "-", FractionBox[RowBox[List["49", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "24576"], "+", FractionBox[RowBox[List["7", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "49152"], "-", FractionBox[RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]], "81920"]]], ")"]], " ", SuperscriptBox["q", "4"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["121", " ", RowBox[List["Sin", "[", "z", "]"]]]], "1769472"]]], "-", FractionBox[RowBox[List["317", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "786432"], "+", FractionBox[RowBox[List["205", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "1179648"], "+", FractionBox[RowBox[List["7", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "5898240"], "-", FractionBox[RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]], "409600"], "+", FractionBox[RowBox[List["11", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "88473600"]]], ")"]], " ", SuperscriptBox["q", "5"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["8105", " ", RowBox[List["Sin", "[", "z", "]"]]]], "339738624"]]], "+", FractionBox[RowBox[List["103", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "18874368"], "+", FractionBox[RowBox[List["731", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "18874368"], "-", FractionBox[RowBox[List["2653", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "471859200"], "-", FractionBox[RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]], "31457280"], "+", FractionBox[RowBox[List["11", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "424673280"], "-", FractionBox[RowBox[List["13", " ", RowBox[List["Sin", "[", RowBox[List["13", " ", "z"]], "]"]]]], "14863564800"]]], ")"]], " ", SuperscriptBox["q", "6"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["481", " ", RowBox[List["Sin", "[", "z", "]"]]]], "226492416"]]], "+", FractionBox[RowBox[List["102547", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "4529848320"], "+", FractionBox[RowBox[List["659", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "2264924160"], "-", FractionBox[RowBox[List["88739", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "67947724800"], "+", FractionBox[RowBox[List["181", " ", RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]]]], "1887436800"], "+", FractionBox[RowBox[List["11", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "26424115200"], "-", FractionBox[RowBox[List["13", " ", RowBox[List["Sin", "[", RowBox[List["13", " ", "z"]], "]"]]]], "69363302400"], "+", FractionBox[RowBox[List["Sin", "[", RowBox[List["15", " ", "z"]], "]"]], "221962567680"]]], ")"]], " ", SuperscriptBox["q", "7"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["1237783", " ", RowBox[List["Sin", "[", "z", "]"]]]], "1449551462400"], "+", FractionBox[RowBox[List["940781", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "181193932800"], "-", FractionBox[RowBox[List["322897", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "163074539520"], "-", FractionBox[RowBox[List["65891", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "3261490790400"], "+", FractionBox[RowBox[List["2143", " ", RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]]]], "93952409600"], "-", FractionBox[RowBox[List["13519", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "13317754060800"], "-", FractionBox[RowBox[List["13", " ", RowBox[List["Sin", "[", RowBox[List["13", " ", "z"]], "]"]]]], "3805072588800"], "+", FractionBox[RowBox[List["Sin", "[", RowBox[List["15", " ", "z"]], "]"]], "1014686023680"], "-", FractionBox[RowBox[List["17", " ", RowBox[List["Sin", "[", RowBox[List["17", " ", "z"]], "]"]]]], "958878292377600"]]], ")"]], " ", SuperscriptBox["q", "8"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["11221967", " ", RowBox[List["Sin", "[", "z", "]"]]]], "32614907904000"], "-", FractionBox[RowBox[List["506831", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "34789235097600"], "-", FractionBox[RowBox[List["1550665", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "3131031158784"], "+", FractionBox[RowBox[List["5039101", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "78275778969600"], "+", FractionBox[RowBox[List["16013", " ", RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]]]], "35514010828800"], "-", FractionBox[RowBox[List["34837", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "142056043315200"], "+", FractionBox[RowBox[List["6253", " ", RowBox[List["Sin", "[", RowBox[List["13", " ", "z"]], "]"]]]], "852336259891200"], "+", FractionBox[RowBox[List["Sin", "[", RowBox[List["15", " ", "z"]], "]"]], "51140175593472"], "-", FractionBox[RowBox[List["17", " ", RowBox[List["Sin", "[", RowBox[List["17", " ", "z"]], "]"]]]], "4314952315699200"], "+", FractionBox[RowBox[List["19", " ", RowBox[List["Sin", "[", RowBox[List["19", " ", "z"]], "]"]]]], "345196185255936000"]]], ")"]], " ", SuperscriptBox["q", "9"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["4539285691", " ", RowBox[List["Sin", "[", "z", "]"]]]], "125241246351360000"], "-", FractionBox[RowBox[List["1282939901", " ", RowBox[List["Sin", "[", RowBox[List["3", " ", "z"]], "]"]]]], "4174708211712000"], "-", FractionBox[RowBox[List["10304813", " ", RowBox[List["Sin", "[", RowBox[List["5", " ", "z"]], "]"]]]], "1168918299279360"], "+", FractionBox[RowBox[List["48740801", " ", RowBox[List["Sin", "[", RowBox[List["7", " ", "z"]], "]"]]]], "2922295748198400"], "-", FractionBox[RowBox[List["7516703", " ", RowBox[List["Sin", "[", RowBox[List["9", " ", "z"]], "]"]]]], "6818690079129600"], "-", FractionBox[RowBox[List["338503", " ", RowBox[List["Sin", "[", RowBox[List["11", " ", "z"]], "]"]]]], "61368210712166400"], "+", FractionBox[RowBox[List["329927", " ", RowBox[List["Sin", "[", RowBox[List["13", " ", "z"]], "]"]]]], "184104632136499200"], "-", FractionBox[RowBox[List["2839", " ", RowBox[List["Sin", "[", RowBox[List["15", " ", "z"]], "]"]]]], "73641852854599680"], "-", FractionBox[RowBox[List["17", " ", RowBox[List["Sin", "[", RowBox[List["17", " ", "z"]], "]"]]]], "204560702373888000"], "+", FractionBox[RowBox[List["19", " ", RowBox[List["Sin", "[", RowBox[List["19", " ", "z"]], "]"]]]], "1534205267804160000"], "-", FractionBox[RowBox[List["Sin", "[", RowBox[List["21", " ", "z"]], "]"]], "7232681976791040000"]]], ")"]], " ", SuperscriptBox["q", "10"]]], "+", InterpretationBox[SuperscriptBox[RowBox[List["O", "[", "q", "]"]], "11"], SeriesData[$CellContext`q, 0, List[], 0, 11, 1]]]]]]]]
|