summaryrefslogtreecommitdiff
path: root/1628/CH11/EX11.8/Ex11_8.sce
blob: 95a9828e12781ad1e0854b6827094558728fc274 (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


                     // Example  11.8

L=0.24;                   // Inductance
C=3*10^-6;                // Capacitance
R=150;                    // Resistance
f=1/(2*%pi*sqrt(L*C));    // Frequency
fo=f*sqrt(1-R^2*(C/L));   // Resonance Frequency
disp(' Resonance Frequency = '+string(fo)+' Hz');

Xl=2*%pi*fo*L;            // Indctive reactance
Q=Xl/R;                   // Q-Factor
disp(' Q-Factor is  = '+string(Q));

Bw=fo/Q;                 // Band width
disp(' Band width is = '+string(Bw)+' Hz');




        // p 387    11.8