summaryrefslogtreecommitdiff
path: root/3753/CH6/EX6.5/Ex6_5.sce
blob: 2a10d3b235a71a526f1caed9007e008796d58d38 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example number 6.5, Page number 6.47

clc;clear;close


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

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

// Result
printf("average magnetic moment is: %.2e bohr magneton/spin",(mm))