blob: 93eea10caf27114e60a3b16f9d3a62250c883568 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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 - 12
clear; clc; close;
//
// Given data
S_load = 12.0000;
pf_load = 0.8560;
Vrms_load = 120.0000;
Vrms_angle = 0.0000;
//
// Calculations Average dan Reactive Power
P_load = S_load * pf_load;
Q_load = S_load * sqrt(1 - ((pf_load)^2));
// Calculations Peak Current
S = complex(P_load*1000,Q_load*1000)
V = complex(Vrms_load*cosd(0),Vrms_load*sind(0))
I_stars = norm(S/V);
I_peak = I_stars * sqrt(2);
// Calculations Load Impedance
Irms_mag = I_stars;
Irms_real = real(S/V);
Irms_imag = imag(S/V);
Irms_angle = -atand(Irms_imag,Irms_real);
Z_mag = Vrms_load/Irms_mag;
Z_angle = Vrms_angle - Irms_angle;
//
disp("Example 11-12 Solution : ");
disp("a. Real and Reactive Power : ");
printf(" \n P_load = Real Power = %.3f KW",P_load)
printf(" \n Q_load = Reactive Power = %.3f Kvar",Q_load)
disp("")
disp("b. Peak Current : ");
printf(" \n I_peak = Peak Current = %.3f A",I_peak)
disp("")
disp("C. Load Impedance : ");
printf(" \n Z_mag = Magnitude of Load Impedance = %.3f Ohm",Z_mag)
printf(" \n Z_angle = Angle of Load Impedance = %.3f degree",Z_angle)
|