diff options
Diffstat (limited to '1445/CH2/EX2.28')
| -rw-r--r-- | 1445/CH2/EX2.28/Ex2_28.sce | 42 |
1 files changed, 17 insertions, 25 deletions
diff --git a/1445/CH2/EX2.28/Ex2_28.sce b/1445/CH2/EX2.28/Ex2_28.sce index ce41fd503..daea93794 100644 --- a/1445/CH2/EX2.28/Ex2_28.sce +++ b/1445/CH2/EX2.28/Ex2_28.sce @@ -1,10 +1,10 @@ //CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT //Example 28 // read it as example 27 in the book on page 2.80 +clc; disp("CHAPTER 2"); disp("EXAMPLE 28"); -// -//Circuit diagram given with 3 branches + //VARIABLE INITIALIZATION z1=2+(%i*3); //impedance in rectangular form in Ohms z2=1-(%i*5); //impedance in rectangular form in Ohms @@ -16,51 +16,43 @@ v=10; //in volts //Total impedance //Total circuit impedance Z=(Z1||Z2)+Z3 z=z1+(z2*z3)/(z2+z3); -//define function +disp("SOLUTION (i)"); +disp(sprintf("Total circuit impedance is %3f %3fj S", real(z), imag(z))); +//Total supply current I=V/Z +//solution (b) +i=v/z; function [mag,angle]=rect2pol(x,y); mag=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees endfunction; -[magZ, angleZ]=rect2pol(real(z),imag(z)); -disp("SOLUTION (i)"); -disp(sprintf("Total circuit impedance is %3.2f+%3.1fj S", real(z), imag(z)));// in rectangula rform -disp(sprintf("Total circuit impedance is %3.2f %3.1f S", magZ, angleZ)); //in polar form - -//solution (b) -//Total supply current I=V/Z -i=v/z; [mag, angle]=rect2pol(real(i), imag(i)); disp("SOLUTION (b)"); -disp(sprintf("Total current is %3.2f <%3.1f Amp",mag,angle)); +disp(sprintf("Total current is %f<%f Amp",mag,angle)); //solution (c) //Vbc=I.Zbc where Zbc=(z2*z3)/(z2+z3) Vbc=i*((z2*z3)/(z2+z3)); [mag1, angle1]=rect2pol(real(Vbc), imag(Vbc)); disp("SOLUTION (c)"); -disp(sprintf("The voltage across the || circuit is %3.2f-%3.2fj",real(Vbc), imag(Vbc))); -disp(sprintf("The voltage across the || circuit is %3.2f <%3.1f",mag1, angle1)); -disp(sprintf("The voltage Vbc lags circuit by %3.2f Deg",angle-angle1)); +disp(sprintf("The voltage across the || circuit is %f<%f",mag1, angle1)); +disp(sprintf("The voltage Vbc lags circuit by %f Deg",angle-angle1)); //solution (d) //i2=Vbc/z2, i3=Vbc/z3 i2=Vbc/z2; i3=Vbc/z3; [mag2, angle2]=rect2pol(real(i2), imag(i2)); [mag3, angle3]=rect2pol(real(i3), imag(i3)); -disp("SOLUTION (d)"); -disp(sprintf("The current across fist branch of || circuit is %3.2f <%3.1f",mag2, angle2)); -disp(sprintf("The current across second branch of || circuit is %3.2f <%3.1f",mag3, angle3)); +disp(sprintf("The current across fist branch of || circuit is %f<%f",mag2, angle2)); +disp(sprintf("The current across second branch of || circuit is %f<%f",mag3, angle3)); //solution (e) pf=cos(-1*angle*%pi/180); disp("SOLUTION (e)"); -disp(sprintf("The power factor is %.3f",pf)); +disp(sprintf("The power factor is %f",pf)); //solution (iv) //Apparent power s=VI, True Power, tp I^2R, Reactive Power, rp=I^2X or VISSin(angle) -s=v*mag; //apparent power -tp=(mag^2)*magZ;//true power -rp=v*mag*sin(-1*angle*%pi/180);//reactive power +s=v*mag; +tp=mag*mag*real(z); +rp=v*mag*sin(-1*angle*%pi/180); disp("SOLUTION (f)"); -disp(sprintf("The Apparent power is %.2f VA",s)); -disp(sprintf("The True power is %.2f W",tp));//text book answer is 16.32 may be due to truncation -disp(sprintf("The Reactive power is %.1f vars",rp)); +disp(sprintf("The Apparent power is %f VA, True power is %f W , Reactive power is %f vars",s,tp,rp)); disp(" "); //END |