L25:=[ [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072993945093738688455029, 0.0, 0.0, 0.0, 0.0, 0.14401410554775232827034910558799537658210005240132485761921818550617533539214836739032868958310356093859374718832564566475372305472823031711704499670710886438373385058768901136689940208803412573349734 + 0.47671788030582705642527625508303915500950679515683650877312286653941830332050894433669809761418821178833170621077104811498631307567962036537390538189079225507354631509131370234660988474504078365490405*I, 0.0, 0.0, 0.0, 0.0, 0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624023765, 0.0, 0.0, 0.0, 0.0, -0.37737029288685793768366661176372333197924346171428631020346593359467186889948959210749851866794467501884450524895959764144783554623716860119478756127149291278274001636501167259593489164498050709883844 + 0.15997394177329962072724253610381061053043916959674338715704112188754033176917272232645310148674142066491356572530274040270353318599227702739079880084568899298764845939308553148267321220580470474852376*I, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395733419926809391, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072993945093738688455029 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722424801474424753, 0.0, 0.0, 0.0, 0.0, 0.48707487473917150785275340305502131329922371390364135058419939173665062167027091768261044834989999213033052416478477333483113844524070283879110454680690345184938388338142778364369075795627949771323456 + 0.10372109909666588830080483106678128915035136832714040565017947012431447104007799174072758993740993003214812972143619769500271489121820525010149346253528720644561152946269195166180413584047275366954607*I, 0.0, 0.0, 0.0, 0.0, -0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109633, 0.0, 0.0, 0.0, 0.0, -0.17846776452186935339984706413829268300924439566580606894484982215229961903500764363000717852771402463472058934451446006373797597883131651102056253909965423261383192513699630193308069940960249291270886 + 0.36898408776879063477583022558036519212762683597774678056400387163038630590518230677630103712252797498723697125322913332517198664807654614113816358778318438910656544888647971790849710222506152928686875*I, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742290001320929, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722424801474424753 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722874158569332167, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742308816457782, 0.0, 0.0, 0.0, 0.0, -0.29006114556277548352754442137694798293062842116796854210059066655279436871548470388472820086883171317632151184860158194776655609889233754599250187126343339694833776095694845730478297249007909908101500 + 0.28959373583489400543554474170895159014837020455085878981649222841601242660065298305752271436225844213326708257213633047280472351865417467759230172544916814740764505929488843654041240582952637281261172*I, 0.0, 0.0, 0.0, 0.0, -0.29006114556277548352754442137694798293062842116796854210059066655279436871548470388472820086883171317632151184860158194776655609889233754599250187126343339694833776095694845730478297249007909908101500 + 0.28959373583489400543554474170895159014837020455085878981649222841601242660065298305752271436225844213326708257213633047280472351865417467759230172544916814740764505929488843654041240582952637281261172*I, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742308816457782, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722874158569332167 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994721906606346526435, 0.0, 0.0, 0.0, 0.0, -0.48627127671477484252413786633853572808087604034700466835209964829487812143298537410106978988322917378163554460113320967559508895205705551528519026766039011489881105802397855472605027938120085143678577 + 0.10742553440492103986801086712814588141845236229876840629658398720024591868087346002845140482748601648236237510554860689200673919719503339860820697765338435479732525467391307938182672434498803545834604*I, 0.0, 0.0, 0.0, 0.0, -0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109617, 0.0, 0.0, 0.0, 0.0, 0.14816152082833990358684265328555439614262814127337798976000143991561236337750033426478284284144462691932486034430233372892322046828342795279737544950389643635188141487231778868619272086945206770396345 + 0.38216248343582000661712495589833697851767046733021020884014136731515793923331203886198301903510390311246508944243099636149375737255649459873169133349748499016338277409066879515755577583717067937904620*I, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742234905887117, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994721906606346526435 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994160800026834197158, 0.0, 0.0, 0.0, 0.0, -0.067461634995552525188355111129100266005811355200141035495931111003973933152312710397889931587040813641038468935098828999510538710211590423142541345278351971820872551994802100385767547523870289935996409 + 0.49340543957654828721132323691990930269142310335314429925646144088409979522541287664401913116257116920891246198087966728257657098713302423805279806879776397864951285050604013289284014134161602280216265*I, 0.0, 0.0, 0.0, 0.0, 0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624052411, 0.0, 0.0, 0.0, 0.0, 0.37494706480790933876435747274310867628971324294069939288087003536272809751948727749205070172237900368363297021934089012634037040789160366688437095444726050119709620415432541713404529451882880448242140 + 0.16557384634033671639088149015586110574287313354537889262458162380147043432124791385397117625833322334670033272310581196689839857783264677044249178167547976452632251070605353602399027964905122962500101*I, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395537661789971131, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994160800026834197158 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994712411623998378812, 0.0, 0.0, 0.0, 0.0, 0.16589631961978515176102048609187828089080150276776636100741456224761676715263507924595490441781190591187280544089465844496990716493002510505415277429655372660756298607576149233626412272339365666790729 + 0.46955128701411317515955168843038227326795057518360667241788345767878087985823252119454530480552364547052578985187861660730783883957858938922052379407315234184571753057680582864894648725367886091170526*I, 0.0, 0.0, 0.0, 0.0, -0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109764, 0.0, 0.0, 0.0, 0.0, -0.36530113956456914005045726970260772256467112315391268751271558395547062773822160596138987032108589308023531436127458765282437022421282770228063960589254119411471616140446744931704873121340975064999807 + 0.18588996054878052201080819151783788285184373415378550023435120745005384414738437076143208627430311102945472342585281694046412732493688585373410160932090617388103756457184576057616575352763424672973440*I, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742283885177679, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994712411623998378812 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994724045136602324244, 0.0, 0.0, 0.0, 0.0, 0.48396185705383024269371928326773506074285019659865287935840325395343504460893527070391645512392389064817840725707516286989260105287389392203240575983032312541259762497694012550424946411580223600053267 + 0.11739216718762790846288722059050805096243455944242609303967464112042920488765773450058863921638311001839621080260668605029181042353767585089593571507032160656284495229208238168133366608362442529516832*I, 0.0, 0.0, 0.0, 0.0, 0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109619, 0.0, 0.0, 0.0, 0.0, -0.20661322838607442779190930642166049658400939223446921814254007363758427013940324296378199298405192355219997890827850017859565977245315851212462926432882758092859937442274978229460984837038094103832974 + 0.35399290085520620268215873670498960443320261449881727247420308805270463008323815768942179160529336984050572181325983733985141584073829346569210410541125638130091205965275998591767020291567779360904791*I, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742161999065332, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994724045136602324244 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722874158569332172, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742308816457758, 0.0, 0.0, 0.0, 0.0, 0.22246570602095117577340013112164952208596819263665177803595288097873684953301041853561134774450504273086904564248489047059975679172307756742473573736164073132868140399863628173228410418309877664185557 + 0.34425137566115800168192797002587303731916531258769759270761989331563688193176143825403950945310823749073342697989016182132096336276074962127586373512281743074939543151431974315964054003900047241859425*I, 0.0, 0.0, 0.0, 0.0, 0.22246570602095117577340013112164952208596819263665177803595288097873684953301041853561134774450504273086904564248489047059975679172307756742473573736164073132868140399863628173228410418309877664185557 + 0.34425137566115800168192797002587303731916531258769759270761989331563688193176143825403950945310823749073342697989016182132096336276074962127586373512281743074939543151431974315964054003900047241859425*I, 0.0, 0.0, 0.0, 0.0, -0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742308816457758, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722874158569332172 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722501590205935975, 0.0, 0.0, 0.0, 0.0, -0.48263120896922244816465868027388776664908372230215326151488089636693674350111530881897425737131436466367885601763076811726445919700995186987366849644288814044506312521476367009790628103558345360798376 + 0.12274818177434129758774265374772455206250188659413044412406547773450159564868373254081412486179082766902508096583202929179748534929970735098143487710910028762689065295529479745240248940914883980326143*I, 0.0, 0.0, 0.0, 0.0, 0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109593, 0.0, 0.0, 0.0, 0.0, 0.17604986269464383226515881486322827710377343140007894199814289814394240228278236318510490519724243423830084616671910386619495968433094989641455725557041580574522433539650636408100752780813631706941935 + 0.37014381778600200456787054960012115372318046002645231363704648077204990561549958049628603227723447118619847090759709934961934051279835763188649272623053714792661396868631322864755568479813538049567674*I, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742234514528170, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994722501590205935975 ], [ 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994725589083490862391, 0.0, 0.0, 0.0, 0.0, -0.074818343132351694357026989443365235169510898241327146604880581346948089993780333080976808313806115051445453279033968233713402074555584153322475675242879000175778212424150593002935543073114586761676859 + 0.49234359499330310883029539679156695863230083537158415844295091831546176082554275080442277776019117054497056108346755979434229970017039124494351475779821095226357340074750122400725843737383548399438854*I, 0.0, 0.0, 0.0, 0.0, -0.40987803063838393532884154722084207962940130653819331718167913999561391942821416291708926513514186947817836013052210769237854639091527206540117189581861168520707158729374064623626081711079844624109306, 0.0, 0.0, 0.0, 0.0, 0.36056740675691054479987175907194679993311682715955236254002264415064043715006351603948169275620303668888378412107695269958195574620408121190035082294682595770582317992498368441463180401239772757735947 + 0.19491317345063319244960178866664859594688002056835995533256038165925750232886934362049482387799756855005861506281102335439840467094772898676323960681647782764186887216220734327627752952446556566390275*I, 0.0, 0.0, 0.0, 0.0, 0.49799598391954929499343882667128824974632007966671237724332789109419795451248834874026759301774429799993775745911900424063340772595009488603376908261889239769923322461945656338004900395742187555926547, 0.0, 0.0, 0.0, 0.0, 0.28982753492378877147437328314339543446280265749517946177391849614236288745307360843425126384007234995506092166242340483511737775711577298955532515464150104106823634033263479178072994725589083490862391 ] ] where I:=Sqrt(ComplexField(200)!-1); // squared lengths of the multipoles: [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.023663, 0.010268, 0.022727, 0.053149, 0.054282, 0.028100, 0.011887, 0.012607, 0.082111, 0.077127, 0.025851, 0.034844, 0.056049, 0.044020, 0.058164, 0.090777, 0.069737, 0.066085, 0.057065, 0.083022 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.023849, 0.017086, 0.028111, 0.019528, 0.066108, 0.038101, 0.014144, 0.0072528, 0.11070, 0.052445, 0.023693, 0.010693, 0.064093, 0.088070, 0.036691, 0.088122, 0.048141, 0.094350, 0.046005, 0.084351 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.026833, 0.0057796, 0.011466, 0.087292, 0.026420, 0.026741, 0.020774, 0.025893, 0.053197, 0.070299, 0.057723, 0.052141, 0.034841, 0.020090, 0.057127, 0.10743, 0.099471, 0.023044, 0.073686, 0.081293 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.028923, 0.015059, 0.012118, 0.054663, 0.024481, 0.050079, 0.020588, 0.036840, 0.061519, 0.062823, 0.033026, 0.039742, 0.050603, 0.044299, 0.057286, 0.083320, 0.10296, 0.031501, 0.070032, 0.081676 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.029718, 0.021229, 0.017516, 0.021110, 0.036547, 0.056755, 0.028041, 0.030076, 0.088728, 0.037984, 0.031348, 0.017873, 0.058271, 0.084282, 0.036530, 0.084931, 0.077449, 0.062322, 0.057391, 0.083439 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.031617, 0.012714, 0.012169, 0.053579, 0.025619, 0.035764, 0.044917, 0.027606, 0.065454, 0.043315, 0.054305, 0.040245, 0.041753, 0.045778, 0.042479, 0.11275, 0.080447, 0.044679, 0.062778, 0.083575 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.031617, 0.023216, 0.011750, 0.026211, 0.020579, 0.069393, 0.024818, 0.049919, 0.064659, 0.050493, 0.019164, 0.029405, 0.059462, 0.066792, 0.056654, 0.064528, 0.10599, 0.037858, 0.066844, 0.082185 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.033276, 0.030824, 0.012088, 0.00013918, 0.018937, 0.087486, 0.024521, 0.062153, 0.069844, 0.036846, 0.010505, 0.016688, 0.065523, 0.093438, 0.053782, 0.045701, 0.10887, 0.044304, 0.064193, 0.082421 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.038232, 0.014386, 0.012919, 0.029049, 0.027283, 0.023221, 0.088774, 0.029146, 0.057478, 0.025107, 0.056614, 0.046071, 0.040236, 0.040407, 0.045116, 0.13109, 0.048594, 0.073964, 0.046291, 0.087555 ], [ 0.038462, 0.0, 0.0, 0.0, 0.0, 0.0, 0.038517, 0.024501, 0.011152, 0.0056161, 0.018776, 0.057620, 0.068788, 0.052717, 0.053947, 0.032514, 0.023393, 0.037163, 0.056628, 0.058449, 0.059229, 0.084042, 0.078474, 0.061498, 0.052633, 0.085880 ] // cumulative squared lengths A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.023663, 0.033931, 0.056658, 0.10981, 0.16409, 0.19219, 0.20408, 0.21668, 0.29879, 0.37592, 0.40177, 0.43661, 0.49266, 0.53669, 0.59485, 0.68563, 0.75536, 0.82145, 0.87852, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.023849, 0.040934, 0.069045, 0.088573, 0.15468, 0.19278, 0.20693, 0.21418, 0.32488, 0.37733, 0.40102, 0.41172, 0.47581, 0.56388, 0.60057, 0.68869, 0.73683, 0.83118, 0.87719, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.026833, 0.032613, 0.044079, 0.13137, 0.15779, 0.18453, 0.20531, 0.23120, 0.28440, 0.35469, 0.41242, 0.46456, 0.49940, 0.51949, 0.57661, 0.68404, 0.78352, 0.80656, 0.88025, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.028923, 0.043982, 0.056100, 0.11076, 0.13524, 0.18532, 0.20591, 0.24275, 0.30427, 0.36709, 0.40012, 0.43986, 0.49046, 0.53476, 0.59205, 0.67537, 0.77833, 0.80983, 0.87986, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.029718, 0.050947, 0.068462, 0.089572, 0.12612, 0.18287, 0.21091, 0.24099, 0.32972, 0.36770, 0.39905, 0.41692, 0.47520, 0.55948, 0.59601, 0.68094, 0.75838, 0.82071, 0.87810, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.031617, 0.054832, 0.066583, 0.092793, 0.11337, 0.18277, 0.20758, 0.25750, 0.32216, 0.37265, 0.39182, 0.42123, 0.48069, 0.54748, 0.60413, 0.66866, 0.77465, 0.81251, 0.87936, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.031617, 0.044331, 0.056500, 0.11008, 0.13570, 0.17146, 0.21638, 0.24398, 0.30944, 0.35275, 0.40706, 0.44730, 0.48906, 0.53484, 0.57732, 0.69006, 0.77051, 0.81519, 0.87796, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.033276, 0.064100, 0.076188, 0.076327, 0.095264, 0.18275, 0.20727, 0.26942, 0.33927, 0.37611, 0.38662, 0.40331, 0.46883, 0.56227, 0.61605, 0.66175, 0.77062, 0.81493, 0.87912, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.038232, 0.052619, 0.065537, 0.094586, 0.12187, 0.14509, 0.23387, 0.26301, 0.32049, 0.34560, 0.40221, 0.44828, 0.48852, 0.52892, 0.57404, 0.70513, 0.75373, 0.82769, 0.87399, 0.96154 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.038517, 0.063018, 0.074170, 0.079786, 0.098562, 0.15618, 0.22497, 0.27769, 0.33163, 0.36415, 0.38754, 0.42471, 0.48133, 0.53978, 0.59901, 0.68305, 0.76153, 0.82302, 0.87566, 0.96154 ]