3769/CH8/EX8.20/Ex8_20.sce


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

clear
//Given
e=1.6*10**-19
f=6.8*10**15
r=0.51*10**-10
u=4*3.14*10**-7                     //T/A m

//Calculation
//
I=e*f
B=(u*I)/(2*r)
M=1*I*%pi*r**2

//Result
printf("\n The effective dipole moment is %0.0f *10**-24 Am**2",M*10**24)