The Museum of HP Calculators

Three-Dimensional Special Relativity for the HP-41C/CV/CX

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

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