blob: bce55490e480d7212cf56c19887566ffb40cb77e (
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
|
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 38 // read it as example 37 in the book on page 2.93
disp("CHAPTER 2");
disp("EXAMPLE 38");
//
//Solve exercise 36 by j method
//VARIABLE INITIALIZATION
z1=10+15*%i;
z2=12-20*%i;
V=230;
//invZ=1/z1+1/z2;
Z=z1*z2/(z1+z2);
magZ=sqrt(real(Z)^2+imag(Z)^2);
I=V/magZ;
pf=real(Z)/magZ;
disp("SOLUTION (a)");
disp(sprintf("The current is %.1f Amp", I));
//
disp("SOLUTION (b)");
disp(sprintf("The Power factor is %.3f lagging", pf));
disp(" ");
//
//END
|
