1 files changed, 29 insertions, 0 deletions
diff --git a/1418/CH26/EX26.11.b/EX26_11b.sce b/1418/CH26/EX26.11.b/EX26_11b.sce
new file mode 100644
index 000000000..87ebf1e56
--- /dev/null
+++ b/1418/CH26/EX26.11.b/EX26_11b.sce
@@ -0,0 +1,29 @@
+//EXAMPLE 26.11(b)
+//4-POLE DC SHUNT GENERATOR
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+P=4;.....................//Number of poles 
+Z=120;.....................//Number of conductors
+N=1000;..................//Speed of the generator in rpm
+Ra=0.2;.................//Armature resistance in Ohms
+Rf=250;..................//Field resistance in Ohms
+V=250;...................//Terminal voltage in Volts
+Vb=1*2;.................//Brush drop in Volts
+Al=P;....................//Number of parallel paths for lap winding
+Pg=5*10^3;.................//Output power of geyser in Watts
+Pli=2.5*10^3;...............//Output power of lighting load in Watts
+
+Ig=Pg/V;.......................//Geyser current in Amperes
+Ili=Pli/V;.......................//Lighting current in Amperes
+It=Ig+Ili;......................//Total current in Amperes
+If=V/Rf;.......................//Field current in Amperes
+Ia=If+It;......................//Armature current in Amperes
+Va=Ia*Ra;.....................//Armature drop in Volts
+Eg=V+Va+Vb;...................//Generated EMF in Volts
+Phi=Eg*60*Al*1000/(Z*N*P);......//Flux per pole in Mili Webers
+disp(Phi,"Flux per pole in Mili Webers:");
+Iap=Ia/Al;....................//Armature current per parallel path in Amperes
+disp(Iap,"Armature current per parallel path in Amperes:");