diff options
Diffstat (limited to '1445/CH2/EX2.10')
| -rw-r--r-- | 1445/CH2/EX2.10/Ex2_10.sce | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/1445/CH2/EX2.10/Ex2_10.sce b/1445/CH2/EX2.10/Ex2_10.sce index a4136861e..971167bbd 100644 --- a/1445/CH2/EX2.10/Ex2_10.sce +++ b/1445/CH2/EX2.10/Ex2_10.sce @@ -1,14 +1,10 @@ //CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT //Example 10 +clc; disp("CHAPTER 2"); disp("EXAMPLE 10"); -//Equations -//If z1, z2 || then net impedance is Z=z1.z2/(z1+z2) -//V=IZ -//Power drawn is = V.I. cos (phi) - //VARIABLE INITIALIZATION v=230; //in Volts z1=3+(%i*4); //impedance in rectangular form in Ohms @@ -26,10 +22,7 @@ endfunction; z=(z1*z2)/(z1+z2); I=v/z; angle=-angle1; //as angle1=angle2 -// -disp(sprintf("The current drawn from the circuit is %2.0f Amp",I)); -disp(sprintf("The net current lags net voltage by %4.2f and ckt is inductive in nature",-angle)); p=v*I*cos(angle*%pi/180); //to convert the angle from degrees to radians -disp(sprintf("The power drawn from the source is %5.3f kW",p/1000)); +disp(sprintf("The power drawn from the source is %f kW",p/1000)); //END |