initial commit / add all books

1 files changed, 39 insertions, 0 deletions

diff --git a/2642/CH1/EX1.10/Ex1_10.sce b/2642/CH1/EX1.10/Ex1_10.sce
new file mode 100755
index 000000000..7fab056c6
--- /dev/null
+++ b/2642/CH1/EX1.10/Ex1_10.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.10

+

+clc;clear; // clears the console and command history 

+

+// Given data

+V_AN = 200 // voltage in V

+ Z = 3+%i*4 // impedance in Ω

+

+// caclulations 

+

+V_AB = sqrt(3)*(V_AN*exp(%i*(30)*(%pi/180)))   // phase voltage in V

+V_BC = sqrt(3)*(V_AN*exp(%i*(-90)*(%pi/180))) // phase voltage in V

+V_CA = sqrt(3)*(V_AN*exp(%i*(150)*(%pi/180))) // phase voltage in V

+

+I_ab = V_AB/Z  // magnitude of load current in A

+I_bc = V_BC/Z  // magnitude of loadcurrent in A

+I_ca = V_CA/Z // magnitude of  load current `in A

+

+I_Aa = I_ab-I_ca // magnitude of  line current in A

+I_Bb = I_bc-I_ab // magnitude of  line current in A

+I_Cc = I_ca-I_bc // magnitude of  line current in A

+

+// display the result 

+disp("Example 1.10 solution");

+printf(" \n Current in each load \n I_ab = %.2f<%.2f A \n", abs(I_ab),atand(imag(I_ab),real(I_ab)) );

+printf(" I_bc = %.2f<% 2f A \n", abs(I_bc),atand(imag(I_bc),real(I_bc)) );

+printf(" I_ca = %.2f<% 2f A \n\n", abs(I_ca),atand(imag(I_ca),real(I_ca)) );

+

+printf(" \n Line currents \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(" NOTE : The  line currents as given in this example in text book are wrong since ,the quesion says that both the three phase supply and load are balanced so the line should be balanced which they fail to do in text book.");