L28:=[ [ 0.19783198480506023120779045457002536773431084955087478976749191396922103037781197448068658093416883138841133334248061550200518897940622279593334973982341011134433901175302867200097280362778129311417815, 0.0, 0.30409571317064719368041612846941102445341648036311828811276916749869611966419682058186602875539457327765330970702275363470687498518447707563183174947284737741854734560850102300462430005482794288144586*I, 0.0, 0.27777476620189790914711243553625980643775958926227433715473109625007245593074512918149368291260869172304067751876340706852070559644741852870379206255580513524305456177327737022709529366674922187062360, 0.0, 0.18891401353525400476409164314470183814337803144185107124613595079930944720524878742922029907529508670190939271674313811087123141167668542209602731625229154988769982134342138643853835021580068024510804*I, 0.0, 0.0029333715761784424593143557971424353653273255353899672691533409977654180825400069334422096017267726815295294100895480783616360030245291426339413711581741510285371058008647862759606318122481203426174911, 0.0, -0.50062170209321511941148772356281256043616594947424122755067956851660024130513491544502482549888779363506491580150086462454966064865499445786799437332037063916415570664122374454016686209161106771641072*I, 0.0, -0.025280365343374145584132755281431092414304585599710574837244396479777081597017516620113682871687542129501198869640623530958317070914385235886238863752652281158808501441771358955420024340600361077615038, 0.0, -0.092424970905080394818095760396917957883184148412795808438519046786967074171070511306213919053160752359567831009333385344860349757871009406008649367256268157371205720773341046250469821113861281618491868*I, 0.0, -0.025280365343374145584132755281431092414304585599710574837244396479777081597017516620113682871687542129501198869640623530958317070914385235886238863752652281158808501441771358955420024340600361077615038, 0.0, -0.50062170209321511941148772356281256043616594947424122755067956851660024130513491544502482549888779363506491580150086462454966064865499445786799437332037063916415570664122374454016686209161106771641072*I, 0.0, 0.0029333715761784424593143557971424353653273255353899672691533409977654180825400069334422096017267726815295294100895480783616360030245291426339413711581741510285371058008647862759606318122481203426174911, 0.0, 0.18891401353525400476409164314470183814337803144185107124613595079930944720524878742922029907529508670190939271674313811087123141167668542209602731625229154988769982134342138643853835021580068024510804*I, 0.0, 0.27777476620189790914711243553625980643775958926227433715473109625007245593074512918149368291260869172304067751876340706852070559644741852870379206255580513524305456177327737022709529366674922187062360, 0.0, 0.30409571317064719368041612846941102445341648036311828811276916749869611966419682058186602875539457327765330970702275363470687498518447707563183174947284737741854734560850102300462430005482794288144586*I, 0.0, 0.19783198480506023120779045457002536773431084955087478976749191396922103037781197448068658093416883138841133334248061550200518897940622279593334973982341011134433901175302867200097280362778129311417815 ], [ 0.17295115821695244511408878967454732898967197109404088568560318028220478781463143738001611023913661528421695593245966330916653416903688714329746447325498256743157828435513445769058599851638370016776647, 0.0, 0.37022069223552878318221527361341474066732495806327503452730465868567996007884087645470936677283839550583903281333391776606065482200472102598459073258750183199558438713081232956536351113830493446405452*I, 0.0, 0.069836232835940821839791704510973084906914111319634005373378331995387497258260112528717972814284110723086969001203364733723758783542997656747168431976453286067587879334607261841922950678453334031498084, 0.0, -0.24676196488539565955239067804970910918066699167405667839701702033055562507423397118003995987111852062741904422817857992609170499729082122486359551780668362535855625363118933520967748181170575242830341*I, 0.0, -0.21569517762433688484655548700206436513869141830036280349463818581707826522391773521194419583741683412551616568369557448611739529140565123795696508072338006810953419640462759365227827182266077915145347, 0.0, -0.45592665094828332581564613830628199929984727896961011719467857370911430435534074866336689589099640490885204026742929576361746255557473438401422009734540354353986287337327744159352993734833164806983378*I, 0.0, -0.060322953225438592900430401918839799229532500726218835602883801319887040434046007963450203073212992085992709380095365486104093953668819144953486991487410313007663268747181672886578560992826964713541351, 0.0, 0.13582039464007685277298139844952018836226229874013692023164208700033705788525781226105654636672225136520538768800324759139338532292232943486448029965179369590167717163871445878166087362816381499102325*I, 0.0, -0.060322953225438592900430401918839799229532500726218835602883801319887040434046007963450203073212992085992709380095365486104093953668819144953486991487410313007663268747181672886578560992826964713541351, 0.0, -0.45592665094828332581564613830628199929984727896961011719467857370911430435534074866336689589099640490885204026742929576361746255557473438401422009734540354353986287337327744159352993734833164806983378*I, 0.0, -0.21569517762433688484655548700206436513869141830036280349463818581707826522391773521194419583741683412551616568369557448611739529140565123795696508072338006810953419640462759365227827182266077915145347, 0.0, -0.24676196488539565955239067804970910918066699167405667839701702033055562507423397118003995987111852062741904422817857992609170499729082122486359551780668362535855625363118933520967748181170575242830341*I, 0.0, 0.069836232835940821839791704510973084906914111319634005373378331995387497258260112528717972814284110723086969001203364733723758783542997656747168431976453286067587879334607261841922950678453334031498084, 0.0, 0.37022069223552878318221527361341474066732495806327503452730465868567996007884087645470936677283839550583903281333391776606065482200472102598459073258750183199558438713081232956536351113830493446405452*I, 0.0, 0.17295115821695244511408878967454732898967197109404088568560318028220478781463143738001611023913661528421695593245966330916653416903688714329746447325498256743157828435513445769058599851638370016776647 ], [ 0.23962046450180462640310520737130854657278795387083471512198249239534959710250402080398165406244409529207223221936044158822701738620303976048304123842529021213235212270813302001043528051696205769327548, 0.0, 0.17003303917053665581758883527084047610257369265671624165096746104054623441193899601310147019085748854895248884452297502520071060458896094942258510602791033945578280402237217017646952791456876900009264*I, 0.0, -0.32364629438315716915491445436540647652192338395960635136641727488852722721205684459187338457105689602852799005105021973166928950878531561441597425473890800202908206770999118608930806024591939332915813, 0.0, 0.36448169283379893886974741066169521785592325106247076235632236720169673338137384084947560227252733025594483983414452430791373734568821897525250415868491204502594790631974300535116956189658459969697908*I, 0.0, -0.041847940119757835908935338893283882024966819100693340117546989815105333938717631887241504806622392126139483470335445943503908934783325139108705790522189005743748318838051248165465713447379142544673723, 0.0, -0.093445552298923581483164439248789323605680777158447492543440978184545838249954799331564200833708644763099823620226131778981322200618634435780658030332080970436224377172340496736445513108411139931839700*I, 0.0, 0.31749342477873932485644651853892933698888645170743179687838504191100644628760064754844245467511382070879560115987750175635117758791378792922884207697075232092783029463359734412294158341247174518201573, 0.0, 0.35997659420850805651066981206907474775719406248678249917792911130674688445735084975611234813975162531612517354303397349626897946958384552260186172041589360042066639218032696860893311773577218608180934*I, 0.0, 0.31749342477873932485644651853892933698888645170743179687838504191100644628760064754844245467511382070879560115987750175635117758791378792922884207697075232092783029463359734412294158341247174518201573, 0.0, -0.093445552298923581483164439248789323605680777158447492543440978184545838249954799331564200833708644763099823620226131778981322200618634435780658030332080970436224377172340496736445513108411139931839700*I, 0.0, -0.041847940119757835908935338893283882024966819100693340117546989815105333938717631887241504806622392126139483470335445943503908934783325139108705790522189005743748318838051248165465713447379142544673723, 0.0, 0.36448169283379893886974741066169521785592325106247076235632236720169673338137384084947560227252733025594483983414452430791373734568821897525250415868491204502594790631974300535116956189658459969697908*I, 0.0, -0.32364629438315716915491445436540647652192338395960635136641727488852722721205684459187338457105689602852799005105021973166928950878531561441597425473890800202908206770999118608930806024591939332915813, 0.0, 0.17003303917053665581758883527084047610257369265671624165096746104054623441193899601310147019085748854895248884452297502520071060458896094942258510602791033945578280402237217017646952791456876900009264*I, 0.0, 0.23962046450180462640310520737130854657278795387083471512198249239534959710250402080398165406244409529207223221936044158822701738620303976048304123842529021213235212270813302001043528051696205769327548 ], [ 0.23533809197129311881465487142272418640418041809733249399964856361854534569742323254300111177339003406580111611022977186591665301091328754602895004048823249477593792869295602453894262647848452830106067, 0.0, -0.18072167141713848355395592857150983994190181296013245623372270617966382333383023990362609068013936875855656126699320871029753078156822870159505994536562895697210401176459464908139020527568478170185612*I, 0.0, -0.34434364009796573406647862742318140444070325501691007833964576997320755422450625491089874181446841995437786003226389418085277927764364854217809803393222440119149309933875879747944211324629245057755354, 0.0, -0.30492232611069338367573675773806180316476211911568964177976458945741784769344891399327071539568319074769070269768608343586854605039364803427716279896972030024873173575547112880191332012044694658568224*I, 0.0, 0.12203324066935461166918573901467576821041329903301272533552140236736254765262536265063569639778036808392092095321444015202546637476740157912896289226485652103222409995815710413501684543576148951508357, 0.0, -0.20246334244247139785250762048833873617233501653984155581910280796215610035243712219784732953626440118042108681912472920638864087168464595959633212521600217239781296275724175579394600742802442615135806*I, 0.0, -0.33235725105520994197635567633548001773024826369516091310034731694159894885930556533430284854267813805929603925572394168977620731595979815613348479814154543746054519072284631151387496833831325697336024, 0.0, 0.26100051080645684811232483986291804977165095814466242823166193372092225918887415351458421951571102353339611719617725733743029663475490119170036060547159985459829722609857104444117347055648254071803056*I, 0.0, -0.33235725105520994197635567633548001773024826369516091310034731694159894885930556533430284854267813805929603925572394168977620731595979815613348479814154543746054519072284631151387496833831325697336024, 0.0, -0.20246334244247139785250762048833873617233501653984155581910280796215610035243712219784732953626440118042108681912472920638864087168464595959633212521600217239781296275724175579394600742802442615135806*I, 0.0, 0.12203324066935461166918573901467576821041329903301272533552140236736254765262536265063569639778036808392092095321444015202546637476740157912896289226485652103222409995815710413501684543576148951508357, 0.0, -0.30492232611069338367573675773806180316476211911568964177976458945741784769344891399327071539568319074769070269768608343586854605039364803427716279896972030024873173575547112880191332012044694658568224*I, 0.0, -0.34434364009796573406647862742318140444070325501691007833964576997320755422450625491089874181446841995437786003226389418085277927764364854217809803393222440119149309933875879747944211324629245057755354, 0.0, -0.18072167141713848355395592857150983994190181296013245623372270617966382333383023990362609068013936875855656126699320871029753078156822870159505994536562895697210401176459464908139020527568478170185612*I, 0.0, 0.23533809197129311881465487142272418640418041809733249399964856361854534569742323254300111177339003406580111611022977186591665301091328754602895004048823249477593792869295602453894262647848452830106067 ], [ 0.19207571225996468725705053820207865324705363232740962765444594431837959626290617465941263402900636852529214563094475546594815791713425398741429790804524252101369505170741878570326886393240813665607726, 0.0, 0.32835971408653641902223737100769359745275623749855968576138741683426130519977207137543441759612795954827213732234308357801333474398430407761526565986060432858522524766488738789472663107836872169976038*I, 0.0, 0.21818281953933169666007361998531024950942585054571747565593879277539399013880217079189631458981688612863944121320230350315098364924833022709844067934437642213712762860776573929167753497706655386914057, 0.0, 0.10940351767471173463927010152939847067030529378620933715051308930115279238341493131736513256310969977563484346167992489059975118960299131724826941278356368745268347947216154587977737409544945518581912*I, 0.0, -0.40658165165027565914721721642352411226294103090274134740002705018250885498306249480093329453517831077313229795597082727948084369094707973269939764835489115274052659409437945056869120829675929476497692, 0.0, 0.19886982878592268539187789626408830983465788036445059642677452120797007713962494343610349262539875817354023605436727754397487377352781368310363053165971074976851497744386690202169816131068865822714279*I, 0.0, -0.18204729443617571589762240364620642151335071726150308463018673699404635532812600108083808835762690018780268138994849312688479003917615417798582016421478887476987895734039902767068100079745156080234430, 0.0, -0.33974955726700160887988129726254375865254297559474086044923316206247054771680575598166513059774300812833139050099179992143650906553797971329985043255608429163443976643484763954207607516093049855623906*I, 0.0, -0.18204729443617571589762240364620642151335071726150308463018673699404635532812600108083808835762690018780268138994849312688479003917615417798582016421478887476987895734039902767068100079745156080234430, 0.0, 0.19886982878592268539187789626408830983465788036445059642677452120797007713962494343610349262539875817354023605436727754397487377352781368310363053165971074976851497744386690202169816131068865822714279*I, 0.0, -0.40658165165027565914721721642352411226294103090274134740002705018250885498306249480093329453517831077313229795597082727948084369094707973269939764835489115274052659409437945056869120829675929476497692, 0.0, 0.10940351767471173463927010152939847067030529378620933715051308930115279238341493131736513256310969977563484346167992489059975118960299131724826941278356368745268347947216154587977737409544945518581912*I, 0.0, 0.21818281953933169666007361998531024950942585054571747565593879277539399013880217079189631458981688612863944121320230350315098364924833022709844067934437642213712762860776573929167753497706655386914057, 0.0, 0.32835971408653641902223737100769359745275623749855968576138741683426130519977207137543441759612795954827213732234308357801333474398430407761526565986060432858522524766488738789472663107836872169976038*I, 0.0, 0.19207571225996468725705053820207865324705363232740962765444594431837959626290617465941263402900636852529214563094475546594815791713425398741429790804524252101369505170741878570326886393240813665607726 ], [ 0.18498182336669248957660903082022856586888530558526060860951422004230590986568835748573621743516684567666568354720663535088247139589326554268675859518411821605101275990508523921379708911585388331547293, 0.0, 0.34893982534383734034412601090538272273228774325349898200493643730319879681272228152574267467643143709088833522319296321683293098530822556323000468161861498161650988920022844591163013738278390705768670*I, 0.0, 0.14841372364945180259998911497657446294281894218862495741711883577505130325785539266123430221655175600633603700576652379783928077872231059645375017317428694068151951699199912513851097081720382969554113, 0.0, -0.15657294829798965499382906189316310036141844650800408752818315072660002845485801422750460539598818540299115743207413347689812691632763632515141194620436251929488927432727523266354719005168054447224154*I, 0.0, 0.43055251414171758142831957624299753836209811176392167339264117604084949016724025625675777094704255125900779851925373202382534392871669375917889832654453285370912915301646569887849608082335885590608707, 0.0, -0.088100449973293788882927778218867572786144352844653616762327216405629399759675483685291904516442738646787225706811715510600594660044912413497761786353453038630305537999663561510248272554323800129606826*I, 0.0, -0.21828251447248319221714824460180591248137157228303954032650606306718945380004657518798158158958858292856459705726547117212798607460075803697243244440432739771437942946857418729069169725084959925903880, 0.0, -0.33673903534649702962072770794474663357434267428268245930067400155953371869270598322022295100486860884628786347869202072190635242293437284493135500326751620175811114589915835124231096858469042036156469*I, 0.0, -0.21828251447248319221714824460180591248137157228303954032650606306718945380004657518798158158958858292856459705726547117212798607460075803697243244440432739771437942946857418729069169725084959925903880, 0.0, -0.088100449973293788882927778218867572786144352844653616762327216405629399759675483685291904516442738646787225706811715510600594660044912413497761786353453038630305537999663561510248272554323800129606826*I, 0.0, 0.43055251414171758142831957624299753836209811176392167339264117604084949016724025625675777094704255125900779851925373202382534392871669375917889832654453285370912915301646569887849608082335885590608707, 0.0, -0.15657294829798965499382906189316310036141844650800408752818315072660002845485801422750460539598818540299115743207413347689812691632763632515141194620436251929488927432727523266354719005168054447224154*I, 0.0, 0.14841372364945180259998911497657446294281894218862495741711883577505130325785539266123430221655175600633603700576652379783928077872231059645375017317428694068151951699199912513851097081720382969554113, 0.0, 0.34893982534383734034412601090538272273228774325349898200493643730319879681272228152574267467643143709088833522319296321683293098530822556323000468161861498161650988920022844591163013738278390705768670*I, 0.0, 0.18498182336669248957660903082022856586888530558526060860951422004230590986568835748573621743516684567666568354720663535088247139589326554268675859518411821605101275990508523921379708911585388331547293 ] ] where I:=Sqrt(RealField(200)!-1); // squared length of the multipoles [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010337, 0.035762, 0.019519, 0.070418, 0.033124, 0.015895, 0.0074588, 0.024778, 0.043943, 0.056302, 0.034039, 0.047499, 0.024037, 0.066360, 0.046186, 0.078996, 0.046177, 0.039041, 0.049026, 0.10080, 0.044521, 0.071295 ] [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.013873, 0.036904, 0.012481, 0.077407, 0.0012345, 0.040453, 0.024635, 0.030943, 0.023290, 0.039986, 0.041728, 0.065851, 0.018733, 0.064231, 0.032622, 0.084550, 0.062801, 0.041240, 0.015111, 0.12979, 0.035566, 0.072089 ] [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.034393, 0.018350, 0.012356, 0.030395, 0.067122, 0.021569, 0.00078733, 0.027163, 0.086743, 0.053735, 0.0040236, 0.0090812, 0.028060, 0.093754, 0.063044, 0.063130, 0.050763, 0.039462, 0.063825, 0.050375, 0.087149, 0.060236 ] [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.044078, 0.010578, 0.010621, 0.024669, 0.054627, 0.026095, 0.023467, 0.057958, 0.030030, 0.064751, 0.0085571, 0.010095, 0.054577, 0.032438, 0.091810, 0.087446, 0.023537, 0.065627, 0.040732, 0.048846, 0.098512, 0.056465 ] [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.048150, 0.0052615, 0.010655, 0.026476, 0.051590, 0.022194, 0.032312, 0.063958, 0.016059, 0.069549, 0.011989, 0.0098277, 0.060092, 0.010615, 0.10001, 0.098774, 0.019878, 0.067392, 0.035911, 0.045583, 0.10467, 0.054570 ] [ 0.034483, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.048518, 0.0071580, 0.019289, 0.0058524, 0.035247, 0.061121, 0.025075, 0.071583, 0.017820, 0.032032, 0.025904, 0.014424, 0.058599, 0.039540, 0.093789, 0.050858, 0.043579, 0.093560, 0.012358, 0.047894, 0.10749, 0.053829 ] // cumulative squared length A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.010337, 0.046098, 0.065618, 0.13604, 0.16916, 0.18505, 0.19251, 0.21729, 0.26123, 0.31754, 0.35157, 0.39907, 0.42311, 0.48947, 0.53566, 0.61465, 0.66083, 0.69987, 0.74890, 0.84970, 0.89423, 0.96552 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.013873, 0.050777, 0.063258, 0.14067, 0.14190, 0.18235, 0.20699, 0.23793, 0.26122, 0.30121, 0.34293, 0.40879, 0.42752, 0.49175, 0.52437, 0.60892, 0.67172, 0.71296, 0.72807, 0.85786, 0.89342, 0.96552 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.034393, 0.052743, 0.065099, 0.095494, 0.16262, 0.18419, 0.18497, 0.21214, 0.29888, 0.35262, 0.35664, 0.36572, 0.39378, 0.48753, 0.55058, 0.61371, 0.66447, 0.70393, 0.76775, 0.81813, 0.90528, 0.96552 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.044078, 0.054657, 0.065277, 0.089947, 0.14457, 0.17067, 0.19414, 0.25209, 0.28212, 0.34687, 0.35543, 0.36553, 0.42010, 0.45254, 0.54435, 0.63180, 0.65533, 0.72096, 0.76170, 0.81054, 0.90905, 0.96552 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.048150, 0.053412, 0.064067, 0.090543, 0.14213, 0.16433, 0.19664, 0.26060, 0.27666, 0.34620, 0.35819, 0.36802, 0.42811, 0.43873, 0.53874, 0.63751, 0.65739, 0.72478, 0.76070, 0.80628, 0.91095, 0.96552 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.048518, 0.055676, 0.074965, 0.080817, 0.11606, 0.17719, 0.20226, 0.27384, 0.29166, 0.32370, 0.34960, 0.36403, 0.42262, 0.46216, 0.55595, 0.60681, 0.65039, 0.74395, 0.75631, 0.80420, 0.91169, 0.96552 ]