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 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 3129/CH3/EX3.1/Ex3_1.sce

(limited to '3129/CH3/EX3.1/Ex3_1.sce')

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