initial commit / add all books

11 files changed, 176 insertions, 0 deletions

diff --git a/1733/CH5/EX5.1/5_1.sce b/1733/CH5/EX5.1/5_1.sce
new file mode 100755
index 000000000..c3ad289c6
--- /dev/null
+++ b/1733/CH5/EX5.1/5_1.sce
@@ -0,0 +1,21 @@
+//5.1

+clc;

+Vin=150;R=8;

+duty_cycle=36/(36+64);

+VL=Vin*duty_cycle^0.5;

+printf("RMS output voltage=%.0f V", VL) 

+Po=VL^2/R;

+printf("\nPower output =%.1f W", Po) 

+ // since losses are neglected

+ Pi=Po;

+printf("\nPower Input =%.1f W", Pi) 

+Irms_load=VL/R;

+Irms_input=11.25;

+VA_input=Irms_input*Vin;

+pf_input=Po/VA_input;

+printf(" \nInput Power factor =%.1f lagging", pf_input) 

+Ip_thy=2^0.5*Vin/R;

+Iavg_thy=duty_cycle*Ip_thy/%pi;

+printf("\nAverage thyristor Current =%.3f A", Iavg_thy) 

+Irms_thy=Ip_thy*duty_cycle^0.5/2;

+printf("\nRMS thyristor Current =%.3f A", Irms_thy)
\ No newline at end of file
diff --git a/1733/CH5/EX5.10/5_10.sce b/1733/CH5/EX5.10/5_10.sce
new file mode 100755
index 000000000..edadfaf2a
--- /dev/null
+++ b/1733/CH5/EX5.10/5_10.sce
@@ -0,0 +1,15 @@
+//5.10

+clc;

+V=415;

+P=20*10^3;

+disp('For Triacs')

+I_line=P/(3^0.5*V);

+Irms=I_line*1.5;

+printf("RMS current rating of each triac=%.2f A", Irms)

+Vrms=1.5*V;

+printf("\nRMS Voltage rating of each triac=%.2f V", Vrms)

+disp('For reverse connected thyristors')

+Irms_thy=1.5*I_line/2^0.5;

+printf("RMS current rating of each thyristor=%.2f A", Irms_thy)

+Vrms_thy=1.5*V;

+printf("\nRMS voltage rating of each thyristor=%.2f V", Vrms_thy)
\ No newline at end of file
diff --git a/1733/CH5/EX5.11/5_11.sce b/1733/CH5/EX5.11/5_11.sce
new file mode 100755
index 000000000..80d993287
--- /dev/null
+++ b/1733/CH5/EX5.11/5_11.sce
@@ -0,0 +1,13 @@
+//5.11

+clc;

+R=15;

+Vrms_input_phase=415/3^0.5;

+VL=3^0.5*2^0.5*Vrms_input_phase*(1/(%pi)*(%pi/6-30*%pi/(180*4)+sind(60)/8))^0.5;

+printf("\nRMS value of output voltage per phase=%.2f V", VL)

+Po=3*VL^2/R;

+printf("\nPower output =%.1f W", Po) 

+I_line=VL/R;

+printf("\nLine Current =%.2f A", I_line)

+VA_input=3*Vrms_input_phase*I_line;

+pf_input=Po/VA_input;

+printf("\nInput Power Factor =%.3f lagging", pf_input)
\ No newline at end of file
diff --git a/1733/CH5/EX5.12/5_12.sce b/1733/CH5/EX5.12/5_12.sce
new file mode 100755
index 000000000..15a9147e3
--- /dev/null
+++ b/1733/CH5/EX5.12/5_12.sce
@@ -0,0 +1,13 @@
+//5.12

+clc;

+R=15;

+Vrms_input_phase=415/3^0.5;

+VL=3^0.5*2^0.5*Vrms_input_phase*(1/(%pi)*(%pi/6-60*%pi/(180*4)+sind(120)/8))^0.5;

+printf("\nRMS value of output voltage per phase=%.2f V", VL)

+Po=3*VL^2/R;

+printf("\nPower output =%.1f W", Po) 

+I_line=VL/R;

+printf("\nLine Current =%.2f A", I_line)

+VA_input=3*Vrms_input_phase*I_line;

+pf_input=Po/VA_input;

+printf("\nInput Power Factor =%.3f lagging", pf_input)
\ No newline at end of file
diff --git a/1733/CH5/EX5.2/5_2.sce b/1733/CH5/EX5.2/5_2.sce
new file mode 100755
index 000000000..bbe59b943
--- /dev/null
+++ b/1733/CH5/EX5.2/5_2.sce
@@ -0,0 +1,21 @@
+//5.2

+clc;

+Vm=2^0.5*150;

+alph=60;

+R=8;

+Vin=150;

+Vavg_out=Vm*(cosd(alph)-1)/(2*%pi);

+printf("Average output voltage =%.2f V", Vavg_out) 

+disp('The average output voltage is negative only a part of positive half cycle appears at the output whereas the whole negative half cycle appears at the output')

+VL=Vm*(1/(4*%pi)*(2*%pi-60*%pi/180+sind(120)/2))^0.5;

+printf("\nRMS output voltage =%.2f V", VL) 

+Po=VL^2/R;

+printf("\nPower output =%.1f W", Po) 

+Iin=VL/R;

+VA_input=Iin*Vin;

+pf_input=Po/VA_input;

+printf(" \nInput Power factor =%.2f lagging", pf_input) 

+Iavg_out=Vavg_out/R;

+Iavg_input=Iavg_out;

+printf(" \nAverage input current =%.2f A", Iavg_input)

+disp('The average input current is negative because input current during positive half cycle is less than during negative half cycle ')
\ No newline at end of file
diff --git a/1733/CH5/EX5.3/5_3.sce b/1733/CH5/EX5.3/5_3.sce
new file mode 100755
index 000000000..b128c3d71
--- /dev/null
+++ b/1733/CH5/EX5.3/5_3.sce
@@ -0,0 +1,21 @@
+//5.3

+clc;

+Vin=150;

+Vm=2^0.5*Vin;

+alph=60;

+R=8;

+Vavg_out=Vm*(cosd(alph)+1)/(%pi);

+printf("Average output voltage over half cycle =%.2f V", Vavg_out) 

+VL=Vm*(1/(2*%pi)*(%pi-60*%pi/180+sind(120)/2))^0.5;

+printf("\nRMS output voltage =%.2f V", VL) 

+Po=VL^2/R;

+printf("\nPower output =%.1f W", Po) 

+Iin=VL/R;

+VA_input=Iin*Vin;

+pf_input=Po/VA_input;

+printf(" \nInput Power factor =%.1f lagging", pf_input) 

+

+Iavg_thy=Vm*(1+cosd(alph))/(2*%pi*R);

+printf("\nAverage thyristor Current =%.2f A", Iavg_thy) 

+Irms_thy=Vm/(2*R)*(1/(%pi)*(%pi-%pi/3+sind(120)/2))^0.5;

+printf("\nRMS thyristor Current =%.3f A", Irms_thy)

diff --git a/1733/CH5/EX5.4/5_4.sce b/1733/CH5/EX5.4/5_4.sce
new file mode 100755
index 000000000..b0b4f7cbd
--- /dev/null
+++ b/1733/CH5/EX5.4/5_4.sce
@@ -0,0 +1,21 @@
+//5.4

+clc;

+Vin=120;

+Vm=2^0.5*Vin;

+alph=90;

+R=10;

+

+VL=Vm*(1/(2*%pi)*(%pi-90*%pi/180+sind(180)/2))^0.5;

+printf("\nRMS output voltage =%.2f V", VL) 

+Po=VL^2/R;

+IL=VL/R;

+VA_input=IL*Vin;

+pf_input=Po/VA_input;

+printf(" \nInput Power factor =%.3f lagging", pf_input) 

+

+Iavg_thy=Vm*(1+cosd(alph))/(2*%pi*R);

+printf("\nAverage thyristor Current =%.2f A", Iavg_thy) 

+Irms_thy=IL/2^0.5;

+printf("\nRMS thyristor Current =%.3f A", Irms_thy)

+Irms_load=VL/R;

+printf("\nRMS Load Current =%.3f A", Irms_load)

diff --git a/1733/CH5/EX5.5/5_5.sce b/1733/CH5/EX5.5/5_5.sce
new file mode 100755
index 000000000..c6402f57a
--- /dev/null
+++ b/1733/CH5/EX5.5/5_5.sce
@@ -0,0 +1,10 @@
+//5.5

+clc;

+Vin=110;

+Vm=2^0.5*Vin;

+alph=60;

+R=400;

+VL=Vm*(1/(2*%pi)*(%pi-60*%pi/180+sind(120)/2))^0.5;

+printf("\nRMS output voltage =%.2f V", VL) 

+Po=VL^2/R;

+printf("\nPower output =%.2f W", Po) 
\ No newline at end of file
diff --git a/1733/CH5/EX5.6/5_6.sce b/1733/CH5/EX5.6/5_6.sce
new file mode 100755
index 000000000..6d323a922
--- /dev/null
+++ b/1733/CH5/EX5.6/5_6.sce
@@ -0,0 +1,12 @@
+//5.6

+clc;

+disp('When the power delivered is 80% we have')

+//0.8=1/(%pi)*(%pi-alph+sin(2*alph)/2)

+//on solving

+alph=60.5;

+printf("Firing angle=%.1f degree",alph)

+disp('When the power delivered is 30% we have')

+//0.3=1/(%pi)*(%pi-alph+sin(2*alph)/2)

+//on solving

+alph=108.6;

+printf("Firing angle=%.1f degree",alph)
\ No newline at end of file
diff --git a/1733/CH5/EX5.7/5_7.sce b/1733/CH5/EX5.7/5_7.sce
new file mode 100755
index 000000000..886da3e7e
--- /dev/null
+++ b/1733/CH5/EX5.7/5_7.sce
@@ -0,0 +1,12 @@
+//5.7

+clc;

+f=50;

+Vin=150;

+w=2*%pi*f;

+L=22*10^-3;R=4;

+th=atand(w*L/R);

+Beta=180+th;

+printf("Conduction angle of thyristor=%.0f degree",Beta)

+Vm=2^0.5*Vin;

+VL=Vm*(1/(2*%pi)*(%pi++sind(120)/2-sind(2*240)/2))^0.5;

+printf("\nRMS output Voltage=%.0f V", VL)
\ No newline at end of file
diff --git a/1733/CH5/EX5.8/5_8.sce b/1733/CH5/EX5.8/5_8.sce
new file mode 100755
index 000000000..2d15940be
--- /dev/null
+++ b/1733/CH5/EX5.8/5_8.sce
@@ -0,0 +1,17 @@
+//5.8

+clc;

+f=50;

+Vin=230;

+w=2*%pi*f;

+L=20*10^-3;R=5;

+th=atand(R/(w*L));

+printf("Firing angle=%.2f degree",th)

+disp('Therefore, Range of firing angle is 38.51 degree to 180 degree')

+Beta=180;

+printf("Conduction angle of thyristor=%.0f degree",Beta)

+IL=Vin/((R^2+w^2*L^2))^0.5;

+printf(" \nRMS load current =%.2f A", IL)

+Po=IL^2*R;

+printf(" \nPower Output =%.2f W", Po)

+pf_input=Po/(Vin*IL);

+printf(" \nInput Power factor =%.3f lagging", pf_input)
\ No newline at end of file