summaryrefslogtreecommitdiff
path: root/3769/CH11/EX11.7/Ex11_7.sce
blob: d6280a93a7c6b497673ad5052cf644d59dec5c0e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//given
N=1800
l=0.6
I=0.9                           //A
ur=500
n1=6.02*10**26
a=55.85
y=7850

//Calculation
n=N/l
H=n*I
I1=(ur-1)*H
B=4*%pi*10**-7*ur*H
x=(y*n1)/a
X=I1/x

//Result
printf("\n Average magnetic moment per iron atom is %0.2f *10**-23  A m**2",X*10**23)