INTERCEPT (a) and AZIMUTH (Zn) with HP PROGRAMABLE CALCULATOR A Celestial Sight Reduction Program for the HP15C Calculator Also works on HP11C with minor change to line 048 as shown "Enter angles as D.mmss (Degrees.MinutesSeconds), Negative (-) if South" "For Example, Enter 5° 30.1' S as -5.3006" Test Data LHA 28.2724 ENTER Lat 45 ENTER Dec 6.5748 ENTER Ho 44.4606 fA "Program flashes ""running"" for ~ 15 seconds, then displays:" Zn 221.7 degrees True Press x-y exchange: x <-> y a (+Away -To) -6.9 "nautical miles, Towards GP of celestial body" ######################################################################### ## ## ## LISCENSE GRANT and SOURCE CODE ## ## ## ## "Copyright Craig A. Smith 1990, 2012 " ## ## ## ## This program is free software: you can redistribute it and/or modify ## ## it under the terms of the GNU General Public License as published by ## ## "the Free Software Foundation, either version 3 of the License, or " ## ## (at your option) any later version. ## ## ## ## "This program is distributed in the hope that it will be useful, " ## ## but WITHOUT ANY WARRANTY; without even the implied warranty of ## ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ## ## GNU General Public License for more details. ## ## ## ## You should have received a copy of the GNU General Public License ## ## "along with this program. If not, see . " ## ## ## ######################################################################### Step code(s) Key(s) Comment - see Instructions tab 001 "42,21,11" f LBL A 002 43 2 g ->H H.MS -> H 003 44 4 STO 4 Ho 004 33 R ↓ 005 43 2 g ->H H.MS -> H 006 44 3 STO 3 Dec 007 33 R ↓ 008 43 2 g ->H H.MS -> H 009 44 2 STO 2 Lat 010 33 R ↓ 011 43 2 g ->H H.MS -> H 012 44 1 STO 1 LHA 013 24 COS 014 45 2 RCL 2 015 24 COS 016 45 3 RCL 3 017 24 COS 018 20 x 019 20 x - - - 1 - - - 020 45 2 RCL 2 021 23 SIN 022 45 3 RCL 3 023 23 SIN 024 20 x - - - 2 - - - 025 40 + - - - 3 - - - 026 43 23 g SIN -1 027 44 5 STO 5 Hc 028 45 3 RCL 3 029 23 SIN - - - 4 - - - 030 45 2 RCL 2 031 23 SIN 032 45 5 RCL 5 033 23 SIN 034 20 X - - - 5 - - - 035 30 - - - - 6 - - - 036 45 2 RCL 2 037 24 COS 038 45 5 RCL 5 039 24 COS 040 20 X - - - 7 - - - 041 10 ÷ - - - 8 - - - 042 43 24 g COS -1 043 44 6 STO 6 Zc 044 1 1 045 8 8 046 0 0 047 45 1 RCL 1 LHA For HP11C 048 "43,30, 8" g x < y TEST 8 f x < y 049 32 1 GSB 1 true 050 45 5 RCL 5 else 051 45 4 RCL 4 052 30 - - - - a - - - 053 6 6 054 0 0 055 20 x 056 45 6 RCL 6 057 43 32 g RTN 058 "42,21, 1" f LBL 1 Subroutine 059 3 3 060 6 6 061 0 0 062 45 6 RCL 6 063 30 - 064 44 6 STO 6 065 43 32 g RTN