for the HP 42S
E24 - Find the nearest fraction in the E24 numbers

Input
Memories to be used
Output

Setup the E24 numbers Choose fractional pair Check the error
00 { 339-Byte Prgm }
01 LBL "E24"
02 SIZE 100
03 RECT
04 STO 31
05 9.1
06 STO 23
07 8.2
08 STO 22
09 7.5
10 STO 21
11 6.8
12 STO 20
13 6.2
14 STO 19
15 5.6
16 STO 18
17 5.1
18 STO 17
19 4.7
20 STO 16
21 4.3
22 STO 15
23 3.9
24 STO 14
25 3.6
26 STO 13
27 3.3
28 STO 12
29 3
30 STO 11
31 2.7
32 STO 10
33 2.4
34 STO 09
35 2.2
36 STO 08
37 2
38 STO 07
39 1.8
40 STO 06
41 1.6
42 STO 05
43 1.5
44 STO 04
45 1.3
46 STO 03
47 1.2
48 STO 02
49 1.1
50 STO 01
51 1
52 STO 00
53 0.05
54 STO 28
55 CLχ
56 STO 26
57 1
58 ENTER
59 NEWMAT
60 ENTER
61 COMPLEX
62 STO "E24M"
63 INDEX "E24M"
64 LBL 00
65 RCL 31
66 ENTER
67 LOG
68 χ≥0?
69 GTO 10
70 1
71 -
72 LBL 10
73 IP
74 10↑χ
75 STO 31
76 ÷
77 STO 27
78 23
79 STO 24
80 LBL 01
81 RCL 27
82 RCL IND 24
83 χ<y?
84 GTO 02
85 DSE 24
86 GTO 01
87 LBL 02
88 RCL 24
89 STO 26
90 23
91 STO 25
92 LBL 03
93 1
94 XEQ A
95 CLχ
96 0
97 XEQ A
98 DSE 25
99 GTO 03
100 1
101 XEQ A
102 CLχ
103 0
104 XEQ A
105 RCL 28
106 RCL 27
107 RCL× 31
108 χ<>Y
109 COMPLEX
110 RCLEL
111 χ<>Y
112 STOEL
113 COMPLEX
114 RCL 29
115 χ<>Y
116 R↑
117 RTN
118 LBL A
119 RCL+ 25
120 RCL+ 26
121 24
122 χ≤y?
123 GTO 11
124 GTO 12
125 LBL 11
126 -
127 STO 24
128 10
129 GTO 13
130 LBL 12
131 R↓
132 STO 24
133 1
134 LBL 13
135 RCL× IND 24
136 STO 30
137 1/χ
138 RCL× IND 25
139 RCL× 27
140 1
141 -
142 ABS
143 RCL 28
144 χ<y?
145 RTN
146 R↓
147 χ<> 28
148 STO 29
149 RCL 28
150 RCL 30
151 RCL× 31
152 RCL IND 25
153 COMPLEX
154 STOEL
155 INSR
156 STOEL
157 PSE
158 RTN
159 END
Rev. 0.1 : Apr. 30, 2009
Rev. 0.2 : Feb. 1, 2010
Examples

Download 'E24' raw program file for the Free42

REFERENCE
  1. CSI IEC 60063 (JIS C 5063) Preferred number series for resistors and capacitors
SEE ALSO

www.finetune.co.jp [Mail] Copyright (c) HOSODA Takayuki. All rights reserved.
Powered by
 Finetune