L39:=[ [ 0.19519182794597115634830898016279425763715130637196014755714082412653120644002580787065673146619109924741830909096524068767561406935931195041431887978433789316633602915925603334769555942838789333962260, 0.0, 0.0, -0.24080139535633100246994346761264891460687726969011569668339466948360052648839783382418614834643397440328823234911952272480250240466310212569228686827105613740409581714151874330435352421009719975582921 + 0.22239890886241244432945604414083220294376550100041568514882393527600570856567063532425585656230885325052203445164020543873998426585696161749874618101092786524933381046714587272003192380781533564673520*I, 0.0, 0.0, -0.076968064588700642737120677318485916478246820899165957178084671289698143046497100447969890439342273888771955389460670664764908530955036517208883356976748620278265060918085748497040155810400153630108191 + 0.022484086846040227282931828918182486329185019829491424805553838797179327866025633882046471445040911109132590133293985502883248218692440267732344574716740214755784070608931386482949450373957694686601333*I, 0.0, 0.0, 0.096730653573704422841366586911775112723613528478566798772939149186259326099807846948911827120571881261944044384966221538662425814305600326181571318248366192717197017376887775162667123451595934913953662 + 0.42025256672879350107033254713415752263078262055090615612090424116248671767974174429706823693979137427350746591632198659001418726841882029223701493326277215944648917693708425021799416184521548834601351*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.046874286799124069664733367090864317130729836086126204249661499109066706778939377819999864376160450193729072840707304896210921066401867213853135171507679137073184139396801931555526715598437235226041023 + 0.21162618005376504853919706442160890481902397537766170923749062060788766659165644784672464935787290774670123904429626250488337813152137901659567080416104927025780416842557165182634391060869599277866064*I, 0.0, 0.0, -0.098989367521910019128151553702348939545765128021672077394338124297013537306109295038465394944720346300976865720923356728580944694530110790049603566797038368055008515957870850773595735617977362636886056 - 0.32445827712378383480725863807621223588076608510454353553537710368151440547771555339087361658671196242043632452089569740876852934285647510725254549293565873527823848244704019050807059393796489986304740*I, 0.0, 0.0, -0.098989367521910019128151553702348939545765128021672077394338124297013537306109295038465394944720346300976865720923356728580944694530110790049603566797038368055008515957870850773595735617977362636886056 - 0.32445827712378383480725863807621223588076608510454353553537710368151440547771555339087361658671196242043632452089569740876852934285647510725254549293565873527823848244704019050807059393796489986304740*I, 0.0, 0.0, -0.046874286799124069664733367090864317130729836086126204249661499109066706778939377819999864376160450193729072840707304896210921066401867213853135171507679137073184139396801931555526715598437235226041023 + 0.21162618005376504853919706442160890481902397537766170923749062060788766659165644784672464935787290774670123904429626250488337813152137901659567080416104927025780416842557165182634391060869599277866064*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.096730653573704422841366586911775112723613528478566798772939149186259326099807846948911827120571881261944044384966221538662425814305600326181571318248366192717197017376887775162667123451595934913953662 + 0.42025256672879350107033254713415752263078262055090615612090424116248671767974174429706823693979137427350746591632198659001418726841882029223701493326277215944648917693708425021799416184521548834601351*I, 0.0, 0.0, -0.076968064588700642737120677318485916478246820899165957178084671289698143046497100447969890439342273888771955389460670664764908530955036517208883356976748620278265060918085748497040155810400153630108191 + 0.022484086846040227282931828918182486329185019829491424805553838797179327866025633882046471445040911109132590133293985502883248218692440267732344574716740214755784070608931386482949450373957694686601333*I, 0.0, 0.0, -0.24080139535633100246994346761264891460687726969011569668339466948360052648839783382418614834643397440328823234911952272480250240466310212569228686827105613740409581714151874330435352421009719975582921 + 0.22239890886241244432945604414083220294376550100041568514882393527600570856567063532425585656230885325052203445164020543873998426585696161749874618101092786524933381046714587272003192380781533564673520*I, 0.0, 0.0, 0.19519182794597115634830898016279425763715130637196014755714082412653120644002580787065673146619109924741830909096524068767561406935931195041431887978433789316633602915925603334769555942838789333962260 ], [ 0.20055563936341520292456524652753931186762378565410648206580125630288453960864512681840278034057278612197264380507529378614244210907975970794823318472349066839018558070497639208156578192272477021762057, 0.0, 0.0, 0.18932971194276666011430427762530911547118075452320912562770648038648486349527166587723388595673206112344715987059438466486487634148621234399609727164724538846849393079094580839908857907422437038867765 + 0.24247718704305786192814199418964696256855301761969086384627148670451745401953036549044824795772359230060852019869857907853430667003069973926138437239564929548725920119075192904113924437227940016150361*I, 0.0, 0.0, -0.18805084056271432438183897634452334880915121863538849631237397384738615944405953464847136573158220893350899486189875852632167690868046472080803214175128904644919806793643563795710562197144560998218746 - 0.033892594639530294932853326582842474704596347351808258392398161945729779052099589169608206493300408805252411557212138112213158428125352051274297293666198725231769252322208313233244908688832380581022211*I, 0.0, 0.0, -0.23289098934950207461972895415452675031955185454215244197070343806297959774553247589398454646671451698528412247096728267413178566654803737717653767701631889273415519650847272441125671280244351858943016 + 0.31844279723307527312898347360652316085277966908227641992021832834423684691273506370655175682581310251830689024168696871506825471383427965723317392541433555379644255842769227247724362484969852954046554*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.015017374881629386988989749469400882149588696134468629656987501664042061906265797507306703190822457189177054590742794842532955899115975978646495838492093082404636803247402070218369904448526569725800670 + 0.27457820030862349759607247292081463978755289530442366620276735965355547370632163832726844561228974485929206843814321113534915813449464282437871687112809961899898873357612614575031327643210660753647313*I, 0.0, 0.0, -0.24204401970642770447025338840073176411598768624462636254054394628194605624785217520504371592679685796175101364089877095779230096024859805253316483944200351419154023479838931022849446825450994377026481 - 0.19691784508425041895625886480549812697171800298039264386615959969258308028883152521291741111351453079022293239292274338617456757828650537333676468176854107180108185233678746442913888711541854640898403*I, 0.0, 0.0, -0.24204401970642770447025338840073176411598768624462636254054394628194605624785217520504371592679685796175101364089877095779230096024859805253316483944200351419154023479838931022849446825450994377026481 - 0.19691784508425041895625886480549812697171800298039264386615959969258308028883152521291741111351453079022293239292274338617456757828650537333676468176854107180108185233678746442913888711541854640898403*I, 0.0, 0.0, 0.015017374881629386988989749469400882149588696134468629656987501664042061906265797507306703190822457189177054590742794842532955899115975978646495838492093082404636803247402070218369904448526569725800670 + 0.27457820030862349759607247292081463978755289530442366620276735965355547370632163832726844561228974485929206843814321113534915813449464282437871687112809961899898873357612614575031327643210660753647313*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.23289098934950207461972895415452675031955185454215244197070343806297959774553247589398454646671451698528412247096728267413178566654803737717653767701631889273415519650847272441125671280244351858943016 + 0.31844279723307527312898347360652316085277966908227641992021832834423684691273506370655175682581310251830689024168696871506825471383427965723317392541433555379644255842769227247724362484969852954046554*I, 0.0, 0.0, -0.18805084056271432438183897634452334880915121863538849631237397384738615944405953464847136573158220893350899486189875852632167690868046472080803214175128904644919806793643563795710562197144560998218746 - 0.033892594639530294932853326582842474704596347351808258392398161945729779052099589169608206493300408805252411557212138112213158428125352051274297293666198725231769252322208313233244908688832380581022211*I, 0.0, 0.0, 0.18932971194276666011430427762530911547118075452320912562770648038648486349527166587723388595673206112344715987059438466486487634148621234399609727164724538846849393079094580839908857907422437038867765 + 0.24247718704305786192814199418964696256855301761969086384627148670451745401953036549044824795772359230060852019869857907853430667003069973926138437239564929548725920119075192904113924437227940016150361*I, 0.0, 0.0, 0.20055563936341520292456524652753931186762378565410648206580125630288453960864512681840278034057278612197264380507529378614244210907975970794823318472349066839018558070497639208156578192272477021762057 ], [ 0.22860797789844622584581079035601896692152136669704133235212764851995076992399641284974269379294357876312530844533600996702244821108703390585029695050536628538990326751559946941623874420650439688379857, 0.0, 0.0, 0.031727288161290184834863524474379781142891815294700167193613693376557145915706791970801490785492457525537738027405715185309163216866864449271865817864316081417475852264747385090814421419677474260093348 + 0.17195188680426847490663590634619622400845996554925816845723584249193283832585349473303795231938728598787942067669263996543109544384823012937603887426025488201293456245629123003678578986154859284655908*I, 0.0, 0.0, -0.40185939740929838326752952992763883977594934840485344451640887862917412815418409902469699509383384524931070863542174352729567346865166687176276827989688255457004462215265522250425940000823445442672146 - 0.026240813123441235692304736525840764971412197447271436783972803539281163748306091155402341924997336148828740199242917821817349226557576091442561904590267551432913691457707315540805893320013739399369273*I, 0.0, 0.0, -0.061840562030101657640798584902746811984871793419367727476888801466438543616862192104289612260271035075007046276490230744665488951270053699037965730789557861364164806382629981987362658375321885598796501 + 0.23396144994962701405241607074716277974751714745374764829614941876678092880929604089906270165630224606543413365701204644852311139335422008163397666309772880444392396694807466852288413133462671318843951*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.056555436364155268753429537944195448416629325499115678088369890559025678500490110032822528313835825047300998706175830995752373091731795183589664173774625046464894831963329751737819128468500459646516792 + 0.32621570054692101367681622064177645317715444827878662106655512117729694775794846371676850548662932955044997042673799086853016827312064967797313982160106306598689780959077630628647510139826255306855656*I, 0.0, 0.0, -0.27475852494186445389138053169479809671102763950294428185729795545979862018579536779467565613636064457591172515328536590569178990897729600672506200564184570284345190290100633500458801031113339701250252 - 0.10637246741240871181232499447074927838121220978598495444384575472899311683358073131608221921644124121592105062430390464904271365500738132732117675125687134697350316918101575778597150204491811396448939*I, 0.0, 0.0, -0.27475852494186445389138053169479809671102763950294428185729795545979862018579536779467565613636064457591172515328536590569178990897729600672506200564184570284345190290100633500458801031113339701250252 - 0.10637246741240871181232499447074927838121220978598495444384575472899311683358073131608221921644124121592105062430390464904271365500738132732117675125687134697350316918101575778597150204491811396448939*I, 0.0, 0.0, 0.056555436364155268753429537944195448416629325499115678088369890559025678500490110032822528313835825047300998706175830995752373091731795183589664173774625046464894831963329751737819128468500459646516792 + 0.32621570054692101367681622064177645317715444827878662106655512117729694775794846371676850548662932955044997042673799086853016827312064967797313982160106306598689780959077630628647510139826255306855656*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.061840562030101657640798584902746811984871793419367727476888801466438543616862192104289612260271035075007046276490230744665488951270053699037965730789557861364164806382629981987362658375321885598796501 + 0.23396144994962701405241607074716277974751714745374764829614941876678092880929604089906270165630224606543413365701204644852311139335422008163397666309772880444392396694807466852288413133462671318843951*I, 0.0, 0.0, -0.40185939740929838326752952992763883977594934840485344451640887862917412815418409902469699509383384524931070863542174352729567346865166687176276827989688255457004462215265522250425940000823445442672146 - 0.026240813123441235692304736525840764971412197447271436783972803539281163748306091155402341924997336148828740199242917821817349226557576091442561904590267551432913691457707315540805893320013739399369273*I, 0.0, 0.0, 0.031727288161290184834863524474379781142891815294700167193613693376557145915706791970801490785492457525537738027405715185309163216866864449271865817864316081417475852264747385090814421419677474260093348 + 0.17195188680426847490663590634619622400845996554925816845723584249193283832585349473303795231938728598787942067669263996543109544384823012937603887426025488201293456245629123003678578986154859284655908*I, 0.0, 0.0, 0.22860797789844622584581079035601896692152136669704133235212764851995076992399641284974269379294357876312530844533600996702244821108703390585029695050536628538990326751559946941623874420650439688379857 ], [ 0.22924130413341840513813937690815138888650498082170640119573873602196305691505079258523727090056798441095146904163463149776731874841258194688488352728148692549615356063899125340272639979977958287603139, 0.0, 0.0, -0.0061587113063463586163338525382067164057250142686721766989119566820955238776796232148265296178795584201949862986025953044748328043931047813401503970259526040107467733468045909072467982409133927195033693 + 0.17059488198665890322613613412352183358185182808398397737228134003727774241830453412753444385682351937713175589623984412814950936952722062226509895087548517148972853218609133478404149454209771519236021*I, 0.0, 0.0, -0.39882540934163574859949986830676230349518267452638066077096802554113818061865971321308766016711049525176099031090513981503008164836311652353960376287383253272760773412626956660705681017636820311402974 - 0.074628645892404385443407279340520704341301394666545761116903465930313132662356394072335621545942035154718176663756317642138301210958137348151661654610857322959451309318040701530633746334230643044471511*I, 0.0, 0.0, -0.080697873638794704599850432596667009896839446102900579008128460173890575532038038680531785565186405531668790364408035374760582871721940102943548822255453669042801566304996822736834869490763468898925111 + 0.22510099674474052874355464199875825207580187454724047248082216564820439941781786394819837984089075831521969038360288491734655936957430806133495776058864030832317918436276553271312019409991523588205976*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.016165021616571504902103574725553698980886375864249677456267870766689090453655797712501693298115742002114268789921701729380181338876447210592324056084476320612296420649848381921807077571744688855267180 + 0.32943783971958533447152251807389933891466203477863651967870147679631389642507332745030656975960255118247783149426184307377898808729215616219070369282368635134153965486703521034496215632402270068650423*I, 0.0, 0.0, -0.26093142184921639889996893533429321954914263037286710602002489266769150982036306302005691402326790678918717351354218465365201868148547383725725222151570581568703892064829832060758189960832668982760163 - 0.14006544346637274048057601095313668343502842466292144837106864156431594198596818380693715014281440869153284314189350221273157895887398848912945890688023173264709063786791145001268662521755767257526258*I, 0.0, 0.0, -0.26093142184921639889996893533429321954914263037286710602002489266769150982036306302005691402326790678918717351354218465365201868148547383725725222151570581568703892064829832060758189960832668982760163 - 0.14006544346637274048057601095313668343502842466292144837106864156431594198596818380693715014281440869153284314189350221273157895887398848912945890688023173264709063786791145001268662521755767257526258*I, 0.0, 0.0, 0.016165021616571504902103574725553698980886375864249677456267870766689090453655797712501693298115742002114268789921701729380181338876447210592324056084476320612296420649848381921807077571744688855267180 + 0.32943783971958533447152251807389933891466203477863651967870147679631389642507332745030656975960255118247783149426184307377898808729215616219070369282368635134153965486703521034496215632402270068650423*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.080697873638794704599850432596667009896839446102900579008128460173890575532038038680531785565186405531668790364408035374760582871721940102943548822255453669042801566304996822736834869490763468898925111 + 0.22510099674474052874355464199875825207580187454724047248082216564820439941781786394819837984089075831521969038360288491734655936957430806133495776058864030832317918436276553271312019409991523588205976*I, 0.0, 0.0, -0.39882540934163574859949986830676230349518267452638066077096802554113818061865971321308766016711049525176099031090513981503008164836311652353960376287383253272760773412626956660705681017636820311402974 - 0.074628645892404385443407279340520704341301394666545761116903465930313132662356394072335621545942035154718176663756317642138301210958137348151661654610857322959451309318040701530633746334230643044471511*I, 0.0, 0.0, -0.0061587113063463586163338525382067164057250142686721766989119566820955238776796232148265296178795584201949862986025953044748328043931047813401503970259526040107467733468045909072467982409133927195033693 + 0.17059488198665890322613613412352183358185182808398397737228134003727774241830453412753444385682351937713175589623984412814950936952722062226509895087548517148972853218609133478404149454209771519236021*I, 0.0, 0.0, 0.22924130413341840513813937690815138888650498082170640119573873602196305691505079258523727090056798441095146904163463149776731874841258194688488352728148692549615356063899125340272639979977958287603139 ] ] where I:=Sqrt(RealField(200)!-1); // squared length of the multipoles [ 0.025000, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.017722, 0.019483, 0.0029905, 0.010471, 0.026309, 0.023811, 0.0079942, 0.018530, 0.054710, 0.0086112, 0.019230, 0.016676, 0.017515, 0.045709, 0.023475, 0.0082951, 0.010034, 0.053567, 0.034736, 0.056288, 0.060731, 0.018357, 0.016276, 0.022399, 0.065540, 0.032852, 0.035773, 0.068861, 0.036468, 0.044716, 0.045495, 0.051372 ] [ 0.025000, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.021461, 0.0063910, 0.0087554, 0.026687, 0.010262, 0.028918, 0.013086, 0.011053, 0.051266, 0.0093141, 0.0099314, 0.035270, 0.019332, 0.024311, 0.041025, 0.015500, 0.012846, 0.045637, 0.016519, 0.056806, 0.066419, 0.0087739, 0.032849, 0.055562, 0.043896, 0.0086486, 0.030447, 0.078923, 0.056568, 0.034016, 0.040337, 0.054191 ] [ 0.025000, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035273, 0.0015386, 0.0063045, 0.0095067, 0.011487, 0.012308, 0.032901, 0.013613, 0.062502, 0.011410, 0.017690, 0.026872, 0.021170, 0.0079328, 0.038980, 0.014721, 0.019329, 0.035495, 0.026113, 0.059059, 0.065333, 0.020691, 0.032983, 0.054582, 0.023348, 0.014497, 0.028332, 0.092037, 0.038217, 0.064659, 0.015039, 0.061077 ] [ 0.025000, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035728, 0.0019179, 0.0062824, 0.0073708, 0.011603, 0.013426, 0.032619, 0.013594, 0.062338, 0.012935, 0.018105, 0.026292, 0.020779, 0.0081509, 0.038227, 0.012219, 0.019752, 0.038165, 0.027098, 0.058760, 0.065052, 0.019699, 0.032121, 0.054894, 0.023783, 0.015527, 0.028199, 0.090423, 0.039027, 0.065355, 0.014288, 0.061271 ] // cumulative squared lengths A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.017722, 0.037205, 0.040195, 0.050667, 0.076976, 0.10079, 0.10878, 0.12731, 0.18202, 0.19063, 0.20986, 0.22654, 0.24405, 0.28976, 0.31324, 0.32153, 0.33157, 0.38514, 0.41987, 0.47616, 0.53689, 0.55524, 0.57153, 0.59393, 0.65946, 0.69231, 0.72809, 0.79695, 0.83342, 0.87814, 0.92363, 0.97500 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.021461, 0.027852, 0.036608, 0.063294, 0.073557, 0.10247, 0.11556, 0.12661, 0.17788, 0.18719, 0.19713, 0.23240, 0.25173, 0.27604, 0.31706, 0.33256, 0.34541, 0.39104, 0.40757, 0.46437, 0.53079, 0.53957, 0.57241, 0.62798, 0.67187, 0.68052, 0.71097, 0.78989, 0.84646, 0.88047, 0.92081, 0.97500 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035273, 0.036811, 0.043116, 0.052623, 0.064110, 0.076418, 0.10932, 0.12293, 0.18543, 0.19684, 0.21453, 0.24141, 0.26258, 0.27051, 0.30949, 0.32421, 0.34354, 0.37904, 0.40515, 0.46421, 0.52954, 0.55023, 0.58321, 0.63779, 0.66114, 0.67564, 0.70397, 0.79601, 0.83423, 0.89889, 0.91393, 0.97500 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035728, 0.037646, 0.043929, 0.051299, 0.062902, 0.076329, 0.10895, 0.12254, 0.18488, 0.19781, 0.21592, 0.24221, 0.26299, 0.27114, 0.30937, 0.32159, 0.34134, 0.37951, 0.40660, 0.46536, 0.53041, 0.55011, 0.58223, 0.63712, 0.66091, 0.67644, 0.70464, 0.79506, 0.83408, 0.89944, 0.91373, 0.97500 ]