diff options
Diffstat (limited to '3556/CH12')
| -rw-r--r-- | 3556/CH12/EX12.10/Ex12_10.sce | 107 | ||||
| -rw-r--r-- | 3556/CH12/EX12.13/Ex12_13.sce | 42 | ||||
| -rw-r--r-- | 3556/CH12/EX12.14/Ex12_14.sce | 36 | ||||
| -rw-r--r-- | 3556/CH12/EX12.15/Ex12_15.sce | 37 | ||||
| -rw-r--r-- | 3556/CH12/EX12.2/Ex12_2.sce | 42 | ||||
| -rw-r--r-- | 3556/CH12/EX12.3/Ex12_3.sce | 61 | ||||
| -rw-r--r-- | 3556/CH12/EX12.4/Ex12_4.sce | 61 | ||||
| -rw-r--r-- | 3556/CH12/EX12.5/Ex12_5.sce | 61 | ||||
| -rw-r--r-- | 3556/CH12/EX12.6/Ex12_6.sce | 62 | ||||
| -rw-r--r-- | 3556/CH12/EX12.7/Ex12_7.sce | 30 | ||||
| -rw-r--r-- | 3556/CH12/EX12.8/Ex12_8.sce | 90 | ||||
| -rw-r--r-- | 3556/CH12/EX12.9/Ex12_9.sce | 71 |
12 files changed, 700 insertions, 0 deletions
diff --git a/3556/CH12/EX12.10/Ex12_10.sce b/3556/CH12/EX12.10/Ex12_10.sce new file mode 100644 index 000000000..d33554222 --- /dev/null +++ b/3556/CH12/EX12.10/Ex12_10.sce @@ -0,0 +1,107 @@ +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 12 : Three Phase Circuit
+// Example 12 - 10
+
+clear; clc; close; // Clear the work space and console.
+//
+// Given data
+V1_mag = 120.0000 * sqrt(3);
+V1_angle = 30.0000;
+V2_mag = 120.0000 * sqrt(3);
+V2_angle = -90.000;
+Van_mag = 120.0000;
+Van_angle = 0.0000;
+Vbn_mag = Van_mag;
+Vbn_angle = -120.0000;
+Vcn_mag = Van_mag;
+Vcn_angle = 120.0000;
+Zan = complex(0,5);
+Zbn = complex(10,0);
+Zcn = complex(0,-10);
+V1 = complex(V1_mag*cosd(V1_angle),V1_mag*sind(V1_angle));
+V2 = complex(V2_mag*cosd(V2_angle),V2_mag*sind(V2_angle));
+Z11 = complex(10,5)
+Z12 = complex(-10,0);
+Z21 = Z12;
+Z22 = complex(10,-10);
+// Calculations Determinants
+delta = det([Z11 Z12; Z21 Z22]);
+delta_mag = norm(delta);
+delta_real = real(delta);
+delta_imag = imag(delta);
+delta_angle = atand(delta_imag,delta_real);
+// Calculations Determinants For Source Voltage V1
+delta1 = det([V1 Z12; V2 Z22]);
+delta1_mag = norm(delta1);
+delta1_real = real(delta1);
+delta1_imag = imag(delta1);
+delta1_angle = atand(delta1_imag,delta1_real);
+// Calculations Determinants For Source Voltage V2
+delta2 = det([Z11 V1; Z12 V2]);
+delta2_mag = norm(delta2);
+delta2_real = real(delta2);
+delta2_imag = imag(delta2);
+delta2_angle = atand(delta2_imag,delta2_real);
+// Calculations Mesh Current I1
+I1_mag = delta1_mag/delta_mag;
+I1_angle = delta1_angle - delta_angle
+// Calculations Mesh Current I2
+I2_mag = delta2_mag/delta_mag;
+I2_angle = delta2_angle - delta_angle
+// Calculations Line Current a
+I_a_mag = I1_mag;
+I_a_angle = I1_angle
+// Calculations Line Current b
+I1 = complex(I1_mag*cosd(I1_angle),I1_mag*sind(I1_angle))
+I2 = complex(I2_mag*cosd(I2_angle),I2_mag*sind(I2_angle))
+I_b_mag = norm(I2 - I1);
+I_b_angle = atand(imag(I2 - I1),real(I2 - I1))
+// Calculations Line Current c
+I_c_mag = I2_mag
+I_c_angle = -180.0000 + I2_angle;
+// Calculations Power Absorbed by the Load for Phase A
+Sal =(I_a_mag)^2*Zan;
+// Calculations Power Absorbed by the Load for Phase B
+Sbl =(I_b_mag)^2*Zbn;
+// Calculations Power Absorbed by the Load for Phase C
+Scl =(I_c_mag)^2*Zcn;
+// Calculations Total Complex Power Absorbed by the Load
+Stl = Sal + Sbl + Scl;
+Stl_real = real(Stl);
+Stl_imag = imag(Stl);
+// Calculations Power Absorbed by the Source for Phase A
+Sas =(complex(Van_mag*cosd(Van_angle),Van_mag*sind(Van_angle)))*conj(complex(I_a_mag*cosd(I_a_angle),I_a_mag*sind(I_a_angle)));
+// Calculations Power Absorbed by the Load for Phase B
+Sbs =(complex(Vbn_mag*cosd(Vbn_angle),Vbn_mag*sind(Vbn_angle)))*conj(complex(I_b_mag*cosd(I_b_angle),I_b_mag*sind(I_b_angle)));
+// Calculations Power Absorbed by the Load for Phase C
+Scs =(complex(Vcn_mag*cosd(Vcn_angle),Vcn_mag*sind(Vcn_angle)))*conj(complex(I_c_mag*cosd(I_c_angle),I_c_mag*sind(I_c_angle)));
+// Calculations Total Complex Power Absorbed by The Source
+Sts = Sas + Sbs + Scs;
+Sts_real = -real(Sts);
+Sts_imag = -imag(Sts);
+//
+disp("Example 12-10 Solution : ");
+disp("a. The Line Currents: ");
+printf(" \n I_a_mag = Magnitude of Line Currents a = %.3f A",I_a_mag)
+printf(" \n I_a_angle = Angle of Line Currents a = %.3f degree",I_a_angle)
+printf(" \n I_b_mag = Magnitude of Line Currents b = %.3f A",I_b_mag)
+printf(" \n I_b_angle = Angle of Line Currents b = %.3f degree",I_b_angle)
+printf(" \n I_c_mag = Magnitude of Line Currents c = %.3f A",I_c_mag)
+printf(" \n I_c_angle = Angle of Line Currents c = %.3f degree",I_c_angle)
+disp("")
+disp("b Total Power Complex Absorbed By The Load");
+printf(" \n Stl_real = Real Part of Power Complex = %.3f Watt",Stl_real)
+printf(" \n Stl_imag = Imaginary Part of Power Complex = %.3f Var",Stl_imag)
+disp("")
+disp("c. Total Power Complex Absorbed By The Source");
+printf(" \n Sts_real = Real Part of Power Complex = %.3f Watt",Sts_real)
+printf(" \n Sts_imag = Imaginary Part of Power Complex = %.3f Var",Sts_imag)
+
+
+
diff --git a/3556/CH12/EX12.13/Ex12_13.sce b/3556/CH12/EX12.13/Ex12_13.sce new file mode 100644 index 000000000..22c7aa9c3 --- /dev/null +++ b/3556/CH12/EX12.13/Ex12_13.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 12 : Three Phase Circuit
+// Example 12 - 13
+
+clear; clc; close;
+//
+// Given data
+Van_mag = 100.0000;
+Van_angle = 0.0000;
+Vbn_mag = 100.0000;
+Vbn_angle = 120.0000;
+Vcn_mag = 100.0000;
+Vcn_angle = -120.0000;
+Ia_mag = 6.6700;
+Ia_angle = 0.0000;
+Ib_mag = 8.9400;
+Ib_angle = 93.4400;
+Ic_mag = 10.0000;
+Ic_angle = -66.8700;
+// Calculations The Wattmeter Reading 1
+P1 = Van_mag * Ia_mag * cosd(Van_angle - Ia_angle);
+// Calculations The Wattmeter Reading 2
+P2 = Vbn_mag * Ib_mag * cosd(Vbn_angle - Ib_angle);
+// Calculations The Wattmeter Reading 3
+P3 = Vcn_mag * Ic_mag * cosd(Vcn_angle - Ic_angle);
+// Calculations Total Power Absorbed
+PT = P1 + P2 + P3;
+//
+disp("Example 12-13 Solution : ");
+disp("a. Wattmeter Reading : ");
+printf(" \n P1 = Wattmeter Reading 1 = %.3f Watt",P1)
+printf(" \n P2 = Wattmeter Reading 2 = %.3f Watt",P2)
+printf(" \n P3 = Wattmeter Reading 3 = %.3f Watt",P3)
+disp("")
+disp("b. Total Power Absorbed : ");
+printf(" \n PT = Total Power Absorbed = %.3f Watt",PT)
diff --git a/3556/CH12/EX12.14/Ex12_14.sce b/3556/CH12/EX12.14/Ex12_14.sce new file mode 100644 index 000000000..b48550d41 --- /dev/null +++ b/3556/CH12/EX12.14/Ex12_14.sce @@ -0,0 +1,36 @@ +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 12 : Three Phase Circuit
+// Example 12 - 13
+
+clear; clc; close;
+//
+// Given data
+P1 = 1560.0000;
+P2 = 2100.0000;
+Vp = 220.0000;
+// Calculations The Total Real Power and Per Phase Real Power
+PT = P1 + P2;
+PT_p = PT/3;
+// Calcullation The Total Reactive Power
+QT = sqrt(3)*(P2 - P1);
+QT_p = QT/3;
+// Calculation Power Angle
+pf = cosd(atand(QT,PT))
+// Calculation Phase Impedance
+Ip = PT_p/(Vp*pf);
+Zp_mag = Vp/Ip;
+Zp_angle = atand(QT,PT);
+//
+disp("Example 12-14 Solution : ");
+printf(" \n a. PT_p = Total Real Power Per Phase = %.3f Watt",PT_p)
+printf(" \n b. QT_p = Total Reactive Power Per Phase = %.3f Var",QT_p)
+printf(" \n c. pf = Power Angle = %.3f (Lagging)",pf)
+printf(" \n d. Zp_mag = Magnitude of Phase Impedance = %.3f Ohm",Zp_mag)
+printf(" \n e. Zp_angle = Angle of Phase Impedance = %.3f degree",Zp_angle)
+
diff --git a/3556/CH12/EX12.15/Ex12_15.sce b/3556/CH12/EX12.15/Ex12_15.sce new file mode 100644 index 000000000..dcdbb0ac3 --- /dev/null +++ b/3556/CH12/EX12.15/Ex12_15.sce @@ -0,0 +1,37 @@ +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 12 : Three Phase Circuit
+// Example 12 - 15
+
+clear; clc; close;
+//
+// Given data
+Zy = complex(8,6);
+VL = 208.0000;
+// Calculations Wattmeter Reading 1 dan Wattmeter Reading 2
+Zy_mag = norm(Zy);
+Zy_angle = atand(imag(Zy),real(Zy));
+Vp = VL/sqrt(3);
+IL = Vp/Zy_mag;
+P1 = VL*IL*cosd(Zy_angle + 30.0000);
+P2 = VL*IL*cosd(Zy_angle - 30.0000);
+// Calculations Total Real Power
+PT = P1 + P2;
+// Calculations Total Reactive Power
+QT = sqrt(3)*(P2 - P1);
+//
+disp("Example 12-15 Solution : ");
+disp("a. Wattmeter Reading : ");
+printf(" \n P1 = Reading of Wattmeter W1 = %.3f Watt",P1)
+printf(" \n P2 = Reading of Wattmeter W2 = %.3f Watt",P2)
+disp("")
+disp("b. Total Real Power : ");
+printf(" \n PT = Total Real Power = %.3f Watt",PT)
+disp("")
+disp("c. Total Reactive Power : ");
+printf(" \n QT = Total Real Power = %.3f Watt",QT)
diff --git a/3556/CH12/EX12.2/Ex12_2.sce b/3556/CH12/EX12.2/Ex12_2.sce new file mode 100644 index 000000000..bc3e2e1a5 --- /dev/null +++ b/3556/CH12/EX12.2/Ex12_2.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 12 : Three Phase Circuit
+// Example 12 - 2
+
+clear; clc; close;
+//
+// Given data
+V_mag = 110.0000;
+V_angle = 0.0000;
+Zy1 = complex(5,-2);
+Zy2 = complex(10,8);
+//
+// Calculations Current Line A (Ia)
+Zy = Zy1 + Zy2;
+Zy_real = real(Zy);
+Zy_imag = imag(Zy);
+Zy_mag = norm(Zy);
+Zy_angle = atand(Zy_imag,Zy_real);
+I_a_mag = V_mag/Zy_mag;
+I_a_angle = V_angle - Zy_angle;
+// Calculations Current Line B (Ib)
+I_b_mag = I_a_mag;
+I_b_angle = -120.0000 + I_a_angle;
+// Calculations Current Line C (Ic)
+I_c_mag = I_a_mag;
+I_c_angle = -240.0000 + I_a_angle;
+//
+disp("Example 12-3 Solution : ");
+printf(" \n Ia_mag = Magnitude of Line Current a = %.3f A",I_a_mag)
+printf(" \n Ia_angle = Angle of Line Current a = %.3f Degree",I_a_angle)
+printf(" \n Ib_mag = Magnitude of Line Current b = %.3f A",I_b_mag)
+printf(" \n Ib_angle = Angle of Line Current b = %.3f Degree",I_b_angle)
+printf(" \n Ic_mag = Magnitude of Line Current c = %.3f A",I_c_mag)
+printf(" \n Ic_angle = Angle of Line Current c = %.3f Degree",I_c_angle)
+
+
diff --git a/3556/CH12/EX12.3/Ex12_3.sce b/3556/CH12/EX12.3/Ex12_3.sce new file mode 100644 index 000000000..21a402f2a --- /dev/null +++ b/3556/CH12/EX12.3/Ex12_3.sce @@ -0,0 +1,61 @@ +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 12 : Three Phase Circuit
+// Example 12 - 3
+
+clear; clc; close;
+//
+// Given data
+Van_mag = 100.0000;
+Van_angle = 10.0000;
+Zdelta = complex(8,4);
+//
+// Calculations Line Voltage (Vab)
+Vab_mag = (3)^0.5 * Van_mag
+Vab_angle = Van_angle + 30.0000;
+// Calculatioan Phase Current AB
+I_AB_mag = Vab_mag/norm(Zdelta)
+Zdelta_real = real(Zdelta)
+Zdelta_imag = imag(Zdelta)
+Zdelta_angle = atand(Zdelta_imag,Zdelta_real)
+I_AB_angle = Vab_angle - Zdelta_angle
+// Calculations Phase Current BC
+I_BC_mag = I_AB_mag;
+I_BC_angle = -120.0000 + I_AB_angle;
+// Calculations Phase Current CA
+I_CA_mag = I_AB_mag;
+I_CA_angle = 120.0000 + I_AB_angle;
+// Calculations Line Current a
+I_a_mag = (3)^0.5 * I_AB_mag;
+I_a_angle = -30.0000 + I_AB_angle;
+// Calculations Line Current b
+I_b_mag = I_a_mag;
+I_b_angle = -120.0000 + I_a_angle;
+// Calculations Line Current c
+I_c_mag = I_a_mag;
+I_c_angle = 120.0000 + I_a_angle;
+//
+disp("Example 12-3 Solution : ");
+printf(" \n I_AB_mag = Magnitude of Phase Currents AB = %.3f A",I_AB_mag)
+printf(" \n I_AB_angle = Angle of Phase Current AB = %.3f Degree",I_AB_angle)
+printf(" \n I_BC_mag = Magnitude of Phase Currents BC = %.3f A",I_BC_mag)
+printf(" \n I_BC_angle = Angle of Phase Current BC = %.3f Degree",I_BC_angle)
+printf(" \n I_CA_mag = Magnitude of Phase Currents CA = %.3f A",I_CA_mag)
+printf(" \n I_CA_angle = Angle of Phase Current CA = %.3f Degree",I_CA_angle)
+printf(" \n I_a_mag = Magnitude of Line Currents a = %.3f A",I_a_mag)
+printf(" \n I_a_angle = Angle of Line Current a = %.3f Degree",I_a_angle)
+printf(" \n I_b_mag = Magnitude of Line Current b = %.3f A",I_b_mag)
+printf(" \n I_b_angle = Angle of Line Current b = %.3f Degree",I_b_angle)
+printf(" \n I_c_mag = Magnitude of Line Currents c = %.3f A",I_c_mag)
+printf(" \n I_c_angle = Angle of Line Current c = %.3f Degree",I_c_angle)
+
+
+
+
+
+
diff --git a/3556/CH12/EX12.4/Ex12_4.sce b/3556/CH12/EX12.4/Ex12_4.sce new file mode 100644 index 000000000..e2dbc009c --- /dev/null +++ b/3556/CH12/EX12.4/Ex12_4.sce @@ -0,0 +1,61 @@ +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 12 : Three Phase Circuit
+// Example 12 - 4
+
+clear; clc; close;
+//
+// Given data
+Vab_mag = 330.0000;
+Vab_angle = 0.0000;
+Zdelta = complex(20,-15);
+//
+// Calculations Phase Voltage (VAB)
+VAB_mag = Vab_mag
+VAB_angle = Vab_angle
+// Calculatioan Phase Current AB
+I_AB_mag = VAB_mag/norm(Zdelta)
+Zdelta_real = real(Zdelta)
+Zdelta_imag = imag(Zdelta)
+Zdelta_angle = atand(Zdelta_imag,Zdelta_real)
+I_AB_angle = Vab_angle - Zdelta_angle
+// Calculations Phase Current BC
+I_BC_mag = I_AB_mag;
+I_BC_angle = -120.0000 + I_AB_angle;
+// Calculations Phase Current CA
+I_CA_mag = I_AB_mag;
+I_CA_angle = 120.0000 + I_AB_angle;
+// Calculations Line Current a
+I_a_mag = (3)^0.5 * I_AB_mag;
+I_a_angle = -30.0000 + I_AB_angle;
+// Calculations Line Current b
+I_b_mag = I_a_mag;
+I_b_angle = -120.0000 + I_a_angle;
+// Calculations Line Current c
+I_c_mag = I_a_mag;
+I_c_angle = 120.0000 + I_a_angle;
+//
+disp("Example 12-4 Solution : ");
+printf(" \n I_AB_mag = Magnitude of Phase Currents AB = %.3f A",I_AB_mag)
+printf(" \n I_AB_angle = Angle of Phase Current AB = %.3f Degree",I_AB_angle)
+printf(" \n I_BC_mag = Magnitude of Phase Currents BC = %.3f A",I_BC_mag)
+printf(" \n I_BC_angle = Angle of Phase Current BC = %.3f Degree",I_BC_angle)
+printf(" \n I_CA_mag = Magnitude of Phase Currents CA = %.3f A",I_CA_mag)
+printf(" \n I_CA_angle = Angle of Phase Current CA = %.3f Degree",I_CA_angle)
+printf(" \n I_a_mag = Magnitude of Line Currents a = %.3f A",I_a_mag)
+printf(" \n I_a_angle = Angle of Line Current a = %.3f Degree",I_a_angle)
+printf(" \n I_b_mag = Magnitude of Line Current b = %.3f A",I_b_mag)
+printf(" \n I_b_angle = Angle of Line Current b = %.3f Degree",I_b_angle)
+printf(" \n I_c_mag = Magnitude of Line Currents c = %.3f A",I_c_mag)
+printf(" \n I_c_angle = Angle of Line Current c = %.3f Degree",I_c_angle)
+
+
+
+
+
+
diff --git a/3556/CH12/EX12.5/Ex12_5.sce b/3556/CH12/EX12.5/Ex12_5.sce new file mode 100644 index 000000000..bbd9e50a9 --- /dev/null +++ b/3556/CH12/EX12.5/Ex12_5.sce @@ -0,0 +1,61 @@ +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 12 : Three Phase Circuit
+// Example 12 - 5
+
+clear; clc; close; // Clear the work space and console.
+//
+// Given data
+Vab_mag = 210.0000;
+Vab_angle = 0.0000;
+ZY = complex(40,25);
+//
+// Calculations Phase Voltage (Van)
+Van_mag = Vab_mag/(3)^0.5
+Van_angle = -30.0000;
+// Calculatioan Line Current a
+I_a_mag = Van_mag/norm(ZY)
+ZY_real = real(ZY)
+ZY_imag = imag(ZY)
+ZY_angle = atand(ZY_imag,ZY_real)
+I_a_angle = Van_angle - ZY_angle
+// Calculations Line Current b
+I_b_mag = I_a_mag;
+I_b_angle = -120.0000 + I_a_angle;
+// Calculations Line Current c
+I_c_mag = I_a_mag;
+I_c_angle = 120.0000 + I_a_angle;
+// Calculations Phase Current AB
+I_AB_mag = I_a_mag;
+I_AB_angle = I_a_angle;
+// Calculations Phase Current BC
+I_BC_mag = I_b_mag;
+I_BC_angle = I_b_angle;
+// Calculations Phase Current CA
+I_CA_mag = I_c_mag;
+I_CA_angle = I_c_angle;
+//
+disp("Example 12-5 Solution : ");
+printf(" \n I_AB_mag = Magnitude of Phase Currents AB = %.3f A",I_AB_mag)
+printf(" \n I_AB_angle = Angle of Phase Current AB = %.3f Degree",I_AB_angle)
+printf(" \n I_BC_mag = Magnitude of Phase Currents BC = %.3f A",I_BC_mag)
+printf(" \n I_BC_angle = Angle of Phase Current BC = %.3f Degree",I_BC_angle)
+printf(" \n I_CA_mag = Magnitude of Phase Currents CA = %.3f A",I_CA_mag)
+printf(" \n I_CA_angle = Angle of Phase Current CA = %.3f Degree",I_CA_angle)
+printf(" \n I_a_mag = Magnitude of Line Currents a = %.3f A",I_a_mag)
+printf(" \n I_a_angle = Angle of Line Current a = %.3f Degree",I_a_angle)
+printf(" \n I_b_mag = Magnitude of Line Current b = %.3f A",I_b_mag)
+printf(" \n I_b_angle = Angle of Line Current b = %.3f Degree",I_b_angle)
+printf(" \n I_c_mag = Magnitude of Line Currents c = %.3f A",I_c_mag)
+printf(" \n I_c_angle = Angle of Line Current c = %.3f Degree",I_c_angle)
+
+
+
+
+
+
diff --git a/3556/CH12/EX12.6/Ex12_6.sce b/3556/CH12/EX12.6/Ex12_6.sce new file mode 100644 index 000000000..2b0f056e9 --- /dev/null +++ b/3556/CH12/EX12.6/Ex12_6.sce @@ -0,0 +1,62 @@ +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 12 : Three Phase Circuit
+// Example 12 - 6
+
+clear; clc; close;
+//
+// Given data
+Vp_mag = 110.0000;
+Vp_angle = 0.0000;
+Ip_mag = 6.8100;
+Ip_angle = -21.8000;
+Z1 = complex(10,8);
+Z2 = complex(5,-2);
+//
+// Calculations Complex Power Absorbed by The Source
+S_s_mag = -3*Vp_mag*Ip_mag;
+S_s_angle = Vp_angle + (-1*Ip_angle);
+P_s = S_s_mag * cosd(S_s_angle);
+Q_s = S_s_mag * sind(S_s_angle);
+// Calculations Complex Power Absorbed By Load 1
+Z1_mag = norm(Z1);
+Z1_real = real(Z1);
+Z1_imag = imag(Z1);
+Z1_angle = atand(Z1_imag,Z1_real)
+S_1_mag = 3*(Ip_mag)^2.00*Z1_mag
+S_1_angle = Z1_angle
+P_1 = S_1_mag * cosd(S_1_angle);
+Q_1 = S_1_mag * sind(S_1_angle);
+// Calculations Complex Power Absorbed By Load 2
+Z2_mag = norm(Z2);
+Z2_real = real(Z2);
+Z2_imag = imag(Z2);
+Z2_angle = atand(Z2_imag,Z2_real)
+S_2_mag = 3*(Ip_mag)^2.00*Z2_mag
+S_2_angle = Z2_angle
+P_2 = S_2_mag * cosd(S_2_angle);
+Q_2 = S_2_mag * sind(S_2_angle);
+//
+disp("Example 12-6 Solution : ");
+printf(" \n S_s_mag = Magnitude of Complex Power Absorbed by The Source = %.3f VA",S_s_mag)
+printf(" \n S_s_Angle = Angle of Complex Power Absorbed by The Source = %.3f Degree",S_s_angle)
+printf(" \n P_s = Real Power Absorbed by The Source = %.3f Watt",P_s)
+printf(" \n Q_s = Reactive Power Absorbed by The Source = %.3f Var",Q_s)
+printf(" \n S_1_mag = Magnitude of Complex Power Absorbed by The Load 1 = %.3f VA",S_1_mag)
+printf(" \n S_1_Angle = Angle of Complex Power Absorbed by The Load 1 = %.3f Degree",S_1_angle)
+printf(" \n P_1 = Real Power Absorbed by The Load 1 = %.3f Watt",P_1)
+printf(" \n Q_1 = Reactive Power Absorbed by The Load 1 = %.3f Var",Q_1)
+printf(" \n S_2_mag = Magnitude of Complex Power Absorbed by The Load 2 = %.3f VA",S_2_mag)
+printf(" \n S_2_Angle = Angle of Complex Power Absorbed by The Load 2 = %.3f Degree",S_2_angle)
+printf(" \n P_2 = Real Power Absorbed by The Load 2 = %.3f Watt",P_2)
+printf(" \n Q_2 = Reactive Power Absorbed by The Load 2 = %.3f Var",Q_2)
+
+
+
+
+
diff --git a/3556/CH12/EX12.7/Ex12_7.sce b/3556/CH12/EX12.7/Ex12_7.sce new file mode 100644 index 000000000..98332ef5d --- /dev/null +++ b/3556/CH12/EX12.7/Ex12_7.sce @@ -0,0 +1,30 @@ +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 12 : Three Phase Circuit
+// Example 12 - 7
+
+clear; clc; close;
+//
+// Given data
+P_motor = 5600.0000;
+VL_motor = 220.0000;
+IL_motor = 18.200;
+//
+// Calculations Complex Power Motor
+S_motor = (3)^0.5*VL_motor*IL_motor;
+// Calculations Power Factor Motor
+pf_motor = (P_motor/S_motor);
+//
+disp("Example 12-7 Solution : ");
+printf(" \n Pf = Power Factor Motor = %.3f ",pf_motor)
+
+
+
+
+
+
diff --git a/3556/CH12/EX12.8/Ex12_8.sce b/3556/CH12/EX12.8/Ex12_8.sce new file mode 100644 index 000000000..efa3c7daf --- /dev/null +++ b/3556/CH12/EX12.8/Ex12_8.sce @@ -0,0 +1,90 @@ +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 12 : Three Phase Circuit
+// Example 12 - 8
+
+clear; clc; close; // Clear the work space and console.
+//
+// Given data
+VLL = 240.0000;
+f = 60.0000;
+// Load 1
+P1 = 30.00000;
+pf1 = 0.60000;
+// Load 2
+Q2 = 45.00000;
+pf2 = 0.80000;
+// Calculations Complex, Real and Reactive Power of Load 1
+S1 = P1/pf1;
+Q1 = S1 * sqrt(1-((pf1)^2));
+// Calculations Complex, Real and Reactive Power of Load 2
+S2 = Q2/sqrt(1-((pf2)^2));
+P2 = S2 * pf2;
+// Calculations Total Complex, Real and Reactive Power of Load
+ST = complex(P1,Q1) + complex(P2,Q2);
+PT = real(ST);
+QT = imag(ST);
+ST_mag = norm(ST);
+ST_angle = atand(QT,PT)
+// Calculations Line Current For Load 1
+IL1 = (50.0000 * 1000)/(sqrt(3)*240*1000);
+Ia1_mag = IL1;
+Ia1_angle = acosd(pf1);
+// Calculations Line Current For Load 2
+IL2 = (75.0000 * 1000)/(sqrt(3)*240*1000);
+Ia2_mag = IL2;
+Ia2_angle = acosd(pf2);
+// Calculations Line Current for Load
+Ia_tot_real = (Ia1_mag * cosd(Ia1_angle))+(Ia2_mag * cosd(Ia2_angle));
+Ia_tot_imag = (Ia1_mag * sind(Ia1_angle))+(Ia2_mag * sind(Ia2_angle));
+Ia_tot_mag = norm(complex(Ia_tot_real,Ia_tot_imag))
+Ia_tot_angle = atand(Ia_tot_imag,Ia_tot_real)
+// Calculations KVAR for Three Capacitors and Each Capacitor
+angle_old = ST_angle;
+angle_new = acosd(0.9000);
+Qc = PT * (tand(angle_old)-tand(angle_new));
+Qc1 = Qc/3;
+// Calculations Capacitance Each Capacitor
+C = Qc1/((2*(%pi)*f)*(VLL)^2)
+
+//
+disp("Example 12-8 Solution : ");
+disp("a. Complex, Real and Reactive Power of Total Load : ");
+disp("Complex, Real and Reactive Power of Load 1: ");
+printf(" \n S1 = Complex Power of Load 1 = %.3f KVA",S1)
+printf(" \n P1 = Real Power of Load 1 = %.3f KW",P1)
+printf(" \n Q1 = Reactive Power of Load 1 = %.3f KVAR",Q1)
+disp("")
+disp("Complex, Real and Reactive Power of Load 2: ");
+printf(" \n S2 = Complex Power of Load 2 = %.3f KVA",S2)
+printf(" \n P2 = Real Power of Load 2 = %.3f KW",P2)
+printf(" \n Q2 = Reactive Power of Load 2 = %.3f KVAR",Q2)
+disp("")
+disp("Complex, Real and Reactive Power of Total Load : ");
+printf(" \n ST_mag = Magnitude of Complex Power of Total Load = %.3f KVA",ST_mag)
+printf(" \n ST_angle = Angle of Complex Power of Total Load = %.3f Degree",ST_angle)
+printf(" \n PT = Real Power of Total Load = %.3f KW",PT)
+printf(" \n QT = Reactive Power of Total Load = %.3f KVAR",QT)
+disp("")
+disp("b. Line Current for Total Load : ");
+disp("Line Current for Load 1: ");
+printf(" \n Ia1_mag = Magnitude of Line Current For Load 1 = %.3f mA",Ia1_mag*1000)
+printf(" \n Ia1_angle = Angle of Line Current For Load 1 = %.3f Degree",-Ia1_angle)
+disp("")
+disp("Line Current for Load 2: ");
+printf(" \n Ia2_mag = Magnitude of Line Current For Load 2 = %.3f mA",Ia2_mag*1000)
+printf(" \n Ia2_angle = Angle of Line Current For Load 2 = %.3f Degree",-Ia2_angle)
+disp("")
+disp("Total Line Current : ");
+printf(" \n Ia2_mag = Magnitude of Total Line Current For Load = %.3f mA",Ia_tot_mag*1000)
+printf(" \n Ia2_angle = Angle of Total Line Current For Load = %.3f Degree",-Ia_tot_angle)
+disp("")
+disp("c. Capacitance of Capasitor for Improving Power Factor : ");
+printf(" \n Qc = KVAR for Three Capacitors = %.3f KVAR",Qc)
+printf(" \n Qc1 = KVAR for Each Capacitor = %.3f KVAR",Qc1)
+printf(" \n C = Capacitance of Capacitor = %.3f PF",C*1D+09)
diff --git a/3556/CH12/EX12.9/Ex12_9.sce b/3556/CH12/EX12.9/Ex12_9.sce new file mode 100644 index 000000000..9affbd095 --- /dev/null +++ b/3556/CH12/EX12.9/Ex12_9.sce @@ -0,0 +1,71 @@ +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 12 : Three Phase Circuit
+// Example 12 - 9
+
+clear; clc; close;
+//
+// Given data
+ZA = complex(15,0);
+ZB = complex(10,5);
+ZC = complex(6,-8);
+VL_mag = 100.0000;
+VL_angle = 0.0000;
+//
+// Calculations Voltage Line a
+V_a_mag = 100.0000;
+V_a_angle = 0.0000;
+// Calculations Voltage Line b
+V_b_mag = V_a_mag;
+V_b_angle = 120.0000;
+// Calculations Voltage Line c
+V_c_mag = V_a_mag;
+V_c_angle = -120.0000
+// Calculations Line Current a
+I_a_mag = V_a_mag/norm(ZA);
+ZA_real = real(ZA);
+ZA_imag = imag(ZA);
+ZA_angle = atand(ZA_imag,ZA_real)
+I_a_angle = V_a_angle - ZA_angle;
+// Calculations Line Current b
+I_b_mag = V_b_mag/norm(ZB);
+ZB_real = real(ZB);
+ZB_imag = imag(ZB);
+ZB_angle = atand(ZB_imag,ZB_real)
+I_b_angle = V_b_angle - ZB_angle;
+// Calculations Line Current c
+I_c_mag = V_c_mag/norm(ZC);
+ZC_real = real(ZC);
+ZC_imag = imag(ZC);
+ZC_angle = atand(ZC_imag,ZC_real)
+I_c_angle = V_c_angle - ZC_angle;
+// Calculations Neutral Current
+I_a_real = I_a_mag * cosd(I_a_angle);
+I_a_imag = I_a_mag * sind(I_a_angle);
+I_b_real = I_b_mag * cosd(I_b_angle);
+I_b_imag = I_b_mag * sind(I_b_angle);
+I_c_real = I_c_mag * cosd(I_c_angle);
+I_c_imag = I_c_mag * sind(I_c_angle);
+I_neutral_real = I_a_real + I_b_real + I_c_real;
+I_neutral_imag = I_a_imag + I_b_imag + I_c_imag;
+I_neutral_mag = norm(complex(I_neutral_real,I_neutral_imag))
+I_neutral_angle = atand(I_neutral_imag,I_neutral_real)
+//
+disp("Example 12-9 Solution : ");
+printf(" \n I_a_mag = Magnitude of Line Currents a = %.3f A",I_a_mag)
+printf(" \n I_a_angle = Angle of Line Current a = %.3f Degree",I_a_angle)
+printf(" \n I_b_mag = Magnitude of Line Currents b = %.3f A",I_b_mag)
+printf(" \n I_b_angle = Angle of Line Current b = %.3f Degree",I_b_angle)
+printf(" \n I_c_mag = Magnitude of Line Currents c = %.3f A",I_c_mag)
+printf(" \n I_c_angle = Angle of Line Current c = %.3f Degree",I_c_angle)
+printf(" \n I_neutral_mag = Magnitude of Neutral Current = %.3f A",I_neutral_mag)
+printf(" \n I_neutral_angle = Angle of Neutral Current = %.3f Degree",(180.0000 + I_neutral_angle))
+
+
+
+
|