1 files changed, 28 insertions, 0 deletions
diff --git a/1628/CH16/EX16.16/Ex16_16.sce b/1628/CH16/EX16.16/Ex16_16.sce
new file mode 100755
index 000000000..18fd9129f
--- /dev/null
+++ b/1628/CH16/EX16.16/Ex16_16.sce
@@ -0,0 +1,28 @@
+
+             // Example 16.16
+
+V=230;                // Supply voltage
+Ia=110;               // Current
+Ra=0.12;              // Resistance
+Rse=0.03;             // Series field resistance
+E1=V-Ia*(Ra+Rse);     // Emf Generated
+
+            // But for the Given machine  ( E1= QZNP/60A= kQ1N1 )
+            
+N1=600;               // No.Of turns                         
+Q1=0.024;             // Megnetic flux            
+k=E1/(Q1*N1);         // Constant
+
+Ia1=50;               // Current of 50A 
+E2=V-[Ia1*(Ra+Rse)];  // Emf Generated
+
+            // We know that E2=k*Q2*N2
+            
+Q2=0.016;             // Megnetic flux                        
+N2=E2/(k*Q2);         // New speed 
+disp(' The new speed is = '+string(round(N2))+' rpm');
+
+
+
+
+              //  p 653        16.16