The Museum of HP CalculatorsThis program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.
This program is supplied without representation or warranty of any kind. André Wilhelmus, 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.
| CODE | KEYS | |
|---|---|---|
| A-000 lbl A | f LBL A | |
| A-001 61 39 | f H.MS→H | |
| A-002 35 0 | STO 0 | L1 |
| A-003 35 6 | STO 6 | |
| A-004 61 53 | f RTN | |
| A-005 61 39 | f H.MS→H | |
| A-006 35 1 | STO 1 | λ1 |
| A-007 35 7 | STO 7 | |
| A-008 61 53 | f RTN | |
| A-009 61 39 | f H.MS→H | |
| A-010 35 2 | STO 2 | L2 |
| A-011 35 8 | STO 8 | |
| A-012 61 53 | f RTN | |
| A-013 61 39 | f H.MS→H | |
| A-014 35 3 | STO 3 | λ2 |
| A-015 35 9 | STO 9 | |
| A-016 61 53 | f RTN | |
| A-017 62 63 b9 | g JUMP B 9 | Compute rhumbline C, D. |
| b-000 lbl b | f LBL B | - - - - - - - - - - - - - - - |
| b-001 61 21 4 | f FIX 4 | Δλ |
| b-002 35 4 | STO 4 | |
| b-003 45 1 | RCL 1 | |
| b-004 45 3 | RCL 3 | |
| b-005 49 | − | |
| b-006 2 | 2 | |
| b-007 24 | ÷ | |
| b-008 61 7 | f SIN | |
| b-009 62 7 | g SIN-1 | |
| b-010 2 | 2 | |
| b-011 39 | × | |
| b-012 45 4 | RCL 4 | n = |Δθ/Δλ| |
| b-013 24 | ÷ | where Δθ = |
| b-014 61 2 | f ABS | 2 sin-1 sin[(λ1 − λ2)/2] |
| b-015 23 | EEX | |
| b-016 22 | CHS | |
| b-017 7 | 7 | |
| b-018 49 | − | |
| b-019 61 1 | f INT | |
| b-020 35 52 | STO I | Clear R5 for Σ. |
| b-021 0 | 0 | |
| b-022 35 5 | STO 5 | |
| b-023 61 14 | f SPACE | |
| b-024 45 0 | RCL 0 | |
| b-025 35 6 | STO 6 | Print L1, λ1. |
| b-026 61 24 | f H→H.MS | |
| b-027 14 | PRINT x | |
| b-028 45 1 | RCL 1 | |
| b-029 35 7 | STO 7 | |
| b-030 61 24 | f H→H.MS | |
| b-031 14 | PRINT x | |
| b-032 61 14 | f SPACE | |
| b-033 45 1 | RCL 1 | |
| b-034 61 63 1 | f LBL 1 | Loop to compute |
| b-035 45 4 | RCL 4 | successive rhumblines. |
| b-036 59 | + | |
| b-037 1 | 1 | |
| b-038 61 6 | f →R | |
| b-039 62 6 | g →P | |
| b-040 12 | R↓ | |
| b-041 35 9 | STO 9 | λi |
| b-042 53 7 | GSB 7 | |
| b-043 35 8 | STO 8 | Li |
| b-044 53 9 | GSB 9 | Rhumb line from |
| b-045 35 59 5 | STO + 5 | (Li−1, λi−1) to (Li, λi) |
| b-046 61 14 | f SPACE | |
| b-047 45 8 | RCL 8 | |
| b-048 35 6 | STO 6 | |
| b-049 61 24 | f H→H.MS | Li → Li−1 |
| b-050 14 | PRINT x | λi → λi−1 |
| b-051 45 9 | RCL 9 | |
| b-052 35 7 | STO 7 | |
| b-053 61 24 | f H→H.MS | |
| b-054 14 | PRINT x | |
| b-055 61 14 | f SPACE | |
| b-056 45 9 | RCL 9 | |
| b-057 62 52 | g DSZ | |
| b-058 63 1 | GTO 1 | |
| b-059 45 2 | RCL 2 | Li ← L2 |
| b-060 35 8 | STO 8 | |
| b-061 45 3 | RCL 3 | λi ← λ2 |
| b-062 35 9 | STO 9 | |
| b-063 53 9 | GSB 9 | ΣD |
| b-064 35 59 5 | STO + 5 | |
| b-065 45 2 | RCL 2 | |
| b-066 61 24 | f H→H.MS | L2 |
| b-067 14 | PRINT x | |
| b-068 45 3 | RCL 3 | λ2 |
| b-069 61 24 | f H→H.MS | |
| b-070 14 | PRINT x | |
| b-071 61 14 | f SPACE | |
| b-072 61 14 | f SPACE | Final ΣD |
| b-073 45 5 | RCL 5 | |
| b-074 61 21 1 | f FIX 1 | |
| b-075 14 | PRINT x | - - - - - - - - - - - - - - - |
| b-076 61 53 | f RTN | λi → Li |
| b-077 61 63 7 | f LBL 7 | |
| b-078 45 7 | RCL 7 | Computes Li for λi on great |
| b-079 49 | − | circle from (Li−1, λi−1) to |
| b-080 61 7 | f SIN | (L2, λ2). |
| b-081 45 2 | RCL 2 | |
| b-082 61 9 | f TAN | |
| b-083 39 | × | |
| b-084 45 9 | RCL 9 | |
| b-085 45 3 | RCL 3 | |
| b-086 49 | − | |
| b-087 61 7 | f SIN | |
| b-088 45 6 | RCL 6 | |
| b-089 61 9 | f TAN | |
| b-090 39 | × | |
| b-091 49 | − | |
| b-092 45 3 | RCL 3 | |
| b-093 45 7 | RCL 7 | |
| b-094 49 | − | |
| b-095 61 7 | f SIN | |
| b-096 24 | ÷ | |
| b-097 62 9 | g TAN-1 | |
| b-098 61 53 | f RTN | - - - - - - - - - - - - - - - |
| b-099 61 63 9 | f LBL 9 | Rhumb line C, D |
| b-100 61 21 1 | f FIX 1 | from (Li−1, λi−1) |
| b-101 45 7 | RCL 7 | to (Li, λi) |
| b-102 45 9 | RCL 9 | |
| b-103 49 | − | |
| b-104 35 .0 | STO . 0 | |
| b-105 2 | 2 | |
| b-106 24 | ÷ | Make |
| b-107 61 7 | f SIN | -180 ≤ λi−1 − λi ≤ 180. |
| b-108 62 7 | g SIN-1 | |
| b-109 9 | 9 | |
| b-110 0 | 0 | |
| b-111 24 | ÷ | |
| b-112 62 0 | g π | |
| b-113 39 | × | |
| b-114 45 8 | RCL 8 | |
| b-115 53 4 | GSB 4 | |
| b-116 45 6 | RCL 6 | |
| b-117 53 4 | GSB 4 | |
| b-118 49 | − | |
| b-119 62 6 | g →P | |
| b-120 12 | R↓ | C |
| b-121 35 .1 | STO . 1 | |
| b-122 45 .0 | RCL . 0 | |
| b-123 61 7 | f SIN | |
| b-124 62 7 | g SIN-1 | x < 0 means East to West. |
| b-125 62 43 | g x<0 | W to E, C is answer. |
| b-126 63 0 | GTO 0 | |
| b-127 45 .1 | RCL . 1 | |
| b-128 63 2 | GTO 2 | |
| b-129 61 63 0 | f LBL 0 | E to W, 360 − C. |
| b-130 3 | 3 | |
| b-131 6 | 6 | |
| b-132 0 | 0 | |
| b-133 45 .1 | RCL . 1 | |
| b-134 61 2 | f ABS | |
| b-135 49 | − | |
| b-136 61 63 2 | f LBL 2 | |
| b-137 61 2 | f ABS | |
| b-138 14 | PRINT x | Course. |
| b-139 45 .0 | RCL . 0 | |
| b-140 45 8 | RCL 8 | |
| b-141 61 8 | f COS | |
| b-142 39 | × | |
| b-143 21 | ENTER ↑ | |
| b-144 45 8 | RCL 8 | |
| b-145 45 6 | RCL 6 | |
| b-146 49 | − | |
| b-147 45 .1 | RCL . 1 | |
| b-148 61 8 | f COS | |
| b-149 62 42 | g x≠0 | |
| b-150 24 | ÷ | |
| b-151 21 | ENTER ↑ | |
| b-152 62 41 | g x=0 | |
| b-153 13 | R↑ | |
| b-154 6 | 6 | |
| b-155 0 | 0 | |
| b-156 39 | × | |
| b-157 61 2 | f ABS | |
| b-158 14 | PRINT x | Distance. |
| b-159 61 14 | f SPACE | |
| b-160 61 21 4 | f FIX 4 | - - - - - - - - - - - - - - - |
| b-161 61 53 | f RTN | |
| b-162 61 63 4 | f LBL 4 | |
| b-163 2 | 2 | |
| b-164 24 | ÷ | |
| b-165 4 | 4 | |
| b-166 5 | 5 | |
| b-167 59 | + | |
| b-168 61 9 | f TAN | |
| b-169 61 4 | f LN |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall