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

---
 1964/CH12/EX12.1/ex12_1.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 1964/CH12/EX12.1/ex12_1.sce

(limited to '1964/CH12/EX12.1/ex12_1.sce')

diff --git a/1964/CH12/EX12.1/ex12_1.sce b/1964/CH12/EX12.1/ex12_1.sce
new file mode 100755
index 000000000..e3fc73931
--- /dev/null
+++ b/1964/CH12/EX12.1/ex12_1.sce
@@ -0,0 +1,25 @@
+//Chapter-12, Example 12.1, Page 341
+//=============================================================================
+clc
+clear
+//INPUT DATA
+Vm=325;//voltage in volts
+Rl=1000;//resistive load in ohms
+rf=100;//forward resistance in ohms
+//CALCULATIONS
+//for subdivision (a)
+Im=Vm/(rf+Rl);//peak value of current in A
+Idc=Im/(%pi);//average current in A
+Irms=Im/2;//rms value of current in A
+mprintf("Thus peak value of current,average current and rms value of current are %g A ,%g A and %g A respectively\n",Im,Idc,Irms);
+//for subdivision (b)
+Pdc=(Idc)^2*(Rl);//DC power output
+mprintf("Thus DC power is %1.3f W\n",Pdc);
+//for subdivision (c)
+Pac=(Irms)^2*(rf+Rl);//AC input power
+mprintf("Thus AC power is %d W\n",Pac);
+//for subdivision (d)
+n=(Pdc/Pac);//efficiency of rectification
+n=n*100;//efficiency in percentage
+mprintf("Thus efficiency in percentage is %2.2f percentage",n);
+//=================================END OF PROGRAM======================================================================================================
-- 
cgit