summaryrefslogtreecommitdiff
path: root/3753/CH5/EX5.5/Ex5_5.sce
blob: 084842ed09477d72c169feed3e2e7f93666578ca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example 5.5, Page number 5.29

clc;clear;close

// variable declaration
a=50 //unitless
n1=1.53 //unitless
n2=1.50 //unitless
lamda=1             // wavelength

// Calculations
N_a=(n1**2-n2**2)   // Numerical aperture
V=((2*%pi*a)/lamda)*N_a**(1/2) // V number

// Result
printf("V number = %.2f",V)
printf("\nmaximum no.of modes propagating through fiber = %.f",V)