summaryrefslogtreecommitdiff
path: root/3651/CH5/EX5.8/8.sce
blob: d8e02205e27c0bfdffb28cf7e862cf708e2f3170 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Variable declaration
B=9.27*10**-24;      //bohr magneton(ampere m**2)
a=2.86*10**-10;      //edge(m)
Is=1.76*10**6;       //saturation value of magnetisation(ampere/m)

//Calculation
N=2/a**3;
mew_bar=Is/N;      //number of Bohr magnetons(ampere m**2)
mew_bar=mew_bar/B;      //number of Bohr magnetons(bohr magneon/atom)

//Result
printf('number of Bohr magnetons is %0.3f bohr magneon/atom\n',(mew_bar))