1 files changed, 19 insertions, 0 deletions
diff --git a/1319/CH1/EX1.3/1_3.sce b/1319/CH1/EX1.3/1_3.sce
new file mode 100644
index 000000000..85124d512
--- /dev/null
+++ b/1319/CH1/EX1.3/1_3.sce
@@ -0,0 +1,19 @@
+// To find the current and power of a capacitive circuit
+
+clc;
+clear;
+
+Z=10-25*%i;
+
+V=15;
+
+I=V/Z;
+
+theta=atand(imag(I)/real(I));
+
+Pr=V*abs(I)*cosd(theta);
+Pq=V*abs(I)*sind(theta);
+
+disp('A',I,'The current flowing through the given impedance =')
+disp('watt',Pr,'The real power loss of the capacitive impedance =')
+disp('Var',-Pq,'The reactive power of the capacitive circuit =')// Negative sign indicates power genrated.