The Museum of HP Calculators


Black Body Radiation 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. 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 "BB"
 02 CLRG
 03 CF 22
 04 "UNITS?"
 05 AON
 06 PROMPT
 07 AOFF
 08 ASTO X
 09 GTO IND X
 10 LBL "SI"
 11 5954.4
 12 STO 01
 13 14388
 14 STO 02
 15 2897.8
 16 STO 03
 17 5.6693 E-12
 18 STO 04
 19 GTO 00
 20 LBL "EN"
 21 18887982
 22 STO 01
 23 25998.4
 24 STO 02
 25 5216
 26 STO 03
 27 .171312 E-08
 28 STO 04
 29 LBL 00
 30 "TEMP?"
 31 PROMPT
 32 STO 05
 33 "WAVELENGTH?"
 34 PROMPT
 35 STO 06
 36 "SOLVE"
 37 PROMPT
 38 LBL A
 39 RCL 03
 40 RCL 05
 41 /
 42 "WL MAX="
 43 ARCL X
 44 PROMPT
 45 LBL B
 46 RCL 03
 47 RCL 06
 48 /
 49 "TEMP="
 50 ARCL X
 51 PROMPT
 52 LBL C
 53 RCL 05
 54 X^2
 55 X^2
 56 RCL 04
 57 *
 58 "EbTOT="
 59 ARCL X
 60 PROMPT
 61 LBL D
 62 RCL 01
 63 ENTER
 64 +
 65 PI
 66 *
 67 RCL 06
 68 5
 69 Y^X
 70 /
 71 RCL 02
 72 RCL 06
 73 /
 74 RCL 05
 75 /
 76 E^X
 77 1
 78 -
 79 /
 80 "EbL="
 81 ARCL X
 82 PROMPT
 83 LBL E
 84 0
 85 STO 08
 86 STO 07
 87 LBL 01
 88 RDN
 89 CLX
 90 RCL 08
 91 RCL 02
 92 RCL 05
 93 /
 94 -
 95 STO 08
 96 3
 97 X<>Y
 98 /
 99 RCL 06
100 X^2
101 /
102 LASTX
103 1/X
104 RCL 06
105 /
106 -
107 6
108 RCL 06
109 /
110 RCL 08
111 X^2
112 /
113 -
114 6
115 RCL 08
116 X^2
117 /
118 RCL 08
119 /
120 +
121 RCL 08
122 RCL 06
123 /
124 E^X
125 *
126 RCL 08
127 /
128 ST+ 07
129 RCL 07
130 /
131 1 E-05
132 X<=Y?
133 GTO 01
134 RDN
135 CLX
136 RCL 07
137 ENTER
138 +
139 PI
140 *
141 RCL 01
142 *
143 FS?C 00
144 RTN
145 "EbO-L="
146 ARCL X
147 PROMPT
148 LBL F
149 "WV LNTH 2?"
150 PROMPT
151 ENTER
152 ENTER
153 SF 00
154 XEQ E
155 X<>Y
156 RCL 06
157 STO 00
158 RDN
159 STO 06
160 SF 00
161 XEQ E
162 -
163 ABS
164 RCL 00
165 STO 06
166 RDN
167 "EbL-L="
168 ARCL X
169 PROMPT
170 END

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