1 files changed, 15 insertions, 0 deletions
diff --git a/1985/CH10/EX10.4/Chapter10_example4.sce b/1985/CH10/EX10.4/Chapter10_example4.sce
new file mode 100755
index 000000000..c42178540
--- /dev/null
+++ b/1985/CH10/EX10.4/Chapter10_example4.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//Input data
+E=100*10^3//Energy produced by the reactor in W
+e=1.6*10^-19//Charge of electron in Coulumb
+A=6.023*10^23//Avagadros number 
+a=235//U235
+
+//Calculations
+Er=200//Let the energy released per fission be 200 MeV,
+n=(E/(Er*10^6*e))//The number of U235 nuclei needed to produce 100kW of energy
+m=((a*n)/(A*1000))/10^-9//Mass of 'n' atoms of U235
+
+//Output
+printf('The reactor consumes %3.5f*10^-9 kg of U235 in one second',m)