summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.36
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1445/CH2/EX2.36
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1445/CH2/EX2.36')
-rw-r--r--1445/CH2/EX2.36/Ex2_36.sce37
1 files changed, 37 insertions, 0 deletions
diff --git a/1445/CH2/EX2.36/Ex2_36.sce b/1445/CH2/EX2.36/Ex2_36.sce
new file mode 100644
index 000000000..7ea401187
--- /dev/null
+++ b/1445/CH2/EX2.36/Ex2_36.sce
@@ -0,0 +1,37 @@
+//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
+
+disp("CHAPTER 2");
+disp("EXAMPLE 36");
+
+//VARIABLE INITIALIZATION
+R1=10; //in Ω
+XL=15; //in
+R2=12; //
+C=20; //capacitative reactance in Ω
+V=230; // volts
+f=50; //Hz
+//
+//SOLUTION
+//Solution (a)
+//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
+g2=R2/Z22;
+b1=-XL/Z12; //susceptance
+b2=C/Z22;
+g=g1+g2; //Total conductance
+b=b1+b2; //Total susceptance
+Y=sqrt(g^2+b^2); //Total admittance
+I=V*Y;
+disp("SOLUTION (a)");
+disp(sprintf("The total current is %.1f Amp", I));//text book answer is 12.3 A
+pf=g/Y;
+
+disp("SOLUTION (b)");
+disp(sprintf("The power factor is %.3f", pf)); // text book answer is 0.985
+disp(" ");
+//
+//END
+