1 files changed, 16 insertions, 0 deletions
diff --git a/3840/CH1/EX1.5/Ex1_5.sce b/3840/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..b85de4fec
--- /dev/null
+++ b/3840/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,16 @@
+clear
+//
+//
+//
+
+//Variable declaration    
+e=1.6*10**-19      //charge(coulomb)
+r0=0.281*10**-9    //equilibrium distance(m)
+a=1.748*10**-28    //madelung constant(J m**2)
+n=9                //repulsive exponent value
+m=1
+
+//Calculations
+Ur0=-a*(1-m/n)/(e*r0**m)      //cohesive energy of NaCl(eV)
+
+//Result