summaryrefslogtreecommitdiff
path: root/3669/CH1/EX1.5/5.sce
blob: 121913e1fcbed2e809adeb9352f816c2c3ae7f3d (plain)
1
2
3
4
5
6
7
8
9
10
11
12

//Variable declaration
m=1;
n=9;     //repulsive exponent value
a=1.748*10**-28;     
r0=0.281*10**-9;     //seperation(m)
e=1.6*10**-19; 
//Calculation
Ur0=-a*(1-(m/n))/(e*r0**m);    //cohesive energy(eV)

//Result
printf('cohesive energy is %0.3f   eV  \n',(Ur0))