1 files changed, 15 insertions, 0 deletions
diff --git a/1985/CH9/EX9.5/Chapter9_Example5.sce b/1985/CH9/EX9.5/Chapter9_Example5.sce
new file mode 100755
index 000000000..a8092c344
--- /dev/null
+++ b/1985/CH9/EX9.5/Chapter9_Example5.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//Input data
+r=10^-14//Radius of the nucleus in m
+m=(1.67*10^-27)//Mass of the proton in kg
+h=(6.625*10^-34)//Plancks constant in Js
+
+//Calculations
+x=6.24150934*10^12//1 Joule  in MeV
+dp=(h/(2*3.14*r))/10^-20//The uncertainity in the momentum of the proton in kg m/s *10^-20
+ke=((dp*10^-20)^2/(2*m))*x//Minimum kinetic energy of the proton in MeV
+
+//Output
+printf('The uncertainity in the momentum of the proton is %3.3f*10^-20 kg m/s \n Minimum kinetic energy of the proton is %3.3f MeV',dp,ke)
+