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

//Variable declaration
NA=0.33;     //numerical aperture
delta=0.02;     //fractional refractive indices change

//Calculation
x=1-delta
y=sqrt(1-x**2);
n1=NA/y;       //refractive index of core
n2=n1*x;       //refractive index of cladding

//Result
printf('refractive index of core is %0.3f     \n',(n1))
printf('refractive index of cladding is %0.3f     \n',(n2))