1 files changed, 23 insertions, 0 deletions
diff --git a/147/CH14/EX14.23/Example14_23.sce b/147/CH14/EX14.23/Example14_23.sce
new file mode 100644
index 000000000..bbb7b74f6
--- /dev/null
+++ b/147/CH14/EX14.23/Example14_23.sce
@@ -0,0 +1,23 @@
+close();
+clear;
+clc;
+//number of poles 'p', frequency of induction motor 'f', stator input power 'Pi', speed of motor 'n', stator copper loss 'Pc', stator core loss 'Pco', mechanical loss 'Pm'
+p = 6;
+f = 60; //Hz
+n = 1140; //rpm
+Pi = 48*1000; //W
+Pc = 1.4*1000; //W
+Pco = 1.6*1000; //W
+Pm = 1*1000; //W
+//synchronous speed 'ns'
+ns = 120*f/p; //rpm
+s = (ns-n)/ns;
+//rotor input 'Pri'
+Pri = Pi-(Pc+Pco);
+//rotor output 'Pro'
+Pro = (1-s)*Pri;
+//motor output 'Po'
+Po = Pro-Pm;
+//motor efficiency 'eff'
+eff = Po/Pi;
+mprintf("Motor efficiency = %d %%",round(eff*100));
+\ No newline at end of file