1 files changed, 26 insertions, 0 deletions
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======================================================================================================
+
+;