From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1970/CH1/EX1.9/Ch01Exa9.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 1970/CH1/EX1.9/Ch01Exa9.sce

(limited to '1970/CH1/EX1.9')

diff --git a/1970/CH1/EX1.9/Ch01Exa9.sce b/1970/CH1/EX1.9/Ch01Exa9.sce
new file mode 100755
index 000000000..f40afeb5e
--- /dev/null
+++ b/1970/CH1/EX1.9/Ch01Exa9.sce
@@ -0,0 +1,16 @@
+// Scilab code Exa1.9 : : Page 54 (2011)
+clc; clear;
+e = 1.60218e-019;            // Charge of an electron,C
+B = 0.65;                    // Magnetic field, tesla
+d_S1_S2 = 27.94e-02;         // Distance between slit S1 and S2, metre
+R_1 = d_S1_S2/2;             // Radius of orbit of ions entering slit S2,metre
+d_S4_S5 = 26.248e-02;        // Distance between slit S4 and S5, metre
+R_2 =  d_S4_S5/2;            //Radius of orbit of ions leaving slit S4,metre
+M = 106.9*1.66054e-027;            // Mass of an ion(Ag+)Kg, 
+T_1 = B^2*e^2*R_1^2/(2*M*1.60218e-019);             // Kinetic energy of the ion entering slit S2,eV 
+T_2 = B^2*e^2*R_2^2/(2*M*1.60218e-019);             // Kinetic energy of the ion leaving slit S4,eV 
+printf("\nKinetic energy of the ion entering slit S2 : %d eV \nKinetic energy of the ion leaving slit S4 : %d eV ",T_1,T_2)
+
+// Result
+// Kinetic energy of the ion entering slit S2 : 3721 eV 
+// Kinetic energy of the ion leaving slit S4 : 3284 eV  
-- 
cgit