summaryrefslogtreecommitdiff
path: root/3543/CH2/EX2.7
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3543/CH2/EX2.7
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3543/CH2/EX2.7')
-rw-r--r--3543/CH2/EX2.7/EX2_7.pngbin0 -> 38137 bytes
-rw-r--r--3543/CH2/EX2.7/Ex2_7.sce37
2 files changed, 37 insertions, 0 deletions
diff --git a/3543/CH2/EX2.7/EX2_7.png b/3543/CH2/EX2.7/EX2_7.png
new file mode 100644
index 000000000..e863983aa
--- /dev/null
+++ b/3543/CH2/EX2.7/EX2_7.png
Binary files differ
diff --git a/3543/CH2/EX2.7/Ex2_7.sce b/3543/CH2/EX2.7/Ex2_7.sce
new file mode 100644
index 000000000..9bc4986f1
--- /dev/null
+++ b/3543/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,37 @@
+
+// Example 2.7
+// Calculation of attenuation and Rayleigh scattering coefficient for fiber
+// Page no 50
+clc;
+clear;
+close;
+
+// Given data
+n=1.46; // Refractive index
+p=0.286; // Average photoelastic coefficient
+B=7.25*10^-11; // Isothermal compressibility
+k=1.38*10^-23; // Boltzmann's constant
+T=1350; // Fictive temperature
+l1=1*10^-6; // Wavelength 1
+l2=1.3*10^-6; // Wavelength 2
+L=10^3; // Length
+
+// Rayleigh scattering coefficient for length 1
+y1=8*(%pi)^3*(n)^8*(p)^2*B*k*T/(3*(l1)^4);
+// Rayleigh scattering coefficient for length 2
+y2=8*(%pi)^3*(n)^8*(p)^2*B*k*T/(3*(l2)^4);
+y1=y1;
+y2=y2;
+//Attenuation 1
+T1=exp(-(y1*L));
+//Attenuation 2
+T2=exp(-(y2*L));
+
+//Display result on command window
+printf("\n First Rayleigh scattering coefficient = %0.6f m^-1 ",y1);
+printf("\n Second Rayleigh scattering coefficient = %0.6f m^-1 ",y2);
+
+printf("\n Attenuation (@ Length 1) = %0.2f (dB/km) ",T1);
+printf("\n Attenuation (@ Length 2) = %0.2f (dB/km) ",T2);
+
+