summaryrefslogtreecommitdiff
path: root/3651/CH8/EX8.5/5.sce
blob: 4ed72447a786037f9bab6499c1514bc2be54fc11 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//variable declaration
a=5
n1=1.450
n2=1.447
lamda=1             //wavelength

//Calculations
N_a=(n1**2-n2**2)   //Numerical aperture

N=4.9*((a*10**-6*sqrt(N_a)/(lamda*10**-6))**2)

//Result

printf('maximum no.of modes propogating through fiber =%0.3f \n',(N))
printf('Correction needed')