The Museum of HP Calculators


Kubelka-Munk Diffusing Layer for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Optics 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 "KUBLKA"
 02 LBL 10
 03 LBL A
 04 STO 21
 05 X=0?
 06 GTO 01
 07 X<>Y
 08 STO 20
 09 2
 10 *
 11 +
 12 RCL 21
 13 *
 14 SQRT
 15 STO 00
 16 1/X
 17 RCL 21
 18 *
 19 STO 01
 20 1
 21 +
 22 X^2
 23 RCL 00
 24 E^X
 25 *
 26 1
 27 RCL 01
 28 -
 29 X^2
 30 RCL 00
 31 CHS
 32 E^X
 33 *
 34 -
 35 STO 02
 36 RCL 00
 37 E^X
 38 ENTER
 39 1/X
 40 -
 41 1
 42 RCL 01
 43 X^2
 44 -
 45 *
 46 X<>Y
 47 /
 48 STO 23
 49 7PRTX
 50 RCL 01
 51 4
 52 *
 53 RCL 02
 54 /
 55 STO 24
 56 GTO 02
 57 LBL 01
 58 X<>Y
 59 STO 20
 60 1
 61 +
 62 1/X
 63 STO 24
 64 1
 65 -
 66 CHS
 67 STO 23
 68 7PRTX
 69 0
 70 STO 01
 71 RDN
 72 RCL 24
 73 LBL 02
 74 RTN
 75 LBL 11
 76 LBL B
 77 STO 24
 78 X^2
 79 1
 80 -
 81 CHS
 82 X<>Y
 83 STO 23
 84 X=0?
 85 GTO 03
 86 RCL 24
 87 +
 88 1
 89 -
 90 X=0?
 91 GTO 04
 92 RDN
 93 RCL 23
 94 X^2
 95 /
 96 1
 97 +
 98 2
 99 /
100 RCL 23
101 *
102 STO 02
103 1
104 -
105 RCL 02
106 1
107 +
108 /
109 SQRT
110 STO 01
111 2
112 *
113 RCL 01
114 X^2
115 CHS
116 1
117 +
118 /
119 RCL 24
120 /
121 RCL 23
122 *
123 ENTER
124 X^2
125 1
126 +
127 SQRT
128 +
129 LN
130 STO 00
131 RCL 01
132 *
133 STO 21
134 RCL 00
135 RCL 01
136 /
137 -
138 CHS
139 2
140 /
141 STO 20
142 7PRTX
143 RCL 21
144 GTO 05
145 LBL 03
146 RCL 24
147 LN
148 CHS
149 STO 21
150 0
151 STO 20
152 7PRTX
153 X<>Y
154 GTO 05
155 LBL 04
156 RCL 24
157 1/X
158 1
159 -
160 STO 20
161 7PRTX
162 0
163 STO 21
164 STO 01
165 LBL 05
166 RTN
167 LBL 12
168 LBL C
169 1
170 RCL 01
171 -
172 1
173 RCL 01
174 +
175 /
176 STO 22
177 RTN
178 LBL 13
179 LBL D
180 STO 22
181 1
182 -
183 CHS
184 RCL 22
185 1
186 +
187 /
188 STO 01
189 X^2
190 1/X
191 1
192 -
193 2
194 /
195 RTN
196 LBL 14
197 LBL E
198 2
199 *
200 1
201 +
202 SQRT
203 1/X
204 STO 01
205 1
206 -
207 CHS
208 1
209 RCL 01
210 +
211 /
212 STO 22
213 RTN
214 STOP
215 END

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