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

Fliege type band-pass-filter
Input
Resources to be used
Output

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 "LFQ="
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)
www.finetune.co.jp [Mail] Copyright (c) HOSODA Takayuki. All rights reserved.
Powered by
 Finetune