initial commit / add all books

1 files changed, 37 insertions, 0 deletions

diff --git a/3760/CH6/EX6.49/Ex6_49.sce b/3760/CH6/EX6.49/Ex6_49.sce
new file mode 100644
index 000000000..9a4b8a793
--- /dev/null
+++ b/3760/CH6/EX6.49/Ex6_49.sce
@@ -0,0 +1,37 @@
+clc;

+p=150000; // rated power of induction motor

+v=400; // rated voltage of induction motor

+m=3; // number of phases

+r1=0.02; // stator resistance

+r2=0.04; // rotor resistance

+xm=9.8; // magnetising reactance

+x1=0.2; // leakage reactance of stator or rotor

+s=0.04; // slip

+n=0.93; // efficiency

+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

+pg=m*is^2*real(Zf); // air gap power

+l1=m*is^2*r1; // stator copper loss

+l2=s*pg; // rotor copper loss

+Tl=((1/n)-1)*p; // total losses

+lr=Tl-(l1+l2); // rotational and core losses

+printf('Rotational and core losses are %f W\n',lr); 

+disp('case b');

+s=-0.04; // slip

+Zf=(((r2/s)+%i*x1)*%i*xm)/((r2/s)+%i*(xm+x1)); // per phase impedance offered to stator by rorating air gap field

+Z=Zf+z; // total impedance

+is=v/(sqrt(3)*abs(Z)); // stator current

+pf=cosd(180-atand(imag(Z),real(Z))); // power factor

+printf('Power factor at the generator terminal is %f leading\n',pf);

+po=sqrt(3)*is*v*pf; // electrical output

+printf('Electrical output is %f KW\n',po/1000);

+pg=-m*is^2*real(Zf); // air gap power

+l1=m*is^2*r1; // stator copper loss

+l2=-s*pg; // rotor copper loss

+Tl=l1+l2+lr; // total losses

+pi=Tl+po; // mechanical power input

+ne=po/pi; 

+printf('Efficiency is %f percent',ne*100);