{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--*-140-*" "helvetica" "Helvetica-Bold" 8 14 0 
"Helvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--*-140-
*" "times" "Times-Roman" 4 14 64 "Times-Roman" 12}{FONT 2 "-adobe
-courier-medium-r-normal--*-140-*" "courier" "Courier" 4 14 192 "
Courier" 12}{SCP_R 1 0 63{INP_R 2 0 "> "{TEXT 0 6 "N:=17;"}}
{OUT_R 3 0 2{DAG :3n3\`N`j2x0017}}{SEP_R 4 0}{INP_R 5 0 "> "{TEXT
 0 9 "phi_0:=0;"}}{OUT_R 6 0 5{DAG :3n4\`phi_0`j2x0000}}{SEP_R 7 
0}{INP_R 8 0 "> "{TEXT 0 23 "delta:=Pi*sin(t)+phi_0;"}}{OUT_R 9 0
 8{DAG :3n4\`delta`*5n3\`Pi`j2x0001(3n3\`sin`,2n3\`t`p7}}{SEP_R 
10 0}{INP_R 11 0 "> "{TEXT 0 40 "Intens:=(sin(N*delta/2)/sin(delt
a/2))^2;"}}{OUT_R 12 0 11{DAG :3n4\`Intens`*5(3n3\`sin`,2+3*5n3\`
Pi`j2x0001(3p6,2n3\`t`pD/3j2x0017j2x0002p18(3p6,2+3pA/3pDp18i2x00
02}}{SEP_R 13 0}{INP_R 14 0 "> "{TEXT 0 79 "plot([Intens,t,t=0.1.
.Pi/2],coords=polar,color=cyan,thickness=1,numpoints=500);"}}
{SEP_R 15 0}{INP_R 16 0 "> "{TEXT 0 24 "plot(Intens, t=0..3*Pi);"
}}{SEP_R 17 0}{SEP_R 18 0}{INP_R 19 0 "> "{TEXT 0 33 "Intensd:=(s
in(N*x/2)/sin(x/2))^2;"}}{OUT_R 20 0 19{DAG :3n4\`Intensd`*5(3n3\
`sin`,2+3n3\`x`/3j2x0017j2x0002pF(3p6,2+3pA/3j2x0001pFi2x0002}}
{SEP_R 21 0}{INP_R 22 0 "> "{TEXT 0 30 "evalf(Pi/4-fsolve(Intensd
=8));"}}{OUT_R 23 0 22{DAG e3i4x004880268610i2x0009}}{SEP_R 24 0}
{SEP_R 25 0}{INP_R 26 0 "> "{TEXT 0 36 "Intensn:=n->(sin(n*x/2)/s
in(x/2))^2;"}}{OUT_R 27 0 26{DAG :3n4\`Intensn`@8,2n3\`n`,1,3n5\`
operator`n4\`arrow`p8*5(3n3\`sin`,2+3*5a2x0001j2x0001n3\`x`p1B/3p
1Bj2x0002p22(3p14,2+3p1Dp20i2x0002p8p8}}{INP_R 28 0 "> "{TEXT 0 
44 "fwhm:=n->fsolve(Intensn(n)=n^2/2,x=0..Pi/2);"}}{OUT_R 29 0 28
{DAG :3n4\`fwhm`@8,2n3\`n`,1,3n5\`operator`n4\`arrow`p8(3n4\`fsol
ve`,3=3(3n4\`Intensn`,2a2x0001+3*3p1Dj2x0002/3j2x0001p22=3n3\`x`~
3j2x0000+3n3\`Pi`p24p8p8}}{INP_R 30 0 "> "{TEXT 0 16 "approx:=n->
Pi/n;"}}{OUT_R 31 0 30{DAG :3n4\`approx`@8,2n3\`n`,1,3n5\`operato
r`n4\`arrow`p8*5n3\`Pi`j2x0001a2x0001i2x0001p8p8}}{SEP_R 32 0}
{INP_R 33 0 "> "{TEXT 0 49 "for n from 2 to 20 do evalf(fwhm(n)/a
pprox(n))od;"}}{OUT_R 34 0 33{DAG e3j4x009999999999i2x0010}}
{OUT_R 35 0 33{DAG e3j4x009316422445i2x0010}}{OUT_R 36 0 33{DAG e
3j4x009107848517i2x0010}}{OUT_R 37 0 33{DAG e3j4x009015871507i2x0
010}}{OUT_R 38 0 33{DAG e3j4x008967046587i2x0010}}{OUT_R 39 0 33
{DAG e3j4x008937982230i2x0010}}{OUT_R 40 0 33{DAG e3j4x0089192669
20i2x0010}}{OUT_R 41 0 33{DAG e3j4x008906502605i2x0010}}{OUT_R 42
 0 33{DAG e3j4x008897405480i2x0010}}{OUT_R 43 0 33{DAG e3j4x00889
0692318i2x0010}}{OUT_R 44 0 33{DAG e3j4x008885596438i2x0010}}
{OUT_R 45 0 33{DAG e3j4x008881636625i2x0010}}{OUT_R 46 0 33{DAG e
3j4x008878498347i2x0010}}{OUT_R 47 0 33{DAG e3j4x008875968945i2x0
010}}{OUT_R 48 0 33{DAG e3j4x008873900393i2x0010}}{OUT_R 49 0 33
{DAG e3j4x008872187115i2x0010}}{OUT_R 50 0 33{DAG e3j4x0088707521
23i2x0010}}{OUT_R 51 0 33{DAG e3j4x008869538226i2x0010}}{OUT_R 52
 0 33{DAG e3j4x008868502210i2x0010}}{SEP_R 53 0}{INP_R 54 0 "> "
{TEXT 0 39 "g0:=fsolve(sin(x)=x/sqrt(2),x=0..Pi/2);"}}{OUT_R 55 0
 54{DAG :3n3\`g0`e3j4x001391557378i2x0009}}{SEP_R 56 0}{INP_R 57 
0 "> "{TEXT 0 15 "evalf(g0*2/Pi);"}}{OUT_R 58 0 57{DAG e3j4x00885
8929410i2x0010}}{INP_R 59 0 "> "{TEXT 0 4 "1/\";"}}{OUT_R 60 0 59
{DAG e3j4x001128804570i2x0009}}{INP_R 61 0 "> "{TEXT 0 27 "evalf(
approx(17)/fwhm(17));"}}{OUT_R 62 0 61{DAG e3j4x001127117798i2x00
09}}{SEP_R 63 0}{INP_R 64 0 "> "{TEXT 0 0 ""}}}{END}