summaryrefslogtreecommitdiff
path: root/3760/CH8/EX8.2/ExA_2.sce
blob: 7055ff81590b5895a3394bf80185b6018637bc70 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
ur=10000; // relative permeability of iron
lc=0.5; // core length
lg=4*10^-3; // air gap length
N=600; // number of turns
B=1.2; // desired flux density
uo=4*%pi*10^-7; // free space permeability
Ac=25*10^-4; // core area
mfc=(B*lc)/(uo*ur); // mmf for core
mfg=(B*lg)/uo; // mmf for air gap
mft=mfc+mfg; // net mmf
i=mft/N; 
printf('exciting current required to establish the desired flux is %f A',i);