diff options
Diffstat (limited to '1655/CH2/EX2.7.18/Example_2_7_18.sce')
| -rwxr-xr-x | 1655/CH2/EX2.7.18/Example_2_7_18.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/1655/CH2/EX2.7.18/Example_2_7_18.sce b/1655/CH2/EX2.7.18/Example_2_7_18.sce new file mode 100755 index 000000000..c6e72ca34 --- /dev/null +++ b/1655/CH2/EX2.7.18/Example_2_7_18.sce @@ -0,0 +1,18 @@ +// Example 2.7.18 page 2.36
+
+clc;
+clear;
+
+n1=1.54; //refractive index of core
+n2=1.5; //refractive index of cladding
+a=25d-6; //Radius of core
+lamda=1.3d-6; //Wavelength
+
+NA=sqrt(n1^2-n2^2);
+v=2*3.14*a*NA/lamda; //computing normalized frequency
+v=round(v);
+Mg=v^2/4; //computing mode volume for parabollic profile
+Mg=round(Mg);
+lamda_cut_off=v*lamda/2.405; //computing cut off wavelength
+lamda_cut_off=lamda_cut_off*10^6;
+printf("\nNormalized Frequency is %.d.\nTotal number of guided modes are %.d.\nCut off wavelength is %.1f micrometer.",v,Mg,lamda_cut_off);
|