{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Text \+
Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 
3 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 0" -1 256 1 
{CSTYLE "" -1 -1 "Helvetica" 1 12 128 0 128 1 2 1 2 2 2 2 1 1 1 1 }1 
1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "R3 Font 2" -1 257 1 {CSTYLE "" -1 
-1 "Courier" 1 11 0 128 128 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 
0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 262 "This worksheet will calculate the normal
ized intensity (In) at a point due to diffraction from an aperture wit
h rectangular geometry.   'In' is the intensity at the point with the \+
aperture in place divided by the intensity at that point for an unobst
ructed wave." }}{PARA 0 "" 0 "" {TEXT -1 1 " " }}{PARA 0 "" 0 "" 
{TEXT -1 119 "You must calculate the values of v1 and v2.  Then simply
 enter the values below.  Type 'infinity' if v equals infinity." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "v1:=infinity;" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 6 "v2:=0;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "
Calls are now made to evaluate the Fresnel integrals and the normalize
d intensity." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "DeltaC:=Fre
snelC(v1)-FresnelC(v2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "DeltaS:=
FresnelS(v1)-FresnelS(v2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "In:=(
DeltaC^2+DeltaS^2)/2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}}{EXCHG {PARA 2 "" 0 "" {TEXT -1 1 "\n" }}}}{MARK "7" 0 }{VIEWOPTS 1 
1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }