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