L60:=[ [ 0.16360177886980652754930839297155603727833089621262510661673545135138908216065004974145679414463068831400652181002598834499614918872608354170414238108549323056591522513851700308348732720118100057108835, 0.0, 0.071614636609474665701120646471820241431850587029553819006420241132824334382088481260099092381664471274314087148168938724641276803037066868081593066726489996206261435012210322207048778969646952635022720 + 0.031626861600965377513315064800823544804433661197640962601059497364265972569321306666813853990682808921639079527432858098271577319717433633705683996325583629631541535613924050320745730573827650740489095*I, 0.0, -0.099642986315296261105680410848877343650665054122776898767196015805802801455746948667344767562075578921342874117368694181251378997113179841230083351526003764123040580601239161222842776643934991146879021 - 0.28306862239449494444029973348139351983794948598099793468406140410740374215140082623618512474854719799581010697700380335224411751925030312539972057506217328329643527696038166720075607346996303734860294*I, 0.0, 0.057994825904374523413828319995455412650118278465479516177802787669974911418013713550110247915565749250702239470544566281979267543802599162334578545183247806092230387319387827585459707861748030986503181 - 0.040472064857006818046810286008535948199484443180525323889437848658649878403392038739448022690957297262904299699628884644109448891251706126877092259795633384478592087221231762750186915478228950474211955*I, 0.0, 0.043990363796979727183338777790844916491009921490060975586025259617245113949226610339788256114482220721713123404232280104928903799945471462123149995187755110675925390211193101695254636763837295746743468 - 0.11591799456746323525224711071569733118570374999979222309367730635280287467084121263401717930690135049686435762068095250638638799135274560795304580023614325766774771365437548788254834012749694205479957*I, 0.0, -0.016243958196605006619856135340245682019988430045288968948712617802972791838387859717558855504484678605482362653787857728006234736593256532423311627391337177063509798856287259083614502590464646062708549 + 0.078622534057159699844701144759081931564982105103026275822342359151507375330910339098924450749751574760609887501511779278239805046450062619104303064456741981174783586075932561694291406877556782229911751*I, 0.0, -0.039487581254659108378621428026171690808716624280593215132688825677068364538843207843057713121082820686940987121902580755027424847676706211336355402993157796806797683911007442120719617624553362685660939 + 0.31233896869979855364900242252788490432526460912194288835783377073720035317443164860143063041865564914473298186247717883334636717743483256461146481542646543365526239690833231093982946233150641527639783*I, 0.0, 0.094609770013987511591136074045761810140664541286777545347769045463567102342305483214900873056286868182927873340716819957445129428361577978465826336489365647839016202483489391969996259205998055457909659 - 0.094941884472044481233407861372070989959302007739307735763752265634612199297269094477640303556441687408452901476003672184829511807202857266404032483600976215910543437293081451420373295479343555484472232*I, 0.0, 0.13067555726058227228252826259870768379834720724575147340310707214040864556602533736849811344332991469192464827691279934287795119302457460360938956309423043596340400496255218953225374865254090142170413 + 0.13430043099611641576555115844244916782729873596971169354393639689373033641232265122666225344320550114045341490629870656287698622826144961784018695432977529746355875460408382521121631044094531720762625*I, 0.0, 0.019321125224081896641367059352669090492329895067555374708498053629080372991718352631014625546969175632932730907467368629093435973752128839245127836943773667842039631990863315435374902896054599507525359 + 0.069954152192098194658895723008016219794074464702689906674489279760285191585447104710952704914844213799064882434772885512267649630638322732695845023795750348586208139457938570396437379145970644069868169*I, 0.0, -0.019576482031620300284092435851666989612069339149339585155330022577890866421043111461546822875438435986862725743644071138344799734850747590685274044008559994175276678726754853412985833849779642684353790 + 0.19109470207005569026759582129409673618061927945894008444798608655912479281665666346609082851660530815666174498914684373112137366725025987096859965638564143892544701281397191081196776631421185476847751*I, 0.0, 0.064960812674209754604763217978514679011053903755456292420721542164558271214454081157079448748292732483156733065497630335079468409980937133755378936594163330946229453417895668092863520703471482747002239 + 0.020714465573149918145082982647473713413461032449667580877384875948170880837217235322996261344746730176444355831428300994099978733393814576156788538876300859883725062939044605607136158360138711741332898*I, 0.0, -0.18720303991376754711512834178024506220826001492144000545705283025616409656123778943067755401702426223025626786702054719191608633016507355415417642957243821044220304814555723541115842575366130592808299 - 0.26636411662463640448041630848018793564639303965704122928564011960976827909059196339080947068599268121706085116544986866050327400181880290008868875890840735363033906095043807358494978962747135957562751*I, 0.0, 0.030782966194274210040676841419321949622474345720344165457576023432580913947659578198279009255818405253749948263716516122442586802428340189833500294003400671778033721225069599767843489063994917160083915 - 0.0033494538849109578475347079993636526950961190987920279420520408071804827092113018829736849275633166074422407750819928621440744633554462264135819336271871815738172977565978286780229200363771716987741589*I, 0.0, -0.16324577101252473486795908751670355992129882077900536970263986528843086994137700425919192416013370437901638783101353843578142717511315483133459325065820920337272979909233100283818048600180615739981284 + 0.11239470102123823722239621385730816206485572200918385604014175236795017486905843031890311842298075772786083277848300631519044327548411580753982830873763310657837970502586452176950067447012734271814758*I, 0.0, -0.097959279760517623614531298001878602007427844312123428935967377140389437768001040337782321024279356706700835610536685547513462536066045123471866933149636148989056069958972464612766583785661273369555399 - 0.019380656667970910940875377991685010613067509111500117446878935443097595360939244009768844149175466013136070862033967598570316432913619340180567260098001451908455475113948028438109424039048136934778299*I, 0.0, -0.16324577101252473486795908751670355992129882077900536970263986528843086994137700425919192416013370437901638783101353843578142717511315483133459325065820920337272979909233100283818048600180615739981284 + 0.11239470102123823722239621385730816206485572200918385604014175236795017486905843031890311842298075772786083277848300631519044327548411580753982830873763310657837970502586452176950067447012734271814758*I, 0.0, 0.030782966194274210040676841419321949622474345720344165457576023432580913947659578198279009255818405253749948263716516122442586802428340189833500294003400671778033721225069599767843489063994917160083915 - 0.0033494538849109578475347079993636526950961190987920279420520408071804827092113018829736849275633166074422407750819928621440744633554462264135819336271871815738172977565978286780229200363771716987741589*I, 0.0, -0.18720303991376754711512834178024506220826001492144000545705283025616409656123778943067755401702426223025626786702054719191608633016507355415417642957243821044220304814555723541115842575366130592808299 - 0.26636411662463640448041630848018793564639303965704122928564011960976827909059196339080947068599268121706085116544986866050327400181880290008868875890840735363033906095043807358494978962747135957562751*I, 0.0, 0.064960812674209754604763217978514679011053903755456292420721542164558271214454081157079448748292732483156733065497630335079468409980937133755378936594163330946229453417895668092863520703471482747002239 + 0.020714465573149918145082982647473713413461032449667580877384875948170880837217235322996261344746730176444355831428300994099978733393814576156788538876300859883725062939044605607136158360138711741332898*I, 0.0, -0.019576482031620300284092435851666989612069339149339585155330022577890866421043111461546822875438435986862725743644071138344799734850747590685274044008559994175276678726754853412985833849779642684353790 + 0.19109470207005569026759582129409673618061927945894008444798608655912479281665666346609082851660530815666174498914684373112137366725025987096859965638564143892544701281397191081196776631421185476847751*I, 0.0, 0.019321125224081896641367059352669090492329895067555374708498053629080372991718352631014625546969175632932730907467368629093435973752128839245127836943773667842039631990863315435374902896054599507525359 + 0.069954152192098194658895723008016219794074464702689906674489279760285191585447104710952704914844213799064882434772885512267649630638322732695845023795750348586208139457938570396437379145970644069868169*I, 0.0, 0.13067555726058227228252826259870768379834720724575147340310707214040864556602533736849811344332991469192464827691279934287795119302457460360938956309423043596340400496255218953225374865254090142170413 + 0.13430043099611641576555115844244916782729873596971169354393639689373033641232265122666225344320550114045341490629870656287698622826144961784018695432977529746355875460408382521121631044094531720762625*I, 0.0, 0.094609770013987511591136074045761810140664541286777545347769045463567102342305483214900873056286868182927873340716819957445129428361577978465826336489365647839016202483489391969996259205998055457909659 - 0.094941884472044481233407861372070989959302007739307735763752265634612199297269094477640303556441687408452901476003672184829511807202857266404032483600976215910543437293081451420373295479343555484472232*I, 0.0, -0.039487581254659108378621428026171690808716624280593215132688825677068364538843207843057713121082820686940987121902580755027424847676706211336355402993157796806797683911007442120719617624553362685660939 + 0.31233896869979855364900242252788490432526460912194288835783377073720035317443164860143063041865564914473298186247717883334636717743483256461146481542646543365526239690833231093982946233150641527639783*I, 0.0, -0.016243958196605006619856135340245682019988430045288968948712617802972791838387859717558855504484678605482362653787857728006234736593256532423311627391337177063509798856287259083614502590464646062708549 + 0.078622534057159699844701144759081931564982105103026275822342359151507375330910339098924450749751574760609887501511779278239805046450062619104303064456741981174783586075932561694291406877556782229911751*I, 0.0, 0.043990363796979727183338777790844916491009921490060975586025259617245113949226610339788256114482220721713123404232280104928903799945471462123149995187755110675925390211193101695254636763837295746743468 - 0.11591799456746323525224711071569733118570374999979222309367730635280287467084121263401717930690135049686435762068095250638638799135274560795304580023614325766774771365437548788254834012749694205479957*I, 0.0, 0.057994825904374523413828319995455412650118278465479516177802787669974911418013713550110247915565749250702239470544566281979267543802599162334578545183247806092230387319387827585459707861748030986503181 - 0.040472064857006818046810286008535948199484443180525323889437848658649878403392038739448022690957297262904299699628884644109448891251706126877092259795633384478592087221231762750186915478228950474211955*I, 0.0, -0.099642986315296261105680410848877343650665054122776898767196015805802801455746948667344767562075578921342874117368694181251378997113179841230083351526003764123040580601239161222842776643934991146879021 - 0.28306862239449494444029973348139351983794948598099793468406140410740374215140082623618512474854719799581010697700380335224411751925030312539972057506217328329643527696038166720075607346996303734860294*I, 0.0, 0.071614636609474665701120646471820241431850587029553819006420241132824334382088481260099092381664471274314087148168938724641276803037066868081593066726489996206261435012210322207048778969646952635022720 + 0.031626861600965377513315064800823544804433661197640962601059497364265972569321306666813853990682808921639079527432858098271577319717433633705683996325583629631541535613924050320745730573827650740489095*I, 0.0, 0.16360177886980652754930839297155603727833089621262510661673545135138908216065004974145679414463068831400652181002598834499614918872608354170414238108549323056591522513851700308348732720118100057108835 ] ] where I:=Sqrt(RealField(200)!-1); // squared length of the multipoles [ 0.016393, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.00037846, 0.0059346, 0.020106, 0.034297, 0.012013, 0.0043338, 0.0066679, 0.010799, 0.0067344, 0.0015469, 0.0045688, 0.0079874, 0.0055473, 0.010616, 0.021494, 0.020646, 0.020205, 0.034636, 0.010965, 0.021120, 0.010308, 0.0093026, 0.012779, 0.0059122, 0.0058351, 0.040998, 0.016816, 0.031467, 0.029629, 0.033855, 0.0096737, 0.015911, 0.014084, 0.017722, 0.022567, 0.049988, 0.012742, 0.032157, 0.030401, 0.026064, 0.012064, 0.036738, 0.024862, 0.037993, 0.029965, 0.025584, 0.027383, 0.038594, 0.028535, 0.033081 ] // cumulative squared lengths A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.00037846, 0.0063131, 0.026419, 0.060716, 0.072729, 0.077063, 0.083731, 0.094529, 0.10126, 0.10281, 0.10738, 0.11537, 0.12091, 0.13153, 0.15302, 0.17367, 0.19388, 0.22851, 0.23948, 0.26060, 0.27090, 0.28020, 0.29298, 0.29890, 0.30473, 0.34573, 0.36255, 0.39401, 0.42365, 0.45750, 0.46717, 0.48308, 0.49717, 0.51488, 0.53745, 0.58744, 0.60019, 0.63234, 0.66274, 0.68880, 0.70087, 0.73761, 0.76247, 0.80046, 0.83043, 0.85601, 0.88340, 0.92199, 0.95052, 0.98360 ]