From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1430/CH6/EX6.4/exa6_4.sce | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 1430/CH6/EX6.4/exa6_4.sce

(limited to '1430/CH6/EX6.4/exa6_4.sce')

diff --git a/1430/CH6/EX6.4/exa6_4.sce b/1430/CH6/EX6.4/exa6_4.sce
new file mode 100644
index 000000000..cf58d9fee
--- /dev/null
+++ b/1430/CH6/EX6.4/exa6_4.sce
@@ -0,0 +1,18 @@
+// Example 6.4
+// Parallel Network with an AC Current source
+// Let us assume that voltage phasor is being represent by V, Its magnitude by 
+// V_m and its phase by 'phase' variable.
+I=complex(3,0);// Current source phasor
+R=5; //Ohms
+C=25*10^-6;// Farads
+omega=4000; // (rad/s)
+Z_r=5;
+Z_c=1/(%i*omega*C);
+Z_par=(Z_r*Z_c)/(Z_r+Z_c);
+V=I*Z_par; // Voltage phasor in rectangular form
+V_m=abs(V);
+phase=(atan(imag(V),real(V))*180)/%pi;
+disp(V,"Voltage phasor in rectangular form(Volts)=")
+disp("Voltage phasor in polar form")
+disp(V_m,"Magnitude=")
+disp(phase,"Phase (in degree)=")
-- 
cgit