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.

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).

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