summaryrefslogtreecommitdiff
path: root/1853/CH2/EX2.9/Ex2_9.sce
blob: f4410edac3f103bc7495b1df10e194bb925ff569 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

//calculate the circuit current
u=1//for air gap
F=1.5e-3//flux
A=9e-4 //area 
B=F/A
H=B/(4*3.14*10^-7*u)
l=4e-3//air gap
S=H*l//amps turns in air gap
l=4e-3//air gap
u1=800// for iron gap
A1=750e-6
B1=F/A1
H1=B1/(4*3.14*10^-7*u1)
l1=270e-3
S1=H1*l1
u2=1000//for P,Q,R
H2=B/(4*3.14*10^-7*u2)
Ip=135e-3
Iq=270e-3
Ir=135e-3
S2=H2*(Ip+Iq+Ir)//amps turns
TNn=S+S1+S2
TN=4000
EI=TNn/TN
disp('exciting current=   '+string(EI)+'  amps' )