initial commit / add all books

3 files changed, 136 insertions, 0 deletions

diff --git a/3129/CH3/EX3.1/Ex3_1.sce b/3129/CH3/EX3.1/Ex3_1.sce
new file mode 100755
index 000000000..85f279dc4
--- /dev/null
+++ b/3129/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,41 @@
+//Finding the Performance Parameters of a Half-Wave Rectifier

+//Example 3.1 (Page No- 71) 

+clc

+clear

+Vm = 1; // Assume value of Vm

+R = 1; // Assume R is 1

+Vdc = (0.318*Vm)/R;

+Idc = (0.318*Vm)/R;

+Pdc = (0.318*Vm)^2/R;

+Pac = (0.5*Vm)^2/R;

+Vrms = 0.5*Vm;

+Irms = (0.5*Vm)/R;

+// part(a)

+eta = (Pdc/Pac)*100; // efficiency

+printf('Efficiency : %2.2f%% \n',eta);

+//part(b)

+FF = Vrms/Vdc; //Form Factor

+perFF = FF*100; // % Form factor

+printf('Form Factor : %1.2f or %d%% \n',FF,perFF);

+//part(c)

+RF = sqrt(FF^2-1); // Ripple Factor

+perRF = RF*100; // % RF

+printf('Ripple Factor: %1.2f of %d%% \n',RF,perRF);

+//part(d);

+Vs = Vm/sqrt(2);

+Is = (0.5*Vm)/R;

+VA = Vs*Is;

+TUF = Pdc/(VA); // Transformer Utility Factor

+printf('Transformer utility Factor : %0.3f \n',TUF);

+//part(e)

+printf('Peak Inverse Voltage (PIV) = Vm \n');

+//part(f)

+Is_peak=Vm/R;

+Is = (0.5*Vm)/R;

+CF = Is_peak/Is; // Crest Factor

+printf('Crest Factor : %d \n',CF);

+//part(g)

+PF = Pac/VA;

+printf('Input Power factor: %0.3f',PF);

+

+

diff --git a/3129/CH3/EX3.2/Ex3_2.sce b/3129/CH3/EX3.2/Ex3_2.sce
new file mode 100755
index 000000000..a11896aa9
--- /dev/null
+++ b/3129/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,45 @@
+//Finding the Performance Parameters of a Battery Charcher

+//Example 3.2 (Page No- 75) 

+clc

+clear

+//given data

+pi = 3.141592

+Idc = 5;//A

+E = 12; // V

+Vp = 120;//V

+n = 2;// turns ratio of transformer

+Vs = Vp/n;//V

+Vm = sqrt(2)*Vs;

+

+// part (a)

+alpha = asin(E/Vm); // firing angle

+alpha_degree = alpha*(180/%pi);// alpha in degrees

+betaa = 180 - alpha_degree

+delta = betaa - alpha_degree;

+printf('The conduction angle : %3.2f degree \n',delta);

+

+//part(b)

+R = ((2*Vm*cos(alpha))+(2*E*alpha)-(%pi*E))/(2*%pi*Idc);

+printf('Limiting Resistance : %1.2f Ohms \n',R);

+

+//Part(c)

+Irms_sq = (((Vm^2/2)+E^2)*(%pi-2*alpha)+(Vm^2/2)*sin(2*alpha)-4*Vm*E)/(2*%pi*R^2);

+Irms = sqrt(Irms_sq);//rms battery current

+Pr = Irms^2*R;

+printf('Power rating of R: %3.3f W \n',Pr);

+

+//part(d)

+Pdc = E*Idc; // power delivered to battery

+h0 = 100/Pdc; // h0*Pdc = 100

+printf('charging time in hours : %1.4f h \n',h0);

+

+//part (e)

+eta = Pdc/(Pdc+Pr); // Efficiency

+eta_per = eta*100;

+printf('Rectifier efficiency : %2.2f%% \n',eta_per)

+

+//part(f)

+PIV = Vm + E; //peak inverase voltage

+printf('Peak inverse voltage : %2.2f V',PIV)

+

+ 

diff --git a/3129/CH3/EX3.4/Ex3_4.sce b/3129/CH3/EX3.4/Ex3_4.sce
new file mode 100755
index 000000000..e13ddc9e8
--- /dev/null
+++ b/3129/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,50 @@
+//Finding the Performance Parameters of a full wave rectifier with center tapped transformer

+//Example 3.4 (Page No- 78) 

+clc

+clear

+//given data

+

+Vm = 1; // Assume

+R = 1;// Assume

+Vdc = (2*Vm/%pi);

+Idc = (Vdc/R);

+Vrms = Vm/sqrt(2);

+Irms = Vrms/R;

+

+//part(a)

+Pdc = Vdc*Idc; // dc output power

+Pac = Vrms*Irms; // ac input power

+eta = Pdc/Pac; // efficiency

+eta_per = eta*100;

+printf('Efficiency %2.3f%% \n',eta_per);

+

+//part(b)

+FF = Vrms/Vdc; //Form factor

+printf ('Form factor : %f \n',FF);

+

+//part(c)

+RF = sqrt(FF^2-1);// Ripple Factor

+RF_per = RF*100; // percentage RF

+printf('Ripple Factor : %2.1f \n',RF_per);

+

+//part(d)

+Vs = Vm/sqrt(2);

+Is = 0.5*(Vm/R);

+VA = 2*Vs*Is;

+TUF = Pdc/VA;

+TUF_per=TUF*100;

+printf('TUF : %f \n',TUF_per);

+

+//part(e)

+PIV = 2*Vm

+printf('Peak inverse voltage is 2Vm \n')

+

+//part(f)

+Is_peak = Vm/R;

+Is = Vm/(sqrt(2)*R);

+CF = Is_peak/Is;

+printf('Crest Factor %1.4f \n',CF)

+

+//part(g)

+PF = Pac/VA;

+printf('Power Factor :%f \n',PF)