summaryrefslogtreecommitdiff
path: root/3840/CH7/EX7.5/Ex7_5.sce
blob: 1ef24399c20727e01a9c042e19d419a452579697 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//
//
//

//Variable declaration
d=0.1             //diameter(m)
i=0.5             //current(ampere)

//Calculation
r=d/2            //radius of atom(m)
mew=i*%pi*r**2     //magnetic moment(A-m**2)

//Result
printf("\n magnetic moment is %0.2f  *10**-3 A-m**2",mew*10**3)