diff options
Diffstat (limited to '3556/CH11/EX11.3/Ex11_3.sce')
| -rw-r--r-- | 3556/CH11/EX11.3/Ex11_3.sce | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/3556/CH11/EX11.3/Ex11_3.sce b/3556/CH11/EX11.3/Ex11_3.sce new file mode 100644 index 000000000..cb544816a --- /dev/null +++ b/3556/CH11/EX11.3/Ex11_3.sce @@ -0,0 +1,42 @@ +clc
+// Fundamental of Electric Circuit
+// Charles K. Alexander and Matthew N.O Sadiku
+// Mc Graw Hill of New York
+// 5th Edition
+
+// Part 2 : AC Circuits
+// Chapter 11 : AC power Analysis
+// Example 11 - 3
+
+clear; clc; close;
+//
+// Given data
+V_mag = 5.0000;
+V_angle = 30.0000;
+R = 4.0000;
+Rc = 2.0000;
+V_s = complex(5*cosd(30),5*sind(30))
+Z_s = complex(4,-2)
+//
+// Calculations Total Current
+I_s = V_s/Z_s;
+I_real = real(I_s);
+I_imag = imag(I_s);
+I_magnitude = norm(I_s);
+I_angle = atand(I_imag,I_real);
+// Calculations Average Power Absorbed by The Source
+P_avg = 0.5000 * V_mag * I_magnitude * cosd(V_angle - I_angle);
+// Calculations Average Power Absorbed by The Resistor
+IR = I_magnitude;
+VR = IR * R;
+P_R = 0.5*VR*IR;
+//
+disp("Example 11-3 Solution : ");
+printf(" \n P_avg = Average Power Absorbed by Source = %.3f Watt",P_avg)
+printf(" \n P_R = Average Power Absorbed by Resistor = %.3f Watt",P_R)
+
+
+
+
+
+
|