1 files changed, 23 insertions, 0 deletions
diff --git a/1319/CH1/EX1.7/1_7.sce b/1319/CH1/EX1.7/1_7.sce
new file mode 100644
index 000000000..d1ef873aa
--- /dev/null
+++ b/1319/CH1/EX1.7/1_7.sce
@@ -0,0 +1,23 @@
+// To determine circuit impedance and current in a parallel connection of a resistor and capacitor.
+
+clc;
+clear;
+
+R=4700;
+V=240;
+f=60;
+w=2*%pi*f;
+C=2*(10^-6);
+Xc=-(1/(C*w))*%i;// Reactance in polar form
+
+Ir=V/R;
+Ic=V/Xc;
+
+I=Ir+Ic;// Total current
+
+Z=V/I;
+
+theta=atand(imag(Z)/real(Z));
+
+mprintf('Impedance of the circuit =  %f /_ %f ohms',abs(Z),theta)
+