{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text \+
Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 
3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 0" -1 256 1 
{CSTYLE "" -1 -1 "Times" 1 10 128 0 128 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 -1 
"Courier" 1 11 0 128 128 1 2 1 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 
0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 56 "8/19/95  All plots in nice
 shape.  Scale always 0..2*Pi." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 99 "Interference pattern for equispaced two, \+
three, four, five, fifteen and twenty-five point sources. " }}{PARA 0 
"" 0 "" {TEXT -1 87 "Shows the narrowing of interference peaks with mo
re sources at constant source spacing." }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 15 "assume(y,real);" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 341 "Definition of the differ
ent terms in the interference pattern: a (n) stands for the  amplitude
 of the sources, d is the, spacing between the sources and is expresse
d in micrometers, L is the wavelength of light used (micrometers), Z i
s the distance of observation, and y is the corordinate that is perpen
dicular to the propagation of light. " }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 39 "d := 6.33; L := 0.633; Z := 10; t:= y; " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "" 0 "" {TEXT -1 534 "Definition of the amplitude of the light
 scattered from the point sources at a plane perpendicular to the prop
agation of light. The point source at the center is a(1). The even num
bered source lie above a(1) and the odd numbered sources lie below a(1
). The distances of the even numbered sources are positive and the odd
 numbered  sources are negative. For example source a(2) above a(1) is
 at a distance 'd' and the source a(3) below a(1) is at '-d'. Similarl
y source a(4) is at a distance '2d' and source a(5) is at '-2d' and so
 on." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 47 "A
mplitude 15 point sources below source a(1):  " }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 71 "for n from 1 to 15 do a(2*n-1) :=  2*exp(-I* (n-1)*(P
i*d*t)/(L*Z)); od;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 55 "Amplitude of the 15 point sources \+
above source a(1):   " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "for n from
 1 to 15 do a(2*n) :=  2*exp(I* (n)*(Pi*d*t)/(L*Z)); od;" }}}{EXCHG 
{PARA 2 "" 0 "" {TEXT -1 1 "\n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "In the Young's double slit inte
rferometer we have two point sources. " }}{PARA 0 "" 0 "" {TEXT -1 78 
"Therefore the total amplitude of sources a(1) and a(2) or a(3) is cal
culated. " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "f3:=(abs(sum(a(n1), n1 = 1..2))); " }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 19 "f4:=simplify(f3^2);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 39 "plot(f4, y = 0..6,title=`Two Sources`);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 57 "Three point sources we take sources s(1), s(2) and s(3). \+
" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 
"f5:= abs(sum(a(n1), n1 = 1..3))^2; " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "simplify(f5);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plot(\", y = 0..
6,title=`Four Sources`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 63 "Four point sources we take sources s(1), s(2), s(3),
 and s(4). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "f6:= abs(sum(a(n1), n1 = 1..4))^2; " }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "simplify(f6);" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "plot(
\", y = 0..6);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 61 "Five point sour
ces we take s(1), s(2), s(3), s(4), and s(5). " }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "f7:= sum(a(n1), n1 \+
= 1..5)^2; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "f8:=simplify
(f7);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(f8, y = 0..6)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 45 "Fifteen point source
s we take s(1) to S(15). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 31 "f9:= sum(a(n1), n1 = 1..15)^2; " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "f10:=simplify(f9);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "plot(f10, y = 0..6, numpoints = 300
);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 49 "Twenty five point \+
sources we take s(1) to S(25). " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "f11:= abs(sum(a(n1), n1 = 1..25))^2
; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "simplify(f11);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plot(\", y = 0..6,numpoints \+
= 500);" }}}}{MARK "0 0 0" 3 }{VIEWOPTS 1 1 0 1 1 1803 }