1 files changed, 14 insertions, 0 deletions
diff --git a/147/CH14/EX14.22/Example14_22.sce b/147/CH14/EX14.22/Example14_22.sce
new file mode 100644
index 000000000..74eda78c2
--- /dev/null
+++ b/147/CH14/EX14.22/Example14_22.sce
@@ -0,0 +1,14 @@
+//Stator copper loss Pcs, Mechanical loss Pr, Stator core loss Pms
+close();
+clear;
+clc;
+Pcs = 3;//kW
+Pr = 2;//kW
+Pms = 1.7;//kW
+//From previous question
+Pir = 120;//kW
+Pcr = 6;//kW
+Pom = Pir - Pcr - Pr;
+Pim = Pir + Pcs + Pms;
+n = Pom/Pim*100;
+mprintf('Motor Output = %0.0f kW\nMotor Input = %0.1f kW \nEfficency = %0.1f %%',Pom,Pim,n);  
+\ No newline at end of file