summaryrefslogtreecommitdiff
path: root/3506/CH2/EX2.2/EXP_2_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3506/CH2/EX2.2/EXP_2_2.sce')
-rw-r--r--3506/CH2/EX2.2/EXP_2_2.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/3506/CH2/EX2.2/EXP_2_2.sce b/3506/CH2/EX2.2/EXP_2_2.sce
new file mode 100644
index 000000000..a5212896b
--- /dev/null
+++ b/3506/CH2/EX2.2/EXP_2_2.sce
@@ -0,0 +1,16 @@
+//Optical Fiber communication by A selvarajan
+//example 2.2
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lamda1=0.7//wavelength in um
+lamda2=1.3//wavelength in um
+lamda3=2//wavelength in um
+f_lambda1=(303.33*(lamda1^-1)-233.33)//equation for lambda1
+f_lambda2=(303.33*(lamda2^-1)-233.33)//equation for lambda2
+f_lambda3=(303.33*(lamda3^-1)-233.33)//equation for lambda3
+mprintf("Material dispersion at Lambda 0.7um=%f",f_lambda1)
+mprintf("\nMaterial dispersion at Lambda 1.3um=%f",f_lambda2)//The answers vary due to round off error
+mprintf("\nMaterial dispersion at Lambda 2um=%f",f_lambda3)//The answers vary due to round off error
+mprintf('\nIts is a standard silica fiber')