Post Reply 
(HP-67/97) Planetary Ephemeris
08-06-2023, 01:06 PM
Post: #6
RE: (HP-67/97) Planetary Ephemeris
That's great!
From what I can see you additionally changed the following lines:

Code:
021:     23 02     DSP 2
115:        51         -

I took your program, added the data in the registers and pasted it in this HP-67 emulator:
Code:
PROG
224
001: 31 25 11
002: 33 00
003: 33 51 00
004: 33 01
005: 31 83
006: 33 51 01
007: 01
008: 51
009: 02
010: 32 71
011: 33 51 00
012: 32 71
013: 35 51 02
014: 35 53
015: 03
016: 00
017: 83
018: 05
019: 08
020: 71
021: 23 02
022: 31 24
023: 33 61 00
024: 34 01
025: 43
026: 02
027: 71
028: 41
029: 31 83
030: 33 61 00
031: 51
032: 03
033: 06
034: 05
035: 02
036: 05
037: 71
038: 41
039: 31 83
040: 33 61 00
041: 51
042: 35 71 02
043: 22 00
044: 31 61
045: 22 00
046: 01
047: 33 51 00
048: 31 25 00
049: 34 00
050: 23 02
051: 35 22
052: 31 25 12
053: 00
054: 33 01
055: 33 02
056: 04
057: 35 51 02
058: 22 01
059: 31 25 14
060: 01
061: 07
062: 22 01
063: 31 25 15
064: 02
065: 02
066: 22 01
067: 32 25 11
068: 08
069: 22 01
070: 32 25 12
071: 01
072: 01
073: 22 01
074: 32 25 13
075: 01
076: 04
077: 31 25 01
078: 35 33
079: 34 00
080: 34 24
081: 32 83
082: 43
083: 05
084: 71
085: 51
086: 31 34
087: 34 24
088: 31 22 08
089: 41
090: 31 34
091: 34 24
092: 31 83
093: 51
094: 02
095: 81
096: 31 64
097: 01
098: 34 24
099: 32 83
100: 33 03
101: 61
102: 01
103: 34 03
104: 51
105: 81
106: 71
107: 32 64
108: 02
109: 71
110: 41
111: 31 63
112: 34 03
113: 71
114: 01
115: 51
116: 01
117: 34 03
118: 32 54
119: 51
120: 35 52
121: 81
122: 35 52
123: 34 24
124: 31 83
125: 51
126: 35 52
127: 31 33
128: 31 33
129: 34 24
130: 31 83
131: 43
132: 04
133: 81
134: 71
135: 31 72
136: 35 71 02
137: 22 02
138: 33 01
139: 35 52
140: 33 02
141: 04
142: 35 51 02
143: 22 01
144: 31 25 02
145: 33 51 01
146: 35 52
147: 33 51 02
148: 34 02
149: 34 01
150: 32 72
151: 35 52
152: 31 71
153: 31 22 07
154: 41
155: 33 03
156: 02
157: 71
158: 31 62
159: 02
160: 83
161: 04
162: 71
163: 51
164: 35 71 00
165: 31 22 09
166: 32 74
167: 84
168: 34 03
169: 31 62
170: 02
171: 03
172: 83
173: 05
174: 71
175: 32 74
176: 84
177: 35 54
178: 35 22
179: 31 25 07
180: 03
181: 06
182: 00
183: 61
184: 35 22
185: 31 25 08
186: 81
187: 32 83
188: 03
189: 06
190: 00
191: 71
192: 35 22
193: 31 25 13
194: 34 00
195: 02
196: 00
197: 83
198: 06
199: 61
200: 34 07
201: 31 22 08
202: 35 71 00
203: 31 22 09
204: 32 74
205: 35 22
206: 31 25 09
207: 01
208: 05
209: 81
210: 35 22
211: 32 25 15
212: 00
213: 35 71 00
214: 22 00
215: 35 51 00
216: 31 22 07
217: 22 09
218: 31 25 00
219: 35 61 00
220: 22 07
221: 84
222: 84
223: 84
224: 84
DATA
26
00: 0
01: 0
02: 0
03: 0
04: 10000.00102
05: 365.2564
06: 102.0167
07: 27.321661
08: 3871.000434
09: 87.9693
10: 77.20563
11: 7233.002141
12: 224.7009
13: 131.006784
14: 15237.01249
15: 686.9796
16: 335.093384
17: 52022.02874
18: 4332.0446
19: 14.04795
20: 0
21: 0
22: 95691.08041
23: 10775.056
24: 93.05741
25: 4
STATE
7
DEG
FIX
2
1
0
0
1
HELP
1

CARD
11
Title: Planetary Ephemeris
A: Date
B: Sun
C: Moon
D: Jupiter
E:
a:
b:
c:
d:
e: 24/360
END

Example

I just followed the example in table 3:

10.1277 A
28409.22

B
22.37

C
13.26

D
6.45

R/S
23.06

R/S
4.72

This looks quite good already.
But the result for the Sun is totally off.

In a comment it says that "10.1277 is the date of a solar eclipse".
Therefore I assume that the Sun's and Moon's position should agree.

Do you have any idea what's going wrong?
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: (HP-67/97) Planetary Ephemeris - Josef - 08-03-2023, 10:07 PM
RE: (HP-67/97) Planetary Ephemeris - Thomas Klemm - 08-06-2023 01:06 PM
RE: (HP-67/97) Planetary Ephemeris - Josef - 08-07-2023, 10:24 AM
RE: (HP-67/97) Planetary Ephemeris - Josef - 09-01-2023, 01:02 PM



User(s) browsing this thread: 1 Guest(s)