summaryrefslogtreecommitdiff
path: root/3769/CH2/EX2.11/Ex2_11.sce
blob: f86a808750e5b98fb16b4fd74afc6d7b3b3810a1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14

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  %e  Cm", p)
printf("\n (ii) Potential energy of dipole in the stable equilibrium position  %e  J",U)