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 : ");