summaryrefslogtreecommitdiff
path: root/3768/CH8/EX8.2/Ex8_2.sce
blob: ee3465952391484050245af196fa2093e8a56fdf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example number 8.2, Page number 170

clc;clear;
close;

//Variable declaration
chi=-0.5*10**-5;       //magnetic susceptibility
H=9.9*10**4;        //magnetic field intensity(amp/m)
mew0=4*%pi*10**-7;
//Calculation
I=chi*H;      //intensity of magnetisation(amp/m)
B=mew0*H*(1+chi);       //magnetic flux density(wb/m**2)
//Result
printf("intensity of magnetisation is %.3f amp/m",I)
printf("\n magnetic flux density is %.3f Wb/m^2",B)