summaryrefslogtreecommitdiff
path: root/1430/CH6/EX6.4/exa6_4.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /1430/CH6/EX6.4/exa6_4.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '1430/CH6/EX6.4/exa6_4.sce')
-rw-r--r--1430/CH6/EX6.4/exa6_4.sce18
1 files changed, 18 insertions, 0 deletions
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)=")