summaryrefslogtreecommitdiff
path: root/3840/CH1/EX1.5/Ex1_5.sce
blob: b85de4fec08802f8f863fde44daec575c1422b96 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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