1 files changed, 45 insertions, 0 deletions
diff --git a/1418/CH26/EX26.22/EX26_22.sce b/1418/CH26/EX26.22/EX26_22.sce
new file mode 100644
index 000000000..c7b634c7d
--- /dev/null
+++ b/1418/CH26/EX26.22/EX26_22.sce
@@ -0,0 +1,45 @@
+//EXAMPLE 26.22
+//LONG SHUNT DYNAMO
+
+clc;
+funcprot(0);
+
+//Variable Initialisation
+N=1000;...........................//Speed of the dynamo in rpm
+Po=20;.............................//Output power in Kilo Watts
+V=220;..............................//Terminal voltage in Volts
+Ra=0.04;...........................//Armature resistance in Ohms
+Rsh=110;.............................//Shunt field resistance in Ohms
+Rse=0.05;...........................//Series field resistance in Ohms
+eff=85;..............................//Over all efficiency in Percentage
+
+I=(Po*1000)/(V);......................//Load current in Amperes
+y=round(I*100)/100;...................//Rounding of decimal places
+Ish=V/Rsh;...........................//Shunt field current in Amperes
+Ia=y+Ish;..........................//Armature current in Amperes
+Pin=(Po*1000)/(eff/100);...........//Input power in Watts
+y1=round(Pin);.....................//rounding of decimal places
+
+l=y1-(Po*1000);.........................//Total losses in the machine in Watts
+
+//Copper losses
+lsea=((Ra+Rse)*Ia^2);....................//Losses in series field winding + armature winding in Watts
+y2=round(lsea);..........................//Rounding of decimal places
+lsh=(Rsh*Ish^2);........................//Losses in shunt field circuit in Watts
+Lc=y2+lsh;..............................//Total copper losses in watts
+disp(Lc,"(i).Total copper losses in watts:");
+
+//Iron and friction losses
+Lrf=l-Lc;..............................//Total iron and friction losses in Watts
+disp(Lrf,"(ii).Total iron and friction losses in Watts:");
+
+//Torque developed by the prime mover
+w=(2*3.14*N)/60;...................................//Angular speed in rad/sec
+y3=round(w*100)/100;..................................//Rounding of decimal places
+T=y1/y3;.......................................//Torque developed by the prime mover in Nw-m
+y4=round(T*10)/10;.............................//Rounding of decimal places
+disp(y4,"(iii).Torque developed by the prime mover in Nw-m:");
+
+
+
+