diff options
Diffstat (limited to '3651/CH8/EX8.5/5.sce')
| -rw-r--r-- | 3651/CH8/EX8.5/5.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/3651/CH8/EX8.5/5.sce b/3651/CH8/EX8.5/5.sce new file mode 100644 index 000000000..4ed72447a --- /dev/null +++ b/3651/CH8/EX8.5/5.sce @@ -0,0 +1,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')
|