The Museum of HP Calculators


Heat Transfer (Cylinders/Walls) for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Chemical Engineering Solution Book. This program was entered and uploaded by Tony Duell.

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 "CYL"
 02 SF 00
 03 GTO 00
 04 LBL "WALLS"
 05 CF 00
 06 LBL 00
 07 FIX 02
 08 1
 09 FS? 00
 10 PI
 11 STO 06
 12 CLX
 13 STO 08
 14 FC? 00
 15 GTO 01
 16 "NO. OF SECTS?"
 17 PROMPT
 18 STO 00
 19 "D?"
 20 PROMPT
 21 LBL A
 22 STO 07
 23 "H?"
 24 PROMPT
 25 *
 26 1/X
 27 ST+ 08
 28 FC?C 00
 29 GTO "U"
 30 LBL B
 31 "D?"
 32 PROMPT
 33 STO 01
 34 "K?"
 35 PROMPT
 36 1/X
 37 X<>Y
 38 RCL 07
 39 X<>Y
 40 STO 07
 41 /
 42 LN
 43 *
 44 2
 45 /
 46 ST- 08
 47 DSE 00
 48 GTO B
 49 RCL 01
 50 GTO A
 51 LBL 01
 52 SF 00
 53 "NO. OF SECTS?"
 54 PROMPT
 55 STO 00
 56 LBL C
 57 "H?"
 58 PROMPT
 59 1/X
 60 ST+ 08
 61 FC?C 00
 62 GTO "U"
 63 LBL D
 64 "X?"
 65 PROMPT
 66 "K?"
 67 PROMPT
 68 /
 69 ST+ 08
 70 DSE 00
 71 GTO D
 72 GTO C
 73 LBL "U"
 74 RCL 08
 75 1/X
 76 RCL 06
 77 *
 78 STO 04
 79 "U="
 80 ARCL X
 81 AVIEW
 82 STOP
 83 END

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