(12C) Distance Speed Time

[Gamo]

Recently I often do the bicycle exercise and I only have two data for

my cycling activity which is the Distance and Time. I like to know my

average speed and this program for the HP-12C will find the

Distance, Speed or Time.
--------------------------------------------------------------------
Since HP-12C doesn't have Lables I'll use Store Register 1, 2 and 3

R1 for Distance
R2 for Speed
R3 for Time

Input Instructions:

Input Two Known Variable to R1, R2 or R3

Input 0 for the "Unknown Variable" to R1, R2 or R3
--------------------------------------------------------------------
For the " Time " input is the same as the Degree Minute Second
instruction on HP-11 or HP-15C

Time Input Example:

1 hour 25 minute 30 second input as 1.2530

45 minute 15 second input as 0.4515
----------------------------------------------------------------------
Example: FIX 4

Distance is 15 km
Time is 36 minute
What is the Speed ?

15 [STO] 1 // Distance
0 [STO] 2 // Unknown Speed
0.36 [STO] 3 // Time

[R/S] Answer for the Speed is 25 km/h

---------------------------------------------

Speed is 25 km/h
Time is 30 minute
What is the Distance?

0 [STO] 1
25 [STO] 2
0.3 [STO] 3

[R/S] Answer for the Distance is 12.5 km
----------------------------------------------
Program:

Quote:01 RCL 1
02 X=0
03 GTO 10
04 RCL 2
05 X=0
06 GTO 10
07 RCL 3
08 X=0
09 GTO 47 // Line 01 to 09 for Distance, Speed or Time routine direction
10 RCL 3
11 INTG
12 STO 4
13 LSTx
14 FRAC
15 ENTER
16 EEX
17 2
18 x
19 INTG
20 STO 5
21 LSTx
22 FRAC
23 EEX
24 2
25 x
26 ENTER
27 6
28 0
29 ÷
30 RCL 5
31 +
32 6
33 0
34 ÷
35 RCL 4
36 + // Line 10 to 36 to convert time to decimal degree
37 RCL 2
38 X=0 // Test if unknow Speed Goto Line 42
39 GTO 42
40 x // Calculate Distance
41 GTO 00
42 X<>Y
43 RCL 1
44 X<>Y
45 ÷ // Calculate Speed
46 GTO 00
47 RCL 1
48 RCL 2
49 ÷
50 ENTER
51 INTG
52 STO 4
53 -
54 6
55 0
56 x
57 ENTER
58 INTG
59 STO 5
60 -
61 6
62 0
63 x
64 INTG
65 EEX
66 4
67 ÷
68 RCL 5
69 EEX
70 2
71 ÷
72 +
73 RCL 4
74 + // Line 47 to 74 Calculate and Convert Decimal to H.MS

Gamo 5/2024