summaryrefslogtreecommitdiff
path: root/3755/CH13/EX13.7/Ex13_7.sce
blob: d09b8551d9cfe89e85578b43935a490cf6e5c743 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//
//
//

//Variable declaration    
vf=3*10^8;      //velocity of light in free space(m/s)
vc=2*10^8;      //velocity of light in core(m/s)
thetac=60*%pi/180;     //critical angle(radians)

//Calculations
n1=vf/vc;       //core refractive index
n2=n1*sin(thetac);     //cladding refractive index
NA=sqrt(n1^2-n2^2);    //numerical aperture

//Result
printf("\n core refractive index is %0.3f ",n1)
printf("\n cladding refractive index is %0.1f ",n2)
printf("\n numerical aperture is %0.3f ",NA)
printf("\n answer for numerical aperture varies due to rounding off errors")