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

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

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

//Result
printf("\n intensity of magnetisation is %0.3f  ampere/m",I)
printf("\n flux density in material is %0.3f  weber/m**2",B)