1 files changed, 14 insertions, 0 deletions
diff --git a/3769/CH9/EX9.18/Ex9_18.sce b/3769/CH9/EX9.18/Ex9_18.sce
new file mode 100644
index 000000000..c6c105ad4
--- /dev/null
+++ b/3769/CH9/EX9.18/Ex9_18.sce
@@ -0,0 +1,14 @@
+clear
+//Given
+q=1.6*10**-19               //C
+r=0.6                        //m
+m=1.67*10**-27               //Kg
+f=10**7
+
+//Calculation
+//
+B=(2*%pi*m*f)/q
+K=((B**2*q**2*r**2)/(2.0*m))/1.6*10**-13
+
+//Result
+printf("\n Kinetic energy of the protons is %0.1f  Mev",K*10**26)