The Museum of HP Calculators


Cantilever Beams for the HP-41C/CV/CX

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

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