summaryrefslogtreecommitdiff
path: root/3840/CH7/EX7.4/Ex7_4.sce
blob: 2e7efb6b6e3ba63cb4945728fdf6c7025b11aa5d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear
//
//
//

//Variable declaration
chi=-0.42*10**-3       //magnetic susceptibility
H=1000             //magnetic field intensity(amp/m)
mew0=4*%pi*10**-7

//Calculation
M=chi*H                //magnetisation(A/m)
B=mew0*(H+M)       //magnetic flux density(wb/m**2)

//Result