3840/CH1/EX1.4/Ex1_4.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14

clear
//
//
//

//Variable declaration
e=1.6*10**-19      //charge(coulomb)
epsilon0=8.85*10**-12   
r0=2.5*10**-10     //equilibrium distance(m)

//Calculation
PE=e**2/(4*e*%pi*epsilon0*r0)

//Result