initial commit / add all books

1 files changed, 40 insertions, 0 deletions

diff --git a/2123/CH6/EX6.9/Exa_6_9.sce b/2123/CH6/EX6.9/Exa_6_9.sce
new file mode 100755
index 000000000..592857f78
--- /dev/null
+++ b/2123/CH6/EX6.9/Exa_6_9.sce
@@ -0,0 +1,40 @@
+//Example No. 6.9

+clc;

+clear;

+close;

+format('v',7);

+

+//Given Data : 

+V=400;//volt

+P=4;//pole

+f=50;//Hz

+r1=0.64;//ohm

+r2=0.08;//ohm

+x1=1.1;//ohm

+x2=0.12;//ohm

+T1=40;//N-m

+N=1440;//rpm

+N1=1300;//rpm

+r2dash=r2*2^2;//ohm

+x2dash=x2*2^2;//ohm

+S=r2dash/sqrt(r1^2+(x1+x2dash)^2);//slip

+disp(S,"Slip for maximum torque at 50 Hz : ");

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

+ns=2*f/P;//rps

+Tmax=1.5*V1^2/(2*%pi*ns)*[1/(r1+sqrt(r1^2+(x1+x2dash)^2))];//Nm

+disp(Tmax,"Maximum torque at 50 Hz in N-m : ");

+n=ns*(1-S);//rps

+N=n*60;//rpm

+disp(N,"Speed at 50 Hz in rpm : ");

+f=25;//Hz

+x1=x1/2;//ohm

+x2dash=x2dash/2;//ohm

+S=r2dash/sqrt(r1^2+(x1+x2dash)^2);//slip

+disp(S,"Slip for maximum torque at 25 Hz : ");

+V1=V1/2;//volt/phase

+ns=2*f/P;//rps

+Tmax=1.5*V1^2/(2*%pi*ns)*[1/(r1+sqrt(r1^2+(x1+x2dash)^2))];//Nm

+disp(Tmax,"Maximum torque at 25 Hz in N-m : ");

+n=ns*(1-S);//rps

+N=n*60;//rpm

+disp(N,"Speed at 25 Hz in rpm : ");