1 files changed, 28 insertions, 0 deletions
diff --git a/3834/CH8/EX8.1.1/Ex8_1_1.sce b/3834/CH8/EX8.1.1/Ex8_1_1.sce
new file mode 100644
index 000000000..2708bc69f
--- /dev/null
+++ b/3834/CH8/EX8.1.1/Ex8_1_1.sce
@@ -0,0 +1,28 @@
+//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner 
+//Example 8.1.1
+//windows 8
+//Scilab version-6.0.0
+clc;
+clear ;
+//given
+
+//case 1
+d1=65.5E-6;//diameter of the core considering 62.5+3 in m
+d2=59.5E-6;//diameter of the core considering 62.5-3 in m
+
+Losscore=-10*log10((d2/d1)^2);//Intrinsic loss due to diameter mismatch in dB
+mprintf("Intrinsic loss due to diameter mismatch = %.2fdB",Losscore);
+
+
+//case 2
+NA1=0.290;//numerical aperture of fiber considering 0.275+0.015
+NA2=0.260;//numerical aperture of fiber considering 0.275-0.015
+
+LossNA=-10*log10((NA2/NA1)^2);//Intrinsic loss due to NA mismatch in dB
+mprintf("\nIntrinsic loss due to NA mismatch = %.2fdB",LossNA);
+
+//case 3
+w1=9.8;//MFD considering 9.3+0.5 um
+w2=8.8;//MFD considering 9.3-0.5 um
+LossMFD=-10*log10(4/((w1/w2)+(w2/w1))^2);//Intrinsic loss due to NA mismatch in dB
+mprintf("\nIntrinsic loss due to MFD mismatch = %.2fdB",LossMFD);