1 files changed, 28 insertions, 0 deletions
diff --git a/1319/CH6/EX6.22/6_22.sce b/1319/CH6/EX6.22/6_22.sce
new file mode 100644
index 000000000..015a386b8
--- /dev/null
+++ b/1319/CH6/EX6.22/6_22.sce
@@ -0,0 +1,28 @@
+//Efficiency at full load
+
+clc;
+clear;
+
+V=400;
+Inl=5; // No load current
+Ra=0.5; // Armature Resistance
+Rf=200; // Field Resistance
+Ifl=40; // Full load current
+
+Ish=V/Rf; //  Field Current
+
+Psc=(Ish^2)*Rf; // Field copper loss
+
+Prs=(V*Inl)-Psc; // Stray losses assuming no armature losses
+
+Ia=Ifl-Ish; // Armature Current
+
+Pc=(Ia^2)*Ra;// Armature copper loss
+
+Pi=Ifl*V; // Power input
+
+Po=Pi-Psc-Prs-Pc;
+
+eff=Po*100/Pi;
+
+printf('The efficiency at full load = %g percent \n',eff)