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

//Variable declaration
mew0=4*%pi*10**-7
H=9.27*10**-24      //bohr magneton(ampere m**2)
beta1=10**6      //field(ampere/m)
k=1.38*10**-23    //boltzmann constant
T=303    //temperature(K)

//Calculation
mm=mew0*H*beta1/(k*T)    //average magnetic moment(bohr magneton/spin)

//Result
printf("\n average magnetic moment is %0.2f  *10**-3 bohr magneton/spin",mm*10**3)