summaryrefslogtreecommitdiff
path: root/1430/CH6/EX6.6/exa6_6.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.6/exa6_6.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.6/exa6_6.sce')
-rw-r--r--1430/CH6/EX6.6/exa6_6.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1430/CH6/EX6.6/exa6_6.sce b/1430/CH6/EX6.6/exa6_6.sce
new file mode 100644
index 000000000..da2eab1fa
--- /dev/null
+++ b/1430/CH6/EX6.6/exa6_6.sce
@@ -0,0 +1,22 @@
+// Example 6.6
+// Impedance Analysis of a parallel RC Circuit
+// From figure 6.17
+R=5; // Ohms
+C=25*10^-6; // Farad
+omega=4000; // radian frequency
+V_m=30; // Magnitude of voltage phasor
+phase_v=20; // In degree
+Z_r=5; // Impedance of Resistor
+Z_c=1/(%i*omega*C);
+Z_par=(Z_r*Z_c)/(Z_r+Z_c);
+Y_par=1/Z_par; // Equivalent Admittance
+x_v=V_m*cos((%pi*phase_v)/180);
+y_v=V_m*sin((%pi*phase_v)/180);
+V=complex(x_v,y_v);
+I=V*Y_par;// Current phasor in rectangular form
+I_m=abs(I); // Current phasor magnitude
+phase_i=atan(imag(I),real(I))*(180/%pi); // Phase angle of current phasor
+disp(I,"Current phasor in rectangular form(Amps)=")
+disp("In polar form=")
+disp(I_m,"Magnitude=")
+disp(phase_i,"Phase angle(in degree)=")