summaryrefslogtreecommitdiff
path: root/1067/CH20/EX20.07/20_7.sce
blob: f7838aab6a8aa1e48766b3e238d67e1d764c9a97 (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
27
28
29
clear;
clc;
r1=20e6;
rb=30e6;
v1=11e3;
v2=110e3;
x1g=.2*rb/r1;
x1t=.08*rb/r1;
x2g=.2;
x2t=.1;
xl=.516;
x0=xl/2;
x1=x1g+x1t;
x2=x2g+x2t;
x=inv(inv(x2)+inv(x1));
z=x+x0;
E=1;
isc=E/z;
ig1=isc*x2/(x1+x2);
ig2=isc*x1/(x1+x2);
i=ig1+ig2;
ib=rb/(1.7355*v1);
ig1=fix(ig1*1000)/1000;
Ig1=ig1*ib;
ib=fix(ib);
ig2=fix(ig2*100)/100;
Ig2=ig2*ib;
Ig2=fix(Ig2);
mprintf("the current taken from G1=%dA(lagging)\n the current taken from G2=%dA(lagging)",Ig1,Ig2);