diff options
Diffstat (limited to '3415/CH4/EX4.1/Ex4_1.sce')
| -rw-r--r-- | 3415/CH4/EX4.1/Ex4_1.sce | 21 |
1 files changed, 21 insertions, 0 deletions
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)
|