From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3415/CH4/EX4.1/Ex4_1.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 3415/CH4/EX4.1/Ex4_1.sce

(limited to '3415/CH4/EX4.1/Ex4_1.sce')

diff --git a/3415/CH4/EX4.1/Ex4_1.sce b/3415/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..9fbf95519
--- /dev/null
+++ b/3415/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,21 @@
+//fiber optic communications by joseph c. palais
+//example 4.1
+//OS=Windows XP sp3
+//Scilab version 5.4.1
+clc
+clear all
+//given
+d=1.64//Daimeter of waveguide in um
+lambda=0.82//wavelength in um
+
+//to find
+dbylambda=d/lambda//d by lambda ratio normalized thickness
+neff1=3.594//for TE0 mode from figure 4.5 for calculated normalized thickness
+theta1=86.7//for TE0 mode from figure 4.5 for calculated normalized thickness
+neff2=3.578//for TE1 mode from figure 4.5 for calculated normalized thickness
+theta2=83.7//for TE1 mode from figure 4.5 for calculated normalized thickness
+neff3=3.577//for TE2 mode from figure 4.5 for calculated normalized thickness
+theta3=81.1//for TE2 mode from figure 4.5 for calculated normalized thickness
+mprintf('For TE0 mode \n  neff =%f  theta=%f degree',neff1,theta1)
+mprintf(' \nFor TE1 mode \n neff =%f  theta=%f degree',neff2,theta2)
+mprintf(' \nFor TE2 mode \n  neff =%f  theta=%f degree',neff3,theta3)
-- 
cgit