5 files changed, 82 insertions, 0 deletions
diff --git a/3840/CH1/EX1.1/Ex1_1.sce b/3840/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..6c4986b1d
--- /dev/null
+++ b/3840/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19      //charge(coulomb)
+epsilon0=8.85*10**-12   
+r0=236*10**-12     //equilibrium distance(m)
+I=5.14             //ionisation energy(eV)
+EA=-3.65           //electron affinity(eV)
+
+//Calculation
+V=-(e**2)/(4*e*%pi*epsilon0*r0)   //potential(eV)
+BE=I+EA+V          //bond energy of molecule(eV)
+
+//Result
diff --git a/3840/CH1/EX1.3/Ex1_3.sce b/3840/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..a8009fe28
--- /dev/null
+++ b/3840/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,17 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.602*10**-19      //charge(coulomb)
+epsilon0=8.85*10**-12   
+r0=0.281*10**-9      //equilibrium distance(m)
+alphaM=1.748         //madelung constant
+n=9                  //born constant
+
+//Calculation
+CE=-alphaM*e**2*((n-1)/n)/(4*e*%pi*epsilon0*r0)    //cohesive energy per molecule(eV)
+
+//Result
+printf("\n cohesive energy per atom is %0.3f  eV",CE)
diff --git a/3840/CH1/EX1.4/Ex1_4.sce b/3840/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..eb37291c5
--- /dev/null
+++ b/3840/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,14 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19      //charge(coulomb)
+epsilon0=8.85*10**-12   
+r0=2.5*10**-10     //equilibrium distance(m)
+
+//Calculation
+PE=e**2/(4*e*%pi*epsilon0*r0)
+
+//Result
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
diff --git a/3840/CH1/EX1.6/Ex1_6.sce b/3840/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..421270b8b
--- /dev/null
+++ b/3840/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+//
+
+//Variable declaration
+e=1.6*10**-19      //charge(coulomb)
+epsilon0=8.85*10**-12   
+r0=0.281*10**-9    //equilibrium distance(m)
+I=5.14             //ionisation energy(eV)
+EA=-3.61           //electron affinity(eV)
+
+//Calculation
+V=-(e**2)/(4*e*%pi*epsilon0*r0)   //potential(eV)
+CE=I+EA+V          //cohesive energy of molecule(eV)
+
+//Result
+printf("\n cohesive energy of molecule is %0.2f  eV",CE)