blob: a060c12adfd20f54e8b5bce5615af3f80906e0ac (
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
|
//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
//Example 8
disp("CHAPTER 3");
disp("EXAMPLE 8");
//VARIABLE INITIALIZATION
v_ph=230; //in Volts and in polar form
z=8+(%i*6); //in Ohms and in rectanglar form
//SOLUTION
//converting z from rectangular form to polar form
z_mag=sqrt(real(z)^2+imag(z)^2);
phi=atan(imag(z)/real(z)); //atan() gives output in radians
I_ph=v_ph/z_mag;
I_l=sqrt(3)*I_ph;
disp(sprintf("The line current is %f A",I_l));
pow_fact=cos(phi);
disp(sprintf("The power factor is %f",pow_fact));
p=sqrt(3)*v_ph*I_l*pow_fact; //phase volt=line volt in delta connection(v_l=v_ph)
disp(sprintf("The power is %f W",p));
var=sqrt(3)*v_ph*I_l*sin(phi);
var=var/1000; //from VAR to kVAR
disp(sprintf("The reactive power is %f kVAR",var));
va=sqrt(3)*v_ph*I_l;
va=va/1000; //from VA to kVA
disp(sprintf("The total volt amperes is %f kVA",va));
//END
|
