summaryrefslogtreecommitdiff
path: root/3651/CH8/EX8.2/2.sce
blob: 8eaab51ed692d949233de3d0500d565a1ff5cfb7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//variable declaration
d=50                //diameter
N_a=0.2             //Numerical aperture
lamda=1             //wavelength

//Calculations
N=4.9*(((d*10**-6*N_a)/(lamda*10**-6))**2)

//Result
printf('N =%0.3f \n',N)
printf('Fiber can support%0.3f guided modes \n',N)
printf('In graded index fiber, No.of modes propogated inside the fiber =%0.3f only',N/2)