1 files changed, 23 insertions, 0 deletions
diff --git a/147/CH14/EX14.16/Example14_16.sce b/147/CH14/EX14.16/Example14_16.sce
new file mode 100644
index 000000000..5aec7f4da
--- /dev/null
+++ b/147/CH14/EX14.16/Example14_16.sce
@@ -0,0 +1,23 @@
+//Armature resistance Ra, Field resistance Rg, Speed of generator N
+//Rating of Generator and Motor Pr,V
+close();
+clear;
+clc;
+Pr = 10000;//W
+V = 250;//V
+Ra = 0.1;//ohm
+Rf = 250;
+N = 800;
+//As generator
+If = V/Rf;
+Il = Pr/V;
+Ia = If+Il;
+Eg = V + Ia*Ra;
+//As a motor
+Il = Pr/V;
+If = V/Rf;
+Ia = Il - If;
+Em = V - Ia*Ra;
+ng = Em/Eg*N;
+mprintf('Speed of the motor = %0.1f rpm',ng);
+