blob: 6d66e8d496ccc002180a43cf8c2cb09ff0f941b2 (
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
|
//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");
//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 %f Amp", I));
//
disp("SOLUTION (b)");
disp(sprintf("The Power factor is %f", pf));
disp(" ");
//
//END
|
