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

//Variable declaration
NA=0.33    //numerical aperture
delta=0.02     //refractive index of cladding

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

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