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

//Variable declaration
n1=1.48;      //refractive index of core
n2=1.45;      //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))