summaryrefslogtreecommitdiff
path: root/2231/CH4
diff options
context:
space:
mode:
Diffstat (limited to '2231/CH4')
-rwxr-xr-x2231/CH4/EX4.1/Ex_4_1.sce14
-rwxr-xr-x2231/CH4/EX4.10/Ex_4_10.sce12
-rwxr-xr-x2231/CH4/EX4.11/Ex_4_11.sce23
-rwxr-xr-x2231/CH4/EX4.12/Ex_4_12.sce20
-rwxr-xr-x2231/CH4/EX4.13/Ex_4_13.sce14
-rwxr-xr-x2231/CH4/EX4.14/Ex_4_14.sce25
-rwxr-xr-x2231/CH4/EX4.17/Ex_4_17.sce27
-rwxr-xr-x2231/CH4/EX4.18/Ex_4_18.sce28
-rwxr-xr-x2231/CH4/EX4.19/Ex_4_19.sce13
-rwxr-xr-x2231/CH4/EX4.2/Ex_4_2.sce18
-rwxr-xr-x2231/CH4/EX4.20/Ex_4_20.sce13
-rwxr-xr-x2231/CH4/EX4.3/Ex_4_3.sce22
-rwxr-xr-x2231/CH4/EX4.4/Ex_4_4.sce24
-rwxr-xr-x2231/CH4/EX4.5/Ex_4_5.sce18
-rwxr-xr-x2231/CH4/EX4.6/Ex_4_6.sce26
-rwxr-xr-x2231/CH4/EX4.7/Ex_4_7.sce17
-rwxr-xr-x2231/CH4/EX4.8/Ex_4_8.sce19
-rwxr-xr-x2231/CH4/EX4.9/Ex_4_9.sce17
18 files changed, 350 insertions, 0 deletions
diff --git a/2231/CH4/EX4.1/Ex_4_1.sce b/2231/CH4/EX4.1/Ex_4_1.sce
new file mode 100755
index 000000000..84a19d266
--- /dev/null
+++ b/2231/CH4/EX4.1/Ex_4_1.sce
@@ -0,0 +1,14 @@
+//Example 4_1
+clc;
+clear;close;
+
+//Given data:
+V=230;//V
+Vav=150;//V
+f=1*1000;//Hz
+
+//Solution :
+T=1/f;//s
+Ton=Vav*T/V;//s
+Toff=T-Ton;//s
+disp(Toff,Ton,"Periods of conduction & blocking(seconds)");
diff --git a/2231/CH4/EX4.10/Ex_4_10.sce b/2231/CH4/EX4.10/Ex_4_10.sce
new file mode 100755
index 000000000..1b9c00601
--- /dev/null
+++ b/2231/CH4/EX4.10/Ex_4_10.sce
@@ -0,0 +1,12 @@
+//Example 4_10
+clc;
+clear;close;
+
+//Given data:
+V=230;//V
+Ton=25/1000;//s
+Toff=10/1000;//s
+
+//Solution :
+Vavg=V*Ton/(Ton+Toff);//V
+disp(Vavg,"Average load voltage(V)");
diff --git a/2231/CH4/EX4.11/Ex_4_11.sce b/2231/CH4/EX4.11/Ex_4_11.sce
new file mode 100755
index 000000000..51acc677f
--- /dev/null
+++ b/2231/CH4/EX4.11/Ex_4_11.sce
@@ -0,0 +1,23 @@
+//Example 4_11
+clc;
+clear;close;
+
+//Given data:
+V=100;//V
+R=0.5;//ohm
+L=1/1000;//H
+Ton=1/1000;//s
+T=3/1000;//s
+
+//Solution :
+Toff=T-Ton;//s
+alfa=Ton/T;//duty cycle
+E=0;//V
+Imax=V/R*[(1-exp(-alfa*T*R/L))/(1-exp(-T*R/L))]-E/R;//A
+Imin=V/R*[(exp(alfa*T*R/L)-1)/(exp(T*R/L)-1)]-E/R;//A
+disp(Imax,"Maximum current(A)");
+disp(Imin,"Minimum current(A)");
+Iavg=(Imax+Imin)/2;//A
+disp(Iavg,"Average load current(A)");
+Vavg=alfa*V;//V
+disp(Vavg,"Average load voltage(V)");
diff --git a/2231/CH4/EX4.12/Ex_4_12.sce b/2231/CH4/EX4.12/Ex_4_12.sce
new file mode 100755
index 000000000..086d05fba
--- /dev/null
+++ b/2231/CH4/EX4.12/Ex_4_12.sce
@@ -0,0 +1,20 @@
+//Example 4_12
+clc;
+clear;close;
+
+//Given data:
+V=100;//V
+E=12;//V
+L=0.8/1000;//H
+R=0.2;//ohm
+T=2.4/1000;//s
+Ton=1/1000;//s
+
+//Solution :
+alfa=Ton/T;//duty cycle
+Imax=V/R*[(1-exp(-alfa*T*R/L))/(1-exp(-T*R/L))];//A
+Imin=V/R*[(exp(alfa*T*R/L)-1)/(exp(T*R/L)-1)];//A
+disp(Imax,"Maximum current(A)");
+disp(Imin,"Minimum current(A)");
+Vavg=alfa*V;//V
+disp(Vavg,"Average load voltage(V)");
diff --git a/2231/CH4/EX4.13/Ex_4_13.sce b/2231/CH4/EX4.13/Ex_4_13.sce
new file mode 100755
index 000000000..860b55d3a
--- /dev/null
+++ b/2231/CH4/EX4.13/Ex_4_13.sce
@@ -0,0 +1,14 @@
+//Example 4_13
+clc;
+clear;close;
+
+//Given data:
+V=500;//V
+I=10;//A
+f=400;//Hz
+
+//Solution :
+alfa=0.5;//for maximum swing
+//I=V/(4*f*L);//A
+L=V/(4*f*I);//H
+disp(L,"Series inductance(H)");
diff --git a/2231/CH4/EX4.14/Ex_4_14.sce b/2231/CH4/EX4.14/Ex_4_14.sce
new file mode 100755
index 000000000..9cbea99e8
--- /dev/null
+++ b/2231/CH4/EX4.14/Ex_4_14.sce
@@ -0,0 +1,25 @@
+////Example 4_14
+clc;
+clear;close;
+
+//Given data:
+V=800;//V
+P=300;//HP
+Eff=0.9;//Efficiency
+R=0.1;//ohm
+L=100/1000;//H
+alfa=0.2;//duty cycle
+N=900;//rpm
+f=400;//Hz
+
+//Solution :
+Pout=P*735.5/1000;//kW
+Pin=Pout/Eff;//kW
+I=Pin*1000/V;//A
+E=V-I*R;//V(at rated voltage)
+Edash=V*alfa-I*R;//V(at 0.2 duty cycle)
+Ndash=N*Edash/E;//rpm
+disp(Ndash,"Motor speed(rpm)");
+T=1/f;//s
+d_ia=(V-alfa*V)/L*alfa*T;//A
+disp(d_ia,"Current swing(A)");
diff --git a/2231/CH4/EX4.17/Ex_4_17.sce b/2231/CH4/EX4.17/Ex_4_17.sce
new file mode 100755
index 000000000..1aa84a0ca
--- /dev/null
+++ b/2231/CH4/EX4.17/Ex_4_17.sce
@@ -0,0 +1,27 @@
+////Example 4_17
+clc;
+clear;close;
+
+//Given data:
+V=200;//V
+R=2;//ohm
+L=10/1000;//H
+E=20;//V
+T=1000/10^6;//s
+Ton=300/10^6;//s
+
+//Solution :
+f=1/T;//Hz
+alfa_min=1/(R*T/L)*log(1+E/V*(exp(R*T/L)-1));//duty cycle
+alfa=Ton/T;//duty cycle
+disp(alfa_min,"Minimum value required of alfa");
+disp(alfa,"Actual value of alfa");
+disp("Load current is continuous as alfa_actual>alfa_min")
+Imax=V/R*[(1-exp(-alfa*T*R/L))/(1-exp(-T*R/L))]-E/R;//A
+Imin=V/R*[(exp(alfa*T*R/L)-1)/(exp(T*R/L)-1)]-E/R;//A
+disp(Imax,"Maximum current(A)");
+disp(Imin,"Minimum current(A)");
+Iavg=(alfa*V-E)/R;//A
+disp(Iavg,"Average load current(A)");
+Iavg_in=alfa*(V-E)/R-L/R/T*(Imax-Imin);//A
+disp(Iavg_in,"Average input current(A)");
diff --git a/2231/CH4/EX4.18/Ex_4_18.sce b/2231/CH4/EX4.18/Ex_4_18.sce
new file mode 100755
index 000000000..49a003415
--- /dev/null
+++ b/2231/CH4/EX4.18/Ex_4_18.sce
@@ -0,0 +1,28 @@
+////Example 4_18
+clc;
+clear;close;
+
+//Given data:
+V=200;//V
+T=1000/10^6;//s
+Ton=300/10^6;//s
+R=4;//ohm
+L=10/1000;//H
+
+//Solution :
+f=1/T;//Hz
+Vrms1=sqrt((200/%pi*sin(2*%pi*0.3))^2+(200/%pi*((1-cos(2*%pi*0.3))))^2)/sqrt(2);//V
+Vrms2=sqrt((200/2/%pi*sin(2*%pi*2*0.3))^2+(200/2/%pi*((1-cos(2*%pi*2*0.3))))^2)/sqrt(2);//V
+Vrms3=sqrt((200/3/%pi*sin(2*%pi*3*0.3))^2+(200/3/%pi*((1-cos(2*%pi*3*0.3))))^2)/sqrt(2);//V
+Z1=R+%i*(2*%pi*f*L);//ohm
+I1=Vrms1/abs(Z1);//A
+disp(I1,"RMS value of 1st harmonic of load current(A)");
+Z2=R+%i*(2*2*%pi*f*L);//ohm
+I2=Vrms2/abs(Z2);//A
+disp(I2,"RMS value of 2nd harmonic of load current(A)");
+Z3=R+%i*(3*2*%pi*f*L);//ohm
+I3=Vrms3/abs(Z3);//A
+disp(I3,"RMS value of 3rd harmonic of load current(A)");
+Iavg=V/R*Ton/T;//A
+Irms=sqrt(Iavg^2+I1^2+I2^2+I3^2);//A
+disp(Irms,"RMS value of load current(A)");
diff --git a/2231/CH4/EX4.19/Ex_4_19.sce b/2231/CH4/EX4.19/Ex_4_19.sce
new file mode 100755
index 000000000..b332433fd
--- /dev/null
+++ b/2231/CH4/EX4.19/Ex_4_19.sce
@@ -0,0 +1,13 @@
+//Example 4_19
+clc;
+clear;close;
+
+//Given data:
+V=200;//V
+Vav=250;//V
+Toff=0.6*10^-3;//s
+
+//Solution :
+T=Vav/V*Toff;//s
+Ton=T-Toff;//s
+disp(Ton,"Period of conduction(seconds)");
diff --git a/2231/CH4/EX4.2/Ex_4_2.sce b/2231/CH4/EX4.2/Ex_4_2.sce
new file mode 100755
index 000000000..05f9c8830
--- /dev/null
+++ b/2231/CH4/EX4.2/Ex_4_2.sce
@@ -0,0 +1,18 @@
+//Example 4_2
+clc;
+clear;close;
+
+//Given data:
+Ra=0.06;//ohm
+Rf=0.03;//ohm
+Iav=15;//A
+f=500;//Hz
+Eb=100;//V
+V=200;//V
+
+//Solution :
+Vav=Iav*(Ra+Rf)+Eb;//V
+T=1/f;//s
+Ton=Vav*T/V;//s
+Toff=T-Ton;//s
+disp(Toff,Ton,"Periods of conduction & blocking(seconds)");
diff --git a/2231/CH4/EX4.20/Ex_4_20.sce b/2231/CH4/EX4.20/Ex_4_20.sce
new file mode 100755
index 000000000..ce5473bb0
--- /dev/null
+++ b/2231/CH4/EX4.20/Ex_4_20.sce
@@ -0,0 +1,13 @@
+//Example 4_20
+clc;
+clear;close;
+
+//Given data:
+V=150;//V
+Vav=250;//V
+Toff=1*10^-3;//s
+
+//Solution :
+T=Vav/V*Toff;//s
+Ton=T-Toff;//s
+disp(Ton,"Period of conduction(seconds)");
diff --git a/2231/CH4/EX4.3/Ex_4_3.sce b/2231/CH4/EX4.3/Ex_4_3.sce
new file mode 100755
index 000000000..023540dfd
--- /dev/null
+++ b/2231/CH4/EX4.3/Ex_4_3.sce
@@ -0,0 +1,22 @@
+//Example 4_3
+clc;
+clear;close;
+
+//Given data:
+N=800;//rpm
+I=20;//A
+Ra=0.5;//ohm
+Vs=240;//V
+Ndash=600;//rpm
+
+//Solution :
+Eb_800=Vs-I*Ra;//V
+Eb_600=Eb_800*Ndash/N;//V
+Vav=I*Ra+Eb_600;//V
+alfa=Vav/Vs;//duty cycle
+disp(alfa,"(a) Duty cycle");
+//Torque reduced to half will reduce I to half
+I=I/2;//A
+Vav=I*Ra+Eb_600;//V
+alfa=Vav/Vs;//duty cycle
+disp(alfa,"(b) Duty cycle");
diff --git a/2231/CH4/EX4.4/Ex_4_4.sce b/2231/CH4/EX4.4/Ex_4_4.sce
new file mode 100755
index 000000000..ac1b64e33
--- /dev/null
+++ b/2231/CH4/EX4.4/Ex_4_4.sce
@@ -0,0 +1,24 @@
+//Example 4_4
+clc;
+clear;close;
+
+//Given data:
+V=200;//V
+RL=8;//ohm
+Vthy=2;//V
+f=800;//Hz
+alfa=0.4;//duty cycle
+
+//Solution :
+Vav=alfa*(V-Vthy);//V
+disp(Vav,"(a) Average output voltage(V)");
+VL=sqrt(alfa)*(V-Vthy);//V
+disp(VL,"(b) RMS output voltage(V)");
+Pout=VL^2/RL;//W
+Pin=alfa*V*(V-Vthy)/RL;//W
+Eff=Pout/Pin*100;//%
+disp(Eff,"(c) Chopper efficiency(%)");
+Rin=RL/alfa;//ohm
+disp(Rin,"(d) Input resistance(ohm)");
+V1=(V-Vthy)*sqrt(2)/%pi;//V
+disp(V1,"(e) RMS value of fundamental component(V)");
diff --git a/2231/CH4/EX4.5/Ex_4_5.sce b/2231/CH4/EX4.5/Ex_4_5.sce
new file mode 100755
index 000000000..ab45198f4
--- /dev/null
+++ b/2231/CH4/EX4.5/Ex_4_5.sce
@@ -0,0 +1,18 @@
+//Example 4_5
+clc;
+clear;close;
+
+//Given data:
+V=400;//V
+R=0;//ohm
+L=0.05;//H
+alfa=0.25;//duty cycle
+delta_i=10;//A
+
+//Solution :
+Vav=alfa*V;//V
+delta_T=L*delta_i/(V-Vav);//s
+Ton=delta_T;///s
+T=Ton/alfa;//s
+f=1/T;//pulses/s
+disp(f,"Chopping frequency(pulses/s)");
diff --git a/2231/CH4/EX4.6/Ex_4_6.sce b/2231/CH4/EX4.6/Ex_4_6.sce
new file mode 100755
index 000000000..164f1d976
--- /dev/null
+++ b/2231/CH4/EX4.6/Ex_4_6.sce
@@ -0,0 +1,26 @@
+//Example 4_6
+clc;
+clear;close;
+
+//Given data:
+R=4;//ohm
+L=6/1000;//H
+V=200;//V
+alfa=0.5;//duty cycle
+f=1000;//Hz
+
+//Solution :
+T=1/f;//s
+E=0;//V
+Imax=V/R*[(1-exp(-alfa*T*R/L))/(1-exp(-T*R/L))]-E/R;//A
+Imin=V/R*[(exp(alfa*T*R/L)-1)/(exp(T*R/L)-1)]-E/R;//A
+disp(Imax,"Maximum current(A)");
+disp(Imin,"Minimum current(A)");
+Iavg=(Imax+Imin)/2;//A
+disp(Iavg,"Average load current(A)");
+IL=sqrt(1/alfa/T*integrate('(Imin+(Imax-Imin)*t/alfa/T)^2','t',0,alfa*T));//A
+disp(IL,"RMS load current(A)");
+Iavg_in=alfa*Iavg;//A
+disp(Iavg_in,"Average input current(A)");
+Irms_in=sqrt(1/T*integrate('(Imin+(Imax-Imin)*t/alfa/T)^2','t',0,alfa*T));//A
+disp(Irms_in,"RMS input current(A)");
diff --git a/2231/CH4/EX4.7/Ex_4_7.sce b/2231/CH4/EX4.7/Ex_4_7.sce
new file mode 100755
index 000000000..fb30b7080
--- /dev/null
+++ b/2231/CH4/EX4.7/Ex_4_7.sce
@@ -0,0 +1,17 @@
+//Example 4_7
+clc;
+clear;close;
+
+//Given data:
+V=300;//V
+R=4;//ohm
+f=250;//Hz
+ripple=20;//%
+Iavg=30;//A
+
+//Solution :
+T=1/f;//s
+E=0;//V
+Imax_sub_Imin=ripple/100*Iavg;//A
+L=V/Imax_sub_Imin/R/f;//H
+disp(L,"Load Inductance(H)");
diff --git a/2231/CH4/EX4.8/Ex_4_8.sce b/2231/CH4/EX4.8/Ex_4_8.sce
new file mode 100755
index 000000000..db59fe243
--- /dev/null
+++ b/2231/CH4/EX4.8/Ex_4_8.sce
@@ -0,0 +1,19 @@
+//Example 4_8
+clc;
+clear;close;
+
+//Given data:
+Ra=0.5;//ohm
+L=16/1000;//H
+V=200;//V
+E=100;//V
+Imin=10;//A
+t_off=2/1000;//s
+
+//Solution :
+i=(V-E)/Ra*[1-exp(-Ra*t_off/L)]+Imin*exp(-Ra*t_off/L);//A
+disp(i,"Current at instant of turn off(A)");
+t=5/1000;//s
+i_dash=i*exp(-Ra*t/L);//A
+disp(i_dash,"Current 5 ms after turn off(A)");
+//Answer is wrong in the book.
diff --git a/2231/CH4/EX4.9/Ex_4_9.sce b/2231/CH4/EX4.9/Ex_4_9.sce
new file mode 100755
index 000000000..ddb36ddaa
--- /dev/null
+++ b/2231/CH4/EX4.9/Ex_4_9.sce
@@ -0,0 +1,17 @@
+//Example 4_9
+clc;
+clear;close;
+
+//Given data:
+V=220;//V
+N_NoLoad=1000;//rpm
+alfa=0.6;//duty cycle
+I=20;//A
+Ra=1;//ohm
+
+//Solution :
+Eb1=V;//V////at no load
+Vin=alfa*V;//V
+Eb2=Vin-I*Ra;//V
+N=N_NoLoad*Eb2/Eb1;//rpm
+disp(N,"Speed of the motor(rpm)");
generated by cgit (git 2.34.1) at 2024-12-19 19:13:55 +0000