summaryrefslogtreecommitdiff
path: root/3755/CH1/EX1.1/Ex1_1.sce
blob: 2a10a62f58401ad2a3ee72e16fc818bf021a1b92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clear
//
//
//

//Variable declaration    
e=1.6*10^-19;      //charge(coulomb)
x=9*10^9;          
r0=2.81*10^-10;    //equilibrium distance(m)
A=1.748;      //madelung constant
n=9;       //repulsive exponent value

//Calculations
U0=-(x*A*e/r0)*(1-1/n);       //potential energy(eV)

//Result
printf("\n potential energy is %0.3f eV",U0/2)