summaryrefslogtreecommitdiff
path: root/3669/CH11/EX11.12/12.sce
blob: 904071c0fce698e20b3e64d3a6dff6184085f4c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

//Variable declaration
n1=1.563;      //refractive index of core
n2=1.498;      //refractive index of cladding

//Calculation
NA=sqrt((n1**2)-(n2**2));     //numerical aperture
theta0=asin(NA);     //acceptance angle(radian)
theta0=theta0*180/%pi;    //acceptance angle(degrees)
theta0_m=60*(theta0-int(theta0));

//Result
printf('numerical aperture is %0.3f     \n',(NA))
printf('acceptance angle is %0.3f  degrees %0.3f minutes  \n',int(theta0),(theta0_m))
printf('answer varies due to approximating off errors\n')