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

//Variable declaration
mewr=15            //relative permeability
H=250              //magnetic field intensity(amp/m)
mew0=4*%pi*10**-7

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

//Result