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

//Variable declaration
chi=-0.25*10**-5       //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