From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1418/CH27/EX27.3.a/EX27_3a.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 1418/CH27/EX27.3.a/EX27_3a.sce

(limited to '1418/CH27/EX27.3.a/EX27_3a.sce')

diff --git a/1418/CH27/EX27.3.a/EX27_3a.sce b/1418/CH27/EX27.3.a/EX27_3a.sce
new file mode 100644
index 000000000..2c0d991a9
--- /dev/null
+++ b/1418/CH27/EX27.3.a/EX27_3a.sce
@@ -0,0 +1,21 @@
+//EXAMPLE 27.3(a)
+//4-POLE MOTOR
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+P=4;...........//Total number of poles
+Z=880;.........//Total number of conductors
+Ia=120;.......//Armature current in Amperes
+b=3;..........//Brush lead in degrees
+Aw=2;.......//Number of parallel paths for a wave wound generator
+fdw=1100;......//Demagnetizing the field winding has 1100 turns per pole
+
+I=Ia/Aw;......//Current per path in Amperes
+ATd=Z*I*b/360;.......//Demagnetizing ampere-turns per pole
+ATe=Z*I*((1/(2*P))-(b/360));.....//Cross-magnetizinfampere-turns per pole
+disp(ATd,"(a).Demagnetizing ampere-turns per pole:");
+disp(ATe,"(b).Cross-magnetizinfampere-turns per pole:");
+Afc=ATd/fdw;........//Additional field current in Amperes
+disp(Afc,"(c).Additional field current in Amperes:");
-- 
cgit