diff options
Diffstat (limited to '1445/CH2/EX2.36/Ex2_36.sce')
| -rw-r--r-- | 1445/CH2/EX2.36/Ex2_36.sce | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/1445/CH2/EX2.36/Ex2_36.sce b/1445/CH2/EX2.36/Ex2_36.sce index 7ea401187..3ec7e82b8 100644 --- a/1445/CH2/EX2.36/Ex2_36.sce +++ b/1445/CH2/EX2.36/Ex2_36.sce @@ -1,6 +1,7 @@ //CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT //Example 36 // read it as example 35 in the book on page 2.90 +clc; disp("CHAPTER 2"); disp("EXAMPLE 36"); @@ -17,20 +18,20 @@ f=50; //Hz //conductance g, susceptance b Z12=(R1^2 +XL^2); //squared impedance Z^2 for branch 1 Z22=(R1^2 +C^2); //squared impedance Z^2 for branch 2 -g1=R1/Z12; //conductance +g1=R1/Z12; g2=R2/Z22; -b1=-XL/Z12; //susceptance +b1=-XL/Z12; b2=C/Z22; -g=g1+g2; //Total conductance -b=b1+b2; //Total susceptance -Y=sqrt(g^2+b^2); //Total admittance +g=g1+g2; +b=b1+b2; +Y=sqrt(g^2+b^2); I=V*Y; disp("SOLUTION (a)"); -disp(sprintf("The total current is %.1f Amp", I));//text book answer is 12.3 A +disp(sprintf("The total current is %f Amp", I)); pf=g/Y; disp("SOLUTION (b)"); -disp(sprintf("The power factor is %.3f", pf)); // text book answer is 0.985 +disp(sprintf("The power factor is %f", pf)); disp(" "); // //END |