From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 401/CH3/EX3.10/Example3_10.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 401/CH3/EX3.10/Example3_10.sce

(limited to '401/CH3/EX3.10')

diff --git a/401/CH3/EX3.10/Example3_10.sce b/401/CH3/EX3.10/Example3_10.sce
new file mode 100755
index 000000000..e798502bb
--- /dev/null
+++ b/401/CH3/EX3.10/Example3_10.sce
@@ -0,0 +1,32 @@
+//Example 3.10
+//Program to estimate
+//(a)RMS pulse broadening per kilometer
+//(b)Bandwidth-Length product for the fiber
+
+clear;
+clc ;
+close ;
+
+//Given data
+NA=0.3 ;         //NUMERICAL APERTURE
+n1=1.45;         //CORE REFRACTIVE INDEX 
+M=250*10^(-6);   //s/km^2 - MATERIAL DISPERSION PARAMETER 
+sigma_lambda=50*10^(-9); //metre - RMS SPECTRAL WIDTH
+L=1;             //km - LENGTH OF OPTICAL LINK
+c=2.998*10^8;    //m/s - VELOCITY OF LIGHT IN VACCUM
+
+//RMS pulse broadening /km due to material dispersion
+sigma_m=sigma_lambda*L*M;
+
+//RMS pulse broadening /km due to intermodal dispersion
+sigma_s=L*NA^2/(4*sqrt(3)*n1*c);
+
+//(a)Total RMS pulse broadening /km
+sigma_t=sqrt(sigma_m^2+sigma_s^2);
+
+//(b)Bandwidth-Length product
+BoptXL=0.2/sigma_t;
+
+//Displaying the Results in Command Window
+printf("\n\n\t Total RMS pulse broadening per kilometer is %0.1f ns/km.",sigma_t/10^(-12));
+printf("\n\n\t Bandwidth-Length product is %0.1f MHz km.",BoptXL/10^(9));
\ No newline at end of file
-- 
cgit