summaryrefslogtreecommitdiff
path: root/3020/CH20/EX20.2/ex20_2.sce
blob: ef6b60b9628ab0874ccdb80c0f4c0f2da656e2d1 (plain)
1
2
3
4
5
6
7
8
9
clc;
clear all;
H=1E4;//magnetic field intensity in A/m
X=3.7E-3;//susceptibility
u0 = 4e-7*%pi;
M=X*H;//magnetization in A/m
B=u0*(M+H);//flux density in Wb/m^2;
disp('A/m',M,'magnetization is:')
disp('Wb/m^2',B,'flux density is:')