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/CH5/EX5.18/ex5_18.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 1964/CH5/EX5.18/ex5_18.sce

(limited to '1964/CH5/EX5.18')

diff --git a/1964/CH5/EX5.18/ex5_18.sce b/1964/CH5/EX5.18/ex5_18.sce
new file mode 100755
index 000000000..b8699fc04
--- /dev/null
+++ b/1964/CH5/EX5.18/ex5_18.sce
@@ -0,0 +1,26 @@
+//Chapter-5, Example 5.18, Page 176
+//=============================================================================
+clc
+clear
+//INPUT DATA
+L=5;//inductance in Henry
+f=50;//frequency in hz
+V=230;//supply voltage in volts
+R=2;//resitance in ohms
+V1=250;//voltage across coil in V
+//CALCULATIONS
+Xl=(2*%pi*f*L);//inductive reactance in ohms
+Z1=sqrt((R)^2+(Xl)^2);//impedance of coil in ohms
+I=V1/Z1;//current in A
+Z=V/I;//total impedance in ohms
+//Z=sqrt((R)^2+(Xl-Xc)^2) and solving for Xc
+Xc=poly(0,"Xc");
+p=(Xc^2)-3141.58*(Xc)+378004
+roots2 = roots (p);
+r2 = roots2 (2);
+//Xc cannot be greater than Z
+C=1/(2*%pi*f*r2);//capacitance in F
+mprintf("Thus value of C that must be present suct that voltage across coil is 250 volts is %g F respectively,",C);
+//=================================END OF PROGRAM======================================================================================================
+
+;
-- 
cgit