summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.10
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /1445/CH2/EX2.10
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '1445/CH2/EX2.10')
-rw-r--r--1445/CH2/EX2.10/Ex2_10.sce11
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