1 files changed, 15 insertions, 0 deletions
diff --git a/1655/CH4/EX4.15.1/Example_4_15_1.sce b/1655/CH4/EX4.15.1/Example_4_15_1.sce
new file mode 100755
index 000000000..f96f09537
--- /dev/null
+++ b/1655/CH4/EX4.15.1/Example_4_15_1.sce
@@ -0,0 +1,15 @@
+// Example 4.15.1  page 4.35
+
+clc;
+clear;
+
+tau=0.1d-6;     //pulse broadning
+dist=20d3;      //distance
+
+Bopt=1/(2*tau);     //computing optical bandwidth
+Bopt=Bopt*10^-6;
+dispertion=tau/dist;        //computing dispersion
+dispertion=dispertion*10^12;
+BLP=Bopt*dist;      //computing Bandwidth length product
+BLP=BLP*10^-3;
+printf("\noptical bandwidth is %d MHz.\nDispersion per unit length is %d ns/km.\nBandwidth length product is %d MHz.km.",Bopt,dispertion,BLP);