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

//Variable declaration    
NA=0.22;    //numerical aperture
delta=0.012;    //relative difference

//Calculations
N=1-delta;
n1=sqrt(NA^2/(1-N^2));      //core refractive index
n2=N*n1;     //cladding refractive index

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