27.12.2012 Views

Wave Propagation in Linear Media | re-examined

Wave Propagation in Linear Media | re-examined

Wave Propagation in Linear Media | re-examined

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

6.1 Partition<strong>in</strong>g the <strong>in</strong>tegration <strong>in</strong>terval<br />

6.1 Partition<strong>in</strong>g the <strong>in</strong>tegration <strong>in</strong>terval<br />

Once we know that an <strong>in</strong> nite <strong>in</strong>tegral exists, we can theo<strong>re</strong>tically choose any arbitrary<br />

partition of the <strong>in</strong>terval to calculate the sequence of partial sums. In practice, however, we<br />

a<strong>re</strong> better o to select the subdivision po<strong>in</strong>ts such that the <strong>re</strong>sult<strong>in</strong>g sequence is amenable<br />

to convergence acceleration. A ca<strong>re</strong>ful choice is al<strong>re</strong>ady half the guarantee for a trustworthy<br />

<strong>re</strong>sult. Let an example illustrate this pitfall.<br />

We consider the well-known <strong>in</strong>tegral<br />

Z 1<br />

0<br />

s<strong>in</strong> x<br />

x dx = : (6.1)<br />

2<br />

We subdivide the <strong>in</strong>terval at the zeros of the s<strong>in</strong>e and calculate the rst 100 elements of<br />

the sequence of partial sums. To this end, we rst evaluate the contributions of the <strong>in</strong>tegrals<br />

Ii = R xi+1<br />

f(x) dx between the partition po<strong>in</strong>ts and then accumulate them to yield the partial<br />

xi<br />

sums Si = Pi k=0 Ii. We nally plot this alternat<strong>in</strong>g sequence.<br />

In[1]:= sequ = Table[NIntegrate[S<strong>in</strong>[x]/x,fx,i Pi,(i+1) Pig],<br />

fi,0,100g];<br />

partial = FoldList[Plus,0,sequ];<br />

1.59<br />

1.58<br />

1.57<br />

1.56<br />

1.55<br />

1.54<br />

z1 = ListPlot[partial,PlotStyle->fPo<strong>in</strong>tSize[0.012]g];<br />

20 40 60 80 100<br />

In[2]:= SequenceLimit[partial] - N[Pi/2]<br />

Out[2]= -15<br />

-1.77636 10<br />

133

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!