1 files changed, 23 insertions, 0 deletions
diff --git a/401/CH14/EX14.4/Example14_4.sce b/401/CH14/EX14.4/Example14_4.sce
new file mode 100755
index 000000000..38cac7c7b
--- /dev/null
+++ b/401/CH14/EX14.4/Example14_4.sce
@@ -0,0 +1,23 @@
+//Example 14.4
+//Program to calculate:
+//(a)3 dB Pulse Broadening in ns/km
+//(b)Fiber Bandwidth-Length product
+
+clear;
+clc ;
+close ;
+
+//Given data
+tau_o=12.6;          //ns - 3 dB width of Output Pulse
+tau_i=0.3;           //ns - 3 dB width of Input Pulse
+L=1.2;               //km - LENGTH
+
+//(a)3 dB Pulse Broadening in ns/km
+tau=sqrt(tau_o^2-tau_i^2)/L;
+
+//(b)Fiber Bandwidth-Length product
+Bopt=0.44/tau;
+
+//Displaying the Results in Command Window
+printf("\n\n\t (a)3 dB Pulse Broadening is %0.1f ns/km.",tau);
+printf("\n\n\t (b)Fiber Bandwidth-Length product is %0.1f MHz km.",Bopt*10^3);
+\ No newline at end of file