In[]:=
In[]:=
job=RemoteBatchSubmit[​​"WolframBatch",​​​​prec=1000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])],​​​​RemoteProviderSettings-><|"RemoteMachineClass"->"Memory192x1536"|>]
Out[]=
RemoteBatchJobObject
Provider:
Wolfram Batch »
 Job type: Single
Job UUID: abc9efdd-b091-436d-981a-f54eb6b06171
Input: prec = 1000; Quiet[AbsoluteTiming[cc = Plus[…]]]
Submitted at: Fri 19 Jun 2026 12:49:20 GMT-4
Geozone: UnitedStates

In[]:=
job["JobStatus"]
Out[]=
Queued
In[]:=
job["JobStatus"]
Out[]=
Queued
In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["EvaluationResult"][[1]]
Out[]=
2.31076
In[]:=
ReMBK200k-Re[job["EvaluationResult"][[2]]]
Out[]=
0.×
-1001
10
​​​​
In[]:=
prec=2000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])][[1]]
Out[]=
65.3768
In[]:=
job=RemoteBatchSubmit[​​"WolframBatch",​​​​prec=2000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])],​​​​RemoteProviderSettings-><|"RemoteMachineClass"->"Memory192x1536"|>]
Out[]=
RemoteBatchJobObject
Provider:
Wolfram Batch »
 Job type: Single
Job UUID: 8f87b546-3064-4393-8062-b91c11e8aad8
Input: prec = 2000; Quiet[AbsoluteTiming[cc = Plus[…]]]
Submitted at: Fri 19 Jun 2026 13:22:01 GMT-4
Geozone: UnitedStates

In[]:=
job["JobStatus"]
Out[]=
Queued
In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["EvaluationResult"][[1]]
Out[]=
14.0327
In[]:=
ReMBK200k-Re[job["EvaluationResult"][[2]]]
Out[]=
0.×
-2001
10
​​​​​​
In[]:=
job=RemoteBatchSubmit[​​"WolframBatch",​​​​prec=3000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])],​​​​RemoteProviderSettings-><|"RemoteMachineClass"->"Memory192x1536"|>]
Out[]=
RemoteBatchJobObject
Provider:
Wolfram Batch »
 Job type: Single
Job UUID: 22fcdb9d-c746-4b1c-8db6-be244dcbd960
Input: prec = 3000; Quiet[AbsoluteTiming[cc = Plus[…]]]
Submitted at: Fri 19 Jun 2026 14:59:59 GMT-4
Geozone: UnitedStates

In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["JobStatus"]
Out[]=
Succeeded
In[]:=
job["EvaluationResult"][[1]]
Out[]=
58.7291
In[]:=
ReMBK200k-Re[job["EvaluationResult"][[2]]]
Out[]=
0.×
-3001
10
​​​​​​
In[]:=
job=RemoteBatchSubmit[​​"WolframBatch",​​​​prec=4000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])],​​​​RemoteProviderSettings-><|"RemoteMachineClass"->"Memory192x1536"|>]
Out[]=
RemoteBatchJobObject
Provider:
Wolfram Batch »
 Job type: Single
Job UUID: 63eb7d94-8d9a-488e-bc32-a09dd4b9a80f
Input: prec = 4000; Quiet[AbsoluteTiming[cc = Plus[…]]]
Submitted at: Fri 19 Jun 2026 15:13:12 GMT-4
Geozone: UnitedStates

In[]:=
job["JobStatus"]
Out[]=
Queued
In[]:=
job["JobStatus"]
Out[]=
Running
In[]:=
job["JobStatus"]​​
Out[]=
Succeeded
In[]:=
job["EvaluationResult"][[1]]
Out[]=
100.991
In[]:=
ReMBK200k-Re[job["EvaluationResult"][[2]]]
Out[]=
0.×
-4001
10
​​​​​​
In[]:=
job=RemoteBatchSubmit[​​"WolframBatch",​​​​prec=5000;Quiet[(AbsoluteTiming[(cc=NIntegrate[(Exp[Log[t]/t-Pit/I]),{t,1,InfinityI},WorkingPrecisionprec,Method"Trapezoidal",MaxRecursionFloor[Log[prec]/Log[2]]]-I/Pi)])],​​​​RemoteProviderSettings-><|"RemoteMachineClass"->"Memory192x1536"|>]