blob: a8009fe280bd9c2ee2ca6d4bd6a4e8f700348f0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)
|
