From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3129/CH3/EX3.1/Ex3_1.sce | 41 +++++++++++++++++++++++++++++++++++++++
 3129/CH3/EX3.2/Ex3_2.sce | 45 +++++++++++++++++++++++++++++++++++++++++++
 3129/CH3/EX3.4/Ex3_4.sce | 50 ++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 136 insertions(+)
 create mode 100755 3129/CH3/EX3.1/Ex3_1.sce
 create mode 100755 3129/CH3/EX3.2/Ex3_2.sce
 create mode 100755 3129/CH3/EX3.4/Ex3_4.sce

(limited to '3129/CH3')

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)
-- 
cgit