1 files changed, 11 insertions, 0 deletions
diff --git a/1646/CH1/EX1.13/Ch01Ex13.sce b/1646/CH1/EX1.13/Ch01Ex13.sce
new file mode 100755
index 000000000..86d751178
--- /dev/null
+++ b/1646/CH1/EX1.13/Ch01Ex13.sce
@@ -0,0 +1,11 @@
+// Scilab Code Ex1.13: Page:32 (2011) 
+clc;clear;
+c = 3e+008;    // Speed of light in vacuum, m/s
+E0 = 0.5;    // Rest energy of the electron, MeV
+v1 = 0.6*c;    // Initial velocity of the electron, m/s
+v2 = 0.8*c;    // Final velocity of the electron, m/s
+W = (1/sqrt(1-v2^2/c^2)-1/sqrt(1-v1^2/c^2))*E0;    // The amount of work to be done to increase the speed of the electron, MeV
+printf("\nThe amount of work to be done to increase the speed of an electron = %4.2e J", W*1e+06*1.6e-019);
+
+// Result
+// The amount of work to be done to increase the speed of an electron = 3.33e-014 J 
+\ No newline at end of file