In[]:=
prec=1309;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion9]+I/Pi)][[1]];Print[t," ",N[test-p,10]];
1.6875 0.×+2.×
-1310
10
-1309
10
In[]:=
prec=2410;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion10]+I/Pi)][[1]];Print[t," ",N[test-p,10]];
11.5156 1.×+1.03×
-2410
10
-2408
10
In[]:=
prec=4453;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion10]+I/Pi)][[1]];Print[t," ",N[test-p,11]];
36.5938 1.201996625×+1.02559174314×
-2410
10
-2408
10
In[]:=
prec=4453;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion10]+I/Pi)][[1]];Print[t," ",N[test-p,11]];
33.0156 1.201996625×+1.02559174314×
-2410
10
-2408
10
In[]:=
prec=8275;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion12]+I/Pi)][[1]];Print[t," ",N[test-p,11]];
413.641 0.×+8.×
-8276
10
-8275
10
In[]:=
prec=15442;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion13]+I/Pi)][[1]];Print[t," ",N[test-p,11]];
3118.42 0.×+1.×
-15443
10
-15442
10
In[]:=
prec=28932;g[x_]=N[x^(1/x),prec];t=Timing[p=-(INIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion14]+I/Pi)][[1]];Print[t," ",N[test-p,11]];
16020.4 -2.×-1.8333×
-28932
10
-28928
10
MaxRecursionguidemaxdigitsM.R.1309default2410104453118275121544213289321454286151026001619391417