Constants
Posted: Sat Dec 16, 2017 2:57 pm
A library of physical constants was asked for recently so I came up with this solution to the problem. The constants here are based on those embedded in the HP-35S:
The raw file of this is available at http://howto-pages.org/SwissMicros/const.raw
Code: Select all
00 { 1070-Byte Prgm }
01▸LBL "CONST"
02▸LBL A
03 "c"
04 KEY 1 XEQ 01
05 "g"
06 KEY 2 XEQ 02
07 "G"
08 KEY 3 XEQ 03
09 "Vm"
10 KEY 4 XEQ 04
11 "NA"
12 KEY 5 XEQ 05
13 "Rydb"
14 KEY 6 XEQ 06
15 KEY 7 GTO G
16 KEY 8 GTO B
17 KEY 9 GTO I
18 MENU
19 STOP
20 GTO A
21▸LBL I
22 EXITALL
23 STOP
24 GTO A
25▸LBL 01
26 299792458
27 RTN
28▸LBL 02
29 9.80665
30 RTN
31▸LBL 03
32 6673ᴇ-14
33 RTN
34▸LBL 04
35 0.022413996
36 RTN
37▸LBL 05
38 602214199ᴇ15
39 RTN
40▸LBL 06
41 10973731.5685
42 RTN
43▸LBL B
44 "eV"
45 KEY 1 XEQ 11
46 "me"
47 KEY 2 XEQ 12
48 "mp"
49 KEY 3 XEQ 13
50 "mn"
51 KEY 4 XEQ 14
52 "mμ"
53 KEY 5 XEQ 15
54 "k"
55 KEY 6 XEQ 16
56 KEY 7 GTO A
57 KEY 8 GTO C
58 KEY 9 GTO I
59 MENU
60 STOP
61 GTO B
62▸LBL 11
63 1602176462ᴇ-28
64 RTN
65▸LBL 12
66 910938188ᴇ23
67 RTN
68▸LBL 13
69 167262158ᴇ-35
70 RTN
71▸LBL 14
72 167492716ᴇ-35
73 RTN
74▸LBL 15
75 188353109ᴇ-36
76 RTN
77▸LBL 16
78 13806503ᴇ-30
79 RTN
80▸LBL C
81 "h"
82 KEY 1 XEQ 21
83 "MagFQ"
84 KEY 2 XEQ 22
85 "ao"
86 KEY 3 XEQ 23
87 "ᴇo"
88 KEY 4 XEQ 24
89 "R"
90 KEY 5 XEQ 25
91 "F"
92 KEY 6 XEQ 26
93 KEY 7 GTO B
94 KEY 8 GTO D
95 KEY 9 GTO I
96 MENU
97 STOP
98 GTO C
99▸LBL 21
100 662606876ᴇ-42
101 RTN
102▸LBL 22
103 2067833636ᴇ-24
104 RTN
105▸LBL 23
106 5291772083ᴇ-20
107 RTN
108▸LBL 24
109 8854187817ᴇ-21
110 RTN
111▸LBL 25
112 8.314472
113 RTN
114▸LBL 26
115 96485.3415
116 RTN
117▸LBL D
118 "u"
119 KEY 1 XEQ 31
120 "μo"
121 KEY 2 XEQ 32
122 "μB"
123 KEY 3 XEQ 33
124 "μN"
125 KEY 4 XEQ 34
126 "μP"
127 KEY 5 XEQ 35
128 "μe"
129 KEY 6 XEQ 36
130 KEY 7 GTO C
131 KEY 8 GTO E
132 KEY 9 GTO I
133 MENU
134 STOP
135 GTO D
136▸LBL 31
137 166053873ᴇ-35
138 RTN
139▸LBL 32
140 1.2566370614ᴇ-6
141 RTN
142▸LBL 33
143 927400899ᴇ-32
144 RTN
145▸LBL 34
146 505078317ᴇ-35
147 RTN
148▸LBL 35
149 1410606633ᴇ-35
150 RTN
151▸LBL 36
152 -928476362ᴇ-32
153 RTN
154▸LBL E
155 "μn"
156 KEY 1 XEQ 41
157 "μμ"
158 KEY 2 XEQ 42
159 "re"
160 KEY 3 XEQ 43
161 "Zo"
162 KEY 4 XEQ 44
163 "/\c"
164 KEY 5 XEQ 45
165 "/\cn"
166 KEY 6 XEQ 46
167 KEY 7 GTO D
168 KEY 8 GTO F
169 KEY 9 GTO I
170 MENU
171 STOP
172 GTO E
173▸LBL 41
174 -9662364ᴇ-33
175 RTN
176▸LBL 42
177 -449044813ᴇ-34
178 RTN
179▸LBL 43
180 2817940285ᴇ-24
181 RTN
182▸LBL 44
183 376.730313461
184 RTN
185▸LBL 45
186 2426310215ᴇ-21
187 RTN
188▸LBL 46
189 1319590898ᴇ-24
190 RTN
191▸LBL F
192 "/\cp"
193 KEY 1 XEQ 51
194 "a"
195 KEY 2 XEQ 52
196 "s"
197 KEY 3 XEQ 53
198 "t"
199 KEY 4 XEQ 54
200 "atm"
201 KEY 5 XEQ 55
202 "gP"
203 KEY 6 XEQ 56
204 KEY 7 GTO E
205 KEY 8 GTO G
206 KEY 9 GTO I
207 MENU
208 STOP
209 GTO F
210▸LBL 51
211 1321409847ᴇ-24
212 RTN
213▸LBL 52
214 0.007297352533
215 RTN
216▸LBL 53
217 5.6704ᴇ-8
218 RTN
219▸LBL 54
220 273.15
221 RTN
222▸LBL 55
223 101325
224 RTN
225▸LBL 56
226 267522212
227 RTN
228▸LBL G
229 CLMENU
230 "C1"
231 KEY 1 XEQ 61
232 "C2"
233 KEY 2 XEQ 62
234 "Go"
235 KEY 3 XEQ 63
236 "e"
237 KEY 4 XEQ 64
238 KEY 7 GTO F
239 KEY 8 GTO A
240 KEY 9 GTO I
241 MENU
242 STOP
243 GTO G
244▸LBL 61
245 374177107ᴇ-24
246 RTN
247▸LBL 62
248 0.014387752
249 RTN
250▸LBL 63
251 7.748091696ᴇ-5
252 RTN
253▸LBL 64
254 2.71828182846
255 RTN
256 END