summaryrefslogtreecommitdiff
path: root/3754/CH28/EX28.6/28_6.sce
blob: 0337c11094ba770af02bfe5df01f83618bdefafe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear//

//Variables

fo = 455.0 * 10**3         //Resonant frequency (in Hertz)
BW = 10.0 * 10**3          //Bandwidth (in Hertz)
XL = 1255.0                //Inductive reactance (in ohm)

//Calculation

Qo = fo / BW               //Quality factor
R = XL / Qo                //Resistance (in ohm)
L = XL / (2*%pi*fo)    //Inductance (in Henry)
C = 1 / (XL*2*%pi*fo)  //Capacitance (in Farad)
Zp = L / (C*R)             //Circuit impedance (in ohm)

//Result

printf("\n The value of circuit impedance at resonance is  %0.0f  kilo-ohm.",Zp * 10**-3)