The Museum of HP Calculators


Motion Program for the 33S

This program is by Ed Mooney and is used here by permission.

This program is supplied without representation or warranty of any kind. Ed Mooney 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.

Overview

Motion Program (with constant acceleration): Five variables: Enter any three variables, finds remaining two variables . Note that usually either the initial or final velocity is known to be equal to "0”.

Variables:
This program works for both linear and rotational systems.
X: Distance (rotational: Angular Position), (flag 0)
I: Initial velocity (rotational: Initial Angular Velocity), (flag 1)
F: Final velocity (rotational: Final Angular Velocity), (flag 2)
A: Acceleration (rotational: Angular Acceleration), (flag 3)
T: Time (rotational: Time), (flag 4)

To use: XEQ V

Unknowns are entered as "0". If a variable is known to be equal to "0", Press ↓ (rolldown) and Enter 1E-99 (1E-99 virtually equals 0).

Listing

V01	LBL V	
V02	CF 0	
V03	CF 1	
V04	CF 2	
V05	CF 3	
V06	CF 4	
V07	1E-99	
V08	Input X	
V09	X=0?	
V10	SF 0	‘X unknown
V11	1E-99	
V12	Input I	
V13	X=0?	
V14	SF 1	‘I unknown
V15	1E-99	
V16	Input F	
V17	X=0?	
V18	SF 2	‘F unknown
V19	1E-99	
V20	Input A	
V21	X=0?	
V22	SF 3	‘A unknown
V23	1E-99	
V24	Input T	
V25	X=0?	
V26	SF 4	‘T unknown
V27	FS?0	
V28	GTO E	‘X unknown
V29	FS?1	
V30	GTO F	‘I unknown, X known
V31	FS?2	
V32	GTO I	‘F unknown, X and I known
V33	RCL X	‘T and A unknown, X, I and F known
V34	2	
V35	X	
V36	RCL I	
V37	RCL F	
V38	+	
V39	÷	
V40	STO T	
V41	VIEW T	
V42	RCL F	
V43	RCL I	
V44	-	
V45	RCL T	
V46	÷	
V47	STO A	
V48	VIEW A	
V49	GTO V	
V50	RTN	‘LN= 222, CK= 52DE
E01	LBL E	‘X unknown
E02	FN=J	
E03	FS?1	
E04	SOLVE I	
E05	FS?2	
E06	SOLVE F	
E07	FS?3	
E08	SOLVE A	
E09	FS?4	
E10	SOLVE T	
E11	RCL I	‘Solve for X
E12	RCL F	
E13	+	
E14	RCL T	
E15	X	
E16	2	
E17	÷	
E18	STO X	
E19	VIEW X	‘Display results
E20	FS?1	
E21	VIEW I	
E22	FS?2	
E23	VIEW F	
E24	FS?3	
E25	VIEW A	
E26	FS?4	
E27	VIEW T	
E28	GTO V	
E29	RTN	‘LN= 99, CK= 8A1C
J01	LBL J	‘4 vars: I, F, A, and T
J02	RCL F	
J03	RCL I	
J04	-	
J05	RCL T	
J06	÷	
J07	RCL A	
J08	-	
J09	RTN	‘LN= 27, CK= F918
F01	LBL F	‘I unknown, X known
F02	FN=K	
F03	FS?2	
F04	SOLVE F	
F05	FS?3	
F06	SOLVE A	
F07	FS?4	
F08	SOLVE T	
F09	RCL F	‘Solve for I
F10	RCL A	
F11	RCL T	
F12	X	
F13	-	
F14	STO I	
F15	VIEW I	‘Display results
F16	FS?2	
F17	VIEW F	
F18	FS?3	
F19	VIEW A	
F20	FS?4	
F21	VIEW T	
F22	GTO V	
F23	RTN	‘LN= 69, CK= 4E01
K01	LBL K	‘4 vars: X, F, A, and T
K02	RCL F	
K03	2	
K04	X	
K05	RCL A	
K06	RCL T	
K07	X	
K08	-	
K09	RCL T	
K10	X	
K11	2	
K12	÷	
K13	RCL X	
K14	-	
K15	RTN	‘LN= 69, CK= 3F54
I01	LBL I	‘F unknown, X and I known
I02	FN=H	
I03	FS?3	
I04	SOLVE A	
I05	FS?4	
I06	SOLVE T	
I07	RCL I	‘Solve for F
I08	RCL A	
I09	RCL T	
I10	X	
I11	+	
I12	STO F	
I13	VIEW F	‘Display results
I14	FS?3	
I15	VIEW A	
I16	FS?4	
I17	VIEW T	
I18	GTO V	
I19	RTN	‘LN= 57, CK= 92A8
H01	LBL H	‘4 vars: X, I, A, and T
H02	RCL I	
H03	RCL T	
H04	X	
H05	RCL T	
H06	X^2	
H07	RCL A	
H08	X	
H09	2	
H10	÷ 	
H11	+	
H12	RCL X	
H13	-	
H14	RTN	‘LN= 54, CK= BC2C

Go back to the software library
Go back to the main exhibit hall