blob: 1794036ceac57bfba8787451ca490a258bdd8996 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
//chapter 37
//example6
clc
//given
n=10*10^2 //turns/m
i=2 //in amp
B=1.0 //in wb/m
u0=4*%pi*10^-7 //in wb/amp-m
//(A)
H=n*i
disp(H,"(A) Magnetic field strength in amp/m is")
//(B)
M=(B-u0*H)/u0
disp("(B) Magnetisation is Zero when core is removed")
disp(M," Magnetisation when th ecore is replaced in amp/m")
//(C)
disp("(C) Effective magnetizing current i=i(M,0)=M*(2*%pi*r0/N0)=M/n")
i=M/n
disp(i," Effective magnetizing current in amp is")
//D
Km=B/(u0*H)
disp(Km,"(D) Permeability ")
|
