L132:=[ [ 0.0, 0.16556713594442025030414219403808278655795585511016132129433615264127035276081165664804151874097514658438145010500187431150946807969237057817287721433733650158037213789972322996306717783313193732323734, 0.0, 0.0, 0.0, 0.0, -0.092892352950050663288502357589377384229490027165623235728266740640777739831300300535022448133321017068076689991023823319697689352782584410840768299711491588681647088871402942551751982287621957904582670 - 0.18521026046419027788244119285146235897522453899591621337949161123579187405999409776902833600138224427877972161285624769332234145819937684242282950045463174152914764662378488476348336190691871049953665*I, 0.0, 0.0, 0.0, 0.0, 0.12226269902000791134602487370594465426321377270984137661980098595224077937216033148068707016747590551814438180023939164949447323175575943554534397283215056298804327242640669951521382180397857196081024 - 0.12104565763126961419764556910972132326906864414971385587705203129603960052085306154377393686284636941456503157689284095042284539980018705742450679610491189399257192803637553186055197238168406127915720*I, 0.0, 0.0, 0.0, 0.0, -0.17209650426595838692392759751257686005222552363316083302347518969518978294889246402480428031972666535353241199035956711605082915666755109150212520447199410695081584989647077821682402027009988836330121 - 0.15687911652238851532296049675150493847673356424948478664021672578755197969281151672300569492783579664112903833013363627740072449413701201382590475685999395044405635709223468241717055187968754191189223*I, 0.0, 0.0, 0.0, 0.0, 0.10837125549429654348429676945857714140330393051708566238525253428579040996523994067551033545802608610139863786836990746554457811000327741495985785222258354076303370701042393884652382412837803115337638 - 0.032265836446527064445652370283745626224883201174072379170518987746065273910699936900060147832688083946973282251061011059087253132585044794800917344512924550824443115615986254445100359099543936862188051*I, 0.0, 0.0, 0.0, 0.0, 0.18461479423372020255801344446003634465639103361457339077782284256262496099411772422819989297389197463771183409326907227316324731503730521381300750402086959064960608634046813898741044840575270317670474 + 0.13746208379748661102315061134287463200118056350615043930237106791325092008606050017172124585100165107831801494010805374181200741834287860662545269798286150752969614507192738187688634726614888241919598*I, 0.0, 0.0, 0.0, 0.0, 0.14932368527753254327204122646823378557803705295102292345340862151885135641527311982822943818233723821339236385360134059529693356517815812080296431162682176785042875764397666374112209519246301792764607 - 0.16225175203073660998513037708491774372631643349641076500607162463319435577158335253798396506094986769970108734569440483519289093795057106640330291157547782701165324693836934970503181845275315174647587*I, 0.0, 0.0, 0.0, 0.0, 0.043714647994058326845255926587861454307576705507331825341372823837684572190489539951971602357965893133975657533732579179175103471144039265404115216579496074265491299699280848746559739144128607094010940 + 0.13313621944997922056037997832254444205200193792683173727027259560132234259117929047131192449090516017273197662563497158118151574296521661944035047531376817424873745338406013697216447833922922136358007*I, 0.0, 0.0, 0.0, 0.0, -0.14057289223520241991214333759559504456887388095699755170923708755487617377865581221142066323428227105836643100205586515125456636427572683486792322712941944095238217459564123532990905448075267704319277 - 0.058295896316594648541731375266089777124409666577336627946096573953480976679905680011554657305746471547419593281678228938739250075561453656390544194969649557908955844786084460436043187106037485163221707*I, 0.0, 0.0, 0.0, 0.0, -0.27657183182092346867705578900305465251598241610945596182372589193053621247320004272781124022975974893344094799374449887855408563656821185421390783449821997504689341194912020437511120103249262981478133 - 0.047739664091310157731109899743351763463317064772542470050057597991891856241935428235969836312018870793043409670136567928504832287875523851570720051409894358169590589579593644653272620979953008993541900*I, 0.0, 0.0, 0.0, 0.0, 0.058164622899265091605016555872784255433009849701442532863075138167684172216876268307477477182905759915801304615749722511188773754704204001079888775454487670468095872077334053916405224677231228280728354 + 0.11832915226405723785912954840030671343913272406862707082953531014172725319897390031884968759093142871320999158968185426327659081059095662013750257956245627161898170466064185053738662223327117284222245*I, 0.0, 0.0, 0.0, 0.0, -0.16262257882201227747659162923809241858386866096588363131258862365495855284756784890913903945378277265497444294640679790749006254481343243325365695144897050308751929072092171193011142941137902895668681 - 0.017698532369377854532218402764139945591710734614563229039860449046109408463676548490664796455485566933149589019079157133613246485079191520536590709194445128653256623177235342059403561223556900536032276*I, 0.0, 0.0, 0.0, 0.0, 0.016114083915082111712531339384751230464844062381694702353729370706440686141312801549723960715278074363304038550171884706909212052408871801726536934252257895216554419555828311610971849286287093514176047 - 0.20469162720465701186537573937895297723325228888365817288343838786802149276971626029965893227459852967017997696576499036014398005568433235299302134816232397835943419778781670060693380525835613928082593*I, 0.0, 0.0, 0.0, 0.0, -0.12533478040671697891486762902890977260882186121371094454786516138346941043539404575965580312117123505910703958675275971725554131772574514222664362063350102843858110883061115254785242000671137043322094 - 0.17729494035160549192218428312340208587274576087121483162769474240160887254663139554809908099884601922311587764249662334372798385144227966033659760129904133021158860072168799461181637366238545136858528*I, 0.0, 0.0, 0.0, 0.0, -0.016114083915082111712531339384751230464844062381694702353729370706440686141312801549723960715278074363304038550171884706909212052408871801726536934252257895216554419555828311610971849286287093514176047 + 0.20469162720465701186537573937895297723325228888365817288343838786802149276971626029965893227459852967017997696576499036014398005568433235299302134816232397835943419778781670060693380525835613928082593*I, 0.0, 0.0, 0.0, 0.0, -0.16262257882201227747659162923809241858386866096588363131258862365495855284756784890913903945378277265497444294640679790749006254481343243325365695144897050308751929072092171193011142941137902895668681 - 0.017698532369377854532218402764139945591710734614563229039860449046109408463676548490664796455485566933149589019079157133613246485079191520536590709194445128653256623177235342059403561223556900536032276*I, 0.0, 0.0, 0.0, 0.0, -0.058164622899265091605016555872784255433009849701442532863075138167684172216876268307477477182905759915801304615749722511188773754704204001079888775454487670468095872077334053916405224677231228280728354 - 0.11832915226405723785912954840030671343913272406862707082953531014172725319897390031884968759093142871320999158968185426327659081059095662013750257956245627161898170466064185053738662223327117284222245*I, 0.0, 0.0, 0.0, 0.0, -0.27657183182092346867705578900305465251598241610945596182372589193053621247320004272781124022975974893344094799374449887855408563656821185421390783449821997504689341194912020437511120103249262981478133 - 0.047739664091310157731109899743351763463317064772542470050057597991891856241935428235969836312018870793043409670136567928504832287875523851570720051409894358169590589579593644653272620979953008993541900*I, 0.0, 0.0, 0.0, 0.0, 0.14057289223520241991214333759559504456887388095699755170923708755487617377865581221142066323428227105836643100205586515125456636427572683486792322712941944095238217459564123532990905448075267704319277 + 0.058295896316594648541731375266089777124409666577336627946096573953480976679905680011554657305746471547419593281678228938739250075561453656390544194969649557908955844786084460436043187106037485163221707*I, 0.0, 0.0, 0.0, 0.0, 0.043714647994058326845255926587861454307576705507331825341372823837684572190489539951971602357965893133975657533732579179175103471144039265404115216579496074265491299699280848746559739144128607094010940 + 0.13313621944997922056037997832254444205200193792683173727027259560132234259117929047131192449090516017273197662563497158118151574296521661944035047531376817424873745338406013697216447833922922136358007*I, 0.0, 0.0, 0.0, 0.0, -0.14932368527753254327204122646823378557803705295102292345340862151885135641527311982822943818233723821339236385360134059529693356517815812080296431162682176785042875764397666374112209519246301792764607 + 0.16225175203073660998513037708491774372631643349641076500607162463319435577158335253798396506094986769970108734569440483519289093795057106640330291157547782701165324693836934970503181845275315174647587*I, 0.0, 0.0, 0.0, 0.0, 0.18461479423372020255801344446003634465639103361457339077782284256262496099411772422819989297389197463771183409326907227316324731503730521381300750402086959064960608634046813898741044840575270317670474 + 0.13746208379748661102315061134287463200118056350615043930237106791325092008606050017172124585100165107831801494010805374181200741834287860662545269798286150752969614507192738187688634726614888241919598*I, 0.0, 0.0, 0.0, 0.0, -0.10837125549429654348429676945857714140330393051708566238525253428579040996523994067551033545802608610139863786836990746554457811000327741495985785222258354076303370701042393884652382412837803115337638 + 0.032265836446527064445652370283745626224883201174072379170518987746065273910699936900060147832688083946973282251061011059087253132585044794800917344512924550824443115615986254445100359099543936862188051*I, 0.0, 0.0, 0.0, 0.0, -0.17209650426595838692392759751257686005222552363316083302347518969518978294889246402480428031972666535353241199035956711605082915666755109150212520447199410695081584989647077821682402027009988836330121 - 0.15687911652238851532296049675150493847673356424948478664021672578755197969281151672300569492783579664112903833013363627740072449413701201382590475685999395044405635709223468241717055187968754191189223*I, 0.0, 0.0, 0.0, 0.0, -0.12226269902000791134602487370594465426321377270984137661980098595224077937216033148068707016747590551814438180023939164949447323175575943554534397283215056298804327242640669951521382180397857196081024 + 0.12104565763126961419764556910972132326906864414971385587705203129603960052085306154377393686284636941456503157689284095042284539980018705742450679610491189399257192803637553186055197238168406127915720*I, 0.0, 0.0, 0.0, 0.0, -0.092892352950050663288502357589377384229490027165623235728266740640777739831300300535022448133321017068076689991023823319697689352782584410840768299711491588681647088871402942551751982287621957904582670 - 0.18521026046419027788244119285146235897522453899591621337949161123579187405999409776902833600138224427877972161285624769332234145819937684242282950045463174152914764662378488476348336190691871049953665*I, 0.0, 0.0, 0.0, 0.0, -0.16556713594442025030414219403808278655795585511016132129433615264127035276081165664804151874097514658438145010500187431150946807969237057817287721433733650158037213789972322996306717783313193732323734, 0.0 ], [ 0.0, 0.16395982944527875493169336186033503287176634643590088498494436766761098857687267910220887886392265036485680008659578459207171575980623353072101105107650300404694854483316344892315915314220343451848083, 0.0, 0.0, 0.0, 0.0, 0.17813715641234082059440238477963021479923141047505660440804688558984616425049325338026828340668151298572139422500675099605265438942957030580530183309827474722747867276026172956721180324682445034408229 + 0.12675087394338374672667301163152957342856669321516828234865834602920453218931327607122672288915726493100734610087826967073678640121151887575717468433962126470161845106280129873286534255784723357167290*I, 0.0, 0.0, 0.0, 0.0, 0.050144211064752214548998736621725981573984891647527830081196901761918013561214449422205831891483861501552492415210306606482683564706117280196828432086536553008686347842111525407194039428435378496152629 - 0.096594607531234324644303413558512583393593801148075355004635468728905151751076025892002348592376539662115423598909116354230567963390386274280119680224779877026249989425096284143552298303515053157145909*I, 0.0, 0.0, 0.0, 0.0, 0.19874627298110293410534260397995679300728713185812739805288559169764611523754025560457450810135453124464237872130753384531059984345803284200630509967920591415627523410834576861796173195957014070673091 + 0.20913462888347352446304644794102931019260217373636417856031462639001224473620044975700939032241428885995586473701543679046811451468883711375305474737462512260998097247474583349585964670749436295042706*I, 0.0, 0.0, 0.0, 0.0, 0.067565218594633526630914193379026046433318810581611972434049235095153506106413640441090427244098053222693969909023297029179549261496655413083188702248256334817344074594138199591244672006737822945307941 - 0.040863066627781804727829864616410868840776122588570419105473218031197392153386642928874561083356201827901540976918558280093976118445202282695079102998418640488508902079180724189822713020574195786507573*I, 0.0, 0.0, 0.0, 0.0, 0.046987305594066378714931485781291739496374130699409804853671425797794438321478538301411877754038186294288889946787524928508069323411306556608809836379758523886283990210913663267923631565603049740305897 - 0.047197460098227255210180139990030497826602105936835192184208176405050921359537843821997447978480258050490374357660250962738961961283432728762481814790151859690511887150528251153829945341058366420750735*I, 0.0, 0.0, 0.0, 0.0, 0.32667931836063838137097666521242269483776993748084188329756368204045839768050063613395013571623730870137881940967556802813420957979218926260785122619261452870593480237404880492168554866079677560297976 + 0.069103418075113852245569893555896257892840619919752532428966314686262345974371050371627048813596179305328893590321975841373878721207219043197171490505455158134676767431652445092369163183904643171396463*I, 0.0, 0.0, 0.0, 0.0, -0.090133418226245654912471250712567143874417746055112380559804715173098766504503747161043404481675709847858141993605833104023100710801537369964068904962208333492202562284113082445926838947864474044227695 - 0.047063022399122729152862687864219504553187912887459455346857401044870217980092963094735550423648586140186207791836096168714672788655842332284058854851250222604804343776648172118659970411551645277826329*I, 0.0, 0.0, 0.0, 0.0, -0.12685683225817326504213472578626111983421205949354682062551817112191815155015719563199349514257431529600057479046922266568671181563841771042526157363733094561879307815097744377695030681066421419570248 - 0.012796261007716874959710660411092251570712454864764124425399862644570456280272276305132000317217589114500091052955286774734788210624457716380696708914552742584530774992637868925751053833953603685699818*I, 0.0, 0.0, 0.0, 0.0, -0.10903169403990129243066052824895932180128427764810568359226732061546181299345844303119696574878684940988450746660356146425846336374095450558091136195012693679875255318031175182119531735234843596832737 + 0.10171629006298030272793572171725617556635775682523422078540560596843906923108321340591865217862674800548710941989364730515915303114717014996422743257807925240110178670634870888076513561320050825321873*I, 0.0, 0.0, 0.0, 0.0, -0.24452599879391557625507940528862635271658725982485338757892601805842728534066490091521936436747290938484688240911675029584102529856344448868645305245720492036810146890847769903616403961726135948493882 - 0.17490645505401797225999698577281791602122486459776615981205371502521037023484625251376791336574109092484774587555135119232004115922062879025278544857561793568381851035344786590641121033247285250465248*I, 0.0, 0.0, 0.0, 0.0, 0.032256690864915414625910348328735300976719686305726365090806228815317919073708204593009747495749161226691716703885786700164981816180289673459393135698468454532464237322445938336690478496038250688552676 + 0.13354986641550120133197381099569298844542216607882766245293067265501070991508284174682834996753959353106183318988819053231834735721741174830181058503438940416515480718107614966888395413880729418457566*I, 0.0, 0.0, 0.0, 0.0, 0.14514213642727602084975663497705033749602640059360432363744490370600640535100124794974829095833366701097801601446382102889358374301892649651183456865776273142861514587979032719146244247760243444760490 + 0.017290188013457941418554009055111652427626937958474106344583644663692713371100650428494448509717303622883629161073224139137769867100204779889947400007068250768423615384279756823058934054441084982734291*I, 0.0, 0.0, 0.0, 0.0, 0.18171714410990728909002865987838010400756748405836623303534604355092225812652927469769175065288166967324560946882163191096948002446844595461321113040869333826956508696771725071879758878940040032707729 + 0.15559418481865995240837474604617161726416134285045245834656038929959478337474685692452248800498770595135516255038248666720007052569081652281805223442453594499670386862573401739292099170032539599811244*I, 0.0, 0.0, 0.0, 0.0, -0.14514213642727602084975663497705033749602640059360432363744490370600640535100124794974829095833366701097801601446382102889358374301892649651183456865776273142861514587979032719146244247760243444760490 - 0.017290188013457941418554009055111652427626937958474106344583644663692713371100650428494448509717303622883629161073224139137769867100204779889947400007068250768423615384279756823058934054441084982734291*I, 0.0, 0.0, 0.0, 0.0, 0.032256690864915414625910348328735300976719686305726365090806228815317919073708204593009747495749161226691716703885786700164981816180289673459393135698468454532464237322445938336690478496038250688552676 + 0.13354986641550120133197381099569298844542216607882766245293067265501070991508284174682834996753959353106183318988819053231834735721741174830181058503438940416515480718107614966888395413880729418457566*I, 0.0, 0.0, 0.0, 0.0, 0.24452599879391557625507940528862635271658725982485338757892601805842728534066490091521936436747290938484688240911675029584102529856344448868645305245720492036810146890847769903616403961726135948493882 + 0.17490645505401797225999698577281791602122486459776615981205371502521037023484625251376791336574109092484774587555135119232004115922062879025278544857561793568381851035344786590641121033247285250465248*I, 0.0, 0.0, 0.0, 0.0, -0.10903169403990129243066052824895932180128427764810568359226732061546181299345844303119696574878684940988450746660356146425846336374095450558091136195012693679875255318031175182119531735234843596832737 + 0.10171629006298030272793572171725617556635775682523422078540560596843906923108321340591865217862674800548710941989364730515915303114717014996422743257807925240110178670634870888076513561320050825321873*I, 0.0, 0.0, 0.0, 0.0, 0.12685683225817326504213472578626111983421205949354682062551817112191815155015719563199349514257431529600057479046922266568671181563841771042526157363733094561879307815097744377695030681066421419570248 + 0.012796261007716874959710660411092251570712454864764124425399862644570456280272276305132000317217589114500091052955286774734788210624457716380696708914552742584530774992637868925751053833953603685699818*I, 0.0, 0.0, 0.0, 0.0, -0.090133418226245654912471250712567143874417746055112380559804715173098766504503747161043404481675709847858141993605833104023100710801537369964068904962208333492202562284113082445926838947864474044227695 - 0.047063022399122729152862687864219504553187912887459455346857401044870217980092963094735550423648586140186207791836096168714672788655842332284058854851250222604804343776648172118659970411551645277826329*I, 0.0, 0.0, 0.0, 0.0, -0.32667931836063838137097666521242269483776993748084188329756368204045839768050063613395013571623730870137881940967556802813420957979218926260785122619261452870593480237404880492168554866079677560297976 - 0.069103418075113852245569893555896257892840619919752532428966314686262345974371050371627048813596179305328893590321975841373878721207219043197171490505455158134676767431652445092369163183904643171396463*I, 0.0, 0.0, 0.0, 0.0, 0.046987305594066378714931485781291739496374130699409804853671425797794438321478538301411877754038186294288889946787524928508069323411306556608809836379758523886283990210913663267923631565603049740305897 - 0.047197460098227255210180139990030497826602105936835192184208176405050921359537843821997447978480258050490374357660250962738961961283432728762481814790151859690511887150528251153829945341058366420750735*I, 0.0, 0.0, 0.0, 0.0, -0.067565218594633526630914193379026046433318810581611972434049235095153506106413640441090427244098053222693969909023297029179549261496655413083188702248256334817344074594138199591244672006737822945307941 + 0.040863066627781804727829864616410868840776122588570419105473218031197392153386642928874561083356201827901540976918558280093976118445202282695079102998418640488508902079180724189822713020574195786507573*I, 0.0, 0.0, 0.0, 0.0, 0.19874627298110293410534260397995679300728713185812739805288559169764611523754025560457450810135453124464237872130753384531059984345803284200630509967920591415627523410834576861796173195957014070673091 + 0.20913462888347352446304644794102931019260217373636417856031462639001224473620044975700939032241428885995586473701543679046811451468883711375305474737462512260998097247474583349585964670749436295042706*I, 0.0, 0.0, 0.0, 0.0, -0.050144211064752214548998736621725981573984891647527830081196901761918013561214449422205831891483861501552492415210306606482683564706117280196828432086536553008686347842111525407194039428435378496152629 + 0.096594607531234324644303413558512583393593801148075355004635468728905151751076025892002348592376539662115423598909116354230567963390386274280119680224779877026249989425096284143552298303515053157145909*I, 0.0, 0.0, 0.0, 0.0, 0.17813715641234082059440238477963021479923141047505660440804688558984616425049325338026828340668151298572139422500675099605265438942957030580530183309827474722747867276026172956721180324682445034408229 + 0.12675087394338374672667301163152957342856669321516828234865834602920453218931327607122672288915726493100734610087826967073678640121151887575717468433962126470161845106280129873286534255784723357167290*I, 0.0, 0.0, 0.0, 0.0, -0.16395982944527875493169336186033503287176634643590088498494436766761098857687267910220887886392265036485680008659578459207171575980623353072101105107650300404694854483316344892315915314220343451848083, 0.0 ] ] where I:=Sqrt(RealField(200)!-1); // squared lengths of the multipoles [ 0.0075188, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 8.6080E-5, 0.0, 0.00084006, 0.0, 0.0074341, ... ] [ 0.0075188, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0032251, 0.0, 0.0029041, 0.0, 0.00010648, ... ] // 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.0, 0.0, 0.0, 0.0, 0.0, 8.6080E-5, 8.6080E-5, 0.00092614, 0.00092614, 0.0083603 ], [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0032251, 0.0032251, 0.0061292, 0.0061292, 0.0062357 ]