L31:=[ [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.229569938179347529829552531612 + 0.416144258021579042621947889479*I, 0.0, 0.0, 0.0, 0.0, 0.254626420689883806656226758115 + 0.0811750324093456196407912518005*I, 0.0, 0.0, 0.0, 0.0, -0.443675838783208370310974276989 - 0.194318681757613041228741827852*I, 0.0, 0.0, 0.0, 0.0, -0.0397171542566455822779848048616 - 0.319509855337443104205277815160*I, 0.0, 0.0, 0.0, 0.0, -0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, 0.335251547349150947956839130620, 0.0 ], [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.381191550915332538836967144831 + 0.283851019922006693276434203017*I, 0.0, 0.0, 0.0, 0.0, -0.232989294635068108719484549227 - 0.130919779198765161268126680908*I, 0.0, 0.0, 0.0, 0.0, -0.291363705209417111280203725902 - 0.386930473453099690192726488595*I, 0.0, 0.0, 0.0, 0.0, -0.134661010708774810781422785382 + 0.292455829476677102759416438702*I, 0.0, 0.0, 0.0, 0.0, -0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, 0.335251547349150947956839130620, 0.0 ], [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.214431573500379576587187588130 + 0.424143254439053069493736978268*I, 0.0, 0.0, 0.0, 0.0, 0.219094106498096725293017898041 + 0.153041734496837986839096380924*I, 0.0, 0.0, 0.0, 0.0, -0.303595656104028441117955548333 - 0.377409164693657774908044891297*I, 0.0, 0.0, 0.0, 0.0, 0.121923916984136819078549528300 - 0.297990869771617857378710592853*I, 0.0, 0.0, 0.0, 0.0, -0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, -0.335251547349150947956839130620, 0.0 ], [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.387747849256564422118151905001 + 0.274827228266976111352430486312*I, 0.0, 0.0, 0.0, 0.0, 0.261389905810197146473426514072 + 0.0556715110315524312485873147297*I, 0.0, 0.0, 0.0, 0.0, -0.408893410292381449712626347123 - 0.259642406050063794133320598867*I, 0.0, 0.0, 0.0, 0.0, 0.0678242892996496640069390667920 - 0.314744127476586015634148404649*I, 0.0, 0.0, 0.0, 0.0, -0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, -0.335251547349150947956839130620, 0.0 ], [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.409113311011163149514995558718 + 0.241877445731269646383490478032*I, 0.0, 0.0, 0.0, 0.0, -0.0347706031179683693844672369414 + 0.264981141138030289654050839864*I, 0.0, 0.0, 0.0, 0.0, 0.225959212478805135154184860330 - 0.428427863584942609517674585786*I, 0.0, 0.0, 0.0, 0.0, -0.0679571384547707684093286513313 - 0.314715470438043633296742210093*I, 0.0, 0.0, 0.0, 0.0, 0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, -0.335251547349150947956839130620, 0.0 ], [ 0.253664345149254273354268929450, 0.0, 0.0, 0.0, 0.0, 0.475207841899266330688783620363 + 0.00747709819661980968036681032510*I, 0.0, 0.0, 0.0, 0.0, 0.259093293128367855743140610842 + 0.0655336971023125633624431942248*I, 0.0, 0.0, 0.0, 0.0, -0.473333119869725404104556926143 + 0.102780142218193889045602234668*I, 0.0, 0.0, 0.0, 0.0, 0.00885022703789486815511073598074 + 0.321847282855359390445790201976*I, 0.0, 0.0, 0.0, 0.0, -0.433227884605781117765066614871, 0.0, 0.0, 0.0, 0.0, -0.335251547349150947956839130620, 0.0 ], [ 0.234333017046702187075791778714, 0.0, 0.0, 0.0, 0.210894269286982307811348084137 + 0.369878570465378718532863183787*I, 0.0, 0.0, 0.0, -0.214364901773047759601347783128 + 0.0680549259990555853506041413973*I, 0.0, 0.0, 0.0, 0.112247140551027745808477137215 + 0.447904323251517766918860310763*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.112247140551027745808477137215 + 0.447904323251517766918860310763*I, 0.0, 0.0, 0.0, -0.214364901773047759601347783128 + 0.0680549259990555853506041413973*I, 0.0, 0.0, 0.0, 0.210894269286982307811348084137 + 0.369878570465378718532863183787*I, 0.0, 0.0, 0.0, 0.234333017046702187075791778714 ], [ 0.234333017046702187075791778714, 0.0, 0.0, 0.0, -0.210894269286982307811348084137 + 0.369878570465378718532863183787*I, 0.0, 0.0, 0.0, -0.214364901773047759601347783128 - 0.0680549259990555853506041413973*I, 0.0, 0.0, 0.0, -0.112247140551027745808477137215 + 0.447904323251517766918860310763*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, -0.112247140551027745808477137215 + 0.447904323251517766918860310763*I, 0.0, 0.0, 0.0, -0.214364901773047759601347783128 - 0.0680549259990555853506041413973*I, 0.0, 0.0, 0.0, -0.210894269286982307811348084137 + 0.369878570465378718532863183787*I, 0.0, 0.0, 0.0, 0.234333017046702187075791778714 ] ] where I:=Sqrt(-1); // squared length of the multipoles [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010361, 0.027468, 0.022650, 0.0086987, 0.044397, 0.046461, 0.010046, 0.0011469, 0.055649, 0.034010, 0.042099, 0.024586, 0.015016, 0.024195, 0.055552, 0.078715, 0.061735, 0.023082, 0.026555, 0.068824, 0.046586, 0.068789, 0.048586, 0.062775, 0.060768 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010603, 0.0071242, 0.011693, 0.085985, 0.029542, 0.016540, 0.0056242, 0.0083462, 0.024329, 0.024237, 0.057096, 0.059263, 0.036517, 0.049910, 0.0068293, 0.017785, 0.064817, 0.057341, 0.077332, 0.058783, 0.014319, 0.039223, 0.098796, 0.044214, 0.062504 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.011992, 0.010819, 0.027174, 0.040757, 0.038093, 0.032963, 0.0082246, 0.0032077, 0.036016, 0.033673, 0.052555, 0.036634, 0.021335, 0.047714, 0.033137, 0.043052, 0.061365, 0.035596, 0.052518, 0.068064, 0.040020, 0.049222, 0.059290, 0.067050, 0.058281 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.015625, 0.010974, 0.025854, 0.032516, 0.038876, 0.030247, 0.014721, 0.0088212, 0.036325, 0.036784, 0.041930, 0.041581, 0.017966, 0.045222, 0.032815, 0.047328, 0.062037, 0.033768, 0.060250, 0.056909, 0.044706, 0.051697, 0.052227, 0.072904, 0.056669 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.017607, 0.028831, 0.011380, 0.010168, 0.033250, 0.041665, 0.025837, 0.010810, 0.062810, 0.020874, 0.040030, 0.024235, 0.014235, 0.029525, 0.046034, 0.071623, 0.070237, 0.028130, 0.034878, 0.071188, 0.025502, 0.071191, 0.058046, 0.060510, 0.060152 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.019459, 0.010135, 0.021069, 0.032998, 0.038979, 0.022483, 0.021395, 0.016960, 0.033474, 0.036941, 0.034636, 0.048830, 0.018610, 0.043952, 0.026210, 0.044191, 0.064655, 0.039807, 0.070447, 0.043895, 0.043736, 0.053440, 0.051672, 0.075120, 0.055658 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.030793, 0.0076659, 0.0076944, 0.045442, 0.0065841, 0.018949, 0.047279, 0.042337, 0.029927, 0.017022, 0.033814, 0.036870, 0.036001, 0.053016, 0.019274, 0.019549, 0.058111, 0.067418, 0.080026, 0.055663, 0.015892, 0.035245, 0.080205, 0.069573, 0.054399 ], [ 0.031250, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.030793, 0.0076659, 0.0076944, 0.045442, 0.0065841, 0.018949, 0.047279, 0.042337, 0.029927, 0.017022, 0.033814, 0.036870, 0.036001, 0.053016, 0.019274, 0.019549, 0.058111, 0.067418, 0.080026, 0.055663, 0.015892, 0.035245, 0.080205, 0.069573, 0.054399 ] // cumulative squared lengths A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010361, 0.037829, 0.060479, 0.069178, 0.11357, 0.16004, 0.17008, 0.17123, 0.22688, 0.26089, 0.30299, 0.32757, 0.34259, 0.36678, 0.42234, 0.50105, 0.56279, 0.58587, 0.61243, 0.68125, 0.72784, 0.79662, 0.84521, 0.90798, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010603, 0.017728, 0.029421, 0.11541, 0.14495, 0.16149, 0.16711, 0.17546, 0.19979, 0.22402, 0.28112, 0.34038, 0.37690, 0.42681, 0.43364, 0.45142, 0.51624, 0.57358, 0.65091, 0.70969, 0.72401, 0.76324, 0.86203, 0.90625, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.011992, 0.022811, 0.049984, 0.090741, 0.12883, 0.16180, 0.17002, 0.17323, 0.20925, 0.24292, 0.29547, 0.33211, 0.35344, 0.40116, 0.43429, 0.47734, 0.53871, 0.57430, 0.62682, 0.69489, 0.73491, 0.78413, 0.84342, 0.91047, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.015625, 0.026599, 0.052453, 0.084970, 0.12384, 0.15409, 0.16881, 0.17764, 0.21396, 0.25074, 0.29267, 0.33426, 0.35222, 0.39744, 0.43026, 0.47758, 0.53962, 0.57339, 0.63364, 0.69054, 0.73525, 0.78695, 0.83918, 0.91208, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.017607, 0.046439, 0.057819, 0.067987, 0.10124, 0.14290, 0.16874, 0.17955, 0.24236, 0.26323, 0.30326, 0.32750, 0.34173, 0.37126, 0.41729, 0.48891, 0.55915, 0.58728, 0.62216, 0.69335, 0.71885, 0.79004, 0.84809, 0.90860, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.019459, 0.029594, 0.050663, 0.083661, 0.12264, 0.14512, 0.16652, 0.18348, 0.21695, 0.25389, 0.28853, 0.33736, 0.35597, 0.39992, 0.42613, 0.47032, 0.53497, 0.57478, 0.64523, 0.68913, 0.73286, 0.78630, 0.83797, 0.91309, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.030793, 0.038459, 0.046154, 0.091596, 0.098180, 0.11713, 0.16441, 0.20675, 0.23667, 0.25369, 0.28751, 0.32438, 0.36038, 0.41339, 0.43267, 0.45222, 0.51033, 0.57774, 0.65778, 0.71343, 0.72932, 0.76457, 0.84478, 0.91435, 0.96875 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.030793, 0.038459, 0.046154, 0.091596, 0.098180, 0.11713, 0.16441, 0.20675, 0.23667, 0.25369, 0.28751, 0.32438, 0.36038, 0.41339, 0.43267, 0.45222, 0.51033, 0.57774, 0.65778, 0.71343, 0.72932, 0.76457, 0.84478, 0.91435, 0.96875 ]