initial commit / add all books

7 files changed, 76 insertions, 0 deletions

diff --git a/1004/CH6/EX6.1/Ch06Ex1.sci b/1004/CH6/EX6.1/Ch06Ex1.sci
new file mode 100755
index 000000000..b450a267f
--- /dev/null
+++ b/1004/CH6/EX6.1/Ch06Ex1.sci
@@ -0,0 +1,10 @@
+// Scilab code: Ex6.1 : Wavelength of X-rays: Pg: 156 (2008)

+h = 6.6e-034;    // Planck's constant, J-s

+V = 50000;    // Potential difference, volts

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+L_1 = h*c/(e*V);    // wavelength of X-rays, m

+L = L_1/1e-010;    // wavelength of X-rays, angstorm

+printf("\nThe shortest wavelength of X-rays = %6.4f angstorm", L);

+// Result

+// The shortest wavelength of X-rays = 0.2475 angstorm
\ No newline at end of file
diff --git a/1004/CH6/EX6.2/Ch06Ex2.sci b/1004/CH6/EX6.2/Ch06Ex2.sci
new file mode 100755
index 000000000..e7e5e9415
--- /dev/null
+++ b/1004/CH6/EX6.2/Ch06Ex2.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.2 : Planck's constant: Pg: 156 (2008)

+L = 24.7e-012;    // Wavelength of X-rays, m

+V = 50000;    // Potential difference, volts

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+// Since e*V = h*c/L;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for h

+h = e*V*L/c;    // Planck's constant, Joule second

+printf("\nh = %3.1e Js ", h);

+// Result

+// h = 6.6e-034 Js
\ No newline at end of file
diff --git a/1004/CH6/EX6.3/Ch06Ex3.sci b/1004/CH6/EX6.3/Ch06Ex3.sci
new file mode 100755
index 000000000..bc4ad5004
--- /dev/null
+++ b/1004/CH6/EX6.3/Ch06Ex3.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.3 : Short wavelength limit : Pg: 156 (2008)

+V = 50000;    // Potential difference, volts

+h = 6.624e-034;    // Planck's constant, Js

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+// Since e*V = h*c/L;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for L

+L = h*c/(e*V);    // Short wavelength limit of X-ray, m

+printf("\nShort wavelength limit of X-ray = %6.4f angstorm", L/1e-010);

+// Result

+// Short wavelength limit of X-ray = 0.2484 angstorm 
\ No newline at end of file
diff --git a/1004/CH6/EX6.4/Ch06Ex4.sci b/1004/CH6/EX6.4/Ch06Ex4.sci
new file mode 100755
index 000000000..80a7312d4
--- /dev/null
+++ b/1004/CH6/EX6.4/Ch06Ex4.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.4 : Wavelength limit of X-rays : Pg: 157 (2008)

+V = 20000;    // Potential difference, volt

+h = 6.624e-034;    // Planck's constant, Js

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+// Since e*V = h*c/L;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for L

+L = h*c/(e*V);    // Wavelength limit of X-rays, m

+printf("\nShort wavelength limit of X-ray = %6.4f angstorm", L/1e-010);

+// Result

+// Short wavelength limit of X-ray = 0.6210 angstorm 
\ No newline at end of file
diff --git a/1004/CH6/EX6.5/Ch06Ex5.sci b/1004/CH6/EX6.5/Ch06Ex5.sci
new file mode 100755
index 000000000..2c7df6214
--- /dev/null
+++ b/1004/CH6/EX6.5/Ch06Ex5.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.5 : Minimum voltage of an X-ray tube : Pg: 157 (2008)

+h = 6.625e-034;    // Planck's constant, Js

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+L = 1e-010;    // Wavelength of X-rays, m

+// Since e*V = h*c/L;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for V

+V = h*c/(L*e);    // Potential difference, volts

+printf("\nThe minimum voltage of an X-ray tube = %5.2f kV", V/1e+03);

+// Result

+// The minimum voltage of an X-ray tube = 12.42 kV 
\ No newline at end of file
diff --git a/1004/CH6/EX6.6/Ch06Ex6.sci b/1004/CH6/EX6.6/Ch06Ex6.sci
new file mode 100755
index 000000000..f21b00fb3
--- /dev/null
+++ b/1004/CH6/EX6.6/Ch06Ex6.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.6 : Minimum wavelength emitted by an X-ray tube : Pg: 157 (2008)

+h = 6.625e-034;    // Planck's constant, Js

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+V = 4.5e+04;    // Accelerating potential of X-ray tube, volt

+// Since e*V = h*c/L_min;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for L_min

+L_min = h*c/(V*e);    // Minimum wavelength emitted by an X-ray tube, m

+printf("\nThe minimum wavelength emitted by the X-ray tube = %5.3f angstrom", L_min/1e-010);

+// Result

+// The minimum wavelength emitted by the X-ray tube = 0.276 angstrom 
\ No newline at end of file
diff --git a/1004/CH6/EX6.7/Ch06Ex7.sci b/1004/CH6/EX6.7/Ch06Ex7.sci
new file mode 100755
index 000000000..03892a76e
--- /dev/null
+++ b/1004/CH6/EX6.7/Ch06Ex7.sci
@@ -0,0 +1,11 @@
+// Scilab code: Ex6.7: Critical voltage for stimualted emission : Pg: 158 (2008)

+h = 6.625e-034;    // Planck's constant, Js

+c = 3e+08;    // Velocity of light, m/s

+e = 1.6e-019;    // Charge of an electron, coulombs

+L_k = 0.178e-010;    // Wavelength of k absorption egde of X-rays, m

+// Since e*V_critical = h*c/L;    // Energy required by an electron to move through a potential barrier of one volt, joules

+// solving for V_critical

+V_critical = h*c/(L_k*e);    // Crtical voltage for stimulated enission, volt

+printf("\nThe critical voltage for stimulated emission = %4.1f kV", V_critical/1e+03);

+// Result

+// The critical voltage for stimulated emission = 69.8 kV 
\ No newline at end of file