summaryrefslogtreecommitdiff
path: root/2642/CH1/EX1.11
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2642/CH1/EX1.11
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 '2642/CH1/EX1.11')
-rwxr-xr-x2642/CH1/EX1.11/Ex1_11.sce39
1 files changed, 39 insertions, 0 deletions
diff --git a/2642/CH1/EX1.11/Ex1_11.sce b/2642/CH1/EX1.11/Ex1_11.sce
new file mode 100755
index 000000000..5c5404275
--- /dev/null
+++ b/2642/CH1/EX1.11/Ex1_11.sce
@@ -0,0 +1,39 @@
+// FUNDAMENTALS OF ELECTICAL MACHINES
+// M.A.SALAM
+// NAROSA PUBLISHING HOUSE
+// SECOND EDITION
+
+// Chapter 1 : REVIEW OF ELECRTIC CIRCUITS
+// Example : 1.11
+
+clc;clear; // clears the console and command history
+
+// Given data
+Z = 3+%i*4 // impedance in Ω
+V_AN = 150 // voltage in V
+R = 3 // resistance in Ω from Z
+
+// caclulations
+
+V_AN = (150*exp(%i*(0)*(%pi/180))) //source voltage in V
+V_BN = (150*exp(%i*(-120)*(%pi/180))) // source voltage in V
+V_CN = (150*exp(%i*(120)*(%pi/180))) // source voltage in V
+
+I_Aa = V_AN/Z // line current in A
+I_Bb = V_BN/Z // line current in A
+I_Cc = V_CN/Z // line current in A
+
+pf = R/abs(Z) // power factor
+I = V_AN/abs(Z) // current in A
+P = V_AN*I*pf // power supplied in W
+P_t = 3*P // total power supplied in W
+
+// display the result
+disp("Example 1.11 solution");
+printf(" \n Line currents are \n I_Aa = %.2f<%.2f A \n", abs(I_Aa),atand(imag(I_Aa),real(I_Aa)) );
+printf(" I_Bb = %.2f<% 2f A \n", abs(I_Bb),atand(imag(I_Bb),real(I_Bb)) );
+printf(" I_Cc = %.2f<% 2f A \n\n", abs(I_Cc),atand(imag(I_Cc),real(I_Cc)) );
+printf(" Power factor \n pf = %.1f \n", pf);
+printf(" \n Power supplied to each phase is \n P = %.2f W \n", P);
+printf(" \n Total power supplied \n P_t = %.2f W \n", P_t);
+