summaryrefslogtreecommitdiff
path: root/3753/CH6/EX6.3/Ex6_3.sce
blob: 550e966c23661086f0981c67baa5b8ae5340aabd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example number 6.3, Page number 6.46

clc;clear;close


// Variable declaration
chi=0.5*10**-5;    // magnetic susceptibility
H=10**6;     // field strength(ampere/m)
mew0=4*%pi*10**-7; // coefficient

// Calculation
I=chi*H;     // intensity of magnetisation(ampere/m)
B=mew0*(I+H);    // flux density in material(weber/m**2)

// Result
printf("intensity of magnetisation is : %.f Ampere/m",I)
printf("\nflux density in material is : %.3f weber/m^2",B)