The Museum of HP Calculators

Air Flow in Circular Ducts for the HP-41C/CV/CX

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "AIRDUCT"
 02 ADV
 03 0
 04 STO 00
 05 "T,F"
 06 XEQ "IN"
 07 "INHG"
 08 XEQ "IN"
 09 RCL 01
 10 460
 11 +
 12 STO 10
 13 RCL X
 14 1.5
 15 Y^X
 16 1.101 E-6
 17 *
 18 RCL Y
 19 200
 20 +
 21 /
 22 STO 16
 23 RCL 02
 24 29.92
 25 /
 26 530
 27 RCL 10
 28 /
 29 *
 30 1.201
 31 *
 32 STO 17
 33 762 E-7
 34 STO 03
 35 3
 36 STO 00
 37 "L,FT"
 38 .3048
 39 ST/ 04
 40 XEQ "IN"
 41 .3048
 42 ST* 04
 43 1
 44 ST+ 00
 45 "~K"
 46 XEQ "IN"
 47 LBL 15
 48 4
 49 STO 00
 50 "D,IN"
 51 .0254
 52 ST/ 05
 53 XEQ "IN"
 54 .0254
 55 ST* 05
 56 SF 27
 57 "SELECT KEY:"
 58 CF 21
 59 AVIEW
 60 SF 21
 61 PSE
 62 LBL 01
 63 "dP V Q"
 64 PROMPT
 65 GTO 01
 66 LBL A
 67 6
 68 STO 00
 69 248.8
 70 ST/ 07
 71 "INH2O"
 72 XEQ "IN"
 73 248.8
 74 ST* 07
 75 SF 03
 76 XEQ 09
 77 LBL 03
 78 RND
 79 STO 15
 80 XEQ 08
 81 RND
 82 RCL 15
 83 X<>Y
 84 X#Y?
 85 GTO 03
 86 XEQ "Re"
 87 "V,FPM"
 88 RCL 08
 89 196.9
 90 *
 91 GTO 00
 92 LBL C
 93 7
 94 STO 00
 95 "Q,CFM"
 96 XEQ 11
 97 *
 98 *
 99 STO 08
100 XEQ "IN"
101 XEQ 11
102 *
103 /
104 STO 08
105 XEQ 10
106 XEQ "Re"
107 "INH2O"
108 RCL 07
109 248.8
110 /
111 XEQ "O"
112 "V,FPM"
113 RCL 08
114 196.9
115 *
116 XEQ "O"
117 ADV
118 GTO 15
119 LBL B
120 7
121 STO 00
122 "V,FPM"
123 5.08 E-3
124 ST/ 08
125 XEQ "IN"
126 5.08 E-3
127 ST* 08
128 XEQ 10
129 XEQ "Re"
130 "INH2O"
131 RCL 07
132 248.8
133 /
134 LBL 00
135 XEQ "O"
136 "Q,CFM"
137 XEQ 11
138 *
139 *
140 XEQ "O"
141 ADV
142 GTO 15
143 LBL 10
144 CF 03
145 XEQ 09
146 RCL 08
147 X^2
148 *
149 RCL 17
150 *
151 STO 07
152 RTN
153 LBL 09
154 ADV
155 RCL 16
156 RCL 17
157 /
158 STO 09
159 RCL 05
160 RCL 03
161 /
162 STO 10
163 LN
164 1.737
165 STO 11
166 *
167 2.28
168 +
169 STO 12
170 STO 13
171 FS? 03
172 GTO 07
173 LBL 08
174 16
175 RCL 08
176 RCL 05
177 *
178 RCL 09
179 /
180 STO 14
181 2300
182 X<=Y?
183 GTO 02
184 RDN
185 /
186 SQRT
187 1/X
188 STO 13
189 GTO 07
190 LBL 02
191 RCL 12
192 RCL 13
193 -
194 4.67
195 RCL 10
196 *
197 RCL 14
198 /
199 RCL 13
200 *
201 1
202 +
203 STO 00
204 LN
205 RCL 11
206 *
207 -
208 RCL 00
209 1/X
210 CHS
211 1
212 +
213 RCL 11
214 *
215 RCL 13
216 /
217 1
218 +
219 /
220 ST+ 13
221 RCL 13
222 /
223 ABS
224 1 E-3
225 X<=Y?
226 GTO 02
227 LBL 07
228 RCL 13
229 1/X
230 X^2
231 RCL 04
232 *
233 RCL 05
234 /
235 RCL 06
236 4
237 /
238 +
239 ST+ X
240 RCL 07
241 RCL 17
242 /
243 X<>Y
244 FC? 03
245 RTN
246 /
247 SQRT
248 STO 08
249 RTN
250 LBL "Re"
251 "TRANSITION"
252 2300
253 RCL 14
254 X<=Y?
255 RTN
256 4000
257 X>Y?
258 PROMPT
259 RTN
260 LBL 11
261 RCL 08
262 RCL 05
263 X^2
264 PI
265 *
266 4
267 /
268 2119
269 RTN
270 LBL "IN"
271 CF 22
272 1
273 ST+ 00
274 RCL IND 00
275 "="
276 ASTO Y
277 "?"
278 CF 21
279 AVIEW
280 SF 21
281 CLA
282 ARCL Y
283 STOP
284 STO IND 00
285 FS? 22
286 FC? 55
287 RTN
288 ARCL X
289 XROM 29,08
290 RTN
291 LBL "O"
292 "="
293 ARCL X
294 AVIEW
295 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall