1 files changed, 30 insertions, 0 deletions
diff --git a/1418/CH26/EX26.15/EX26_15.sce b/1418/CH26/EX26.15/EX26_15.sce
new file mode 100644
index 000000000..3cb008e22
--- /dev/null
+++ b/1418/CH26/EX26.15/EX26_15.sce
@@ -0,0 +1,30 @@
+//4-POLE LONG SHUNT GENERATOR
+//EXAMPLE 26.15
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+N=1200;.................//Speed of  the generator in rpm
+Po=25;.................//Output power in Kilo Watts
+P=4;....................//Number of poles
+V=500;..................//Terminal voltage in Volts
+E=240;..................//Induced voltage at rated speed in Volts
+Ra=0.03;...............//Armature resistance in Ohms
+Rse=0.04;.............//Series field resistance in Ohms
+Rsh=200;...............//Shunt field resistance in Ohms
+Vb=1*2;...............//Brush drop in Volts
+Phi=0.02;..........//Air gap flux per pole in Webers
+Al=P;...............//Number of parallel paths in lap wound generator
+
+I=(Po*10^3)/V;.............//Load currrent in Amperes
+Ish=V/Rsh;....................//Current across shunt field resistance in Amperes
+Ia=I+Ish;.............//Armature current in Amperes
+Vse=Ia*Rse;..........//Series field drop in Volts
+Va=Ia*Ra;............//Armature drop in Volts
+E=V+Vse+Va+Vb;..........//Generated EMF in Volts
+disp(E,"Generated EMF in Volts:");
+
+Z=E*60*Al/(Phi*N*P);..............//Total number of conductors
+y=round(Z);....................//Rounding of decimal places
+disp(y,"Total number of conductors:");