In[]:=
ClearSystemCache[];prec=1000;g[x_]:=N[Log[x]/x,prec];Timing[MKB--(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal"]+I/Pi)]
Out[]=
{0.75,0.×+0.×}
-1001
10
-1001
10
In[]:=
ClearSystemCache[];prec=2000;g[x_]:=N[Log[x]/x,prec];Timing[MKB--(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion10])+1/PiI]
Out[]=
{4.75,0.×+0.×}
-2001
10
-2001
10
In[]:=
ClearSystemCache[];prec=3000;g[x_]:=N[Log[x]/x,prec];Timing[MKB--(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion11]+1/PiI)]
Out[]=
{25.3594,0.×+0.×}
-3001
10
-3001
10
In[]:=
ClearSystemCache[];prec=4000;g[x_]:=N[Log[x]/x,prec];Timing[MKB--(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion11]+1/PiI)]
Out[]=
{46.2656,0.×+0.×}
-4001
10
-4001
10
In[]:=
ClearSystemCache[];prec=5000;g[x_]:=N[Log[x]/x,prec];Timing[MKB--(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion12]+I/Pi)]
Out[]=
{149.172,0.×+0.×}
-5001
10
-5001
10
In[]:=
ClearSystemCache[];prec=10000;g[x_]:=N[Log[x]/x,prec];Timing[MKB+(INIntegrate[Exp[-Pit+g[1+tI]],{t,0,Infinity},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursion13]+I/Pi)]
Out[]=
{1562.03,0.×+0.×}
-10001
10
-10001
10