summaryrefslogtreecommitdiff
path: root/3763/CH10/EX10.6/Ex10_6.sce
blob: f93e6958921e2126889a1ae54d9e462d3f0be08b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//
//
//

//Variable declaration
n2=1.47              //refractive index of cladding
n1=1.5    //refractive index of core

//Calculation
phi_c=asin(n2/n1)     //critical angle(radian)
phi_c=phi_c*180/%pi     //critical angle(degrees)
NA=sqrt(n1**2-n2**2)     //numerical aperture
phi_max=asin(NA)       //acceptance angle(radian)
phi_max=phi_max*180/%pi     //acceptance angle(degrees)

//Result
printf("\n critical angle is %0.1f  degrees",phi_c)
printf("\n numerical aperture is %0.1f  ",NA)
printf("\n acceptance angle is %0.1f  degrees",phi_max)