summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.56/EX2_56.sce
blob: 1cbb20f83642d9a9713f79dfb55d1e36af0c2811 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
                  //EXAMPLE 2-56      PG NO-99-100
V=230+%i*0;
R=15+%i*0;
L=%i*7.5;
Ir=V/R;
Z1=-%i*12
disp('i)   CURRENT (Ir) is    =  '+string (Ir) +'  A ');
IL=V/L;
disp('i)   INDUCTANCE CURRENT (IL) is    =  '+string (IL) +'  A ');
Ic=V/Z1;
disp('i)   CAPACITOR CURRENT (Ic) is    =  '+string (Ic) +'  A ');
I=Ir+IL+Ic;
disp('i)    CURRENT (I) is    =  '+string (I) +'  A ');
Z=V/I;
disp('i)   IMPEDANCE (Z) is    =  '+string (Z) +'  A ');
PF=0.8;
Leq=7.2/[2*%pi*50];
disp('i)   EQUIVALENT CURRENT (Ieq) is    =  '+string (Leq) +'  H ');