BPFFL - Fliege type Band-Pass-Filter / HP-42S

for the HP 42S
BPFFL - Calculate center frequency and Q of a Fliege type band-pass-filter.

Fliege type band-pass-filter

Input

Var R1: Resistance [Ω]
Var R2: Resistance [Ω]
Var R3: Resistance [Ω]
Var C1: Capacitance [F]
Var C2: Capacitance [F]

Resources to be used

REG 00: ω ‐ Natural angular frequency [rad/s]


Output


Var Q: Q ‐ Quality factor
Var f: f_c ‐ Center frequency [Hz]
REG z: ω ‐ Natural angular frequency [rad/s]
REG y: f_c ‐  Center frequency [Hz]
REG x: Q ‐ Quality factor



Program list (Assume R4 = R5 to have the gain coefficiet h to be -2)


BPFFL - Rev.1.00 : Aug. 1 2011



00 { 97-Byte Prgm }
01 LBL "BPFFL"
02 MVAR "R1"
03 MVAR "R2"
04 MVAR "R3"
05 MVAR "C1"
06 MVAR "C2"
07 VARMENU "BPFFL"
08 STOP
09 EXITALL
10 RCL "C1"
11 RCL× "C2"
12 RCL× "R2"
13 RCL× "R3"
14 SQRT
15 1/X
16 ENTER
17 STO 00
18 2
19 PI
20 ×
21 ÷
22 STO "F"
23 X<>Y
24 RCL× "C1"
25 RCL× "R1"
26 STO "Q"
27 CLA
28 "Fc="
29 ARCL "F"
30 "^L_FQ="
31 ARCL "Q"
32 AVIEW
33 RTN
34 .END.







Example


Input
R1 = 330e3
R2 = 33e3
R3 = 11e3
C1 = 10e-9
C2 = 10e-9

Output
z: 5.2486388108E3
y: 835.34681125E0
x: 17.320508076E0








Download 'BPFFL-1.0'
(bpffl.raw, 100 byte, raw program file for the
 Free42)







© 2000 Takayuki HOSODA.


Powered by