Compute100,000---16
In[]:=
​​g[x_]=x^(1/x);t=(Timing[test=-(INIntegrate[(g[(1+tI)])(Exp[-Pit]),{t,0,Infinity},WorkingPrecision100000,Method"Trapezoidal",MaxRecursion16]+I/Pi)])[[1]];Print["Timing for calculation=",t]
NIntegrate
:NIntegrate failed to converge to prescribed accuracy after 16 iterated refinements in t in the region {{0,∞}}. NIntegrate obtained 100010+100011 and 100017 for the integral and error estimates.
Timing for calculation=1.50238×
6
10
Finished sometime between May 6, 2021 10:00 pm and May 7, 2021 8:21 am EST
"Timing for calculation="1.502377625`*^6
In[]:=
1502377.625/3600
Out[]=
417.327
In[]:=
test
Out[]=