L50:=[ [ 0.0, 0.27253028282211439396115366894131202137466181801203424069323793058973975563322092912360429669391272971784820263844479072464584814627916535131348041304338729780495142417895399254588988387785223779293675, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035793537114378027595004962587256884256989222519785301253726470903064264759201248929436611003833955232870390180350949390457120169225594622682662380545484996673393141708678576311327586242224366326098437 + 0.38925254085277115298248551219296219160142753858216219183625001514884399492534400766674501332068416579677451921084597332224124050865783690790605350334804014159882506673897225646271798736521781838115335*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.12727716736443815597669865458780640514912996656828803871173734101164367653326832783360950144465010442419716944252952352952638084244182040094077749282499852890358529651962804142674001153613552411738052 - 0.21466420455838817225506616613690574075497747090233606330189996516823321747961517852575716659774022357422117099343774427994865504354631790865031603142364815848020119750467833419448222092370988260927550*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.39253169474224006476875032916197248324252945270424731793993234916831753776015921915214184430900231386325328609289629591176150254312935099526426354467831964790663691331718832457748230864970047586409393 - 0.20616690825868485895822500026027904235809872204438372792194288130481977416303370381304815112013129783397652447772804153668749687807595383381883144915736007010737608014807212180539678073475765611534138*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.15000112174268086203980643625646311697460084199745115816239489816914867194841449462969859245705728243802709240146347699826081586320260001162257781797324661328238333189861291137349581090542997266937847 - 0.074996471039770751844590414185757159397489410692741647291311001028707091464681551067299143669408111504672426154050382678250296509539204999971771085163825014850829053969387175751849833672237096955912809*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.39253169474224006476875032916197248324252945270424731793993234916831753776015921915214184430900231386325328609289629591176150254312935099526426354467831964790663691331718832457748230864970047586409393 - 0.20616690825868485895822500026027904235809872204438372792194288130481977416303370381304815112013129783397652447772804153668749687807595383381883144915736007010737608014807212180539678073475765611534138*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.12727716736443815597669865458780640514912996656828803871173734101164367653326832783360950144465010442419716944252952352952638084244182040094077749282499852890358529651962804142674001153613552411738052 - 0.21466420455838817225506616613690574075497747090233606330189996516823321747961517852575716659774022357422117099343774427994865504354631790865031603142364815848020119750467833419448222092370988260927550*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.035793537114378027595004962587256884256989222519785301253726470903064264759201248929436611003833955232870390180350949390457120169225594622682662380545484996673393141708678576311327586242224366326098437 + 0.38925254085277115298248551219296219160142753858216219183625001514884399492534400766674501332068416579677451921084597332224124050865783690790605350334804014159882506673897225646271798736521781838115335*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.27253028282211439396115366894131202137466181801203424069323793058973975563322092912360429669391272971784820263844479072464584814627916535131348041304338729780495142417895399254588988387785223779293675, 0.0 ], [ 0.0, 0.27253028282211439396115366894131202137466181801203424069323793058973975563322092912360429669391272971784820263844479072464584814627916535131348041304338729780495142417895399254588988387785223779293675, 0.0, 0.0, 0.0, 0.0, 0.0, 0.17037203342769322308065533871650568877170112700755077882425528305149100922439287702539163860100206715061571446047710685682046656091970122039279274921295850024393705034663361907936268029119347659888670 - 0.35181257522324243338109010731271698479557506018382941546300832329356839163022112536168314074045493188529537640445743361460914167287756004115605819794089490367727230060921075867632895645667163516154035*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.078983870617544951674794542757956132603388353642971149231214951146277309473456685793078482814688121437186773381504633468007773732786102538835420636108259203049349821385965717470013001262374489531093493 + 0.23673137990826573521747104559510273023407157634445153213385949571529074965016168823364868408481709820893411584853443377950185530172852178201156627114889618115356888554858732925722303071435847211313301*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.23987693014037350036591457034044444883909304129271099660843965576544417416956238694296788308398242452290027604258131834438098285601374632859214181020727497673004175544596000437502663502076963864748992 + 0.37288736077345191635083571191748266052750663490208955740443204781371807724813607749809997214365010526618612088395570705261207022354686709854381113317663577752099506496589630717512764676315276737411223*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.16611244840422212685247406438609789980722594317967311412025136266511309231904308284743513299098210078235064247593252884510455099475555149304876599184170215609541303169872040359019403329854940594859889 - 0.023053452618564103324616233869670466650491217680539276940662092014379238242971466247499461793260525361056234434020392796106526207142430224529081751543789321636789398981759928395127679290804029800251213*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.23987693014037350036591457034044444883909304129271099660843965576544417416956238694296788308398242452290027604258131834438098285601374632859214181020727497673004175544596000437502663502076963864748992 + 0.37288736077345191635083571191748266052750663490208955740443204781371807724813607749809997214365010526618612088395570705261207022354686709854381113317663577752099506496589630717512764676315276737411223*I, 0.0, 0.0, 0.0, 0.0, 0.0, -0.078983870617544951674794542757956132603388353642971149231214951146277309473456685793078482814688121437186773381504633468007773732786102538835420636108259203049349821385965717470013001262374489531093493 + 0.23673137990826573521747104559510273023407157634445153213385949571529074965016168823364868408481709820893411584853443377950185530172852178201156627114889618115356888554858732925722303071435847211313301*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.17037203342769322308065533871650568877170112700755077882425528305149100922439287702539163860100206715061571446047710685682046656091970122039279274921295850024393705034663361907936268029119347659888670 - 0.35181257522324243338109010731271698479557506018382941546300832329356839163022112536168314074045493188529537640445743361460914167287756004115605819794089490367727230060921075867632895645667163516154035*I, 0.0, 0.0, 0.0, 0.0, 0.0, 0.27253028282211439396115366894131202137466181801203424069323793058973975563322092912360429669391272971784820263844479072464584814627916535131348041304338729780495142417895399254588988387785223779293675, 0.0 ] ] where I:=Sqrt(RealField(200)!-1); // squared length of the multipoles [ 0.019608, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0076088, 0.00055782, 0.029629, 0.038456, 0.012607, 0.011165, 0.0083789, 0.0021582, 0.0091426, 0.0058627, 0.013347, 0.0070792, 0.020871, 0.028255, 0.027815, 0.041910, 0.010398, 0.012642, 0.020097, 0.013267, 0.021410, 0.015113, 0.032493, 0.030491, 0.044907, 0.020086, 0.035168, 0.019175, 0.022846, 0.0086310, 0.046833, 0.042665, 0.035780, 0.046339, 0.018705, 0.018221, 0.043620, 0.045021, 0.040709, 0.029575, 0.041359 ] [ 0.019608, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0076088, 0.0071751, 0.034483, 0.0028686, 0.037380, 0.011564, 0.0068326, 0.00062373, 0.013785, 0.0044580, 0.010378, 0.010157, 0.043977, 0.0099654, 0.017581, 0.0094823, 0.043425, 0.018919, 0.018799, 0.0094939, 0.034366, 0.0066509, 0.062611, 0.0063478, 0.010249, 0.021867, 0.050036, 0.018594, 0.057744, 0.0068961, 0.037825, 0.013272, 0.042627, 0.024230, 0.068760, 0.017358, 0.029160, 0.016516, 0.078700, 0.014139, 0.043489 ] // cumulative squared lengths A_M: [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0076088, 0.0081666, 0.037795, 0.076252, 0.088859, 0.10002, 0.10840, 0.11056, 0.11970, 0.12557, 0.13891, 0.14599, 0.16686, 0.19512, 0.22293, 0.26484, 0.27524, 0.28788, 0.30798, 0.32125, 0.34266, 0.35777, 0.39026, 0.42075, 0.46566, 0.48574, 0.52091, 0.54008, 0.56293, 0.57156, 0.61840, 0.66106, 0.69685, 0.74318, 0.76189, 0.78011, 0.82373, 0.86875, 0.90945, 0.93903, 0.98039 ] [ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0076088, 0.014784, 0.049267, 0.052136, 0.089516, 0.10108, 0.10791, 0.10854, 0.12232, 0.12678, 0.13716, 0.14731, 0.19129, 0.20126, 0.21884, 0.22832, 0.27174, 0.29066, 0.30946, 0.31896, 0.35332, 0.35997, 0.42258, 0.42893, 0.43918, 0.46105, 0.51109, 0.52968, 0.58742, 0.59431, 0.63214, 0.64542, 0.68804, 0.71227, 0.78103, 0.79839, 0.82755, 0.84406, 0.92276, 0.93690, 0.98039 ]