1 files changed, 50 insertions, 0 deletions
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)