|
Cell[BoxData[RowBox[List[RowBox[List["MathieuC", "[", RowBox[List[RowBox[List["MathieuCharacteristicA", "[", RowBox[List["5", ",", "q"]], "]"]], ",", "q", ",", "z"]], "]"]], "\[Proportional]", InterpretationBox[InterpretationBox[RowBox[List[RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List[FractionBox["1", "16"], " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "-", RowBox[List[FractionBox["1", "24"], " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]]]], ")"]], " ", "q"]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["Cos", "[", "z", "]"]], "384"], "-", FractionBox[RowBox[List["13", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "4608"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]], "1344"]]], ")"]], " ", SuperscriptBox["q", "2"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["Cos", "[", "z", "]"]], "9216"], "-", FractionBox[RowBox[List["7", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "73728"], "+", FractionBox[RowBox[List["13", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "258048"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]], "129024"]]], ")"]], " ", SuperscriptBox["q", "3"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["Cos", "[", "z", "]"]], "589824"]]], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]], "147456"], "+", FractionBox[RowBox[List["803", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "2080899072"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]], "2064384"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["13", " ", "z"]], "]"]], "18579456"]]], ")"]], " ", SuperscriptBox["q", "4"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["5", " ", RowBox[List["Cos", "[", "z", "]"]]]], "42467328"], "-", FractionBox[RowBox[List["457", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "33294385152"], "-", FractionBox[RowBox[List["5", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "7077888"], "+", FractionBox[RowBox[List["1157", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "49941577728"], "+", FractionBox[RowBox[List["5", " ", RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]]]], "1783627776"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["15", " ", "z"]], "]"]], "3715891200"]]], ")"]], " ", SuperscriptBox["q", "5"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["3407", " ", RowBox[List["Cos", "[", "z", "]"]]]], "799065243648"], "-", FractionBox[RowBox[List["49", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "679477248"], "-", FractionBox[RowBox[List["1829", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "456608710656"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]], "56623104"], "-", FractionBox[RowBox[List["1273", " ", RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]]]], "2796728352768"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["13", " ", "z"]], "]"]], "101921587200"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["17", " ", "z"]], "]"]], "980995276800"]]], ")"]], " ", SuperscriptBox["q", "6"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["71521", " ", RowBox[List["Cos", "[", "z", "]"]]]], "19177565847552"]]], "-", FractionBox[RowBox[List["2237", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "51140175593472"], "+", FractionBox[RowBox[List["41", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "10871635968"], "+", FractionBox[RowBox[List["263827", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "1610915531194368"], "-", FractionBox[RowBox[List["5", " ", RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]]]], "22196256768"], "+", FractionBox[RowBox[List["86683", " ", RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]]]], "20136444139929600"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["15", " ", "z"]], "]"]], "62783697715200"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["19", " ", "z"]], "]"]], "329614413004800"]]], ")"]], " ", SuperscriptBox["q", "7"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["718283", " ", RowBox[List["Cos", "[", "z", "]"]]]], "3682092642729984"]]], "+", FractionBox[RowBox[List["64811", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "306841053560832"], "-", FractionBox[RowBox[List["151143647", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "2886760631900307456"], "-", FractionBox[RowBox[List["3161", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "38355131695104"], "-", FractionBox[RowBox[List["294521", " ", RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]]]], "107394368746291200"], "+", FractionBox[RowBox[List["23", " ", RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]]]], "12785043898368"], "-", FractionBox[RowBox[List["277639", " ", RowBox[List["Cos", "[", RowBox[List["13", " ", "z"]], "]"]]]], "10632042505882828800"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["17", " ", "z"]], "]"]], "31642983648460800"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["21", " ", "z"]], "]"]], "137119595809996800"]]], ")"]], " ", SuperscriptBox["q", "8"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[FractionBox[RowBox[List["187567", " ", RowBox[List["Cos", "[", "z", "]"]]]], "29456741141839872"], "-", FractionBox[RowBox[List["889319687", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "46188170110404919296"], "-", FractionBox[RowBox[List["1591", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "424274049368064"], "+", FractionBox[RowBox[List["10349972261", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "5196169137420553420800"], "+", FractionBox[RowBox[List["157", " ", RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]]]], "153420526780416"], "+", FractionBox[RowBox[List["27393431", " ", RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]]]], "1020676080564751564800"], "-", FractionBox[RowBox[List["55", " ", RowBox[List["Cos", "[", RowBox[List["13", " ", "z"]], "]"]]]], "5523138964094976"], "+", FractionBox[RowBox[List["9607", " ", RowBox[List["Cos", "[", RowBox[List["15", " ", "z"]], "]"]]]], "85056340047062630400"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["19", " ", "z"]], "]"]], "3290870299439923200"], "-", FractionBox[RowBox[List["Cos", "[", RowBox[List["23", " ", "z"]], "]"]], "69108276288238387200"]]], ")"]], " ", SuperscriptBox["q", "9"]]], "+", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["-", FractionBox[RowBox[List["1135692325", " ", RowBox[List["Cos", "[", "z", "]"]]]], "3325548247949154189312"]]], "-", FractionBox[RowBox[List["592465", " ", RowBox[List["Cos", "[", RowBox[List["3", " ", "z"]], "]"]]]], "3299155007886065664"], "+", FractionBox[RowBox[List["18970709026319", " ", RowBox[List["Cos", "[", RowBox[List["5", " ", "z"]], "]"]]]], "8313870619872885473280000"], "+", FractionBox[RowBox[List["13721", " ", RowBox[List["Cos", "[", RowBox[List["7", " ", "z"]], "]"]]]], "824788751971516416"], "-", FractionBox[RowBox[List["21353891011", " ", RowBox[List["Cos", "[", RowBox[List["9", " ", "z"]], "]"]]]], "640168037730212181442560"], "-", FractionBox[RowBox[List["629", " ", RowBox[List["Cos", "[", RowBox[List["11", " ", "z"]], "]"]]]], "75745905793302528"], "-", FractionBox[RowBox[List["8642363", " ", RowBox[List["Cos", "[", RowBox[List["13", " ", "z"]], "]"]]]], "48992451867108075110400"], "+", FractionBox[RowBox[List["1123", " ", RowBox[List["Cos", "[", RowBox[List["15", " ", "z"]], "]"]]]], "27615694820474880000"], "-", FractionBox[RowBox[List["11", " ", RowBox[List["Cos", "[", RowBox[List["17", " ", "z"]], "]"]]]], "29784038265638092800"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["21", " ", "z"]], "]"]], "884585936489451356160"], "+", FractionBox[RowBox[List["Cos", "[", RowBox[List["25", " ", "z"]], "]"]], "41464965772943032320000"]]], ")"]], " ", SuperscriptBox["q", "10"]]], "+", InterpretationBox[SuperscriptBox[RowBox[List["O", "[", "q", "]"]], "11"], SeriesData[$CellContext`q, 0, List[], 0, 11, 1]]]], SeriesData[$CellContext`q, 0, List[Cos[Times[5, $CellContext`z]], Plus[Times[Rational[1, 16], Cos[Times[3, $CellContext`z]]], Times[Rational[-1, 24], Cos[Times[7, $CellContext`z]]]], Plus[Times[Rational[1, 384], Cos[$CellContext`z]], Times[Rational[-13, 4608], Cos[Times[5, $CellContext`z]]], Times[Rational[1, 1344], Cos[Times[9, $CellContext`z]]]], Plus[Times[Rational[1, 9216], Cos[$CellContext`z]], Times[Rational[-7, 73728], Cos[Times[3, $CellContext`z]]], Times[Rational[13, 258048], Cos[Times[7, $CellContext`z]]], Times[Rational[-1, 129024], Cos[Times[11, $CellContext`z]]]], Plus[Times[Rational[-1, 589824], Cos[$CellContext`z]], Times[Rational[1, 147456], Cos[Times[3, $CellContext`z]]], Times[Rational[803, 2080899072], Cos[Times[5, $CellContext`z]]], Times[Rational[-1, 2064384], Cos[Times[9, $CellContext`z]]], Times[Rational[1, 18579456], Cos[Times[13, $CellContext`z]]]], Plus[Times[Rational[5, 42467328], Cos[$CellContext`z]], Times[Rational[-457, 33294385152], Cos[Times[3, $CellContext`z]]], Times[Rational[-5, 7077888], Cos[Times[5, $CellContext`z]]], Times[Rational[1157, 49941577728], Cos[Times[7, $CellContext`z]]], Times[Rational[5, 1783627776], Cos[Times[11, $CellContext`z]]], Times[Rational[-1, 3715891200], Cos[Times[15, $CellContext`z]]]], Plus[Times[Rational[3407, 799065243648], Cos[$CellContext`z]], Times[Rational[-49, 679477248], Cos[Times[3, $CellContext`z]]], Times[Rational[-1829, 456608710656], Cos[Times[5, $CellContext`z]]], Times[Rational[1, 56623104], Cos[Times[7, $CellContext`z]]], Times[Rational[-1273, 2796728352768], Cos[Times[9, $CellContext`z]]], Times[Rational[-1, 101921587200], Cos[Times[13, $CellContext`z]]], Times[Rational[1, 980995276800], Cos[Times[17, $CellContext`z]]]], Plus[Times[Rational[-71521, 19177565847552], Cos[$CellContext`z]], Times[Rational[-2237, 51140175593472], Cos[Times[3, $CellContext`z]]], Times[Rational[41, 10871635968], Cos[Times[5, $CellContext`z]]], Times[Rational[263827, 1610915531194368], Cos[Times[7, $CellContext`z]]], Times[Rational[-5, 22196256768], Cos[Times[9, $CellContext`z]]], Times[Rational[86683, 20136444139929600], Cos[Times[11, $CellContext`z]]], Times[Rational[1, 62783697715200], Cos[Times[15, $CellContext`z]]], Times[Rational[-1, 329614413004800], Cos[Times[19, $CellContext`z]]]], Plus[Times[Rational[-718283, 3682092642729984], Cos[$CellContext`z]], Times[Rational[64811, 306841053560832], Cos[Times[3, $CellContext`z]]], Times[Rational[-151143647, 2886760631900307456], Cos[Times[5, $CellContext`z]]], Times[Rational[-3161, 38355131695104], Cos[Times[7, $CellContext`z]]], Times[Rational[-294521, 107394368746291200], Cos[Times[9, $CellContext`z]]], Times[Rational[23, 12785043898368], Cos[Times[11, $CellContext`z]]], Times[Rational[-277639, 10632042505882828800], Cos[Times[13, $CellContext`z]]], Times[Rational[1, 31642983648460800], Cos[Times[17, $CellContext`z]]], Times[Rational[1, 137119595809996800], Cos[Times[21, $CellContext`z]]]], Plus[Times[Rational[187567, 29456741141839872], Cos[$CellContext`z]], Times[Rational[-889319687, 46188170110404919296], Cos[Times[3, $CellContext`z]]], Times[Rational[-1591, 424274049368064], Cos[Times[5, $CellContext`z]]], Times[Rational[10349972261, 5196169137420553420800], Cos[Times[7, $CellContext`z]]], Times[Rational[157, 153420526780416], Cos[Times[9, $CellContext`z]]], Times[Rational[27393431, 1020676080564751564800], Cos[Times[11, $CellContext`z]]], Times[Rational[-55, 5523138964094976], Cos[Times[13, $CellContext`z]]], Times[Rational[9607, 85056340047062630400], Cos[Times[15, $CellContext`z]]], Times[Rational[-1, 3290870299439923200], Cos[Times[19, $CellContext`z]]], Times[Rational[-1, 69108276288238387200], Cos[Times[23, $CellContext`z]]]], Plus[Times[Rational[-1135692325, 3325548247949154189312], Cos[$CellContext`z]], Times[Rational[-592465, 3299155007886065664], Cos[Times[3, $CellContext`z]]], Times[Rational[18970709026319, 8313870619872885473280000], Cos[Times[5, $CellContext`z]]], Times[Rational[13721, 824788751971516416], Cos[Times[7, $CellContext`z]]], Times[Rational[-21353891011, 640168037730212181442560], Cos[Times[9, $CellContext`z]]], Times[Rational[-629, 75745905793302528], Cos[Times[11, $CellContext`z]]], Times[Rational[-8642363, 48992451867108075110400], Cos[Times[13, $CellContext`z]]], Times[Rational[1123, 27615694820474880000], Cos[Times[15, $CellContext`z]]], Times[Rational[-11, 29784038265638092800], Cos[Times[17, $CellContext`z]]], Times[Rational[1, 884585936489451356160], Cos[Times[21, $CellContext`z]]], Times[Rational[1, 41464965772943032320000], Cos[Times[25, $CellContext`z]]]]], 0, 11, 1]], SeriesData[$CellContext`q, 0, List[Cos[Times[3, $CellContext`z]], Plus[Times[Rational[1, 8], Cos[$CellContext`z]], Times[Rational[-1, 16], Cos[Times[5, $CellContext`z]]]], Plus[Times[Rational[1, 64], Cos[$CellContext`z]], Times[Rational[-5, 512], Cos[Times[3, $CellContext`z]]], Times[Rational[1, 640], Cos[Times[7, $CellContext`z]]]], Plus[Times[Rational[-1, 4096], Cos[$CellContext`z]], Times[Rational[-1, 512], Cos[Times[3, $CellContext`z]]], Times[Rational[11, 40960], Cos[Times[5, $CellContext`z]]], Times[Rational[-1, 46080], Cos[Times[9, $CellContext`z]]]], Plus[Times[Rational[-21, 32768], Cos[$CellContext`z]], Times[Rational[-1621, 13107200], Cos[Times[3, $CellContext`z]]], Times[Rational[1, 16384], Cos[Times[5, $CellContext`z]]], Times[Rational[-11, 2949120], Cos[Times[7, $CellContext`z]]], Times[Rational[1, 5160960], Cos[Times[11, $CellContext`z]]]], Plus[Times[Rational[-14061, 104857600], Cos[$CellContext`z]], Times[Rational[9, 131072], Cos[Times[3, $CellContext`z]]], Times[Rational[12329, 1887436800], Cos[Times[5, $CellContext`z]]], Times[Rational[-3, 3276800], Cos[Times[7, $CellContext`z]]], Times[Rational[1, 33030144], Cos[Times[9, $CellContext`z]]], Times[Rational[-1, 825753600], Cos[Times[13, $CellContext`z]]]], Plus[Times[Rational[699, 838860800], Cos[$CellContext`z]], Times[Rational[13050583, 543581798400], Cos[Times[3, $CellContext`z]]], Times[Rational[-533, 209715200], Cos[Times[5, $CellContext`z]]], Times[Rational[-76679, 528482304000], Cos[Times[7, $CellContext`z]]], Times[Rational[17, 2123366400], Cos[Times[9, $CellContext`z]]], Times[Rational[-1, 6606028800], Cos[Times[11, $CellContext`z]]], Times[Rational[1, 178362777600], Cos[Times[15, $CellContext`z]]]], Plus[Times[Rational[31826419, 4348654387200], Cos[$CellContext`z]], Times[Rational[70123, 33554432000], Cos[Times[3, $CellContext`z]]], Times[Rational[-326021051, 304405807104000], Cos[Times[5, $CellContext`z]]], Times[Rational[1319, 27179089920], Cos[Times[7, $CellContext`z]]], Times[Rational[7831, 4227858432000], Cos[Times[9, $CellContext`z]]], Times[Rational[-37, 832359628800], Cos[Times[11, $CellContext`z]]], Times[Rational[1, 2283043553280], Cos[Times[13, $CellContext`z]]], Times[Rational[-1, 49941577728000], Cos[Times[17, $CellContext`z]]]], Plus[Times[Rational[300245939, 173946175488000], Cos[$CellContext`z]], Times[Rational[-1193766593741, 1363738015825920000], Cos[Times[3, $CellContext`z]]], Times[Rational[-10194121, 86973087744000], Cos[Times[5, $CellContext`z]]], Times[Rational[55617547, 2435246456832000], Cos[Times[7, $CellContext`z]]], Times[Rational[-30253, 53271016243200], Cos[Times[9, $CellContext`z]]], Times[Rational[-28361, 1826434842624000], Cos[Times[11, $CellContext`z]]], Times[Rational[17, 106542032486400], Cos[Times[13, $CellContext`z]]], Times[Rational[-1, 3196260974592000], Cos[Times[15, $CellContext`z]]], Times[Rational[1, 17579435360256000], Cos[Times[19, $CellContext`z]]]], Plus[Times[Rational[64306539779, 10909904126607360000], Cos[$CellContext`z]], Times[Rational[-1087026917, 3131031158784000], Cos[Times[3, $CellContext`z]]], Times[Rational[767116375621, 21819808253214720000], Cos[Times[5, $CellContext`z]]], Times[Rational[468897223, 170467251978240000], Cos[Times[7, $CellContext`z]]], Times[Rational[-21665887, 75144747810816000], Cos[Times[9, $CellContext`z]]], Times[Rational[7663, 1704672519782400], Cos[Times[11, $CellContext`z]]], Times[Rational[189053, 2045607023738880000], Cos[Times[13, $CellContext`z]]], Times[Rational[-23, 69039237051187200], Cos[Times[15, $CellContext`z]]], Times[Rational[-1, 281270965764096000], Cos[Times[17, $CellContext`z]]], Times[Rational[-1, 7594316075630592000], Cos[Times[21, $CellContext`z]]]], Plus[Times[Rational[-78221421983189, 785513097115729920000], Cos[$CellContext`z]], Times[Rational[-3555989290829, 99747694871838720000], Cos[Times[3, $CellContext`z]]], Times[Rational[1595308088447, 98189137139466240000], Cos[Times[5, $CellContext`z]]], Times[Rational[-16802983705367, 23565392913471897600000], Cos[Times[7, $CellContext`z]]], Times[Rational[-50000417, 1363738015825920000], Cos[Times[9, $CellContext`z]]], Times[Rational[44442089, 18410463213649920000], Cos[Times[11, $CellContext`z]]], Times[Rational[-113461, 4418511171275980800], Cos[Times[13, $CellContext`z]]], Times[Rational[-74069, 180013418089021440000], Cos[Times[15, $CellContext`z]]], Times[Rational[1, 13807847410237440000], Cos[Times[17, $CellContext`z]]], Times[Rational[1, 48603622884035788800], Cos[Times[19, $CellContext`z]]], Times[Rational[1, 3949044359327907840000], Cos[Times[23, $CellContext`z]]]]], 0, 11, 1]]]]]]
|