summaryrefslogtreecommitdiff
path: root/3669/CH7/EX7.3/3.sce
blob: f79ec732d2f81901377c3cf0e3e375a54f659239 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13

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

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

//Result
printf('magnetisation is %0.3f   A/m  \n',M)
printf('flux density is %0.3f    *10**-3 Wb/m**2 \n',(B*10**3))