From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2642/CH11/EX11.3/Ex11_3.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 2642/CH11/EX11.3/Ex11_3.sce

(limited to '2642/CH11/EX11.3')

diff --git a/2642/CH11/EX11.3/Ex11_3.sce b/2642/CH11/EX11.3/Ex11_3.sce
new file mode 100755
index 000000000..efe82fbac
--- /dev/null
+++ b/2642/CH11/EX11.3/Ex11_3.sce
@@ -0,0 +1,29 @@
+// FUNDAMENTALS OF ELECTICAL MACHINES 
+// M.A.SALAM 
+// NAROSA PUBLISHING HOUSE 
+// SECOND EDITION
+
+// Chapter 11 : SINGLE-PHASE MOTORS
+// Example : 11.3
+
+clc;clear; // clears the console and command history 
+
+// Given data
+V_t = 220    // supply voltage in V
+f = 50       // frequency in Hz
+Z_m = 3+%i*5 // main winding impedance of motor in ohm
+Z_s = 5+%i*3 // starting impedance of motor in ohm
+
+// caclulations
+alpha_s = atand(imag(Z_s),real(Z_s))                             // angle in degree from Z_s
+I_s = V_t/Z_s                          // starting current in A
+alpha_m = atand(imag(Z_m),real(Z_m))                                // angle in degree from Z_m
+I_m = V_t/(Z_m)                          // main winding current in A
+alpha = alpha_m-alpha_s                     // angle of line current
+I = sqrt((abs(I_s))^2+(abs(I_m))^2+2*abs(I_s)*abs(I_m)*cosd(alpha)) // line current in A
+
+// display the result  
+disp("Example 11.3 solution"); 
+printf(" \n Input current \n I_s = %.2f<%.2f A \n", abs(I_s),atand(imag(I_s),real(I_s)) );
+printf(" \n Main winding current \n I_m = %.2f<%.f A \n", abs(I_m),atand(imag(I_m),real(I_m)));
+printf(" \n Line current \n I = %.2f A \n", I );
-- 
cgit