summaryrefslogtreecommitdiff
path: root/3840/CH11/EX11.11/Ex11_11.sce
blob: 96b4ff79f700e0dd3f7c58ba4e733af4dd1c306b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//
//
//

//Variable declaration
n1=1.50          //Core refractive index
delta=4/100      //fractional index change

//Calculation
n2=n1-(delta*n1)             //Cladding refractive index
NA=sqrt(n1**2-n2**2)    //numerical aperture
theta0=asin(NA)         //acceptance angle(radian)
theta0=theta0*180/%pi     //acceptance angle(degrees)
theta0m=60*(theta0-int(theta0)) //acceptance angle(minutes)
thetac=asin(n2/n1)      //critical angle(radian)
thetac=thetac*180/%pi     //critical angle(degrees)
thetacm=60*(thetac-int(thetac)) //critical angle(minutes)

//Result