The Museum of HP Calculators

Conduit Flow for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Solar Engineering Solution Book and also 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 "CONDUIT"
 02 "U=?"
 03 PROMPT
 04 STO 09
 05 "RHO=?"
 06 PROMPT
 07 STO 10
 08 ST/ 09
 09 "E=?"
 10 PROMPT
 11 STO 14
 12 "L=?"
 13 PROMPT
 14 STO 03
 15 "D=?"
 16 PROMPT
 17 STO 13
 18 "KT=?"
 19 PROMPT
 20 4
 21 /
 22 STO 08
 23 LBL "CHANGE"
 24 CF 22
 25 "V=?"
 26 PROMPT
 27 SF 00
 28 FS? 22
 29 CF 00
 30 STO 02
 31 "DP=?"
 32 PROMPT
 33 STO 04
 34 XEQ 09
 35 FS? 00
 36 GTO 03
 37 RCL 02
 38 X^2
 39 *
 40 RCL 10
 41 *
 42 STO 04
 43 "DP="
 44 GTO 10
 45 LBL 03
 46 RND
 47 STO 00
 48 XEQ 08
 49 RND
 50 RCL 00
 51 X<>Y
 52 X#Y?
 53 GTO 03
 54 "V=?"
 55 RCL 02
 56 GTO 10
 57 LBL 09
 58 RCL 10
 59 RCL 13
 60 RCL 14
 61 /
 62 STO 06
 63 LN
 64 1.737
 65 STO 07
 66 *
 67 2.28
 68 +
 69 STO 12
 70 STO 05
 71 FS? 00
 72 GTO 07
 73 LBL 08
 74 16
 75 RCL 02
 76 RCL 13
 77 *
 78 RCL 09
 79 /
 80 STO 01
 81 2300
 82 X<=Y?
 83 GTO 02
 84 RDN
 85 /
 86 SQRT
 87 1/X
 88 STO 05
 89 GTO 07
 90 LBL 02
 91 RCL 12
 92 RCL 05
 93 -
 94 4.67
 95 RCL 06
 96 *
 97 RCL 01
 98 /
 99 RCL 05
100 *
101 1
102 +
103 STO 11
104 LN
105 RCL 07
106 *
107 -
108 RCL 11
109 1/X
110 CHS
111 1
112 +
113 RCL 07
114 *
115 RCL 05
116 /
117 1
118 +
119 /
120 ST+ 05
121 RCL 05
122 /
123 ABS
124 1 E-3
125 X<=Y?
126 GTO 02
127 LBL 07
128 RCL 05
129 1/X
130 X^2
131 RCL 03
132 *
133 RCL 13
134 /
135 RCL 08
136 +
137 2
138 *
139 RCL 04
140 RCL 10
141 /
142 X<>Y
143 FS? 00
144 GTO 00
145 RTN
146 LBL 00
147 /
148 SQRT
149 STO 02
150 RTN
151 LBL 10
152 ARCL X
153 PROMPT
154 "Re="
155 ARCL 01
156 PROMPT
157 "F="
158 RCL 05
159 1/X
160 X^2
161 ARCL X
162 PROMPT
163 RTN
164 SQRT
165 END

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