Advanced Search

acer

32385 Reputation

29 Badges

19 years, 336 days
Ontario, Canada

Social Networks and Content at Maplesoft.com

Contact acer

MaplePrimes Activity


These are answers submitted by acer

IterativeMaps...

acer 32385
March 31 2016
1 3

(It turns out that I mostly just had to look for the file where I'd done pretty much this, earlier.)

If the IterativeMaps commands also give you grief you could also implement it (slower) using plot3d or densityplot.

As mentioned in the code below, increasing `maxiter` will reduce the areas of nonconvergence (black areas) for such univariate polynomials.

I used Maple 2015.2 on 64bit Linux.

> 

restart:
> 

with(IterativeMaps):
with(ImageTools):
> 

ee := z^5 - 1;

z^5-1

> 

## For ee a polynomial we can compute all the roots.
## This is used to specify the colors, below.
rts:=[fsolve(ee,z,complex)]:
evalf[4](%);

[-.8090-.5878*I, -.8090+.5878*I, .3090-.9511*I, .3090+.9511*I, 1.]

> 

minr,maxr := (min,max)(Re~(rts)):
mini,maxi := (min,max)(Im~(rts)):
> 

dee := diff(ee, z):
Z := eval( z - ee/dee, z=zr+zi*I):
> 

fzi := evalc( Im( Z ) ):
> 

fzr := evalc( Re( subs(zi=zit, Z) ) ):
> 

N := 400;
maxiter := 40; # increasing this will reduce nonconvergence
h,w := N, floor(N*(maxr-minr)/(maxi-mini));

400

40

400, 380

> 

newt := Escape( height=h, width=w,
                       [zi, zr, zit],
                       [fzi, fzr, zi],
                       [y, x, y], evalc(abs(eval(ee,[z=zr+zit*I])))^2<1e-10,
                       2*minr, 2*maxr, 2*mini, 2*maxi,
                       iterations = maxiter,
                       redexpression = zr, greenexpression = zit, blueexpression=i ):
> 

## View the iteration count layer
#Embed([ FitIntensity(newt[..,..,3]) ]);
> 

## By default use full saturation and full intensity
img:=Array(1..h,1..w,1..3,(i,j,k)->1.0,datatype=float[8]):
> 

## Optional, set intensity to zero for non-convergence
img[..,..,3]:=Threshold(newt[..,..,3],1,low=maxiter+1):
img[..,..,3]:=Threshold(img[..,..,3],maxiter-1,high=0,low=1):
> 

## Optional, scale the saturation by the time to converge
img[..,..,2]:=1.0-~FitIntensity(newt[..,..,3]):
> 

## Done inefficiently, set the hue by position in the list of
## all roots
G:=Array(zip((a,b)->min[index](map[evalhf](abs,rts-~(a+b*I))),
             newt[..,..,1],newt[..,..,2]),datatype=float[8],order=C_order):
img[..,..,1]:=240*FitIntensity(G):
> 

## Convert from HSV to something viewable
final := HSVtoRGB(img):
> 

Embed(final);

NULL

Download newtbasin0.mw

 

And here it is for N=600 and maxiter=200. Using a logarithm for adjusting the saturation layer might be a way to get a nicer impression of the convergence rate.

 

acer

op...

acer 32385
March 30 2016
1 2 
c:=INTERVAL(1.41421356167 .. 1.41421356308):

uo,low:=op(op(c));                          

                           uo, low := 1.41421356167, 1.41421356308

Or,

up,low:=op([1,..],c);

                           up, low := 1.41421356167, 1.41421356308

acer

add, if...

acer 32385
March 29 2016
0 0

You can use the add and the if command together.

Note the single backticks (left-quotes) around the word if.

V := Vector[row]( 10, i -> i^2 );

                 V := [1, 4, 9, 16, 25, 36, 49, 64, 81, 100]

add( `if`( v>30, v, 0), v=V );

                                     330

add( map( v -> `if`( v>30, v, 0 ), V ) );

                                     330

add( piecewise( v>30, v, 0 ), v=V );

                                     330

M := Matrix( 5, 5, (i,j) -> (i+j) );

                                 [2  3  4  5   6]
                                 [              ]
                                 [3  4  5  6   7]
                                 [              ]
                            M := [4  5  6  7   8]
                                 [              ]
                                 [5  6  7  8   9]
                                 [              ]
                                 [6  7  8  9  10]

add( `if`( M[i,3] > 5, M[i,3], 0), i=1..5 );

                                     21

add( `if`( v > 5, v, 0), v = M[..,3] );

                                     21

Is that the kind of thing you mean?

acer

manually (in a few ways)...

acer 32385
March 28 2016
1 0

 

> 

restart;
> 

#
# One way to consider the problem is to notice that the subterm
# 18*s^2+32 happens to equal  9*s^2  +  9*s^2+32  where those
# two parts are the M^2 and N^2 of the desired (M+N)^2 target.
#
# We can forcibly separate those enough to allow factor or CompleteSquare
# to obtain the desired form. But how to automate the split?
#
> 

a := 6*s*sqrt(9*s^2 + 32) + 18*s^2 + 32;

6*s*(9*s^2+32)^(1/2)+18*s^2+32

> 

t := indets(a, `^`(anything, 1/2))[1];

(9*s^2+32)^(1/2)

> 

ft := freeze(t);

`freeze/R0`

> 

subs(t = ft, a - t^2 + ft^2); # a rather manual step

9*s^2+6*s*`freeze/R0`+`freeze/R0`^2

> 

thaw(factor(%));

(3*s+(9*s^2+32)^(1/2))^2

> 

# But how do we know how to divvy it up? How to find A=1?
subs(t = ft, a + A*(-t^2 + ft^2));
Student:-Precalculus:-CompleteSquare(%, ft);
subs(S=s^2, collect(algsubs(s^2=S, %), [S], u->simplify(u, size)));
thaw( eval(%, A=1) );

6*s*`freeze/R0`+18*s^2+32+A*(-9*s^2+`freeze/R0`^2-32)

A*(`freeze/R0`+3*s/A)^2+18*s^2+32+A*(-9*s^2-32)-9*s^2/A

-9*(A-1)^2*s^2/A+A*(`freeze/R0`+3*s/A)^2-32*A+32

(3*s+(9*s^2+32)^(1/2))^2

> 

restart;
# Once again, if you know in advance how to split terms, it's easy.
# How to automate it?
eq1 := 6*s*sqrt(9*s^2 + 32)=2*M*N:
eq2 := 18*s^2 + 32=M^2+N^2:
map(factor, eq1+eq2);
eval(%, solve( {eq1,eq2}, {M,N}, explicit )[1]);

6*s*(9*s^2+32)^(1/2)+18*s^2+32 = (M+N)^2

6*s*(9*s^2+32)^(1/2)+18*s^2+32 = ((9*s^2+32)^(1/2)+3*s)^2

> 

 

 

Download factorfun.mw

acer

augmenting the context-menu...

acer 32385
March 25 2016
2 5

If the following code is saved to a Maple initialization file then a new entry for calling the RationalFunctionPlot command should appear in the right context-menu, under the existing "Plots" submenu, if the expression is of type `ratpoly`.

You can of course adjust this. The `caption` might not be set to the empty string. Or several such new menu items could be added, in their own subsubmenu, to provided various common choices for the command's options.

:-__AugmentCM := :-ContextMenu:-CurrentContext:-Copy():
:-__AugmentCM:-Entries:-Add("Rational Function",
            ":-Student:-Precalculus:-RationalFunctionPlot(%EXPR,':-caption'=\"\")",
            ':-ratpoly',
            ':-operator'=:-Typesetting:-mover(Typesetting:-mo("→"),
                         :-Typesetting:-mi("Rational Function Plot")),
            ':-category'="Category 1",
            ':-helpstring'="Rational Function Plot",
            ':-submenu'=["Plots"]
           ):
:-ContextMenu:-Install(:-__AugmentCM);

Or you could adjust this code to invoke instead the Student:-Precalculus:-RationalFunctionTutor command. This command is already available via the main menubar choice Tools->Tutors->Precalculus but invoking it from there won't automatically pass in the desired expression. But if this command is added to the context-menu then the right-clicked expression will be passed in and used.

See the help page with topic worksheet,reference,initialization for documentation on how to create an initialization file.

If you want all the students to get this enhancement automatically for a network installation of Maple then you just add it to the (possibly new) file <MAPLE>/lib/maple.ini where <MAPLE> is the location of the Maple installation. Or do it for each machine, if Maple is installed locally on machines. Test it first, of course.

acer

chain rule...

acer 32385
March 24 2016
0 2 
h := x -> f(g(x)):

D(h)(0);

                             D(f)(g(0)) D(g)(0)

eval( D(h)(0), D(g)(0)=0 );

                                      0

Even if you prefer `diff` over `D` it still evaluates to zero, for the same reason.

eval( eval(diff(h(x),x),x=0), eval(diff(g(x),x),x=0)=0 );

                                      0

acer

collect...

acer 32385
March 24 2016
1 2

 

> 

restart;
> 

f := (125*x^3+525*x^2*y+735*x*y^2+343*y^3-36*z^2)
     /(-216*z^3+25*x^2+70*x*y+49*y^2);

(125*x^3+525*x^2*y+735*x*y^2+343*y^3-36*z^2)/(-216*z^3+25*x^2+70*x*y+49*y^2)

> 

collect(f,z,factor);

(-36*z^2+(5*x+7*y)^3)/(-216*z^3+(5*x+7*y)^2)

Download collectfactor.mw

acer

procedure (or appliable module)...

acer 32385
March 23 2016
3 1

This is covered in the subsubsubsection "2-dimensional case"->"Interpolation"->"Uniform data grid"->"Interpolating procedure" of the help page available via ?examples,Interpolation_and_Smoothing .

The basic methodology is simple, see `f` below. For that I'd suggest using Vectors/Array/Matrices and square-bracket indexing and not lists and `op`.

Using float[8] datatype helps with resources. There is overhead in getting a pair of scalars into the indexable containers (Arrays, lists, etc) that ArrayInterpolation accepts. It's designed to be fast for dealing with large amounts of interpolating points all at once. Repeated use to process individual points will be less efficient than processing them all at once. But perhaps you won't know up front what they all are. There is an efficiency section in that example worksheet for the 1D interpolation case's efficiency, and I follow that is the more efficienct `F` below.


> 

restart;
> 

x:=<0,1,2>:
y:=<0,1,2>:
data:=<<0,2,4>|<1,4,16>|<1,8,64>>:
> 

f:=(a,b)->CurveFitting:-ArrayInterpolation([x,y], data,
              Array(1..1, 1..1, 1..2, [[[a,b]]]), method=spline)[1,1]:
> 

f(0.5,0.5);

HFloat(1.5537109375)

> 

#plot3d(f, 0..2, 0..2, style=surface);
> 

#dataplot(x, y, data, style=surface);
> 

#plots:-surfdata(Array(data,datatype=float[8]), 0..2, 0..2, source=regular, style=surface);
> 

#plots:-matrixplot(data, labels=["","",""], style=surface,
#                  axis[1]=[tickmarks=[]], axis[2]=[tickmarks=[]]);
> 

 

> 

#
# The following `F` is more efficient than `f` above.
#
F := module()
export ModuleApply;
local inArray, outArray, hwxdata, hwydata, hwdata;
   inArray:=Array(1..1,1..1,1..2,':-datatype'=':-float[8]');
   outArray:=Array(1..1,1..1,':-datatype'=':-float[8]');
   hwxdata,hwydata := Vector(x,':-datatype'=':-float[8]'),
                      Vector(y,':-datatype'=':-float[8]'):
   hwdata:=Matrix(data,':-datatype'=':-float[8]'):
   ModuleApply:=proc(a, b,
                    {method::identical(spline,linear,cubic):=':-spline'})
     if not ( a::numeric and b::numeric ) then
       return 'F'(args);
     end if;
     UseHardwareFloats:=true;
     inArray[1,1,1]:=a;
     inArray[1,1,2]:=b;
     CurveFitting:-ArrayInterpolation([hwxdata,hwydata], hwdata,
                                      inArray, ':-container'=outArray,
                                      ':-method'=method, _rest);
      outArray[1,1];
   end proc;
end module:
> 

f(0.5,0.5), F(0.5,0.5);
f(0.3, 0.45), F(0.3, 0.45);
F(s,t);

HFloat(1.5537109375), HFloat(1.5537109375)

HFloat(1.1073818203124999), HFloat(1.1073818203124999)

F(s, t)

> 

CodeTools:-Usage( plot3d(f, 0..2, 0..2) ):

memory used=78.18MiB, alloc change=32.00MiB, cpu time=4.34s, real time=4.34s, gc time=93.60ms

> 

CodeTools:-Usage( plot3d(F, 0..2, 0..2) ):

memory used=33.87MiB, alloc change=0 bytes, cpu time=1.82s, real time=1.83s, gc time=46.80ms

> 

#plot3d(F, 0..2, 0..2, style=surface);
> 

#plot3d(F(s,t,method=linear), s=0..2, t=0..2, style=surface);
> 

 


Download 2dinterp.mw

acer

2D...

acer 32385
March 22 2016
2 1

Apart from increasing the grid sizing to get a smoother 3D plot (as Doug suggested), you can also make the 2D contourplot look a little better by using a different choice of custom contour values.

Download sz2012_4m_K.mw

[edited] The 2D colorbar facsimile (faked, as a legend) can look a little nicer if the `.` used to force the nonempty strings (color blobs) are also colored.

sz2012_4m_KK.mw

The GUI seems unwilling to typeset colored 2D Math if the mathcolor (foreground color) and the mathbackground (background color) are exactly the same, on my Linux at least. A small adjustment of either, so they are not identical, seems to work. Proper care should be taken to make the adjusted RGB24 color value be valid with entries all in 0-255 (which I didn't do). A further possible refinement is that intsead of atomic-identifiers like `#mrow(...)` one could use Typsettting:-mrow, etc, so that size=posint qualifier could be used to also modify the typeset size. (I didn't do that either.)

 

> 

restart;
> 

PP:=sin(x)*y^2:
> 

(c1,c2):=ColorTools:-Color("#7700ff"),ColorTools:-Color("#33ff66"):
> 

contlist:=[seq(i, i=-1..1, .125)]:

numcont:=nops(contlist):
> 

clist:=[seq(ColorTools:-Color([c1[]]+(i-1)*([c2[]]-[c1[]])/(numcont-1)), i=1..numcont)]:
> 

P1:=plots:-contourplot(PP, x=-Pi..Pi, y=-1..0, filledregions, grid=[100,100],
                     coloring=[clist[1], clist[-1]], contours=contlist):
> 

P2:=plots:-display(
    seq(plot([[1,0]], color=white, axes=none,
           legend=typeset(nprintf(cat("#mrow(mi(\".      .\",mathbackground=%a,mathcolor=%a)",
                                      `if`(irem(i,2)=1,
                                           sprintf(",mi(\"gt;\"),mn(\"% .2f\")",
                                                   contlist[i]),NULL),")"),
                                  ColorTools:-RGB24ToHex(ColorTools:-RGBToRGB24([clist[i+1][]])),
                                  ColorTools:-RGB24ToHex(ColorTools:-RGBToRGB24([clist[i+1][]])
                                                         -[0,0,1])))),
      i=nops(clist)-1 .. 1, -1),legendstyle=[location=right]):
> 

plots:-display(P1, P2, legendstyle=[location=right], size=[680,500], axes=box,
              axis[1]=[tickmarks=piticks], labels=[``,``]);

 

Download altcolorbar.mw

This legend-as-colorbar trick could be made into a convenient procedure. It doesn't have to be used with just contourplots. It might also be used with densityplots, or 2D pointplots, or contour plots implemented via implicitplot calls.

 

acer

stripped attributes...

acer 32385
March 21 2016
1 4

The problem is that when you save a Units:-Unit beast to a .mla archive and then access it in a new session the attributes (that commands in Units:-Standard expect to see on it) have been stripped off. That makes the command error out.

This can be illustrated by example:

> 

restart:
> 

A:=Units:-Unit(m):
lprint(A);

Units:-Unit(m)

> 

attributes(A);

Units:-UnitStruct(1, metre, contexts:-SI), inert

> 

Units:-Standard:-`*`(A, 2.5, A);

2.5*Units:-Unit(('m')^2)

> 

fn:=cat(kernelopts(homedir),"/My Documents/foobar.mla"):
> 

try
  LibraryTools:-Create(fn);
catch "there is already an archive":
end try;
> 

LibraryTools:-Save('A', fn);

Download unitmla1.mw

 

Now let's restart and access that saved value. The same call to Units:-Standard:-`*` now emits an error message. This happens because the internal code of that command is expecting those attributes, as printed above.

 

> 

restart;
> 

libname:=cat(kernelopts(homedir),"/My Documents/foobar.mla"), libname:
> 

lprint(A);

Units:-Unit(m)

> 

attributes(A); # NULL
> 

Units:-Standard:-`*`(A, 2.5, A); # error due to lack of expected attributes

Error, (in Units:-Standard:-*) invalid subscript selector

Download unitmla2.mw

 

I'm not sure what the most practical workaround to this problem might be. The following reinstantiates the Units:-Unit call and produces the value anew, with the attributes. I don't know whether other, related problems might arise though.

 

> 

restart;
> 

libname:=cat(kernelopts(homedir),"/My Documents/foobar.mla"), libname:
> 

lprint(A);

Units:-Unit(m)

> 

fixit:=(u)->subsindets(u,':-specfunc(anything,Units:-Unit)',convert,`global`):
> 

A:=fixit(A):
> 

attributes(A);

Units:-UnitStruct(1, metre, contexts:-SI), inert

> 

Units:-Standard:-`*`(A, 2.5, A);

2.5*Units:-Unit(('m')^2)

Download unitmla3.mw

 

This behaviour appears for me in Maple 13, 17, and 2015 (which are all I tested). I shall submit a bug report.


acer

sure...

acer 32385
March 21 2016
0 0


> 

fo:=f(1/x);

f(1/x)

> 

diff(fo,x); # the symbolic derivative

-(D(f))(1/x)/x^2

> 

convert(%,diff); # an alternate representation

-(eval(diff(f(t1), t1), {t1 = 1/x}))/x^2


Download diffat.mw

acer

exponential fit...

acer 32385
March 21 2016
0 1

There is a command Statitistics:-ExponentialFit which allows you to weight the data (as applied to a transformed model -- see the help page).

You may note that I am not supplying initial points here.

You should probably look at some of the other pieces of information that the `output` option of this command can supply to you. A central question which you ought to be asking is: how are you going to judge one fit as being better than another? Only you can decide that, and until you do it isn't very sensible for the rest of us to use any metric to make such judgement.

> 

restart;
> 

year := [1850,1860,1870,1880,1890,1900,1910,1920,1930,1940,
         1950,1960,1970,1980,1990,2000,2010]:
> 

population :=[4668,9070,17375,27985,37249,63786,115693,
              186667,359328,528961,806701,1243158,1741912,
              2049527,2818199,3400578,4092459]:
> 

sol:=Statistics:-ExponentialFit(year, population, x);

                                     -31                          
           sol := 1.08291520188752 10    exp(0.0433611679840687 x)

> 

plots:-display(plot(sol,x=year[1]..year[-1]),
               plot(<<year>|<population>>,style=point));

> 

W := map(y->abs(1850-y)^3,year):
> 

solW:=Statistics:-ExponentialFit(year, population, x, weights=W);

                                     -22                          
          solW := 6.74209319468292 10    exp(0.0319134519471405 x)

> 

plots:-display(plot(solW,x=year[1]..year[-1]),
               plot(<<year>|<population>>,style=point));

> 

 

Download expfit.mw

acer

from your duplicate post...

acer 32385
March 15 2016
0 0

Using the same code as I did in your duplicate post:


> 

restart;
> 

eq := (-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]+((-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*cos(th(t))+(-cos(p(t)+g(t))*cos(a(t))+sin(a(t))*sin(b(t))*sin(p(t)+g(t)))*sin(th(t)))*l3[1]+(-sin(a(t))*sin(g(t))*sin(b(t))+cos(a(t))*cos(g(t)))*xb[1]+sin(a(t))*cos(b(t))*yb[1]+(sin(a(t))*sin(b(t))*cos(g(t))+cos(a(t))*sin(g(t)))*zb[1]+x(t)-xp(t) = 0;

(-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]+((-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*cos(th(t))+(-cos(p(t)+g(t))*cos(a(t))+sin(a(t))*sin(b(t))*sin(p(t)+g(t)))*sin(th(t)))*l3[1]+(-sin(a(t))*sin(g(t))*sin(b(t))+cos(a(t))*cos(g(t)))*xb[1]+sin(a(t))*cos(b(t))*yb[1]+(sin(a(t))*sin(b(t))*cos(g(t))+cos(a(t))*sin(g(t)))*zb[1]+x(t)-xp(t) = 0

> 

length(eq), MmaTranslator:-Mma:-LeafCount(eq), `simplify/size/size`(eq);

780, 148, 321

> 

ans1 := collect(expand(eq), [l2[1],l3[1]],
                u->simplify(frontend(combine, [u],
                                     [{`+`,`*`},
                                      {seq('cos(x(t)),sin(x(t))',x=[p,g,th])}]),
                            size));

(-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]+(-cos(a(t))*sin(g(t)+th(t)+p(t))-sin(b(t))*sin(a(t))*cos(g(t)+th(t)+p(t)))*l3[1]+(cos(g(t))*sin(b(t))*zb[1]-sin(b(t))*sin(g(t))*xb[1]+yb[1]*cos(b(t)))*sin(a(t))+(cos(g(t))*xb[1]+sin(g(t))*zb[1])*cos(a(t))+x(t)-xp(t) = 0

> 

length(ans1), MmaTranslator:-Mma:-LeafCount(ans1), `simplify/size/size`(ans1);

590, 111, 250

> 

ans2 := simplify(frontend(combine, [expand(eq)],
                          [{`+`,`*`},
                           {seq('cos(x(t)),sin(x(t))',x=[p,g,th])}]),
                 size);

-l3[1]*sin(b(t))*sin(a(t))*cos(g(t)+th(t)+p(t))-l3[1]*cos(a(t))*sin(g(t)+th(t)+p(t))-l2[1]*sin(b(t))*sin(a(t))*cos(p(t)+g(t))-l2[1]*cos(a(t))*sin(p(t)+g(t))+((zb[1]*cos(g(t))-sin(g(t))*xb[1])*sin(b(t))+yb[1]*cos(b(t)))*sin(a(t))+(cos(g(t))*xb[1]+sin(g(t))*zb[1])*cos(a(t))-xp(t)+x(t) = 0

> 

length(ans2), MmaTranslator:-Mma:-LeafCount(ans2), `simplify/size/size`(ans2);

586, 108, 241

> 

simplify(eq - ans1), simplify(eq - ans2);

0 = 0, 0 = 0

> 

 


Download tringsimpv.mw

acer

partial combination...

acer 32385
March 15 2016
1 3

The "shortest" result may be one in which only some of the trig terms are allowed to be combined.

If you know which ones you want to be allowed to be combined then you can just frontend a call to combine, and then simplift wrt size or collect wrt l2,l3, etc. That's what I'll do below.

There is slightly smaller result (in some metrics, and I illustrate using several) if you do not collect wrt l2[1] and l3[1]. But perhaps that collection is a requirement for you.

> 

restart;
> 

eq := (-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]
      +((-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*cos(th(t))
      +(-cos(p(t)+g(t))*cos(a(t))+sin(a(t))*sin(b(t))*sin(p(t)+g(t)))*sin(th(t)))*l3[1]=0;

(-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]+((-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*cos(th(t))+(-cos(p(t)+g(t))*cos(a(t))+sin(a(t))*sin(b(t))*sin(p(t)+g(t)))*sin(th(t)))*l3[1] = 0

> 

length(eq), MmaTranslator:-Mma:-LeafCount(eq), `simplify/size/size`(eq);

474, 93, 208

> 

ans1 := collect(expand(eq), [l2[1],l3[1]],
                u->simplify(frontend(combine, [u],
                                     [{`+`,`*`},
                                      {seq('cos(x(t)),sin(x(t))',x=[p,g,th])}]),
                            size));

(-sin(p(t)+g(t))*cos(a(t))-sin(b(t))*sin(a(t))*cos(p(t)+g(t)))*l2[1]+(-cos(a(t))*sin(g(t)+th(t)+p(t))-sin(b(t))*sin(a(t))*cos(g(t)+th(t)+p(t)))*l3[1] = 0

> 

length(ans1), MmaTranslator:-Mma:-LeafCount(ans1), `simplify/size/size`(ans1);

316, 63, 126

> 

ans2 := simplify(frontend(combine, [expand(eq)],
                          [{`+`,`*`},
                           {seq('cos(x(t)),sin(x(t))',x=[p,g,th])}]),
                 size);

-l2[1]*sin(b(t))*sin(a(t))*cos(p(t)+g(t))-l3[1]*sin(b(t))*sin(a(t))*cos(g(t)+th(t)+p(t))-l2[1]*cos(a(t))*sin(p(t)+g(t))-l3[1]*cos(a(t))*sin(g(t)+th(t)+p(t)) = 0

> 

length(ans2), MmaTranslator:-Mma:-LeafCount(ans2), `simplify/size/size`(ans2);

322, 61, 110

> 

simplify(eq - ans1), simplify(eq - ans2);

0 = 0, 0 = 0

Download tringsimpvi.mw

I have some code which does brute force walks through all the possible subsets of combine-allowable trig terms, looking for the smallest result. It gets really slow as the number of total terms to consider grows. I won't show it here.

acer

suggestions...

acer 32385
March 15 2016
1 4

It is not too difficult to get about 9 correct decimal digits in under 1 second (using my 64bit Maple 2015.2 on an Intel i5).


> 

restart:
with(LinearAlgebra):
with(Student[Calculus1]):
with(Student[NumericalAnalysis]):
with(IntegrationTools):
Digits:=32:

expr1:=1.5079645854807043742178700098560*10^(-32)*(0.703928602207493123712018257534982e-1*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.153681697305589455792786340376371e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.21215805652148081035659561370764e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.391890622683170508162558590750884e-1*LaguerreL(7, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.21215805652148081035659561370764e-5*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.51780028688051577924381426481956e-4*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.313411419152266856083419307738512e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.51780028688051577924381426481956e-4*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.70058065079770184014857603639648e-4*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.931508341637951867146192944533839e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.70058065079770184014857603639648e-4*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.344160843244010230129843249781787e-1*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.313411419152266856083419307738512e-1*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.186741934394862061968630465453476e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.260143980835288030839322599392467e-1*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.186741934394862061968630465453476e-2*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.387874061613294536007837206389555e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.106725512484041674409976279540022e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.13652930265860752187032255834482e-1*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.98649867435072842258121003623350e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.40393429277928642278149134144779e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.32730910563603896784050122488468e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.291243558268893057254440697305712e-3*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.277468490869606549055994581448477e-2*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.37253209867717173750371985245120e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.316657957789026903894567092552766e-2*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.233669894461154525683484155034546e-1*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.29286701608686093045895491363904e-4*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.11515472116642888985606746228044e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.291243558268893057254440697305712e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.263407709215884310829544248650782e-3*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.47143736160895254956853952015393e-4*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.586942162528253353861844495928338e-1*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.435559343878598352055209120339748e-2*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.71832445869781870483124784147018e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.20018296716392718447728145882492e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.37253209867717173750371985245120e-4*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.244883317630775965054422033654211e-3*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.654697505797079148629828821509445e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.838107100219796012151873121720885e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.16456169970126907323860927592352e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.767596299226071214827999590759978e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.21191336006634231252486052314880e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.16456169970126907323860927592352e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.102095204447079256616757914669463e-1*LaguerreL(8, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.123541450043073362664804558754503e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.124646024441877245934278817175399e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(7, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.58797603048424375370001755620737e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.391890622683170508162558590750884e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(7, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.277468490869606549055994581448477e-2*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+5.6407446548998493902422333838184*10^(-7)*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+1.1287080966465758341989960291285*10^(-7)*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(8, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-2.5177488541853327095599705443212*10^(-7)*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(7, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-2.5177488541853327095599705443212*10^(-7)*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(7, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+5.6407446548998493902422333838184*10^(-7)*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.457238681803272350394972137346898e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-.208344163732985387190867689671453*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.838107100219796012151873121720885e-2*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+5.4146824681424297656429025152707*10^(-7)*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(7, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.518694956368721266762234380924594e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.106261821386251336104278677006759e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.36460905395655618208925013424650e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.376286576135240750566070092546973e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(7, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.657500830040963889426389734938525e-2*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.503289579643568072763591428412297e-2*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.503289579643568072763591428412297e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.199530242287504695207462703641301e-3*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.111219797149699333407152308278135e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.437430791165850209750985794363691e-2*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.768086172296031182953646279461179e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.123195667721157133294792917792191e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.586942162528253353861844495928338e-1*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.344160843244010230129843249781787e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.123195667721157133294792917792191e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.123541450043073362664804558754503e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-.169148507098940255431661608561556*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.654697505797079148629828821509445e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.21191336006634231252486052314880e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.494273007895016101746988372006016e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-.169148507098940255431661608561556*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.931508341637951867146192944533839e-3*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-.157242061584495790155625527487896*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.244883317630775965054422033654211e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.26867286762937695320927900329067e-4*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.137031645026510112811351224457371e-1*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.45907804611928948412285856585806e-4*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.11515472116642888985606746228044e-4*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.316657957789026903894567092552766e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.98649867435072842258121003623350e-5*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.589291984026714476412753906791973e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.767596299226071214827999590759978e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.39549281918631423237990990435790e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.100552270228740722184226541038094e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.100552270228740722184226541038094e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-.208344163732985387190867689671453*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.199530242287504695207462703641301e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.39549281918631423237990990435790e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.106261821386251336104278677006759e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.133742760217795150368332821291805e-1*LaguerreL(6, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.28388016463825430076467120390346e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.102095204447079256616757914669463e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(8, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.768086172296031182953646279461179e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.25803018301491435030639025090003e-4*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.25803018301491435030639025090003e-4*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.402315382471093440823077502020556e-1*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.29390558363339022034646077163414e-4*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.657500830040963889426389734938525e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.400169660191760482521678985797621e-1*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.29390558363339022034646077163414e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.87560806159588056135535087629228e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.435559343878598352055209120339748e-2*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.400169660191760482521678985797621e-1*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.97281449531543885132157683827979e-5*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.97281449531543885132157683827979e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.40393429277928642278149134144779e-4*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.47143736160895254956853952015393e-4*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.376286576135240750566070092546973e-2*LaguerreL(7, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.263407709215884310829544248650782e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.260143980835288030839322599392467e-1*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.233669894461154525683484155034546e-1*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.238526987362671476072503928045431e-3*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.13652930265860752187032255834482e-1*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.29286701608686093045895491363904e-4*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.36460905395655618208925013424650e-5*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(6, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.45907804611928948412285856585806e-4*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.106725512484041674409976279540022e-2*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.387874061613294536007837206389555e-1*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+.184472141555314237392820025176479*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.930382411180137091811313861591681e-1*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.930382411180137091811313861591681e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.199073350935881871383626215995144e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.437430791165850209750985794363691e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.525984383618795559730580570825853e-2*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.703928602207493123712018257534982e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.981230001214103273152448228683339e-1*LaguerreL(5, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.981230001214103273152448228683339e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(5, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+.157219177126629956509947241424724*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.258318885783445665525101270689483e-2*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.258318885783445665525101270689483e-2*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.696507841445400253203220309729692e-3*LaguerreL(4, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+.157219177126629956509947241424724*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+.184472141555314237392820025176479*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.696507841445400253203220309729692e-3*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(4, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.518694956368721266762234380924594e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.28388016463825430076467120390346e-1*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.55043612844670882714391146829813e-5*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.457238681803272350394972137346898e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.121472574852021043494560130498513e-3*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.525984383618795559730580570825853e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.55043612844670882714391146829813e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.470363380495626159446087684489996e-3*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(2, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.30317391875254706878480113447580e-4*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.12317683017764768707890268507864e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.223539050578863837088147737554181e-2*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.223539050578863837088147737554181e-2*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.133742760217795150368332821291805e-1*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(6, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.124646024441877245934278817175399e-1*LaguerreL(7, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.25938291864391639374363194026939e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(3, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))-0.834101393504772023858509062526214e-1*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(0, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.33791232896680474967084353756863e-4*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.33791232896680474967084353756863e-4*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(4, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.634911376053429993917314307918558e-2*LaguerreL(2, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(2, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.682149512039445586033012549030187e-2*LaguerreL(3, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(1, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.682149512039445586033012549030187e-2*LaguerreL(1, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(3, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(1, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2))+0.54080275808092416317543801168991e-5*LaguerreL(0, 4.02341217155910653242221082718544*r2+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-8.0446343170894053758449857104985*r2*t-8.0446343170894053758449857104985)*LaguerreL(0, 8.0446343170894053758449857104985*r2*t+8.0446343170894053758449857104985+4.8280949636885638667721853083600*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-4.02341217155910653242221082718544*r2)*LaguerreL(5, 1.45914849589304508427400147271161*r2+2.9175027472370254759881486222105*r2*t+2.9175027472370254759881486222105-1.7509783248393843637092160706980*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)))^2*(exp(-.7295742479465225421370007363558*r2-3.9526058012688716849175772730110*10^(-33)*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)-1.4587513736185127379940743111053*r2*t-1.4587513736185127379940743111053))^2*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)*r2*sqrt(2.7777775719123411344533011625670*10^66-3.7820620906491654902812682940908*10^62*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+3.7800034364353023263307641062080*10^62*r2^2)/sqrt(.24999998147211070210079710463104-0.34038558815842489412531414646819e-4*(1.9994556794244724285271525910301*r2*t+1.9994556794244724285271525910301)^2+0.34020030927917720936976876955873e-4*r2^2):

expr1:=expand(%):

a1:=2000/4001:
a2:=2000/4001:
a3:=1/4001:
> 

eee:=(expr1*r2)/(a2+a3):

#
# The integrand can be simplified, and while that might help with the execution time
# it will not necessarily help accuracy or roundoff issues. Using `simplify` with no
# options may even hurt, wrt to roundoff issues.
#
# Using `simplify(...,size)` is both faster than just `simplify(...)` and produces
# less of the very large and very small exponents on the coeffcients, which is likely
# better for not introducing even more roundoff issues.
#
# But the faster methodologies of using operator form for both inner and outer integral
# (alongside a balanced approach of relaxing the outer tolerance while the inner
# tolerance is only as fine as needed for the outer integartion to succeed quickly) are
# so quicky that even the cost of `simplify(...)` size is too much. That aspect may
# well differ, for other examples.
#
# To try and get fair timing results I use the `forget` command to try and wipe
# out previous stored results from internal procedure's remember-tables.
#
> 

#
# I suepect that the result computed in this next way is actually accurate to about 17-18
# decimal digits. You may be able to assess the degree to which the other methods' result
# below it are satisfactory, based on this.
#
forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(eee,size)):
Digits:=32;
CodeTools:-Usage(evalf(Int(R2->evalf(eval(Int('unapply'(igrand,t),-a2..a2,epsilon=1e-20),r2=R2)),0..1/a2,epsilon=1e-18))): evalf[18](%);
Digits:=32:

memory used=129.03MiB, alloc change=32.00MiB, cpu time=928.00ms, real time=901.00ms, gc time=104.00ms

32

memory used=4.33GiB, alloc change=40.00MiB, cpu time=17.58s, real time=16.40s, gc time=2.60s

.266839777232154332

> 

#
# If you only need about 9-10 correct decimal digits, which is pretty much all that
# `Quadrature` was giving you, then this first approach is far the fastest.
#
forget(evalf); forget(simplify); forget(`evalf/int`);
Digits:=15;
igrand:=eee:
CodeTools:-Usage(evalf(Int(R2->evalf(eval(Int('unapply'(igrand,t),-a2..a2,epsilon=1e-11),r2=R2)),0..1/a2,epsilon=1e-9))): evalf[9](%);
Digits:=32;

15

memory used=42.51MiB, alloc change=0 bytes, cpu time=236.00ms, real time=219.00ms, gc time=40.00ms

.266839777

32

> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(eee,size)):
Digits:=15;
CodeTools:-Usage(evalf(Int(R2->evalf(eval(Int('unapply'(igrand,t),-a2..a2,epsilon=1e-11),r2=R2)),0..1/a2,epsilon=1e-9))): evalf[10](%);
Digits:=32:

memory used=124.96MiB, alloc change=0 bytes, cpu time=848.00ms, real time=817.00ms, gc time=80.00ms

15

memory used=6.57MiB, alloc change=0 bytes, cpu time=60.00ms, real time=61.00ms, gc time=0ns

.2668397772

> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=eee: #CodeTools:-Usage(simplify(eee,size)):
Digits:=15;
CodeTools:-Usage(evalf(Int(R2->evalf(eval(Int('unapply'(igrand,t),-a2..a2,digits=15,epsilon=1e-13),r2=R2)),0..1/a2,digits=16,epsilon=1e-11))): evalf[12](%);
Digits:=32;

15

memory used=97.00MiB, alloc change=0 bytes, cpu time=512.00ms, real time=493.00ms, gc time=40.00ms

.266839777231

32

> 

#
# None of the methods below get more than about 10-11 accurate decimal digits.
# So, overall, they are slower and not more accurate.
#
partitions:=35:
methods:=boole:
> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(eee)):
CodeTools:-Usage(Quadrature(Quadrature(igrand,t=-a2..a2,partition=partitions,method=methods),r2=0..1/a2,partition=partitions,method=methods));

memory used=71.17MiB, alloc change=0 bytes, cpu time=396.00ms, real time=382.00ms, gc time=36.00ms

memory used=1.95GiB, alloc change=0 bytes, cpu time=7.81s, real time=7.36s, gc time=952.00ms

.26683977722550432669157299502267

> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(simplify(combine(eee)),size) assuming r2>0, r2<1/a2, t>-a2, t<a2):
CodeTools:-Usage(Quadrature(Quadrature(igrand,t=-a2..a2,partition=partitions,method=methods),r2=0..1/a2,partition=partitions,method=methods));

memory used=251.78MiB, alloc change=0 bytes, cpu time=1.68s, real time=1.65s, gc time=216.00ms

memory used=1.09GiB, alloc change=0 bytes, cpu time=4.49s, real time=4.17s, gc time=708.00ms

.26683977722550432669157299399631

> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(eee,size)):
CodeTools:-Usage(Quadrature(Quadrature(igrand,t=-a2..a2,partition=partitions,method=methods),r2=0..1/a2,partition=partitions,method=methods));

memory used=124.87MiB, alloc change=0 bytes, cpu time=876.00ms, real time=835.00ms, gc time=88.00ms

memory used=1.23GiB, alloc change=0 bytes, cpu time=5.26s, real time=4.90s, gc time=784.00ms

.26683977722550432669157299399644

> 

forget(evalf); forget(simplify); forget(`evalf/int`);
igrand:=CodeTools:-Usage(simplify(eee,size)):
Digits:=15;
CodeTools:-Usage(Quadrature(Quadrature(igrand,t=-a2..a2,partition=partitions,method=methods),r2=0..1/a2,partition=partitions,method=methods));
Digits:=32;

memory used=124.92MiB, alloc change=0 bytes, cpu time=872.00ms, real time=836.00ms, gc time=84.00ms

15

memory used=0.84GiB, alloc change=0 bytes, cpu time=3.32s, real time=3.13s, gc time=420.00ms

.266839777252115

32

> 

 


Download L_sum_int_2.mw

First 211 212 213 214 215 216 217 Last Page 213 of 336