1 files changed, 29 insertions, 0 deletions
diff --git a/1319/CH6/EX6.15/6_15.sce b/1319/CH6/EX6.15/6_15.sce
new file mode 100644
index 000000000..f5473c9ef
--- /dev/null
+++ b/1319/CH6/EX6.15/6_15.sce
@@ -0,0 +1,29 @@
+//Speed at 50A considering armature reaction of a shunt motor
+
+clc;
+clear;
+
+N=1000; // Speed at No load
+I=5; // Current at no load
+V=250;
+Ra=0.2; // Armature Resistance
+Rf=250;// Field Resistance
+
+Ish=V/Rf; // Field Current
+
+Ia=I-Ish; //Armature Current at no load
+Eb=V-(Ia*Ra); // Back EMF at no load
+Il=50; // Curent taken when loaded
+
+Ebl=V-(Il-Ish)*Ra;// Back EMF when loaded
+
+Nl=Ebl*N/(0.97*Eb)
+
+printf('The Speed at 50A considering weakening of the field due to armature reaction = %g rpm \n',ceil(Nl) )
+
+
+
+
+
+
+