Wave Propagation in Linear Media | re-examined

-200 -150 -100 -50
Example 8.4.2
1
0.5
-0.5
-1
8 Application of the quadrature routine
In[2]:= initialtria = Table[fx,Phi[x,t,w,k,Shape->Tria]g,
fx,-230,10,1.25g];
ListPlot[initialtria/.fx_,y_g:>fx,Re[y]g,PlotJoined->True];
-200 -150 -100 -50
1.5
1
0.5
-0.5
-1
-1.5
For the Gaussian wave, we need the additional parameter describing the variance of the
probability distribution. We set it to one third of the distance between the maximum and
the edge of the barrier.
Example 8.4.3
In[3]:= n = 6;
initialgauss = Table[fx,Phi[x,t,w,k,n,Shape->Gauss,
PPoints->Truncate]g,fx,-230,10,1.25g];
ListPlot[initialgauss/.fx_,y_g:>fx,Re[y]g,PlotJoined->True,
PlotRange->All];
206