Wave Propagation in Linear Media | re-examined

Out[11]= f19.773 Second, -0.00034339 + 0.00140152 Ig
In[12]:= Timing[N[Phi[x,t,w,k,n,Shape->Gauss,PPoints->Truncate]]]
Out[12]= f4.998 Second, -0.00034339 + 0.00140152 Ig
Example 8.4.8
In[13]:= x = 1;
t = 4;
w = 0.1;
k = 20;
Timing[N[Phi[x,t,w,k,Shape->Tria]]]
Out[13]= f284.017 Second, 0.00688579 - 0.00506005 Ig
In[14]:= Timing[N[Phi[x,t,w,k,Shape->Tria,PPoints->Zeros]]]
Out[14]= f289.894 Second, 0.00688579 - 0.00506005 Ig
In[15]:= Timing[N[Phi[x,t,w,k,Shape->Rect]]]
Out[15]= f218.381 Second, -0.00471446 - 0.282477 Ig
In[16]:= Timing[N[Phi[x,t,w,k,Shape->Rect,PPoints->Zeros]]]
Out[16]= f222.116 Second, -0.00471446 - 0.282477 Ig
In[17]:= n = 6;
Timing[N[Phi[x,t,w,k,n,Shape->Gauss]]]
Out[17]= f138.467 Second, 0.0000199533 - 0.0000757562 Ig
In[18]:= Timing[N[Phi[x,t,w,k,n,Shape->Gauss,PPoints->Truncate]]]
Out[18]= f1.373 Second, 0.0000199533 - 0.0000757562 Ig
210
8 Application of the quadrature routine