Although
In[]:=
g[x_]=x^(1/x);(N[Quiet[NIntegrate[Exp[IPit]g[t],{t,1,1Infinity},WorkingPrecision100]],50]-I/Pi)
Out[]=
0.07077603931152880353952802183028200136575469620336-0.68400038943793212918274445999266112671099148265500
In[]:=
g[x_]=x^(1/x);(N[Quiet[NIntegrate[Exp[IPit]g[t],{t,1,1Infinity},WorkingPrecision500]]]-I/Pi)
Out[]=
-1.473068630344322×+0``-463.65698344940665
496
10
In[]:=
g[x_]=x^(1/x);N[Quiet[NIntegrate[Exp[IPit]g[t],{t,1,1Infinity},WorkingPrecision500,Method"DoubleExponential",MaxRecursion10]]]
Out[]=
1.2026256318742618×+5.33736156887517×
499
10
497
10
is too slow and unreliable, and
In[]:=
g[x_]=x^(1/x);Timing[y=(Quiet[NIntegrate[Cos[Pit]g[t],{t,1,1Infinity},WorkingPrecision2000]])+(Quiet[NIntegrate[ISin[Pit]g[t],{t,1,1Infinity},WorkingPrecision2000]]-I/Pi)][[1]]
Out[]=
80.7184
In[]:=
g[x_]=x^(1/x);Timing[N[y-(Quiet[NIntegrate[Cos[Pit]g[t],{t,1,1Infinity},WorkingPrecision1000]])+(Quiet[NIntegrate[ISin[Pit]g[t],{t,1,1Infinity},WorkingPrecision1000]]-I/Pi)]]
Out[]=
{16.2591,0``-963.0301309846731+1.365324088868103×}
979
10
is only a little better,
I have found the following.
I have found the following.
In[]:=
g[x_]=x^(1/x);Timing[MKB=(-IQuiet[NIntegrate[(g[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecision2000,Method"Trapezoidal",MaxRecursion10]]-I/Pi)][[1]]
Out[]=
32.5625
In[]:=
g[x_]=x^(1/x);u:=(t/(1-t));Timing[MKB-(-IQuiet[NIntegrate[(g[(1+uI)])/(Exp[Piu](1-t)^2),{t,0,1},WorkingPrecision2000,Method"DoubleExponential",MaxRecursion10]]-I/Pi)]
Out[]=
{35.375,-1.4980262813963825516787985351858163551567488941718508155818810458517305975044213090883554825906736353251316452646592801626829472775363572426830560560715357520879183375097592593727502660882544871094027161740991777830632670765490580493950880203742770696274803637773314728915445875498465421690399568427247289723005113922832609175707150491895158137613021196394964994686351637893261059831852132016065155410482581078707264255542507228996721363727943006199692421119143416670233134535101421952618397253206405801058273596735223730859148485499347455647122105659623158307606736417309238486981286059726411052267214631390527491273670677449862095628636950933518974206096241346680984066428522914834697938877995434918598370717991852101723741677419381743590058339917258726969123555742738020101180277363992784213521962599878349712761620432285232200291169853527043426979134171365263810637483562943463433900736929992256957595373943092484718478389206748898942419808026425950025361053729131339952984738985703246554603580563315213029130195485561743836274765701530801612354095292797404146997151751370377216934867800516405455582525735867827509305218503548381654752909715483685381681825205745335818034105117662765921527923469121919767576967291074500923025255871195639216198453741337598524971194309774760482330199399823007442283932903313017125280938399169922068436017918132831200095087431301053776513700313444955496042687160720987370409384193029604628528754525321688291492715256454811281769531418570367525349896369548718194362978981799289982642618082146238360048339512177879018740147907454918506366345413778309493063642210981332488713507488016145691676835756334800675565415996191763560029027195524365808845456130229981984494317779117543494118227365338169262001284729287617573304409281411888477832858526457861785046523447446710678530117886805273845760973756642009020735780033330252842429611967569071732028413105245711828968637630802644232931765435483171684565744643572948238275969919620027055971715720155685043823831603320191896×+9.8161987971734297164379025146093398823558175523681106261192709268619587309700788030429292102272735612103668949804218008724435163906534822560286302268348236658503843242371948233760952274950910542328360278857996246766754043860907183017452786310028781548673877210554825818828414136812272064246700072047235454933692078774228880569997436038114302459869280170546391429541832731485049598044315152255628282742304845672780417361394830790436089794526724831314419215879240564056302862862986901317881702436769519936700073697115783436602857426954447702906138638125744267511721622714818944773674393713214757605217280029649353033350198423675972213498248003246595437838005410841606410881391990567723497642488921769034769211035740447961626261006815098675386892100065579842558609905228394245382472727431284255979256559922091926242453807215791963191079015732943339944158476872874150371772625329100131869634213392321389586148250482729691272277258460283243341653915444229262477216305506231810261762142498309176505799619377963344691635038243930775064323451024323076449223843882427349003949450627238997499800677704072407488011480248638065713026466385128659360040515929280760811142926566339941339349947789812720841205702569625849681412711624888821021631976512232762394897177856712191904164972430728528706642594660895894902084419125911597143071470634598125138141205878885086284433425056949250736436374521931332244937818150115328659565773084864157110692150453396389858370233382237929850295459021332426402703765399656444279272837994059732975319007858659259379306258367630658445140372484798081254968108697479852924183917621614350464966884650053977411650756553492044902818748285538037979234750386265225139704002153671797606270893682234022899044916636143110634403174979762575931095817358311428443123115309428333598784434928694305699594582893928580353943340443071423431494286094028687821756774040911845965006853110843848208369880483414612724699309165115386337971653118485902273810568633070729444355934733309850463224656534803922283×}
-2017
10
-2003
10
In[]:=
g[x_]=x^(1/x);Timing[MKB-(Quiet[NIntegrate[1/Pi(g'[(1+tI)])/(Exp[Pit]),{t,0,Infinity},WorkingPrecision2000,Method"Trapezoidal",MaxRecursion10]]-2I/Pi)]
Out[]=
{43.4688,5.6754990793391038886541128894920968314325995050448796924215443849602709612994391579209322991295819182521522359880783385996053311344640704261736494941786161829207087663510831939656623937255399818606179748277720524981788880652440764213045824710653773010995567054089730256176449120575511444142030533372449008209972117429010301323091079271270305489897217391492759565706558268727461597559101960454926106893858221594032520252032374603474151556344695281571625392879044070141609093204010461362516453563449519996400859954808732489918710071167223628141271885858103196908585449898369243415177110217940711652527381666210191306131283449384969522664252421630637677871078855883538880084751327841439215050164560297635943096677500834201213044505628003317583943810935144893541429652781922328046262575954109642585350476584219561275291031550697723637622062572846382077670463363030200753922697473538505356914249761252090552600034572083192365684319749091377960286134065037125496004936757364475599758818821658739263915589390847496002028077010998994044475260444708587981162682287442534398153489448982869355405564716033689717666024016047069266666504542693006593113036747308192369142431549317976722162410558434970390272949650304396644985380142479649743339219939941999776812322323651402006501300997696443272136965110406726342097620838738455911031688122271701078062067925047015558408088840573187118519746758098476695860611233319084798614155477874597378953178344017636875532987251491578956717327784291244577697771367053953899812631035358537704494102899075609589876515859186235295073938727448774292585840330276949401023484814991466786200096713556541073407990128665232995937651606243563386279336190362268762412576641720736128361312648526848957336530394869292388412731060956094746081262789852540459753833872490999539162718771117294569428691596646926940644342752889471297581596554643450351076590553619738614598676362707161217196666112091046658084498266270080979070565943408145128084356242472341852433946620848771551362351251771274439×+1.3496423209555042990835967830555837059640179358030824470643453969538370845481389159770124867444386862845724435259199072160674141578138836732334782463989060171966933376203818109815751004468377293117463403053149442761883591713496651451358488026689845283843290934866790381615804141545188660521221948886572035661502974646269425728970505109640581300555257336244818991796554942977982064736437039302275842805730367462008732560964460684207545838073389069368580412627017292305554999046612743233124024976229003141184182351953369997425169486973470863451908505153154084267360785733855979529187616583923577940963492210918860340783878405811909000270698876310343761636498295709614756257055026309535651618185306630298874610734776568128445408347476877436765235699078519411659381252481549411274480823255244417611658438825810735082615225902605515911121488422197009071996854927785061557153411949880059399390792763964604690357070601915223870769258036386007993605727702952745155401585623708400030759744469617943937763550887896931386711422060632432100322068339389973784438317731582173678367791784728028820526187910216349199712075549542892034366880169209771005128935854504676596826966338092435275590532833914626041581483786227557938973902319217289514767083660703878186476856852943184518565706549322102238105458387279113242747724010064410681310907562327469634752146054795517763696747942379027919625471006826575018129350207145831914464512652801589670012161776704570571205614877524125967957576453719962174121023462647832252932622252362968307420891545211114929076266299993640318535694633299944640824250195422163141477036870341995607590487214910462384964145709282776314032992773098622525488739728294562602831389211860845302221607640704878840046432301827143634483324609037669949171137892825445018863831466978525429708984528406571115314662521482000879375169369155837004867190133252397636774457808310493674281422456018001443253133434610332894465691938351204530061155350746808156276063889665379174648661540966776150692622490133698483×}
-2004
10
-2002
10