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

//Variable declaration 
delta=0.0045;    //relative difference
i0=0.115;      //acceptance angle(radians)
v=3*10^8;      //velocity of light(m/s)

//Calculations
NA=sin(i0);    //numerical aperture
n1=NA/sqrt(2*delta);     //core refractive index
vcore=v/n1;      //velocity of light in fibre core(m/s)

//Result
printf("\n velocity of light in fibre core is %0.3f *10^8 m/s",vcore/10^8)