initial commit / add all books

1 files changed, 35 insertions, 0 deletions

diff --git a/2123/CH6/EX6.21/Exa_6_21.sce b/2123/CH6/EX6.21/Exa_6_21.sce
new file mode 100755
index 000000000..cf8f721be
--- /dev/null
+++ b/2123/CH6/EX6.21/Exa_6_21.sce
@@ -0,0 +1,35 @@
+//Example No. 6.21

+clc;

+clear;

+close;

+format('v',9);

+

+//Given Data : 

+Pout=2500;//hp

+V1=2300;//volt

+P=20;//pole

+f=50;//Hz

+Xs=1.77;//ohm/phase

+Pout=Pout*735.5/1000;//KW

+V=V1/sqrt(3);//Volt/phase

+cos_theta=1;

+I=Pout*10^3/3/V/cos_theta;//A

+Ixs=I*Xs;//V

+E=sqrt(V^2+Ixs^2);//V

+del=acosd(V/E);//degree

+Pout=3*V*E/Xs*cosd(del);//W

+disp(Pout,"Part(a) Power output in W : ");

+T=Pout;//synch. Watts

+N=300;//rpm

+ns=N/60;//rps

+T=T/2/%pi/ns;//N-m

+disp(T,"Part(a) Torque in N-m :");

+f1=25;//Hz

+N1=2*f1/P*60;//rpm

+disp(N1,"Part(b) Speed in rpm : ");

+T=T*(N1/N)^2;//N-m

+disp(T,"Part(b) Torque in N-m : ");

+Vapplied=V1*f1/f;//Volts

+disp(Vapplied,"Part(b) Applied voltage in volts : ");

+Pout=T*2*%pi*N1/60;//W

+disp(Pout/1000,"Part(b) Power output in KW : ");