diff options
author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
---|---|---|
committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3543/CH2/EX2.7 | |
parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
download | Scilab-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.png | bin | 0 -> 38137 bytes | |||
-rw-r--r-- | 3543/CH2/EX2.7/Ex2_7.sce | 37 |
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 Binary files differnew file mode 100644 index 000000000..e863983aa --- /dev/null +++ b/3543/CH2/EX2.7/EX2_7.png 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);
+
+
|