summaryrefslogtreecommitdiff
path: root/671/CH7/EX7.6/7_6.sce
blob: fbbb146b5285b92df516c56b65a7e582e2627fc5 (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
uo=(4*%pi)*1E-7
ur=4000
fluxc=0.01
N=500

Ll=(2*(20+4)+25+4)/100
Lc=(25+4)/100
Lr=Ll-0.02/100
Lg=0.02/100
A=4/100*4/100

Rl=Ll/(ur*uo*A)
Rc=Lc/(ur*uo*A)
Rr=Lr/(ur*uo*A)
Rg=Lg/(uo*A)

Fab=fluxc*Rc
fluxr=Fab/(Rr+Rg)
fluxl=fluxc+fluxr

F=fluxl*Rl+Fab
I=F/N

disp(I)