summaryrefslogtreecommitdiff
path: root/3755/CH1/EX1.2/Ex1_2.sce
blob: 2769e7b1516a535b33bc9477b1e23e0ee66b1da3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clear
//
//
//

//Variable declaration    
e=1.6*10^-19;      //charge(coulomb)
x=9*10^9;          
r0=3.56*10^-10;    //equilibrium distance(m)
A=1.763;      //madelung constant
n=10.5;       //repulsive exponent value
IE=3.89;      //ionisation energy(eV)
EA=-3.61;     //electron affinity(eV)

//Calculations
U0=-(x*A*e/r0)*(1-1/n);       //ionic cohesive energy(eV)
U=U0+IE+EA;               //atomic cohesive energy(eV)

//Result
printf("\n ionic cohesive energy is %0.2f eV",U0)
printf("\n atomic cohesive energy is %0.2f eV",U)