1 files changed, 22 insertions, 0 deletions
diff --git a/1319/CH1/EX1.8/1_8.sce b/1319/CH1/EX1.8/1_8.sce
new file mode 100644
index 000000000..08a8dd069
--- /dev/null
+++ b/1319/CH1/EX1.8/1_8.sce
@@ -0,0 +1,22 @@
+//To find the current and impedance and admittance of the circuit
+
+clc;
+clear;
+
+R=25;
+Xl=50*%i;
+Z1=R+Xl;
+
+Z2=-40*%i;
+
+V=100;
+
+Zeq=(Z1*Z2)/(Z1+Z2);
+
+Y=1/Zeq;
+
+I=V*Y;
+
+mprintf('The Current of the circuit = %f /_ %f A \n',abs(I),atand(imag(I)/real(I)))
+mprintf('The Impedance of the circuit = %f /_ %f ohms \n',abs(Zeq),atand(imag(Zeq)/real(Zeq)))
+mprintf('The Admittance of the circuit = %f /_ %f siemens \n',abs(Y),atand(imag(Y)/real(Y)))