blob: da6229b397329ba12f5d5098a6f54dc9a8b696ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//Chapter 16 : MAGNETIC MATERIALS
clear;
//Variable declaration
H=10**6 //Magnetic Field Strength in ampere/m
x=0.5*10**-5 //Magnetic susceptibility
mu_0=4*%pi*10**-7
//Calculatiions
M=x*H
B=mu_0*(M+H)
//Result
mprintf("Intensity of Magnetization=%d ampere/m",M)
mprintf("\nFlux density in the material=%f weber/m^2",B)
|
