diff options
Diffstat (limited to '1445/CH2/EX2.5/Ex2_5.sce')
| -rw-r--r-- | 1445/CH2/EX2.5/Ex2_5.sce | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/1445/CH2/EX2.5/Ex2_5.sce b/1445/CH2/EX2.5/Ex2_5.sce index ce799fefc..4fbe07d32 100644 --- a/1445/CH2/EX2.5/Ex2_5.sce +++ b/1445/CH2/EX2.5/Ex2_5.sce @@ -1,30 +1,28 @@ //CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT //Example 5 +clc; disp("CHAPTER 2"); disp("EXAMPLE 5"); //VARIABLE INITIALIZATION -I1=0.75; //current in loop 1 in Amperes -v=240; //voltage supply in Volts -f=50; //frequency in Hertz -p=80; //power consumed by the lamp in Watts +I1=0.75; //in Amperes +v=240; //in Volts +f=50; //in Hertz +p=80; //in Watts //SOLUTION -//V.I1.cos(Φ1) = P -res=p/v; //I1cos(Φ1) -pf1=res/I1; //1st power factor = cos(Φ1) +res=p/v; +pf1=res/I1; //1st power factor = cos(Φ1) phi1=acos(pf1); -res1=tan(phi1); //result1 = tan(Φ1) -w=2*%pi*f; //w=2.pi.f +res1=tan(phi1); //result1 = tan(Φ1) +w=2*%pi*f; //solution (a) -//Given power factor = unity means cos(Φ2)=1 -//hence Φ2=0, tan (Φ2)=0 -res2=0; //result2 = tan(Φ2) as Φ2=0 +res2=0; //result2 = tan(Φ2) Ic1=res*(res1-res2); c1=Ic1/(v*w); -disp(sprintf("(a) When power factor is unity, the value of capacitance is %4.2f μF",c1*(10^6))); // in mF +disp(sprintf("(a) When power factor is unity, the value of capacitance is %f μF",c1*(10^6))); //solution (b) pf2=0.95; //given @@ -32,7 +30,7 @@ phi2=acos(pf2); res2=tan(phi2); Ic2=res*(res1-res2); c2=Ic2/(v*w); -disp(sprintf("(b) When power factor is 0.95(lagging), the value of capacitance is %5.3f μF",c2*(10^6))); //textbook answer is 7.458 mF +disp(sprintf("(b) When power factor is 0.95(lagging), the value of capacitance is %f μF",c2*(10^6))); //END |