1 files changed, 32 insertions, 0 deletions
diff --git a/3760/CH6/EX6.65/Ex6_65.sce b/3760/CH6/EX6.65/Ex6_65.sce
new file mode 100644
index 000000000..56458efde
--- /dev/null
+++ b/3760/CH6/EX6.65/Ex6_65.sce
@@ -0,0 +1,32 @@
+clc;
+p=6; // number of poles
+v=400; // rated voltage of induction motor
+m=3; // number of phases
+f=50; // frequency 
+r1=0.2; // stator resistance
+r2=0.5; // rotor resistance
+xm=48; // magnetising reactance
+x1=2; // leakage reactance of stator or rotor
+n=1050; // speed of motor
+ns=(120*f)/p; // synchronous speed
+s=(ns-n)/ns; // operating slip
+disp('case a');
+Zf=(((r2/s)+%i*x1)*%i*xm)/((r2/s)+%i*(xm+x1)); // per phase impedance offered to stator by rorating air gap field
+z=r1+%i*x1; // impedance of stator
+Z=Zf+z; // total impedance
+is=v/(sqrt(3)*abs(Z)); // stator current
+pf=cosd(atand(imag(Z),real(Z))); 
+printf('Stator line current is %f A\n',is);
+disp('case b');
+Po=m*(v/sqrt(3))*is*pf;
+// negative power indicates induction machine is acting as generator
+printf('Power fed back to 3 phase supply system is %f W\n',-Po);
+disp('case c');
+lr=600; // rotational and core losses
+pg=m*is^2*real(Zf); // air gap power
+l1=m*is^2*r1; // stator copper loss
+l2=s*pg; // rotor copper loss
+Tl=lr+l1+l2; // total losses
+pi=-Po+Tl; // mechanical power input
+ne=-Po/pi; 
+printf('Efficiency of induction motor is %f percent\n',ne*100);