In[]:=
PlotRe[DawsonF[
128
x+I]],x,1`27+
1/15
,2
Out[]=
1.3
1.4
1.5
1.6
1.7
1.8
1.9
2.0
0.024
0.026
0.028
0.030
0.032
0.034
In[]:=
PlotRe[DawsonF[
128
x+I]],x,1`28+
1/15
,2
Out[]=
$Aborted
In[]:=
PlotRe[DawsonF[
128
x+I]],x,1`28+
1/15
,2,PlotPoints3,MaxRecursion->0
Out[]=
$Aborted
In[]:=
TableRe[DawsonF[
128
x+I]],x,1`32+
1/15
,2,1-
1/15
3-10^-32
Out[]=
{0.035037197317615405024231721585,0.029304776370333297417123637203,0.025182170311231911855981629154,0.022075401883116922884490398027}
In[]:=
Module{ff,x},​​ff=Function[{x},Module[{res},​​Print["x= ",x," arg=",
128
x+I];​​Print["27: ",DawsonF[N[
128
x+I,27]]];​​Print["28: ",DawsonF[N[
128
x+I,28]]];​​Print["29: ",DawsonF[N[
128
x+I,29]]];​​Print["30: ",DawsonF[N[
128
x+I,30]]];​​Print["31: ",DawsonF[N[
128
x+I,31]]];​​Print["32: ",DawsonF[N[
128
x+I,32]]];​​Re[DawsonF[
128
x+I]]]];​​Print[ff[1`32+
1/15
]];​​PrintTableff[x],x,1`32+
1/15
,2,1-
1/15
3;​​Print["---------------------"];​​Plotff[x],x,1`28+
1/15
,2,PlotPoints3,MaxRecursion->0
x= 1.2581988897471611256786176933188 arg=14.234895472345646328850681968615+
27: 0.0350371973176154050242317-0.0024735968523953825730733
28: 0.03503719731761540502423172-0.00247359685239538257307333
29: 0.035037197317615405024231722-0.002473596852395382573073332
30: 0.0350371973176154050242317216-0.0024735968523953825730733317
31: 0.03503719731761540502423172159-0.00247359685239538257307333166
32: 0.035037197317615405024231721585-0.002473596852395382573073331662
0.035037197317615405024231721585
x= 1.2581988897471611256786176933188 arg=14.234895472345646328850681968615+
27: 0.0350371973176154050242317-0.0024735968523953825730733
28: 0.03503719731761540502423172-0.00247359685239538257307333
29: 0.035037197317615405024231722-0.002473596852395382573073332
30: 0.0350371973176154050242317216-0.0024735968523953825730733317
31: 0.03503719731761540502423172159-0.00247359685239538257307333166
32: 0.035037197317615405024231721585-0.002473596852395382573073331662
x= 1.5054659264981074171190784622126 arg=17.032402647553604479509461174862+
27: 0.0293047763703332974171236-0.0017264924927497453160918
28: 0.02930477637033329741712364-0.00172649249274974531609180
29: 0.029304776370333297417123637-0.001726492492749745316091801
30: 0.0293047763703332974171236372-0.0017264924927497453160918014
31: 0.02930477637033329741712363720-0.00172649249274974531609180138
32: 0.029304776370333297417123637203-0.001726492492749745316091801383
x= 1.7527329632490537085595392311063 arg=19.829909822761562630168240381109+
27: 0.0251821703112319118559816-0.0012731502757545826897397
28: 0.02518217031123191185598163-0.00127315027575458268973973
29: 0.025182170311231911855981629-0.001273150275754582689739729
30: 0.0251821703112319118559816292-0.0012731502757545826897397293
31: 0.02518217031123191185598162915-0.00127315027575458268973972928
32: 0.025182170311231911855981629154-0.001273150275754582689739729280
{0.035037197317615405024231721585,0.029304776370333297417123637203,0.025182170311231911855981629154}
---------------------
x= 1.2581988897471611256786176933 arg=14.23489547234564632885068197+
27: 0.0350371973176154050242317-0.0024735968523953825730733
Out[]=
$Aborted