1 files changed, 15 insertions, 0 deletions
diff --git a/3648/CH27/EX27.4/Ex27_4.sce b/3648/CH27/EX27.4/Ex27_4.sce
new file mode 100644
index 000000000..88ee4b8a8
--- /dev/null
+++ b/3648/CH27/EX27.4/Ex27_4.sce
@@ -0,0 +1,15 @@
+//Example 27_4
+clc();
+clear;
+//To compute the binding energy of deuterium
+m1=2.014102        //Units in u
+m2=0.000549    //Units in u
+total=m1-m2      //Unts in u
+m3=1.007276    //Units in u
+m4=1.008665        //Units in u
+suma=m3+m4        //Units in u
+massdefect=suma-total    //units in u
+e1=931.5  //Units in MeV
+m5=1           //Units iin eV
+e=massdefect*e1/m5       //Units in MeV
+printf("The binding energy of deuterium is E=%.2f MeV ",e)