blob: 502902d56eb1e9464082dce02ec3a3e79d6e9a29 (
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
|
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 33 // read it as example 32 in the book on page 2.86
disp("CHAPTER 2");
disp("EXAMPLE 33");
//VARIABLE INITIALIZATION
r1=20; //in Ω
r2=30; //
r3=40; //
l1=0.5; //in Henry
l2=0.3; //
l3=0.2; //
V=230; // volts
f=50; //Hz
//coils connected in series
//
//SOLUTION
R=r1+r2+r3;
L=l1+l2+l3;
XL=2*%pi*f*L;
//impedence Z=sqrt(R*2 +XL^2)
Z=sqrt(R^2 +XL^2);
I=V/Z;
pf=R/Z;
pc=V*I*pf;
disp(sprintf("The total current is %f Amp", I));
disp(sprintf("The Power Factor is %f lagging", pf));
disp(sprintf("The Power consumed in the circuit is %f W", pc));
disp(" ");
//
//END
|
