summaryrefslogtreecommitdiff
path: root/3665/CH11/EX11.8/Ex11_8.sce
blob: fc6a60ccdbcab1fa3de6a383d6fee2aedebccf12 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc//
//
//

//Variable declaration
Bs=0.65;      //magnetic induction(wb/m^2)
d=8906;       //density(kg/m^3)
n=6.025*10^26;     //avagadro number
mew0=4*%pi*10^-7;
w=58.7;     //atomic weight(kg)

//Calculation
N=d*n/w;     //number of nickel atoms(per m^3)
mew_m=Bs/(N*mew0*9.27*10^-24);     //magnetic moment(mewB)

//Result
printf("\n magnetic moment is %0.2f mewB",mew_m)