initial commit / add all books

1 files changed, 33 insertions, 0 deletions

diff --git a/1418/CH26/EX26.18/EX26_18.sce b/1418/CH26/EX26.18/EX26_18.sce
new file mode 100644
index 000000000..a9236207d
--- /dev/null
+++ b/1418/CH26/EX26.18/EX26_18.sce
@@ -0,0 +1,33 @@
+//EXAMPLE 26.18

+//4-POLE LONG SUNT GENERATOR

+

+clc;

+funcprot(0);

+

+//Variable Initialisation

+N=900;.................//Speed of  the generator in rpm

+P=4;....................//Number of poles

+Rse=0.02;.............//Series field resistance in Ohms

+Rsh=100;...............//Shunt field resistance in Ohms

+Phi=0.07;..........//Air gap flux per pole in Webers

+Al=P;...............//Number of parallel paths in lap wound generator

+T=220;.............//Number of turns in armature winding

+Rw=0.004;..........//Resistance per turn in Ohms

+Ia=50;.............//Armature current in Amperes

+

+Z=T*2;....................//Total number of conductors

+E=(Phi*P*N*Z)/(60*Al);.............//Generated EMF in Volts

+disp(E,"Generated EMF in Volts:");

+Rtc=T*Rw;.....................//Total resistance of 220 turns in Ohms

+Rp=Rtc/Al;...................//Resistance of each path in Ohms

+Ra=Rp/Al;...................//Armature resistance in Ohms

+Rca=Ra+Rse;..................//Armature circuit resistance in Ohms

+Va=Ia*Rca;...................//Armature circuit drop in Volts

+V=E-Va;.......................//Terminal voltage in Volts

+disp(V,"Terminal voltage in Volts:");

+Ish=V/Rsh;....................//Current through in shunt field in Amperes

+y=round(Ish*100)/100;.............//Rounding of decimal places

+I=Ia-y;..........................//Load current in Amperes

+Po=V*I;................//Output power in Kilo Watts

+y1=round(Po);

+disp(y1,"Output power in Kilo Watts:");