1 files changed, 19 insertions, 0 deletions
diff --git a/147/CH14/EX14.12/Example14_12.sce b/147/CH14/EX14.12/Example14_12.sce
new file mode 100644
index 000000000..66b42afaf
--- /dev/null
+++ b/147/CH14/EX14.12/Example14_12.sce
@@ -0,0 +1,19 @@
+//Power P, Voltage V, Armature Resistance Ra,Field Resistance Rf
+//Total mechanical and core losses Pc
+close();
+clear;
+clc;
+P = 100;//kW
+V = 230;//V
+Ra = 0.05;//ohm
+Rf = 57.5;//ohm
+Pc = 1.8;//kW
+If = V/Rf;
+Il = P*1000/V;
+Ia = Il+If;
+total_losses = If^2*Rf+Ia^2*Ra+Pc;
+Pi = P + total_losses/1000;
+n = P/Pi*100;
+//Prime mover output 'pmo'
+pmo = Pi*1000/746;
+mprintf('Generator efficiency at full load = %0.0f %%\nPrime mover output = %0.1f hp',n,pmo);
+\ No newline at end of file