1 files changed, 26 insertions, 0 deletions
diff --git a/1418/CH27/EX27.5/EX27_5.sce b/1418/CH27/EX27.5/EX27_5.sce
new file mode 100644
index 000000000..ac0dbc8c8
--- /dev/null
+++ b/1418/CH27/EX27.5/EX27_5.sce
@@ -0,0 +1,26 @@
+//EXAMPLE 27.5
+//4-POLE SHUNT GENERATOR
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+P=4;...........//Total number of poles
+Po=50;...........//Output power in Kilo Watts
+V=250;...........//Terminal vltage in Volts
+Z=400;.............//Total number of condctors
+bs=4;............//brush lead in commutator segments
+Rsh=50;...........//Shunt field resistance in Ohms
+Aw=2;.............//Number of parallel paths in a wave wound generator
+
+I=(Po*1000)/V;........//Current per path in Amperes
+Ish=V/Rsh;.............//Shunt field current in Amperes
+Ia=I+Ish;..................//Armature current in Amperes
+Ic=Ia/Aw;...................//Current in each conductor in Amperes
+ns=Z/Aw;...............//Total number of segments
+b=P*360/ns;............//Brush lead in degrees
+ATdpole=Z*(Ia/Aw)*(b/360);........//Demagnetization ampere-turns per pole
+stp=ATdpole/Ish;.........//Extra shunt turns/poles
+
+disp(ATdpole,"Demagnetization ampere-turns per pole:");
+disp(stp,"Extra shunt turns/poles:");