summaryrefslogtreecommitdiff
path: root/3638/CH8/EX8.4/Ex8_4.sce
diff options
context:
space:
mode:
Diffstat (limited to '3638/CH8/EX8.4/Ex8_4.sce')
-rw-r--r--3638/CH8/EX8.4/Ex8_4.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/3638/CH8/EX8.4/Ex8_4.sce b/3638/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..84a33eaca
--- /dev/null
+++ b/3638/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,14 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 8.4
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+lambda0=1300e-9;//operating wavelength of single mode fiber in m
+omega=5e-6;//spot size of fiber in m
+n1=1.45;//refractive index of core
+n2=1.45;//refractive index of cladding
+alphat=0.1;//maximum value of splice loss due to angular misalignment in dB
+theta=sqrt(alphat*(lambda0^2)/(4.34*((%pi)*n1*omega)^2));//corresponding maximum value of angular misalignment in radians
+mprintf("Maximum value of theta=%.1f degrees",theta*180/(%pi));//multiplying by 180/pi to convert in degrees