blob: c3ef9143f66635e308da6d6bc865cbe7f5cd9fec (
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
|
//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
//Example 2
clc;
disp("CHAPTER 3");
disp("EXAMPLE 2");
//VARIABLE INITIALIZATION
v_l=400; //line voltage in Volts
I_l=30; //line current in Amperes
p=12*1000; //power absorbed in Watts
//SOLUTION
v_ph=v_l/sqrt(3); //phase voltage = (line voltage)/sqrt(3)
z_ph=v_ph/I_l; //phase current = line current for star connection
pow_fact=p/(sqrt(3)*v_l*I_l); //three-phase power = sqrt(3)*v_l*I_l*pow_fact
r_ph=z_ph*pow_fact; //from impedance tringle
disp(sprintf("The resisatnce of each impedance is %f Ω",r_ph));
x_ph=sqrt((z_ph^2)-(r_ph^2));
disp(sprintf("The ractance of each impedance is %f Ω",x_ph));
//END
|