summaryrefslogtreecommitdiff
path: root/2123/CH6
diff options
context:
space:
mode:
Diffstat (limited to '2123/CH6')
-rwxr-xr-x2123/CH6/EX6.1/Exa_6_1.sce26
-rwxr-xr-x2123/CH6/EX6.10/Exa_6_10.sce33
-rwxr-xr-x2123/CH6/EX6.11/Exa_6_11.sce23
-rwxr-xr-x2123/CH6/EX6.12/Exa_6_12.sce25
-rwxr-xr-x2123/CH6/EX6.13/Exa_6_13.sce14
-rwxr-xr-x2123/CH6/EX6.14/Exa_6_14.sce26
-rwxr-xr-x2123/CH6/EX6.15/Exa_6_15.sce29
-rwxr-xr-x2123/CH6/EX6.16/Exa_6_16.sce27
-rwxr-xr-x2123/CH6/EX6.17/Exa_6_17.sce11
-rwxr-xr-x2123/CH6/EX6.18/Exa_6_18.sce23
-rwxr-xr-x2123/CH6/EX6.19/Exa_6_19.sce34
-rwxr-xr-x2123/CH6/EX6.2/Exa_6_2.sce28
-rwxr-xr-x2123/CH6/EX6.20.1/Exa_6_20_page205.sce23
-rwxr-xr-x2123/CH6/EX6.20/Exa_6_20_page196.sce27
-rwxr-xr-x2123/CH6/EX6.21/Exa_6_21.sce35
-rwxr-xr-x2123/CH6/EX6.3/Exa_6_3.sce20
-rwxr-xr-x2123/CH6/EX6.4/Exa_6_4.sce14
-rwxr-xr-x2123/CH6/EX6.5/Exa_6_5.sce15
-rwxr-xr-x2123/CH6/EX6.6/Exa_6_6.sce39
-rwxr-xr-x2123/CH6/EX6.7/Exa_6_7.sce31
-rwxr-xr-x2123/CH6/EX6.8/Exa_6_8.sce32
-rwxr-xr-x2123/CH6/EX6.9/Exa_6_9.sce40
22 files changed, 575 insertions, 0 deletions
diff --git a/2123/CH6/EX6.1/Exa_6_1.sce b/2123/CH6/EX6.1/Exa_6_1.sce
new file mode 100755
index 000000000..f6909939d
--- /dev/null
+++ b/2123/CH6/EX6.1/Exa_6_1.sce
@@ -0,0 +1,26 @@
+//Example No. 6.1
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+V=400;//volt
+P=4;//poles
+f=50;//Hz
+Pout=10;//hp
+Pout=Pout*735.5;//W
+Snl=1/100;//No load Slip
+Sfl=4/100;//Full load slip
+Ns=120*f/P;//rpm
+disp(Ns,"Synchronous speed in rpm : ");
+N=Ns*(1-Snl);//rpm
+disp(N,"Speed at no load in rpm : ");
+N=Ns*(1-Sfl);//rpm
+disp(N,"Speed at full load in rpm : ");
+f2=Sfl*f;//Hz
+disp(f2,"Frequency of rotor current at full load in Hz : ");
+omega_n=N*2*%pi/60;//rad/s
+T=Pout/omega_n;//N-m
+disp(T,"Full load Torque in N-m : ");
+//Answer of full load speed in the book is wrong.
diff --git a/2123/CH6/EX6.10/Exa_6_10.sce b/2123/CH6/EX6.10/Exa_6_10.sce
new file mode 100755
index 000000000..ef22a8169
--- /dev/null
+++ b/2123/CH6/EX6.10/Exa_6_10.sce
@@ -0,0 +1,33 @@
+//Example No. 6.10
+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
+V1=V/sqrt(3);//volt/phase
+ns=2*f/P;//rps
+Tst=3*V1^2*r2dash/(2*%pi*ns*[(r1+r2dash)^2+(x1+x2dash)^2]);//N-m
+disp(Tst,"Starting torque at 50 Hz in N-m : ");
+f=25;//Hz
+x1=x1/2;//ohm
+x2dash=x2dash/2;//ohm
+V1=V1/2;//volt/phase
+ns=2*f/P;//rps
+Tst=3*V1^2*r2dash/(2*%pi*ns*[(r1+r2dash)^2+(x1+x2dash)^2]);//N-m
+disp(Tst,"Starting torque at 25 Hz in N-m : ");
diff --git a/2123/CH6/EX6.11/Exa_6_11.sce b/2123/CH6/EX6.11/Exa_6_11.sce
new file mode 100755
index 000000000..8fde1e81d
--- /dev/null
+++ b/2123/CH6/EX6.11/Exa_6_11.sce
@@ -0,0 +1,23 @@
+//Example No. 6.11
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+V=400;//volt
+P=4;//pole
+f=50;//Hz
+r2dash=1;//ohm/phase
+//Neglecting r1,x1,x2
+f1=400;//Hz
+S=4/100;//Slip
+t2=1.5;//ms
+t2=t2*10^-3;//sec
+t=1/f1;//sec
+t1=t-t2;//sec
+R=2;//ohm(additional resistance)
+R2dash=(r2dash*t1+(r2dash+R)*t2)/t;//ohm
+V1=V/sqrt(3);//volt
+T=3*V1^2*S/R2dash;//N-m
+disp(T,"Torque in synch.watts : ");
diff --git a/2123/CH6/EX6.12/Exa_6_12.sce b/2123/CH6/EX6.12/Exa_6_12.sce
new file mode 100755
index 000000000..e13ab6848
--- /dev/null
+++ b/2123/CH6/EX6.12/Exa_6_12.sce
@@ -0,0 +1,25 @@
+//Example No. 6.12
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+V1=400;//volt
+P=4;//pole
+f=50;//Hz
+Sm=10/100;//slip
+S1=0.04;//slip
+N2=900;//rpm
+
+//r2dash=0.01*x2;//ohm/phase
+r2dash=0.01
+r1dash=0.1
+Ns=120*f/P;//rpm
+N1=Ns*(1-S1);//rpm
+S2=(Ns-N2)/Ns;//slip
+T2ByT1=(N2/N1)^2;
+//T=3/(2*%pi*ns)*[V1^2/((rdash/S2)^2+xdash^2)]*(rdash/S2)
+//T2/T1=V2^2/V1^2*S1/S2*[(1+625*r1dash^2)/(1+6.25*r1dash^2)]
+V2=sqrt(T2ByT1*V1^2*S2/S1/[(1+625*r1dash^2)/(1+6.25*r1dash^2)]);//volt
+disp(V2,"Stator applied voltage in volts : ");
diff --git a/2123/CH6/EX6.13/Exa_6_13.sce b/2123/CH6/EX6.13/Exa_6_13.sce
new file mode 100755
index 000000000..4d541a68c
--- /dev/null
+++ b/2123/CH6/EX6.13/Exa_6_13.sce
@@ -0,0 +1,14 @@
+//Example No. 6.13
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+P=4;//pole
+f=50;//Hz
+S=4/100;//slip
+T=1000;//synch.Watts
+f1=25;//Hz
+Tnew=T*f/f1;//synch.watts
+disp(Tnew,"Torque in synch. Watts : ");
diff --git a/2123/CH6/EX6.14/Exa_6_14.sce b/2123/CH6/EX6.14/Exa_6_14.sce
new file mode 100755
index 000000000..180f8333f
--- /dev/null
+++ b/2123/CH6/EX6.14/Exa_6_14.sce
@@ -0,0 +1,26 @@
+//Example No. 6.14
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+P=4;//pole
+f=50;//Hz
+r1=0.04;//ohm
+r1dash=0.04;//ohm
+r2dash=0.04;//ohm
+x1=0.2;//ohm
+x2dash=0.2;//ohm
+f1=20;//Hz
+k=f1/f;//ratio of frequencies
+Tmax20BYTmax50=(r1+sqrt(r1^2+(x1+x2dash)^2))/(r1/k+sqrt((r1/k)^2+(x1+x2dash)^2));
+disp(Tmax20BYTmax50,"Ratio of max torque at 20 Hz to max Torque at 50 Hz : ");
+Tst20BYTst50=((r1+r2dash)^2+(x1+x2dash)^2)/k/((r1/k+r2dash/k)^2+(x1+x2dash)^2);
+disp(Tst20BYTst50,"Ratio of starting torque at 20 Hz to starting Torque at 50 Hz : ");
+//at 20 Hz :
+x11=x1*f1/f;//ohm
+x22dash=x2dash*f1/f;//ohm
+Ir20ByIr50=(f1/f)*[sqrt((r1+r2dash/r1dash)^2+(x1+x2dash)^2)]/[sqrt((r1+r2dash/r1dash)^2+(x11+x22dash)^2)];
+disp(Ir20ByIr50,"Ratio of rotor current at 20 Hz to rotor current at 50 Hz : ");
+//Answer of rotor current ratio is wrong in the book.
diff --git a/2123/CH6/EX6.15/Exa_6_15.sce b/2123/CH6/EX6.15/Exa_6_15.sce
new file mode 100755
index 000000000..1e5f45567
--- /dev/null
+++ b/2123/CH6/EX6.15/Exa_6_15.sce
@@ -0,0 +1,29 @@
+//Example No. 6.15
+clc;
+clear;
+close;
+format('v',5);
+
+//Given Data :
+P=4;//pole
+f=50;//Hz
+S=0.04;//slip
+r1=0.04;//ohm
+r1dash=0.04;//ohm
+r2dash=0.04;//ohm
+x1=0.2;//ohm
+x2dash=0.2;//ohm
+f1=30;//Hz
+k=f1/f;//ratio of frequencies
+S1=k*S;//slip
+//For 50 Hz
+//T=3*V1^2*S*r2dash/(2*%pi*ns)/[(S*r1+r2dash)^2+S^2*(x1+x2dash)^2];
+//For 30 Hz
+//T=3*V1^2/(2*%pi*ns)*S/(0.6*S1)/[(S/0.6+S/0.6/S1)^2+S^2];
+//0.16445*S1^2-0.74*S1+0.00445=0
+p=[0.16445 -0.074 0.00445];//polynomial for S1
+S1=roots(p);
+S1=S1(2);//as another value is for unstable region
+Ns=2*f1/P*60;//rpm
+N=Ns-S1*Ns;//rpm
+disp(N,"Motor speed at 30 Hz operation in rpm : ");
diff --git a/2123/CH6/EX6.16/Exa_6_16.sce b/2123/CH6/EX6.16/Exa_6_16.sce
new file mode 100755
index 000000000..1b6ad48ef
--- /dev/null
+++ b/2123/CH6/EX6.16/Exa_6_16.sce
@@ -0,0 +1,27 @@
+//Example No. 6.16
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+P=6;//pole
+f=50;//Hz
+S=0.04;//slip
+Ton=40;//N-m
+Toff=30;//N-m
+t_onBYt_off=1;
+disp("Part(a) : ");
+Ns=2*f/P*60;//rpm
+N=Ns*(1-S);//rpm
+Tavg=(Ton+Toff)/2;//N-m
+disp(Tavg,"Average torque in N-m : ");
+Navg=sqrt((N^2)*Tavg/Ton);//rpm
+disp(Navg,"Average speed in rpm : ");
+disp("Part(b) : ");
+N1=800;//rpm
+T=Ton*(N1/N)^2;//N-m
+Tavg=32;//N-m
+//Tavg=32=(Ton*t_on+T*t_off)/(t_on+t_off);//N-m
+tonBYtoff=(T-Tavg)/(Tavg-Ton);//
+disp(tonBYtoff,"Ratio ton/toff is : ");
diff --git a/2123/CH6/EX6.17/Exa_6_17.sce b/2123/CH6/EX6.17/Exa_6_17.sce
new file mode 100755
index 000000000..40514186d
--- /dev/null
+++ b/2123/CH6/EX6.17/Exa_6_17.sce
@@ -0,0 +1,11 @@
+//Example No. 6.17
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+Vrms=415;//volt
+f=50;//Hz
+Vdc=Vrms/sqrt(1/%pi*integrate('1','t',0,2*%pi/3));
+disp(Vdc,"Value of Vdc in Volts : ");
diff --git a/2123/CH6/EX6.18/Exa_6_18.sce b/2123/CH6/EX6.18/Exa_6_18.sce
new file mode 100755
index 000000000..64afa941f
--- /dev/null
+++ b/2123/CH6/EX6.18/Exa_6_18.sce
@@ -0,0 +1,23 @@
+//Example No. 6.18
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+V=400;//volt
+f=50;//Hz
+P=4;//poles
+N1=1350;//rpm
+N2=900;//rpm
+Rs=1.5;//ohm
+R=4;//ohm
+X=4;//ohm
+ns=2*f/P*60;//rpm
+S=(ns-N1)/ns;//slip
+T=3/2/%pi/(ns/60)*[(V/sqrt(3))^2*(P/S)/((Rs+P/S)^2+(R+X)^2)]
+T2=T*(N2/N1)^2;//N-m
+disp(T2,"Torque at 900 rpm in N-m : ");
+Snew=(ns-N2)/ns;//slip
+V=sqrt((T2/3*2*%pi*(ns/60))*((Rs+P/Snew)^2+(R+X)^2)/(P/Snew))*sqrt(3)
+disp(V,"Voltage at speed of 900 rpm in Volts : ");
diff --git a/2123/CH6/EX6.19/Exa_6_19.sce b/2123/CH6/EX6.19/Exa_6_19.sce
new file mode 100755
index 000000000..bb55d28ff
--- /dev/null
+++ b/2123/CH6/EX6.19/Exa_6_19.sce
@@ -0,0 +1,34 @@
+//Example No. 6.19
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+V=415;//volt
+P=4;//pole
+f=50;//Hz
+N=1370;//rpm
+r1=2;//ohm
+r2dash=3;//ohm
+x1=3.5;//ohm
+x2dash=3.5;//ohm
+X0=55;//ohm
+Ns=120*f/P;//rpm
+S=(Ns-N)/Ns;//slip
+Nfl=Ns-N;//rpm
+disp("Part(a) : ");
+disp(Nfl,"Full load slip speed in rpm : ");
+Z=(r1+%i*x1)+%i*X0*(r2dash/S+%i*x2dash)/(r2dash/S+%i*(X0+x2dash));//ohm
+Istator=V/sqrt(3)/abs(Z);//A
+disp(Istator,"Stator current in A : ");
+I2dash=Istator*(%i*X0/(r2dash/S+%i*(X0+x2dash)));//A
+Tfl=3*abs(I2dash)^2*r2dash/2/%pi/S/(Ns/60);//N-m
+disp(Tfl,"Motor torque in N-m : ");
+disp("Part(b) : ");
+//Torque is equal so stator current will be same.
+disp(Istator,"Stator current in A : ");
+N=1200;//rpm
+Ns=N+Nfl;//rpm
+f_inv=4*Ns/120;//Hz
+disp(f_inv,"Inverter frequency in Hz : ");
diff --git a/2123/CH6/EX6.2/Exa_6_2.sce b/2123/CH6/EX6.2/Exa_6_2.sce
new file mode 100755
index 000000000..f002a41c8
--- /dev/null
+++ b/2123/CH6/EX6.2/Exa_6_2.sce
@@ -0,0 +1,28 @@
+//Example No. 6.2
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+P=6;//poles
+f1=50;//Hz
+Pg=80;//KW
+f2=100;//alternation/min
+f2=f2/60;//Hz
+Ns=120*f1/P;//rpm
+Ns=Ns/60;//rps
+S=f2/f1;//Slip
+disp(S,"Slip is : ");
+N=Ns*(1-S);//rps
+disp(N*60,"Motor speed in rpm : ");
+Pm=Pg*(1-S);//KW
+disp(Pm,"Developed mechanical power in KW : ");
+CuLoss=S*Pg;//KW
+CuLoss_per_phase=CuLoss/3;//KW
+disp(CuLoss_per_phase*1000,"Rotor Copper Loss per phase in W : ");
+I2=65;//A
+r2=CuLoss_per_phase*1000/I2^2;//ohm/phase
+disp(r2,"Rotor resistance per phase in ohm : ");
+T=Pg*1000/2/%pi/Ns;//N-m
+disp(T,"Torque developed in N-m : ");
diff --git a/2123/CH6/EX6.20.1/Exa_6_20_page205.sce b/2123/CH6/EX6.20.1/Exa_6_20_page205.sce
new file mode 100755
index 000000000..81f1d3f37
--- /dev/null
+++ b/2123/CH6/EX6.20.1/Exa_6_20_page205.sce
@@ -0,0 +1,23 @@
+//Example No. 6.20(page no. 205)
+clc;
+clear;
+close;
+format('v',8);
+
+//Given Data :
+Pout=2500;//hp
+V=2300;//volt
+P=20;//pole
+f=50;//Hz
+Xs=1.77;//ohm/phase
+Pout=Pout*735.5/1000;//KW
+V=V/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
+Pout_max=3*V*E/Xs/1000;//KW
+Tmax=Pout_max*1000;//synch. Watts
+ns=2*f/P;//rps
+Tmax=Pout_max*1000/2/%pi/ns;//N-m
+disp(Tmax,"Maximum torque in N-m : ");
diff --git a/2123/CH6/EX6.20/Exa_6_20_page196.sce b/2123/CH6/EX6.20/Exa_6_20_page196.sce
new file mode 100755
index 000000000..43b952a34
--- /dev/null
+++ b/2123/CH6/EX6.20/Exa_6_20_page196.sce
@@ -0,0 +1,27 @@
+//Example No. 6.20(page no. 196)
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+Is=6;//A
+f=40;//Hz
+SlipSpeed=100;//rpm
+V=415;//volt
+P=4;//pole
+r1=2;//ohm
+r2dash=3;//ohm
+x1=3.5;//ohm
+x2dash=3.5;//ohm
+X0=55;//ohm
+N=1370;//rpm
+Ns=120*50/P;//rpm
+S=(Ns-N)/Ns;//slip
+I2dash=Is*X0/abs(r2dash/S+%i*(X0+x2dash));//A
+disp(I2dash,"Rotor current in Ampere : ");
+T=3*I2dash^2*r2dash/(2*%pi*S*(Ns/60));//N-m
+disp(T,"Full load torque in N-m : ");
+Ns2=120*f/P;//rpm
+MotorSpeed=Ns2-SlipSpeed;//rpm
+disp(MotorSpeed,"Motor speed in rpm : ");
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 : ");
diff --git a/2123/CH6/EX6.3/Exa_6_3.sce b/2123/CH6/EX6.3/Exa_6_3.sce
new file mode 100755
index 000000000..2b465f3f3
--- /dev/null
+++ b/2123/CH6/EX6.3/Exa_6_3.sce
@@ -0,0 +1,20 @@
+//Example No. 6.3
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+N=288;//rpm
+f=50;//Hz
+CuLoss=275;//W
+Ns=300;//rpm(For S=0.03:0.05)
+P=120*f/Ns;//poles
+disp(P,"No. of poles : ");
+S=(Ns-N)/Ns;//Slip
+disp(S,"Slip : ");
+S=2*S;//(as rotor reistance doubled, slip is doubled)
+disp(S,"Slip for full load if rotor resiatance doubled : ");
+//CuLoss=I2^2*r2
+CuLoss=2*CuLoss;//KW(rotor resiatance doubled & current constant)
+disp(CuLoss,"New value of rotor copper loss in watt : ");
diff --git a/2123/CH6/EX6.4/Exa_6_4.sce b/2123/CH6/EX6.4/Exa_6_4.sce
new file mode 100755
index 000000000..e7ac6b0ec
--- /dev/null
+++ b/2123/CH6/EX6.4/Exa_6_4.sce
@@ -0,0 +1,14 @@
+//Example No. 6.4
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+T_directStartBYTfl=1.5;//ratio
+K=sqrt(T_directStartBYTfl);//Ratio of full load torque to starting torque direct starting
+//Vapplied=1/K*Vline
+VappliedBYVline=1/K;
+disp("Applied voltage is "+string(VappliedBYVline)+" times of Line voltage.");
+LineCurrentBYIfl=1/K^2*4;//V
+disp("Line current at starting is "+string(LineCurrentBYIfl)+" times of full load current.");
diff --git a/2123/CH6/EX6.5/Exa_6_5.sce b/2123/CH6/EX6.5/Exa_6_5.sce
new file mode 100755
index 000000000..7f001fc00
--- /dev/null
+++ b/2123/CH6/EX6.5/Exa_6_5.sce
@@ -0,0 +1,15 @@
+//Example No. 6.5
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+Ist=300;//A
+X=50/100;//tapping
+Imotor=X*Ist;//A
+disp(Imotor,"Motor current in A : ");
+Iline=X^2*Ist;//A
+disp(Iline,"Line current in A : ");
+ratio=X^2;//Ratio of starting Torque 50% tapping to full voltage torque
+disp(ratio,"Ratio of starting Torque 50% tapping to full voltage torque : ");
diff --git a/2123/CH6/EX6.6/Exa_6_6.sce b/2123/CH6/EX6.6/Exa_6_6.sce
new file mode 100755
index 000000000..ddf6a61a5
--- /dev/null
+++ b/2123/CH6/EX6.6/Exa_6_6.sce
@@ -0,0 +1,39 @@
+//Example No. 6.6
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+V=400;//volt
+P=8;//pole
+f=50;//Hz
+r1=1.2;//ohm
+r2dash=1.2;//ohm
+x1=2.5;//ohm
+x2dash=2.5;//ohm
+N=720;//rpm
+Ns=120*f/P;//rpm
+S=(Ns-N)/Ns;//full load slip
+S2=2-S;//Slip during plugging
+V1=V/sqrt(3);//V
+I2dash=V1/sqrt((r1+r2dash/S2)^2+(x1+x2dash)^2);//A(Initial braking current)
+disp(I2dash,"Initial Braking current in A : ");
+Ifl=V1/sqrt((r1+r2dash/S)^2+(x1+x2dash)^2);//A(Full load current)
+RatioCurrent=I2dash/Ifl;//ratio of initial braking current to full load current
+disp("Braking curent is "+string(RatioCurrent)+" times of full load current.");
+Tfl=3*Ifl^2*r1/(2*%pi*S*Ns/60);//N-m
+T2dash=3*I2dash^2*r2dash/(2*%pi*S2*Ns/60);//N-m(initail braking T)
+disp(T2dash,"Initial Braking torque in N-m : ");
+RatioT=T2dash/Tfl;//ratio of initial braking Torque to full load Torque
+disp("Braking Torque is "+string(RatioT)+" times of full load Torque.");
+//Let R be the additional resistance
+I2dash=2*Ifl;//A
+//I2dash=V1/sqrt((r1+r2dash/S2+R/S2)^2+(x1+x2dash)^2);//A(Initial braking current)
+R=(sqrt(V1^2/I2dash^2-(x1+x2dash)^2)-r1-r2dash/S2)*S2;//in ohm
+Ractual=R/2^2;//ohm
+disp(Ractual,"Actual additional rotor resistance per phase in ohm : ");
+T_braking=3*I2dash^2*(r2dash+R)/(2*%pi*S2*Ns/60);//N-m(initail braking T)
+disp(T_braking,"Braking torque in N-m : ");
+TbBYTfl=T_braking/T2dash;//ratio
+disp(TbBYTfl,"Ratio o f braking torque to full load torque : ");
diff --git a/2123/CH6/EX6.7/Exa_6_7.sce b/2123/CH6/EX6.7/Exa_6_7.sce
new file mode 100755
index 000000000..42b0d44bc
--- /dev/null
+++ b/2123/CH6/EX6.7/Exa_6_7.sce
@@ -0,0 +1,31 @@
+//Example No. 6.7
+clc;
+clear;
+close;
+format('v',6);
+
+//Given Data :
+V=400;//volt
+P=8;//pole
+f=50;//Hz
+r1=0.1;//ohm
+r2dash=0.1;//ohm
+x1=0.4;//ohm
+x2dash=0.4;//ohm
+J=10;//Kg-m^2
+Sm=r2dash/sqrt(r1^2+(x1+x2dash)^2)
+Ns=2*f/P;//rps
+omega_ms=2*%pi*Ns;//rad/s
+V1=V/sqrt(3);//V
+Tmax=1.5*V1^2/(2*%pi*Ns)*[1/(r1+sqrt(r2dash^2+(2*x2dash)^2))];//N-m
+tau_m=J*omega_ms/Tmax;//sec
+ts=tau_m*(1.5*Sm+0.25/Sm);//sec
+disp(ts,"Starting time in sec : ");
+E=0.5*J*omega_ms^2;//Watt-s
+Etot=2*E;//Watts-s
+disp(Etot/1000,"Energy dissipated during starting in KW-s : ");
+tb=tau_m*(0.7/Sm+0.334*Sm);//sec
+disp(tb,"Pluggingfg time in sec : " );
+E=1.4*J*omega_ms^2;//Watt-s
+E=2*E/1000;//KW-s(taking cU loss into account)
+disp(E,"Energy dissipated during plugging in KW-s : ");
diff --git a/2123/CH6/EX6.8/Exa_6_8.sce b/2123/CH6/EX6.8/Exa_6_8.sce
new file mode 100755
index 000000000..0d61b24f2
--- /dev/null
+++ b/2123/CH6/EX6.8/Exa_6_8.sce
@@ -0,0 +1,32 @@
+//Example No. 6.8
+clc;
+clear;
+close;
+format('v',6);
+
+//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
+n=2*f/P;//rps
+n=n*60;//rpm
+N1=1300;//rpm
+Tload=T1*(N1/N)^2;//N-m
+disp(Tload,"Load torque in N-m : ");
+S=(n-N1)/n;//slip
+r2dash=r2*2^2;//ohm
+x2dash=x2*2^2;//ohm
+//Tload=3*I2dash^2*r2dash/(2*%pi*S*n/60)
+I2dash=sqrt(Tload/3/r2dash*(2*%pi*S*n/60));//A
+I2=2*I2dash;//A
+disp(I2,"Rotor current in A : ");
+I1=I2dash;//A
+V1=I1*(r1+r2dash+r2dash*(1-S)/S+%i*(x1+x2dash));//Vplt
+StatorVoltage=abs(V1)*sqrt(3);//Volt
+disp(StatorVoltage,"Stator Applied Voltage in V : ");
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 : ");
generated by cgit (git 2.34.1) at 2024-12-20 04:00:25 +0000