00 { 178-Byte Prgm }
01 LBL "BPFMF"
02 MVAR "R1"
03 MVAR "R2"
04 MVAR "R3"
05 MVAR "C1"
06 MVAR "C2"
07 VARMENU "BPFMF"
08 STOP
09 EXITALL
10 RCL "R1"
11 RCL+ "R2"
12 RCL "R1"
13 RCL× "R2"
14 ÷
15 ENTER
16 RCL× "R3"
17 RCL "C1"
18 RCL× "C2"
19 ×
20 SQRT
21 RCL "C1"
22 RCL+ "C2"
23 ÷
24 STO "Q"
25 X<>Y
26 RCL "C1"
27 RCL× "C2"
28 RCL× "R3"
29 ÷
30 SQRT
31 STO 00
32 2
33 PI
34 ×
35 ÷
36 STO "f"
37 RCL "C2"
38 ENTER
39 RCL+ "C1"
40 RCL× "R1"
41 ÷
42 RCL× "R3"
43 STO "h"
44 RCL "Q"
45 RCL "f"
46 CLA
47 ENG 03
48 "h="
49 ARCL "h"
50 ", Q="
51 ARCL "Q"
52 "LFFc="
53 ARCL "f"
54 " [Hz] BPFMF"
55 AVIEW
56 ENG 10
57 RTN
58 .END.
|