summaryrefslogtreecommitdiff
path: root/3769/CH2/EX2.11/Ex2_11.sce
blob: 74d866b153b566d0a4cc442d6476626c1f890b26 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clear
//Given
q=16*10**-19
a=3.9*10**-12
E=10**5

//Calculation
p=q*a
U=-p*E

//Result
printf("\n (i) The electric dipole moment  %0.3f  Cm", p)
printf("\n (ii) Potential energy of dipole in the stable equilibrium position  %0.3f  J",U)