summaryrefslogtreecommitdiff
path: root/1949/CH3/EX3.9/Ex3_9.sce
blob: 1c26cc6f46453381bc161c2e647c2d389856c45f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Chapter-3,Example 3_9,Page 3-21
clc()

//Given Data:
u1=1.47                 //R.I. of Core
u2=1.46                 //R.I.of Cladding
lam=1.3*10^-6           //wavelength in meter

//Calculations:
NA=sqrt(u1^2-u2^2)      //Formula to find Numerical Aperture

//The condition for single mode is V<2.405
//2*%pi*a*NA/lam < 2.405

a=2.405*lam/(2*%pi*NA)   //Maximum radius of fibre

printf('Maximum radius of Fibre is =%.8f meter \n',a)