blob: 1eb887c55bc3f90ec7a71a4f3c8273885d2b6f71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
//Example number 1.3, Page number 10
clc;clear;
close;
//Variable declaration
e=1.6*10**-19; //charge(coulomb)
epsilon0=8.85*10**-12;
r0=0.314*10**-9; //equilibrium distance(m)
A=1.75; //madelung constant
N=5.77; //born constant
I=4.1; //ionisation energy(eV)
EA=3.6; //electron affinity(eV)
//Calculation
V=-A*e**2*((N-1)/N)/(4*e*%pi*epsilon0*r0);
PE=V/2; //potential energy per ion(eV)
x=(I-EA)/2;
CE=PE+x; //cohesive energy(eV)
//Result
printf( "cohesive energy is = %.3f eV",CE)
|
