2 files changed, 37 insertions, 0 deletions
diff --git a/3717/CH20/EX20.1/Ex20_1.sce b/3717/CH20/EX20.1/Ex20_1.sce
new file mode 100644
index 000000000..f7c1a5289
--- /dev/null
+++ b/3717/CH20/EX20.1/Ex20_1.sce
@@ -0,0 +1,22 @@
+// Ex20_1 Page:390 (2014)
+clc;clear;
+e = 1.6e-019;    // Energy equivalent of 1 eV, J/eV
+m = 1.67e-027;    // Mass of a nucleon, kg
+h = 6.626e-034;    // Planck's constant, Js
+E = 30;    // Energy of alpha particle, MeV
+r = 1.2e-015;    // Nuclear constant, m
+lambda_p = h/sqrt(2*m*E*1e+006*e);    // de-Broglie wavelength of the proton, m
+lambda_a = h/sqrt(2*4*m*E*1e+006*e);    // de-Broglie wavelength of the alpha particle, m
+d = 2*r;    // size of the nucleon, m
+printf("\nThe wavelength of the proton = %3.1e m", lambda_p);
+printf("\nThe wavelength of the alpha particle = %3.1e m", lambda_a);
+if ((lambda_p - d) < (lambda_a - d)) then
+    printf("\nThe proton is better for studying the nuclear details.")
+else
+    printf("\nThe alpha particle is better for studying the nuclear details.")
+end
+
+// Result
+// The wavelength of the proton = 5.2e-015 m
+// The wavelength of the alpha particle = 2.6e-015 m
+// The alpha particle is better for studying the nuclear details. 
+\ No newline at end of file
diff --git a/3717/CH20/EX20.2/Ex20_2.sce b/3717/CH20/EX20.2/Ex20_2.sce
new file mode 100644
index 000000000..876e9155b
--- /dev/null
+++ b/3717/CH20/EX20.2/Ex20_2.sce
@@ -0,0 +1,15 @@
+// Ex20_2 Page:391 (2014)
+clc;clear;
+q = 1.6e-019;    // Charge on an electron, C
+e = 1.6e-019;    // Energy equivalent of 1 eV, J/eV
+m = 1.67e-027;    // Mass of a proton, kg
+B = 2;    // Applied magnetic field, T
+R = 0.25;    // Maximum radius of cyclotron, m
+f = q*B/(2*%pi*m);    // Frequency needed for applying alternating voltage, Hz
+K = (q*B*R)^2/(2*m);    // Kinetic energy of protons when they leave the cyclotron, J
+printf("\nThe frequency needed for applying alternating voltage = %4.1f MHz", f/1e+006);
+printf("\nThe kinetic energy of protons when they leave the cyclotron = %2d MeV", ceil(K/(e*1e+006)));
+
+// Result
+// The frequency needed for applying alternating voltage = 30.5 MHz
+// The kinetic energy of protons when they leave the cyclotron = 12 MeV 
+\ No newline at end of file