summaryrefslogtreecommitdiff
path: root/1535/CH11
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1535/CH11
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1535/CH11')
-rwxr-xr-x1535/CH11/EX11.1/Ch11Ex1.sci15
-rwxr-xr-x1535/CH11/EX11.2/Ch11Ex2.sci12
-rwxr-xr-x1535/CH11/EX11.3/Ch11Ex3.sci10
-rwxr-xr-x1535/CH11/EX11.4/Ch11Ex4.sci14
-rwxr-xr-x1535/CH11/EX11.5/Ch11Ex5.sci14
-rwxr-xr-x1535/CH11/EX11.6/Ch11Ex6.sci12
6 files changed, 77 insertions, 0 deletions
diff --git a/1535/CH11/EX11.1/Ch11Ex1.sci b/1535/CH11/EX11.1/Ch11Ex1.sci
new file mode 100755
index 000000000..34574b87e
--- /dev/null
+++ b/1535/CH11/EX11.1/Ch11Ex1.sci
@@ -0,0 +1,15 @@
+// Scilab Code Ex11.1: Page-249 (2010)
+h = 6.626e-034; // Planck's constant, Js
+c = 3e+08; // Speed of light in free space, m/s
+k = 1.38e-023; // Boltzmann constant, J/K
+T = 300; // Temperature at absolute scale, K
+lambda = 5500e-010; // Wavelength of visible light, m
+rate_ratio = exp(h*c/(lambda*k*T))-1; // Ratio of spontaneous emission to stimulated emission
+printf("\nThe ratio of spontaneous emission to stimulated emission for visible region = %1.0e", rate_ratio);
+lambda = 1e-02; // Wavelength of microwave, m
+rate_ratio = exp(h*c/(lambda*k*T))-1; // Ratio of spontaneous emission to stimulated emission
+printf("\nThe ratio of spontaneous emission to stimulated emission for microwave region = %6.4f", rate_ratio);
+
+// Result
+// The ratio of spontaneous emission to stimulated emission for visible region = 8e+037
+// The ratio of spontaneous emission to stimulated emission for microwave region = 0.0048 \ No newline at end of file
diff --git a/1535/CH11/EX11.2/Ch11Ex2.sci b/1535/CH11/EX11.2/Ch11Ex2.sci
new file mode 100755
index 000000000..cec5f5f5a
--- /dev/null
+++ b/1535/CH11/EX11.2/Ch11Ex2.sci
@@ -0,0 +1,12 @@
+// Scilab Code Ex11.2: Page-250 (2010)
+e = 1.6e-019; // Energy equivalent of 1 eV, J/eV
+h = 6.626e-034; // Planck's constant, Js
+c = 3e+08; // Speed of light in free space, m/s
+lambda = 690e-009; // Wavelength of laser light, m
+E_lower = 30.5; // Energy of lower state, eV
+E = h*c/(lambda*e); // Energy of the laser light, eV
+E_ex = E_lower + E; // Energy of excited state of laser system, eV
+printf("\nThe energy of excited state of laser system = %4.1f eV", E_ex);
+
+// Result
+// The energy of excited state of laser system = 32.3 eV
diff --git a/1535/CH11/EX11.3/Ch11Ex3.sci b/1535/CH11/EX11.3/Ch11Ex3.sci
new file mode 100755
index 000000000..5618fdadb
--- /dev/null
+++ b/1535/CH11/EX11.3/Ch11Ex3.sci
@@ -0,0 +1,10 @@
+// Scilab Code Ex11.3: Page-250 (2010)
+h = 6.626e-034; // Planck's constant, Js
+k = 1.38e-023; // Boltzmann constant, J/K
+// Stimulated Emission = Spontaneous Emission <=> exp(h*f/(k*T))-1 = 1 i.e.
+// f/T = log(2)*k/h = A
+A = log(2)*k/h; // Frequency per unit temperature, Hz/K
+printf("\nThe stimulated emission equals spontaneous emission iff f/T = %4.2e Hz/K", A);
+
+// Result
+// The stimulated emission equals spontaneous emission iff f/T = 1.44e+010 Hz/K \ No newline at end of file
diff --git a/1535/CH11/EX11.4/Ch11Ex4.sci b/1535/CH11/EX11.4/Ch11Ex4.sci
new file mode 100755
index 000000000..a8a76c654
--- /dev/null
+++ b/1535/CH11/EX11.4/Ch11Ex4.sci
@@ -0,0 +1,14 @@
+// Scilab Code Ex11.4: Page-250 (2010)
+lambda = 500e-009; // Wavelength of laser light, m
+f = 15e-02; // Focal length of the lens, m
+d = 2e-02; // Diameter of the aperture of source, m
+a = d/2; // Radius of the aperture of source, m
+P = 5e-003; // Power of the laser, W
+A = %pi*lambda^2*f^2/a^2; // Area of the spot at the focal plane, metre square
+I = P/A; // Intensity at the focus, W per metre square
+printf("\nThe area of the spot at the focal plane = %4.2e metre square", A);
+printf("\nThe intensity at the focus = %4.2e watt per metre square", I);
+
+// Result
+// The area of the spot at the focal plane = 1.77e-010 metre square
+// The intensity at the focus = 2.83e+007 watt per metre square \ No newline at end of file
diff --git a/1535/CH11/EX11.5/Ch11Ex5.sci b/1535/CH11/EX11.5/Ch11Ex5.sci
new file mode 100755
index 000000000..290632dfa
--- /dev/null
+++ b/1535/CH11/EX11.5/Ch11Ex5.sci
@@ -0,0 +1,14 @@
+// Scilab Code Ex11.5: Page-251 (2010)
+h = 6.626e-034; // Planck's constant, Js
+c = 3e+08; // Speed of light in free space, m/s
+lambda = 1064e-009; // Wavelength of laser light, m
+P = 0.8; // Average power output per laser pulse, W
+dt = 25e-003; // Pulse width of laser, s
+E = P*dt; // Energy released per pulse, J
+N = E/(h*c/lambda); // Number of photons in a pulse
+printf("\nThe energy released per pulse = %2.0e J", E);
+printf("\nThe number of photons in a pulse = %4.2e", N);
+
+// Result
+// The energy released per pulse = 2e-002 J
+// The number of photons in a pulse = 1.07e+017 \ No newline at end of file
diff --git a/1535/CH11/EX11.6/Ch11Ex6.sci b/1535/CH11/EX11.6/Ch11Ex6.sci
new file mode 100755
index 000000000..2ecd57e6d
--- /dev/null
+++ b/1535/CH11/EX11.6/Ch11Ex6.sci
@@ -0,0 +1,12 @@
+// Scilab Code Ex11.6:Page-251 (2010)
+lambda = 693e-009; // Wavelength of laser beam, m
+D = 3e-003; // Diameter of laser beam, m
+d_theta = 1.22*lambda/D; // Angular spread of laser beam, rad
+d = 300e+003; // Height of a satellite above the surface of earth, m
+a = d_theta*d; // Diameter of the beam on the satellite, m
+printf("\nThe height of a satellite above the surface of earth = %4.2e rad", d_theta);
+printf("\nThe diameter of the beam on the satellite = %4.1f m", a);
+
+// Result
+// The height of a satellite above the surface of earth = 2.82e-004 rad
+// The diameter of the beam on the satellite = 84.5 m \ No newline at end of file