blob: 420163b9eece3c0950fa5788291273e561056517 (
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
|
// Exa 5.16
clc;
clear;
close;
format('v',7)
// Given data
P = 18;// in kW
P= P*10^3;// in W
I_L = 60;// in A
V_L = 440;// in V
f= 50;// in Hz
// P = sqrt(3)*V_L*I_L*cosd(phi);
phi= acosd(P/(sqrt(3)*V_L*I_L));// in °
I_L= I_L*expm(phi*%pi*%i/180);// in A
I_Ph= I_L;// in A
V_Ph= V_L/sqrt(3);// in V
Z_Ph= V_Ph/I_Ph;// in ohm
R= real(Z_Ph);// in ohm
XC=abs(imag(Z_Ph));// in ohm
C = 1/(2*%pi*f*XC);// in F
C=C*10^6;// in µF
// Power factor
pf= cosd(phi);// lead
disp("The power factor is : "+string(pf)+" leading")
disp(R,"The resistance in Ω is : ")
disp(C,"The capacitance in µF is : ");
disp("The load is capacitive in nature.")
|
