1 files changed, 36 insertions, 0 deletions
diff --git a/1319/CH8/EX8.10/8_10.sce b/1319/CH8/EX8.10/8_10.sce
new file mode 100644
index 000000000..03f7b85c3
--- /dev/null
+++ b/1319/CH8/EX8.10/8_10.sce
@@ -0,0 +1,36 @@
+//To determine parameters of an 3 phase delta connected 4 pole induction motor
+
+clc;
+clear;
+
+V=440;
+f=50;
+p=4;
+E2=150;
+Nr=1450;
+
+Ns=120*f/p;
+
+s=(Ns-Nr)/Ns;
+
+rf=s*f; // Rotor frequency
+
+Eir=s*E2; // Rotor induced EMF per phase
+gc=1;
+
+// To find the GCD of both the voltages
+for i=E2:-1:1
+    a=modulo(V,i);
+    b=modulo(E2,i);
+    if(a==0&b==0)
+        gc=gc*i;
+        break;
+    end
+end
+
+printf('The parameters for a motor running at 1450 rpm are \n')
+printf('i) The slip = %g percent \n',s)
+printf('ii) The frequency of the rotor induced EMF =%g Hz \n',rf)
+printf('iii) The rotor induced EMF per phase = %g V \n',Eir)
+printf('iv) Stator to rotor turn ratio = %g : %g \n',V/gc,E2/gc)
+