3769/CH11/EX11.1/Ex11_1.sce


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

clear
//Given
e=1.6*10**-19
f=6.8*10**15
n=1
r=0.53*10**-10

//Calculation
//
I=e*f
M=n*I*%pi*r**2

//Result
printf("\n Equivalent magnetic moment is %0.1f *10**-24 Am**2",M*10**24)