1 files changed, 12 insertions, 0 deletions
diff --git a/3638/CH8/EX8.6/Ex8_6.sce b/3638/CH8/EX8.6/Ex8_6.sce
new file mode 100644
index 000000000..460a95753
--- /dev/null
+++ b/3638/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,12 @@
+//Introduction to Fiber Optics by A. Ghatak and K. Thyagarajan, Cambridge, New Delhi, 1999
+//Example 8.6
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+//given
+lambda0=1300e-9;//operating wavelength of single mode fiber in m
+MFD=10e-6;//mode field diameter of fiber in m
+omega=MFD/2;//corresponding spot size of fiber in m
+thetae=asind(lambda0/(%pi*omega));//corresponding value of angle in degrees where amplitude falls to 1/e of maximum value
+mprintf("Corresponding value of angle=%.2f degrees",thetae);