1 files changed, 22 insertions, 0 deletions
diff --git a/3745/CH1/EX1.8/Ex1_8.sce b/3745/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..02ec842e3
--- /dev/null
+++ b/3745/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,22 @@
+// Ex 8 Page 348
+
+clc;clear;close;
+// Given
+
+Z1=(6.25+%i*1.25);//ohm
+Z2=(5+%i*0);//ohm
+//Z3=(5-%i*XC);//ohm
+V=100;//V
+f=50;//Hz
+//Z23=(250+5*Xc**2)/(100+Xc**2)-%i*(25*Xc)/(100+Xc**2)
+//for in phase condition imag part must be zero
+//5*Xc**2-100*Xc+5*100=0
+A=[5 -100 500];//polynomal 
+XC=roots(A);
+XC=XC(1);//ohm
+C=1/(2*%pi*f*XC)*10**6;//uF
+printf("Capacitance of XC = %.f uF",C)
+Z=XC;//ohm
+I=V/Z;//A
+P=I**2*Z/1000;//kW
+printf("\n Circuit current = %.f A and power = %.f kW",I,P)