1 files changed, 16 insertions, 0 deletions
diff --git a/848/CH3/EX3.5/Example3_5.sce b/848/CH3/EX3.5/Example3_5.sce
new file mode 100755
index 000000000..8944c2812
--- /dev/null
+++ b/848/CH3/EX3.5/Example3_5.sce
@@ -0,0 +1,16 @@
+//clear//
+//Caption: Calculation of pulse broadening
+//Example3.5
+//page 103
+clear;
+clc;
+close;
+C = 3e08; //free space velocity in metre/sec
+n1 = 1.48;//core refractive index
+n2 = 1.465;//cladding refractive index
+delta = 0.01; //index difference
+L = 10^3;//fiber length 10KM
+deltaT = (L*(n1^2)/(C*n2))*delta;
+disp((deltaT/L)*10^12,'pulse broadening in ns/KM')
+//Result
+//pulse broadening in ns/KM  = 49.838453