summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.45/ch2_ex_45.sce
blob: 524c2f5a791efbbdeb36c7fdf66c64a6e958e3c7 (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
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 45

disp("CHAPTER 2");
disp("EXAMPLE 45");

//VARIABLE INITIALIZATION
L=1.405;                        //in Henry
r=40;                           //in Ohms
c=20/(10^6);                    //in Farad
v=100;                          //in Volts

//SOLUTION
f0=1/(2*%pi*sqrt(L*c));
disp(sprintf("The frequency at which the circuit resonates is %d Hz",f0));

I0=v/r;
disp(sprintf("The current drawn from the supply is %f A",I0));

xl0=2*%pi*f0*L; 
z0=sqrt((r^2)+(xl0^2));
vl0=I0*z0;
disp(sprintf("The voltage across the coil is %f V",vl0));

xc0=1/(2*%pi*f0*c);
disp(sprintf("The capcitative reactance is %f Ω",xc0));

Q0=(2*%pi*f0*L)/r;
disp(sprintf("The quality factor is %f", Q0));

bw=r/L;
disp(sprintf("The bandwidth is %f Hz",bw));

//END