Overview
a) Program1 [ 1900 , 2100 ] ( 2116 bytes )
b) Program2 [ 1900/03/01 , 2100/02/28 ] ( 1944 bytes )
c) Program3 [ 1900/03/01 , 2100/02/28 ] ( 1820 bytes )
d) Program4 [ 1900/03/01 , 2100/02/28 ] ( 1495 bytes )
e) Program5 [ 1900/03/01 , 2100/02/28 ] ( 1528 bytes )
f) Program6 [ 1900 , 2100 ] ( 980 or 1001 or 1031 bytes )
g) Program7 [ 1900 , 2100 ] ( 1287 bytes )
h) Program8 [ 1900 , 2100 ] ( 1426 bytes )
i) Program9 [ 1900 , 2100 ] ( 2114 bytes )
2°) HP41CV with X-Functions Module - Program ( 867 bytes + 1502 or 1498 bytes )
-In paragraphs 1°)f)g)h)i) Z = number of days since 2000/01/01
-In other paragraphs, Z = YYYY.MNDD
a) Program1 [ 1900 , 2100 ] ( 2116 bytes )
-With geocentric coordinates, nutation, aberration and time-light are taken into account ( approximately )
-Refraction is computed with Saemundsson formula.
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13: temp
R14 = local true sidereal time ( deg )
• R15 = Longitude of the observer ( deg ) positive East
• R16 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 STO 14 10 24 11 / 12 X<>Y 13 INT 14 ST- L 15 LASTX 16 2 17 10^X 18 STO 02 19 * 20 ENTER 21 INT 22 STO 01 23 - 24 RCL 02 25 * 26 X<> 01 27 1 28 E^X 29 - 30 12 31 / 32 + 33 INT 34 ST- 01 35 LASTX 36 367 37 * 38 INT 39 ST+ 01 40 SIGN 41 % 42 INT 43 .75 44 CHS 45 ST* Z 46 * 47 X<>Y 48 RCL 01 49 + 50 INT 51 + 52 INT 53 730434 54 - 55 + 56 36525 57 / 58 ST+ 00 59 36000770 60 STO 06 61 * 62 3 63 10^X 64 STO 09 65 / 66 RCL 02 67 + 68 31 69 1/X 70 - 71 RCL 14 72 15 73 * 74 + 75 RCL 15 76 + 77 STO 14 78 1671 79 STO 08 80 48 81 + 82 STO 07 83 4 84 CHS 85 STO 13 86 80026 87 CHS 88 STO 12 89 2963 90 + 91 STO 10 92 RCL 00 93 445267 94 * 95 68 96 - 97 STO 03 98 SIN 99 RCL 00 100 20 101 * 102 18 103 - 104 COS 105 - 106 RCL 00 107 32964 108 * 109 22 110 - 111 COS 112 - 113 ST+ X 114 X<> 03 115 COS 116 PI 117 % 118 STO 05 119 CLST 120 STO 01 121 STO 02 122 STO 04 123 STO 11 124 XEQ 14 125 CLX 126 RCL 13 127 RCL 05 128 P-R 129 STO 01 130 RDN 131 STO 02 132 CLX 133 RCL 11 134 RTN 135 LBL 03 136 RCL 00 137 3599905 138 % 139 2.96 140 - 141 STO 11 142 STO 12 143 RCL 00 144 44526711 145 % 146 68.25 147 - 148 STO 13 149 ST+ X 150 STO 05 151 STO 10 152 ST- 11 153 STO 06 154 ST+ X 155 STO 03 156 RCL 00 157 47719887 158 % 159 128.43 160 + 161 ST- 05 162 STO 07 163 ST+ 10 164 ST+ X 165 STO 08 166 RCL 00 167 48320202 168 % 169 86.66 170 + 171 STO 09 172 RCL 07 173 + 174 SIN 175 281 176 * 177 RCL 07 178 RCL 09 179 - 180 SIN 181 278 182 * 183 + 184 RCL 06 185 RCL 09 186 - 187 SIN 188 173 189 * 190 + 191 RCL 05 192 RCL 09 193 + 194 SIN 195 55 196 * 197 + 198 RCL 05 199 RCL 09 200 - 201 SIN 202 46 203 * 204 + 205 RCL 06 206 RCL 09 207 + 208 SIN |
209
33 210 * 211 + 212 RCL 08 213 RCL 09 214 + 215 SIN 216 17 217 * 218 + 219 RCL 10 220 RCL 09 221 - 222 SIN 223 RCL 08 224 RCL 09 225 - 226 SIN 227 + 228 9 229 * 230 + 231 RCL 09 232 RCL 11 233 + 234 SIN 235 RCL 09 236 SIN 237 641 238 * 239 - 240 8 241 * 242 - 243 RCL 09 244 RCL 10 245 + 246 SIN 247 4 248 * 249 + 250 STO 04 251 RCL 07 252 SIN 253 6289 254 * 255 RCL 06 256 SIN 257 658 258 * 259 + 260 RCL 08 261 SIN 262 214 263 * 264 + 265 RCL 09 266 ST+ X 267 STO 09 268 SIN 269 114 270 * 271 - 272 RCL 06 273 RCL 08 274 - 275 SIN 276 59 277 * 278 + 279 RCL 05 280 RCL 12 281 - 282 SIN 283 57 284 * 285 + 286 RCL 10 287 SIN 288 53 289 * 290 + 291 RCL 11 292 SIN 293 46 294 * 295 - 296 RCL 12 297 RCL 07 298 - 299 SIN 300 41 301 * 302 - 303 RCL 05 304 SIN 305 98 306 * 307 RCL 07 308 RCL 09 309 + 310 SIN 311 - 312 13 313 * 314 + 315 RCL 07 316 RCL 09 317 - 318 SIN 319 RCL 03 320 RCL 07 321 - 322 SIN 323 + 324 11 325 * 326 + 327 RCL 12 328 SIN 329 37 330 * 331 RCL 13 332 SIN 333 7 334 * 335 + 336 RCL 07 337 RCL 12 338 + 339 SIN 340 6 341 * 342 + 343 RCL 06 344 RCL 09 345 - 346 SIN 347 3 348 * 349 - 350 RCL 07 351 RCL 08 352 + 353 SIN 354 ST+ X 355 - 356 RCL 13 357 RCL 07 358 - 359 SIN 360 + 361 RCL 12 362 ST- 10 363 RCL 13 364 + 365 SIN 366 - 367 5 368 * 369 - 370 RCL 05 371 ST+ X 372 SIN 373 9 374 * 375 + 376 RCL 05 377 RCL 12 378 + 379 SIN 380 8 381 * 382 - 383 RCL 06 384 RCL 12 385 + 386 SIN 387 7 388 * 389 - 390 RCL 10 391 SIN 392 RCL 06 393 RCL 08 394 + 395 SIN 396 + 397 RCL 03 398 SIN 399 + 400 RCL 05 401 RCL 08 402 - 403 SIN 404 + 405 RCL 00 406 132 407 * 408 60 409 - 410 SIN 411 - 412 4 413 * 414 + 415 RCL 08 416 RCL 12 |
417
- 418 SIN 419 RCL 05 420 RCL 09 421 + 422 SIN 423 - 424 3 425 * 426 + 427 481267881 428 RCL 00 429 ST+ X 430 - 431 RCL 00 432 * 433 211728 434 + 435 + 436 3 437 10^X 438 ST/ 04 439 / 440 360 441 MOD 442 STO 03 443 2574 444 RCL 07 445 COS 446 28 447 * 448 RCL 05 449 COS 450 5 451 * 452 + 453 RCL 06 454 COS 455 4 456 * 457 + 458 5 459 * 460 - 461 6 462 10^X 463 / 464 STO 05 465 XEQ 00 466 RTN 467 LBL 01 468 387.1 469 STO 09 470 20563 471 STO 08 472 7005 473 RCL 00 474 2 475 STO 13 476 * 477 + 478 STO 11 479 1556 480 STO 07 481 77456 482 STO 10 483 250205 484 STO 12 485 149474072 486 STO 06 487 48331 488 1186 489 XEQ 13 490 RTN 491 LBL 02 492 723.33 493 STO 09 494 677 495 STO 08 496 5 497 CHS 498 STO 13 499 3395 500 RCL 00 501 + 502 STO 11 503 1402 504 STO 07 505 131564 506 STO 10 507 181179 508 STO 12 509 58519213 510 STO 06 511 76680 512 901 513 XEQ 13 514 RTN 515 LBL 04 516 XEQ 12 517 RCL 04 518 10 519 * 520 STO 05 521 21 522 - 523 COS 524 14 525 * 526 RCL 09 527 22 528 ST+ 12 529 * 530 RCL 03 531 + 532 ST+ 06 533 12 534 - 535 COS 536 6 537 * 538 - 539 RCL 06 540 49 541 + 542 COS 543 7 544 * 545 + 546 RCL 08 547 RCL 11 548 + 549 RCL 12 550 + 551 STO 10 552 COS 553 RCL 06 554 ST+ X 555 12 556 + 557 COS 558 - 559 4 560 * 561 + 562 RCL 05 563 SIN 564 RCL 00 565 * 566 PI 567 * 568 + 569 RCL 04 570 7077 571 * 572 ST+ 10 573 SIN 574 RCL 10 575 6 576 - 577 COS 578 - 579 ST+ X 580 - 581 STO 03 582 CLX 583 STO 04 584 STO 05 585 1523.7 586 STO 09 587 9340 588 STO 08 589 1850 590 STO 11 591 9 592 STO 13 593 - 594 STO 07 595 4829 596 CHS 597 STO 12 598 19141696 599 STO 06 600 23940 601 CHS 602 STO 10 603 49558 604 772 605 XEQ 14 606 RTN 607 LBL 05 608 XEQ 12 609 RCL 08 610 73 611 + 612 COS 613 RCL 10 614 RCL 07 615 - 616 41 617 + 618 SIN 619 - 620 509 621 SQRT 622 * 623 RCL 08 624 3 |
625
* 626 28 627 + 628 COS 629 RCL 09 630 ST+ X 631 STO 12 632 25 633 + 634 COS 635 + 636 5 637 * 638 - 639 RCL 06 640 RCL 12 641 + 642 69 643 - 644 COS 645 RCL 06 646 RCL 11 647 + 648 STO 04 649 12 650 + 651 SIN 652 4 653 * 654 - 655 RCL 07 656 COS 657 + 658 RCL 06 659 ST+ X 660 RCL 09 661 + 662 79 663 + 664 COS 665 - 666 RCL 11 667 ST- 06 668 32 669 - 670 COS 671 RCL 00 672 * 673 + 674 4 675 * 676 + 677 RCL 09 678 75 679 - 680 SIN 681 37 682 * 683 + 684 RCL 06 685 61 686 - 687 SIN 688 6 689 * 690 RCL 10 691 33 692 - 693 SIN 694 8 695 * 696 + 697 RCL 11 698 7.3 699 - 700 SIN 701 47 702 * 703 - 704 7 705 * 706 + 707 STO 03 708 RCL 06 709 63 710 - 711 SIN 712 5 713 * 714 STO 04 715 CLX 716 STO 05 717 5203 718 STO 09 719 1303 720 RCL 00 721 5 722 * 723 - 724 STO 11 725 3036303 726 STO 06 727 4849 728 STO 08 729 16 730 STO 13 731 1613 732 STO 07 733 34310 734 STO 12 735 14331 736 STO 10 737 86133 738 + 739 1021 740 XEQ 14 741 RTN 742 LBL 06 743 XEQ 12 744 CLX 745 21 746 - 747 COS 748 RCL 11 749 ST+ X 750 75 751 + 752 COS 753 - 754 RCL 05 755 R^ 756 STO 05 757 + 758 SIN 759 - 760 8 761 * 762 RCL 06 763 14 764 + 765 COS 766 PI 767 * 768 + 769 RCL 08 770 30 771 - 772 COS 773 RCL 10 774 54 775 + 776 COS 777 + 778 RCL 09 779 RCL 11 780 + 781 STO 10 782 RCL 06 783 - 784 25 785 - 786 COS 787 + 788 RCL 07 789 RCL 11 790 + 791 STO 04 792 50 793 - 794 SIN 795 5 796 * 797 + 798 RCL 11 799 7.3 800 - 801 SIN 802 90 803 * 804 + 805 9 806 * 807 + 808 RCL 07 809 RCL 03 810 - 811 COS 812 RCL 08 813 RCL 13 814 - 815 RCL 05 816 - 817 79 818 - 819 COS 820 + 821 RCL 09 822 ST+ X 823 ST+ 07 824 30 825 + 826 STO 12 827 COS 828 38 829 * 830 - 831 6 832 * |
833
- 834 RCL 10 835 SIN 836 7 837 * 838 RCL 11 839 32 840 - 841 COS 842 5 843 * 844 RCL 00 845 * 846 - 847 RCL 09 848 14 849 + 850 COS 851 59 852 * 853 + 854 ST+ X 855 + 856 STO 03 857 RCL 12 858 3 859 + 860 COS 861 20 862 ST+ 04 863 ST- 08 864 * 865 RCL 07 866 28 867 - 868 COS 869 RCL 04 870 COS 871 3 872 * 873 - 874 6 875 * 876 + 877 RCL 11 878 SIN 879 4 880 * 881 + 882 STO 04 883 RCL 12 884 SIN 885 19 886 * 887 RCL 08 888 COS 889 8 890 * 891 + 892 STO 05 893 1223511 894 STO 06 895 9543 896 STO 09 897 5553 898 STO 08 899 35 900 CHS 901 STO 13 902 2489 903 RCL 00 904 4 905 * 906 - 907 STO 11 908 1964 909 STO 07 910 50061 911 STO 12 912 93057 913 STO 10 914 20609 915 + 916 877 917 XEQ 14 918 RTN 919 LBL 07 920 XEQ 12 921 5 922 * 923 CHS 924 R^ 925 STO 04 926 RCL 05 927 + 928 STO 08 929 10 930 STO 10 931 + 932 SIN 933 7 934 * 935 + 936 RCL 12 937 ST- 07 938 RCL 13 939 ST+ X 940 STO 11 941 + 942 20 943 - 944 SIN 945 ST+ X 946 RCL 07 947 28 948 + 949 COS 950 + 951 6 952 * 953 + 954 RCL 13 955 RCL 10 956 + 957 SIN 958 RCL 10 959 ST- 06 960 * 961 - 962 RCL 06 963 RCL 12 964 - 965 COS 966 RCL 12 967 RCL 04 968 - 969 COS 970 - 971 15 972 * 973 + 974 RCL 12 975 RCL 03 976 - 977 51 978 - 979 COS 980 ST+ Y 981 RCL 05 982 RCL 12 983 + 984 STO 08 985 11 986 - 987 COS 988 + 989 RCL 05 990 62.2 991 - 992 SIN 993 22 994 * 995 + 996 39 997 ST+ 04 998 * 999 + 1000 RCL 03 1001 73 1002 + 1003 SIN 1004 RCL 04 1005 SIN 1006 + 1007 35 1008 * 1009 - 1010 RCL 11 1011 19 1012 + 1013 STO 11 1014 SIN 1015 209 1016 * 1017 - 1018 STO 03 1019 RCL 11 1020 14 1021 + 1022 COS 1023 RCL 08 1024 SIN 1025 - 1026 6 1027 * 1028 STO 04 1029 RCL 11 1030 COS 1031 34 1032 * 1033 STO 05 1034 429864 1035 STO 06 1036 19192 1037 STO 09 1038 45955 1039 CHS 1040 STO 12 1041 4630 |
1042
STO 08 1043 3 1044 CHS 1045 STO 13 1046 773 1047 RCL 00 1048 + 1049 STO 11 1050 1486 1051 STO 07 1052 172993 1053 STO 10 1054 74005 1055 521 1056 XEQ 14 1057 RTN 1058 LBL 08 1059 XEQ 12 1060 22 1061 * 1062 R^ 1063 STO 04 1064 50 1065 - 1066 COS 1067 24 1068 * 1069 + 1070 RCL 06 1071 RCL 13 1072 ST+ 04 1073 RCL 05 1074 + 1075 ST- 07 1076 - 1077 COS 1078 9 1079 * 1080 + 1081 RCL 04 1082 77 1083 - 1084 COS 1085 RCL 07 1086 16 1087 + 1088 COS 1089 + 1090 5 1091 * 1092 + 1093 RCL 13 1094 7 1095 + 1096 SIN 1097 71 1098 * 1099 + 1100 RCL 05 1101 27.8 1102 + 1103 COS 1104 584 1105 * 1106 + 1107 STO 03 1108 RCL 04 1109 69 1110 - 1111 SIN 1112 RCL 13 1113 36 1114 - 1115 COS 1116 - 1117 9 1118 * 1119 STO 04 1120 RCL 13 1121 6 1122 + 1123 COS 1124 17 1125 * 1126 CHS 1127 STO 05 1128 219883 1129 STO 06 1130 30070 1131 STO 09 1132 899 1133 STO 08 1134 CLX 1135 STO 13 1136 1770 1137 RCL 00 1138 9 1139 * 1140 - 1141 STO 11 1142 1426 1143 STO 07 1144 55654 1145 CHS 1146 STO 12 1147 48124 1148 STO 10 1149 83660 1150 + 1151 1102 1152 XEQ 14 1153 RTN 1154 LBL 09 1155 RCL 00 1156 2890 1157 * 1158 65 1159 + 1160 COS 1161 7 1162 * 1163 STO 03 1164 RCL 00 1165 STO 05 1166 ST+ 05 1167 9 1168 * 1169 4 1170 - 1171 STO 04 1172 39489 1173 STO 09 1174 24900 1175 STO 08 1176 CLX 1177 STO 13 1178 17140 1179 STO 11 1180 224075 1181 STO 10 1182 238927 1183 STO 12 1184 146567 1185 STO 06 1186 36260 1187 - 1188 1397 1189 STO 07 1190 GTO 14 1191 LBL 12 1192 102 1193 RCL 00 1194 2.06 1195 * 1196 STO 04 1197 * 1198 STO 13 1199 4 1200 LASTX 1201 * 1202 STO 05 1203 52 1204 * 1205 STO 12 1206 19 1207 RCL 04 1208 * 1209 STO 11 1210 593 1211 LASTX 1212 * 1213 STO 07 1214 LASTX 1215 880 1216 * 1217 STO 08 1218 + 1219 STO 06 1220 LASTX 1221 RCL 07 1222 - 1223 STO 09 1224 + 1225 STO 10 1226 RCL 05 1227 ST+ X 1228 RCL 04 1229 31 1230 * 1231 STO 03 1232 RCL 13 1233 RCL 05 1234 - 1235 11 1236 - 1237 COS 1238 RTN 1239 LBL 13 1240 0 1241 STO 03 1242 STO 04 1243 STO 05 1244 RDN 1245 LBL 14 1246 RCL 00 1247 ST* 06 1248 ST* 07 1249 ST* 13 1250 * |
1251
+ 1252 X<> 13 1253 ST+ 08 1254 5 1255 10^X 1256 ST/ 08 1257 RCL 06 1258 RCL 12 1259 + 1260 RCL 07 1261 RCL 10 1262 + 1263 9 1264 STO 06 1265 SQRT 1266 10^X 1267 ST/ 03 1268 ST/ 04 1269 ST/ 05 1270 ST/ 09 1271 ST/ 11 1272 ST/ 13 1273 ST/ Z 1274 / 1275 STO 10 1276 - 1277 ENTER 1278 ENTER 1279 LBL 11 1280 SIN 1281 RCL 08 1282 R-D 1283 * 1284 + 1285 DSE 06 1286 GTO 11 1287 STO 07 1288 2 1289 / 1290 TAN 1291 RCL 08 1292 1 1293 ST+ Y 1294 RCL 08 1295 - 1296 / 1297 SQRT 1298 * 1299 ATAN 1300 ST+ X 1301 1 1302 RCL 07 1303 COS 1304 RCL 08 1305 * 1306 - 1307 RCL 09 1308 * 1309 RCL 05 1310 + 1311 X<> 10 1312 + 1313 RCL 13 1314 ST+ 03 1315 - 1316 COS 1317 RCL 11 1318 LASTX 1319 SIN 1320 P-R 1321 X<>Y 1322 ASIN 1323 RCL 04 1324 + 1325 STO 09 1326 X<> Z 1327 R-P 1328 CLX 1329 RCL 03 1330 + 1331 STO 08 1332 X<>Y 1333 RCL 10 1334 P-R 1335 RCL 08 1336 X<>Y 1337 P-R 1338 RCL 02 1339 ST+ Z 1340 CLX 1341 RCL 01 1342 + 1343 R-P 1344 X<>Y 1345 STO 03 1346 STO 13 1347 RDN 1348 R-P 1349 STO 05 1350 X<>Y 1351 STO 04 1352 RCL 10 1353 SQRT 1354 RCL 10 1355 X^2 1356 ST/ Y 1357 1 1358 - 1359 RCL 05 1360 X^2 1361 ST+ Y 1362 ST+ X 1363 / 1364 ST* Y 1365 - 1366 RCL 05 1367 176 1368 / 1369 ST* Y 1370 + 1371 ST- 03 1372 LBL 00 1373 RCL 00 1374 1934 1375 * 1376 55 1377 + 1378 1 1379 P-R 1380 391 1381 / 1382 549.4 1383 SQRT 1384 - 1385 RCL 00 1386 77 1387 / 1388 + 1389 STO 12 1390 COS 1391 X<>Y 1392 209 1393 / 1394 * 1395 X<> 12 1396 RCL 03 1397 LASTX 1398 - 1399 STO 03 1400 RCL 04 1401 XEQ 13 1402 STO 06 1403 RCL 16 1404 R^ 1405 STO 07 1406 90 1407 STO 11 1408 ST- Z 1409 R^ 1410 + 1411 RCL 12 1412 + 1413 RCL 14 1414 - 1415 X<>Y 1416 XEQ 13 1417 ST- 11 1418 RCL Z 1419 ENTER 1420 COS 1421 RCL 05 1422 409 1423 * 1424 / 1425 - 1426 STO 12 1427 10.3 1428 RCL 12 1429 5.11 1430 + 1431 / 1432 + 1433 TAN 1434 1/X 1435 59 1436 / 1437 + 1438 X<>Y 1439 RCL 11 1440 RTN 1441 LBL 13 1442 SIN 1443 X<>Y 1444 LASTX 1445 COS 1446 P-R 1447 RDN 1448 R-P 1449 X<> Z 1450 - 1451 X<>Y 1452 P-R 1453 R^ 1454 R-P 1455 X<>Y 1456 RDN 1457 R-P 1458 R^ 1459 END |
( 2116 bytes / SIZE 017 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 15
47.6 STO 16
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°041
= R11
RDN
h =
-2°383
= R12
RDN
h0 =
-1°687
( often meaningless
when < 0 )
and R01 = X = 0.75315 AU
R02 = Y = 0.66949
AU
R03 = 41°628 = Geocentric longitude
R06 = 39.193 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.321
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R14 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.342
RDN
h = 15.330
RDN
h0 = 15.390
R03 = 312.289 = Geocentric longitude
R06
= -43.840 = right-ascension
R04 = -4.678
= Geocentric
latitude
R07 = -21.598
= declination
R05 = 0.002496 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.533
RDN
h =
3.976
RDN
h0 =
4.165
R04 = -2.421 = Geocentric latitude R07 = 4.600 = declination R09 = -3.661 = heliocentric latitude
R05 = 0.70519 AU = distance Earth-Mercury R10 = 0.46660 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.974
RDN h = -0.239
RDN h0 = 0.278
R03 = 32.524 = Geocentric longitude R06 = 30.754 = right-ascension R08 = 19.828 = heliocentric longitude
R04 = -1.214 = Geocentric latitude R07 = 11.208 = declination R09 = -2.851 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.890
RDN h = 10.519
RDN h0 = 10.605
R03 = 0.678 = Geocentric longitude R06 = 1.125 = right-ascension R08 = -27.881 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.891 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9745 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.447
RDN h = -7.534
RDN h0 = -7.615 ( often meaningless when < 0 )
R03 = 54.249 = Geocentric longitude R06 = 52.076 = right-ascension R08 = 56.778 = heliocentric longitude
R04 = -0.759 = Geocentric latitude R07 = 18.097 = declination R09 = -0.908 = heliocentric latitude
R05 = 5.989 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.990
RDN h = 13.916
RDN h0 = 13.981
R03 = -13.318 = Geocentric longitude R06 = -11.568 = right-ascension R08 = -18.191 = heliocentric longitude
R04 = -1.752 = Geocentric latitude R07 = -6.872 = declination R09 = -1.851 = heliocentric latitude
R05 = 10.248 AU = distance Earth-Saturn R10 = 9.704 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.010
RDN h = -6.436
RDN h0 = -6.503 ( often meaningless when < 0 )
R03 = 52.415 = Geocentric longitude R06 = 50.077 = right-ascension R08 = 52.975 = heliocentric longitude
R04 = -0.264 = Geocentric latitude R07 = 18.119 = declination R09 = -0.277 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.223
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.050 = Geocentric longitude R06 = -0.474 = right-ascension R08 = -2.354 = heliocentric longitude
R04 = -1.231 = Geocentric latitude R07 = -1.547 = declination R09 = -1.261 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.725
RDN h = 18.064
RDN h0 = 18.115
R03 = -57.901 = Geocentric longitude R06 = -54.904 = right-ascension R08 = -59.529 = heliocentric longitude
R04 = -3.028 = Geocentric latitude R07 = -22.641 = declination R09 = -3.013 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
-I've found these maximum errors with heliocentric longitudes:
Mars: 0°0114
Jupiter: 0°0128
Saturn: 0°0115
Uranus: 0°0107
Neptune: 0°0066
Pluto: 0°0110
-Maximum errors with geocentric longitudes, the Moon: ~ 0°019
b) Program2 [ 1900/03/01 , 2100/02/28 ] ( 1944 bytes )
-Nutation, aberration and time-light are not computed
-Refraction is computed with Saemundsson formula.
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13: temp
R14 = local sidereal time ( deg )
• R15 = Longitude of the observer ( deg ) positive East
• R16 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 14 12 360 13 / 14 X<>Y 15 STO 01 16 FRC 17 ST- 01 18 2 19 10^X 20 STO 02 21 STO 03 22 * 23 INT 24 LASTX 25 FRC 26 RCL 02 27 * 28 X<>Y 29 3 30 + 31 6 32 X>Y? 33 DSE 01 34 INT 35 X<=Y? 36 CHS 37 + 38 4 39 + 40 30.6 41 * 42 INT 43 + 44 RCL 01 45 365.25 46 ST* 02 47 * 48 INT 49 + 50 730563 51 - 52 + 53 RCL 02 54 / 55 ST+ 00 56 36000770 57 STO 06 58 * 59 3 60 10^X 61 STO 09 62 / 63 RCL 03 64 + 65 31 66 1/X 67 - 68 RCL 15 69 + 70 ST+ 14 71 1671 72 STO 08 73 48 74 + 75 STO 07 76 4 77 CHS 78 STO 13 79 80026 80 CHS 81 STO 12 82 2963 83 + 84 STO 10 85 RCL 00 86 445267 87 * 88 68 89 - 90 STO 03 91 SIN 92 RCL 00 93 20 94 * 95 18 96 - 97 COS 98 - 99 RCL 00 100 32964 101 * 102 22 103 - 104 COS 105 - 106 ST+ X 107 X<> 03 108 COS 109 PI 110 % 111 STO 05 112 CLST 113 STO 01 114 STO 02 115 STO 04 116 STO 11 117 XEQ 14 118 CLX 119 RCL 03 120 RCL 05 121 P-R 122 STO 01 123 RDN 124 STO 02 125 CLX 126 RCL 11 127 RTN 128 LBL 03 129 RCL 00 130 3599905 131 % 132 2.96 133 - 134 STO 11 135 STO 12 136 RCL 00 137 44526711 138 % 139 68.25 140 - 141 STO 13 142 ST+ X 143 STO 05 144 STO 10 145 ST- 11 146 STO 06 147 ST+ X 148 STO 03 149 RCL 00 150 47719887 151 % 152 128.43 153 + 154 ST- 05 155 STO 07 156 ST+ 10 157 ST+ X 158 STO 08 159 RCL 00 160 48320202 161 % 162 86.66 163 + 164 STO 09 165 RCL 07 166 + 167 SIN 168 281 169 * 170 RCL 07 171 RCL 09 172 - 173 SIN 174 278 175 * 176 + 177 RCL 06 178 RCL 09 179 - 180 SIN 181 173 182 * 183 + 184 RCL 05 185 RCL 09 186 + 187 SIN 188 55 189 * |
190
+ 191 RCL 05 192 RCL 09 193 - 194 SIN 195 46 196 * 197 + 198 RCL 06 199 RCL 09 200 + 201 SIN 202 33 203 * 204 + 205 RCL 08 206 RCL 09 207 + 208 SIN 209 17 210 * 211 + 212 RCL 10 213 RCL 09 214 - 215 SIN 216 RCL 08 217 RCL 09 218 - 219 SIN 220 + 221 9 222 * 223 + 224 RCL 09 225 RCL 11 226 + 227 SIN 228 RCL 09 229 SIN 230 641 231 * 232 - 233 8 234 * 235 - 236 STO 04 237 RCL 07 238 SIN 239 6289 240 * 241 RCL 06 242 SIN 243 658 244 * 245 + 246 RCL 08 247 SIN 248 214 249 * 250 + 251 RCL 09 252 ST+ X 253 STO 09 254 SIN 255 114 256 * 257 - 258 RCL 06 259 RCL 08 260 - 261 SIN 262 59 263 * 264 + 265 RCL 05 266 RCL 12 267 - 268 SIN 269 57 270 * 271 + 272 RCL 10 273 SIN 274 53 275 * 276 + 277 RCL 11 278 SIN 279 46 280 * 281 - 282 RCL 12 283 RCL 07 284 - 285 SIN 286 41 287 * 288 - 289 RCL 05 290 SIN 291 98 292 * 293 RCL 07 294 RCL 09 295 + 296 SIN 297 - 298 13 299 * 300 + 301 RCL 07 302 RCL 09 303 - 304 SIN 305 RCL 03 306 RCL 07 307 - 308 SIN 309 + 310 11 311 * 312 + 313 RCL 12 314 SIN 315 37 316 * 317 RCL 13 318 SIN 319 7 320 * 321 + 322 RCL 07 323 RCL 12 324 + 325 SIN 326 6 327 * 328 + 329 RCL 06 330 RCL 09 331 - 332 SIN 333 3 334 * 335 - 336 RCL 07 337 RCL 08 338 + 339 SIN 340 ST+ X 341 - 342 RCL 13 343 RCL 07 344 - 345 SIN 346 + 347 RCL 12 348 ST- 10 349 RCL 13 350 + 351 SIN 352 - 353 5 354 * 355 - 356 RCL 05 357 ST+ X 358 SIN 359 9 360 * 361 + 362 RCL 05 363 RCL 12 364 + 365 SIN 366 8 367 * 368 - 369 RCL 06 370 RCL 12 371 + 372 SIN 373 7 374 * 375 - 376 RCL 10 377 SIN 378 RCL 06 |
379
RCL 08 380 + 381 SIN 382 + 383 RCL 03 384 SIN 385 + 386 RCL 05 387 RCL 08 388 - 389 SIN 390 + 391 4 392 * 393 + 394 481267881 395 RCL 00 396 ST+ X 397 - 398 RCL 00 399 * 400 211728 401 + 402 + 403 3 404 10^X 405 ST/ 04 406 / 407 360 408 MOD 409 STO 03 410 2574 411 RCL 07 412 COS 413 28 414 * 415 RCL 05 416 COS 417 5 418 * 419 + 420 RCL 06 421 COS 422 4 423 * 424 + 425 5 426 * 427 - 428 6 429 10^X 430 / 431 STO 05 432 XEQ 00 433 RTN 434 LBL 01 435 387.1 436 STO 09 437 20563 438 STO 08 439 7005 440 RCL 00 441 2 442 STO 13 443 * 444 + 445 STO 11 446 1556 447 STO 07 448 77456 449 STO 10 450 250205 451 STO 12 452 149474072 453 STO 06 454 48331 455 1186 456 XEQ 13 457 RTN 458 LBL 02 459 723.33 460 STO 09 461 677 462 STO 08 463 5 464 CHS 465 STO 13 466 3395 467 RCL 00 468 + 469 STO 11 470 1402 471 STO 07 472 131564 473 STO 10 474 181179 475 STO 12 476 58519213 477 STO 06 478 76680 479 901 480 XEQ 13 481 RTN 482 LBL 04 483 XEQ 12 484 RCL 04 485 10 486 * 487 21 488 - 489 COS 490 14 491 * 492 RCL 09 493 22 494 * 495 RCL 03 496 + 497 ST+ 06 498 12 499 - 500 COS 501 6 502 * 503 - 504 RCL 06 505 49 506 + 507 COS 508 7 509 * 510 + 511 STO 03 512 CLX 513 STO 04 514 STO 05 515 1523.7 516 STO 09 517 9340 518 STO 08 519 1850 520 STO 11 521 9 522 STO 13 523 - 524 STO 07 525 4829 526 CHS 527 STO 12 528 19141696 529 STO 06 530 23940 531 CHS 532 STO 10 533 49558 534 772 535 XEQ 14 536 RTN 537 LBL 05 538 XEQ 12 539 RCL 08 540 73 541 + 542 COS 543 RCL 10 544 RCL 07 545 - 546 41 547 + 548 SIN 549 - 550 509 551 SQRT 552 * 553 RCL 08 554 3 555 * 556 28 557 + 558 COS 559 RCL 09 560 ST+ X 561 STO 12 562 25 563 + 564 COS 565 + 566 5 567 * |
568
- 569 RCL 06 570 RCL 12 571 + 572 69 573 - 574 COS 575 RCL 06 576 RCL 11 577 + 578 STO 04 579 12 580 + 581 SIN 582 4 583 * 584 - 585 RCL 07 586 COS 587 + 588 RCL 06 589 ST+ X 590 STO 12 591 RCL 09 592 + 593 79 594 + 595 COS 596 - 597 RCL 11 598 ST- 06 599 32 600 - 601 COS 602 RCL 00 603 * 604 + 605 4 606 * 607 + 608 RCL 09 609 75 610 - 611 SIN 612 37 613 * 614 + 615 RCL 06 616 61 617 - 618 SIN 619 6 620 * 621 RCL 10 622 33 623 - 624 SIN 625 8 626 * 627 + 628 RCL 11 629 7.3 630 - 631 SIN 632 47 633 * 634 - 635 7 636 * 637 + 638 STO 03 639 RCL 06 640 63 641 - 642 SIN 643 5 644 * 645 STO 04 646 CLX 647 STO 05 648 5203 649 STO 09 650 1303 651 RCL 00 652 5 653 * 654 - 655 STO 11 656 3036303 657 STO 06 658 4849 659 STO 08 660 16 661 STO 13 662 1613 663 STO 07 664 34310 665 STO 12 666 14331 667 STO 10 668 86133 669 + 670 1021 671 XEQ 14 672 RTN 673 LBL 06 674 XEQ 12 675 CLX 676 21 677 - 678 COS 679 RCL 11 680 ST+ X 681 STO 12 682 75 683 + 684 COS 685 - 686 RCL 05 687 R^ 688 STO 05 689 + 690 SIN 691 - 692 8 693 * 694 RCL 08 695 30 696 - 697 COS 698 RCL 10 699 54 700 + 701 COS 702 + 703 RCL 09 704 RCL 11 705 + 706 STO 10 707 RCL 06 708 - 709 25 710 - 711 COS 712 + 713 RCL 07 714 RCL 11 715 + 716 STO 04 717 50 718 - 719 SIN 720 5 721 * 722 + 723 RCL 11 724 7.3 725 - 726 SIN 727 90 728 * 729 + 730 9 731 * 732 + 733 RCL 07 734 RCL 03 735 - 736 COS 737 RCL 08 738 RCL 13 739 - 740 RCL 05 741 - 742 79 743 - 744 COS 745 + 746 RCL 09 747 ST+ X 748 ST+ 07 749 30 750 + 751 STO 12 752 COS 753 38 754 * 755 - 756 6 |
757
* 758 - 759 RCL 10 760 SIN 761 7 762 * 763 RCL 11 764 32 765 - 766 COS 767 5 768 * 769 RCL 00 770 * 771 - 772 RCL 09 773 14 774 + 775 COS 776 59 777 * 778 + 779 ST+ X 780 + 781 STO 03 782 RCL 12 783 3 784 + 785 COS 786 20 787 ST+ 04 788 ST- 08 789 * 790 RCL 07 791 28 792 - 793 COS 794 RCL 04 795 COS 796 3 797 * 798 - 799 6 800 * 801 + 802 RCL 11 803 SIN 804 4 805 * 806 + 807 STO 04 808 RCL 12 809 SIN 810 19 811 * 812 RCL 08 813 COS 814 8 815 * 816 + 817 STO 05 818 1223511 819 STO 06 820 9543 821 STO 09 822 5553 823 STO 08 824 35 825 CHS 826 STO 13 827 2489 828 RCL 00 829 4 830 * 831 - 832 STO 11 833 1964 834 STO 07 835 50061 836 STO 12 837 93057 838 STO 10 839 20609 840 + 841 877 842 XEQ 14 843 RTN 844 LBL 07 845 XEQ 12 846 5 847 * 848 CHS 849 R^ 850 STO 04 851 RCL 05 852 + 853 STO 08 854 10 855 STO 10 856 + 857 SIN 858 7 859 * 860 + 861 RCL 12 862 ST- 07 863 RCL 13 864 ST+ X 865 STO 11 866 + 867 20 868 - 869 SIN 870 ST+ X 871 RCL 07 872 28 873 + 874 COS 875 + 876 6 877 * 878 + 879 RCL 13 880 RCL 10 881 + 882 SIN 883 RCL 10 884 ST- 06 885 * 886 - 887 RCL 06 888 RCL 12 889 - 890 COS 891 RCL 12 892 RCL 04 893 - 894 COS 895 - 896 15 897 * 898 + 899 RCL 12 900 RCL 03 901 - 902 51 903 - 904 COS 905 ST+ Y 906 RCL 05 907 RCL 12 908 + 909 STO 08 910 11 911 - 912 COS 913 + 914 RCL 05 915 62.2 916 - 917 SIN 918 22 919 * 920 + 921 39 922 ST+ 04 923 * 924 + 925 RCL 03 926 73 927 + 928 SIN 929 RCL 04 930 SIN 931 + 932 35 933 * 934 - 935 RCL 11 936 19 937 + 938 STO 11 939 SIN 940 209 941 * 942 - 943 STO 03 944 RCL 11 945 14 |
946
+ 947 COS 948 RCL 08 949 SIN 950 - 951 6 952 * 953 STO 04 954 RCL 11 955 COS 956 34 957 * 958 STO 05 959 429864 960 STO 06 961 19192 962 STO 09 963 45955 964 CHS 965 STO 12 966 4630 967 STO 08 968 3 969 CHS 970 STO 13 971 773 972 RCL 00 973 + 974 STO 11 975 1486 976 STO 07 977 172993 978 STO 10 979 74005 980 521 981 XEQ 14 982 RTN 983 LBL 08 984 XEQ 12 985 22 986 * 987 R^ 988 STO 04 989 50 990 - 991 COS 992 24 993 * 994 + 995 RCL 06 996 RCL 13 997 ST+ 04 998 RCL 05 999 + 1000 ST- 07 1001 - 1002 COS 1003 9 1004 * 1005 + 1006 RCL 04 1007 77 1008 - 1009 COS 1010 RCL 07 1011 16 1012 + 1013 COS 1014 + 1015 5 1016 * 1017 + 1018 RCL 13 1019 7 1020 + 1021 SIN 1022 71 1023 * 1024 + 1025 RCL 05 1026 27.8 1027 + 1028 COS 1029 584 1030 * 1031 + 1032 STO 03 1033 RCL 04 1034 69 1035 - 1036 SIN 1037 RCL 13 1038 36 1039 - 1040 COS 1041 - 1042 9 1043 * 1044 STO 04 1045 RCL 13 1046 6 1047 + 1048 COS 1049 17 1050 * 1051 CHS 1052 STO 05 1053 219883 1054 STO 06 1055 30070 1056 STO 09 1057 899 1058 STO 08 1059 CLX 1060 STO 13 1061 1770 1062 RCL 00 1063 9 1064 * 1065 - 1066 STO 11 1067 1426 1068 STO 07 1069 55654 1070 CHS 1071 STO 12 1072 48124 1073 STO 10 1074 83660 1075 + 1076 1102 1077 XEQ 14 1078 RTN 1079 LBL 09 1080 39489 1081 STO 09 1082 24900 1083 STO 08 1084 CLX 1085 STO 13 1086 17140 1087 STO 11 1088 224075 1089 STO 10 1090 238927 1091 STO 12 1092 146567 1093 STO 06 1094 36260 1095 - 1096 1397 1097 STO 07 1098 LBL 13 1099 0 1100 STO 03 1101 STO 04 1102 STO 05 1103 RDN 1104 LBL 14 1105 RCL 00 1106 ST* 06 1107 ST* 07 1108 ST* 13 1109 * 1110 + 1111 X<> 13 1112 ST+ 08 1113 5 1114 10^X 1115 ST/ 08 1116 RCL 06 1117 RCL 12 1118 + 1119 RCL 07 1120 RCL 10 1121 + 1122 9 1123 STO 06 1124 SQRT 1125 10^X 1126 ST/ 03 1127 ST/ 04 1128 ST/ 05 1129 ST/ 09 1130 ST/ 11 1131 ST/ 13 1132 ST/ Z 1133 / 1134 STO 10 |
1135
- 1136 ENTER 1137 ENTER 1138 LBL 11 1139 SIN 1140 RCL 08 1141 R-D 1142 * 1143 + 1144 DSE 06 1145 GTO 11 1146 STO 07 1147 2 1148 / 1149 TAN 1150 RCL 08 1151 1 1152 ST+ Y 1153 RCL 08 1154 - 1155 / 1156 SQRT 1157 * 1158 ATAN 1159 ST+ X 1160 1 1161 RCL 07 1162 COS 1163 RCL 08 1164 * 1165 - 1166 RCL 09 1167 * 1168 RCL 05 1169 + 1170 X<> 10 1171 + 1172 RCL 13 1173 ST+ 03 1174 - 1175 COS 1176 RCL 11 1177 LASTX 1178 SIN 1179 P-R 1180 X<>Y 1181 ASIN 1182 RCL 04 1183 + 1184 STO 09 1185 X<> Z 1186 R-P 1187 CLX 1188 RCL 03 1189 + 1190 STO 08 1191 X<>Y 1192 RCL 10 1193 P-R 1194 RCL 08 1195 X<>Y 1196 P-R 1197 RCL 02 1198 ST+ Z 1199 CLX 1200 RCL 01 1201 + 1202 R-P 1203 X<>Y 1204 STO 03 1205 RDN 1206 R-P 1207 STO 05 1208 X<>Y 1209 STO 04 1210 LBL 00 1211 RCL 00 1212 77 1213 / 1214 549.4 1215 SQRT 1216 - 1217 RCL 03 1218 RCL 04 1219 XEQ 13 1220 STO 06 1221 RCL 16 1222 R^ 1223 STO 07 1224 90 1225 STO 11 1226 ST- Z 1227 R^ 1228 + 1229 RCL 14 1230 - 1231 X<>Y 1232 XEQ 13 1233 ST- 11 1234 RCL Z 1235 ENTER 1236 COS 1237 RCL 05 1238 409 1239 * 1240 / 1241 - 1242 STO 12 1243 10.3 1244 RCL 12 1245 5.11 1246 + 1247 / 1248 + 1249 TAN 1250 1/X 1251 59 1252 / 1253 + 1254 X<>Y 1255 RCL 11 1256 RTN 1257 LBL 13 1258 SIN 1259 X<>Y 1260 LASTX 1261 COS 1262 P-R 1263 RDN 1264 R-P 1265 X<> Z 1266 - 1267 X<>Y 1268 P-R 1269 R^ 1270 R-P 1271 X<>Y 1272 RDN 1273 R-P 1274 R^ 1275 RTN 1276 LBL 12 1277 102 1278 RCL 00 1279 2.06 1280 * 1281 STO 04 1282 * 1283 STO 13 1284 4 1285 LASTX 1286 * 1287 STO 05 1288 52 1289 * 1290 STO 12 1291 19 1292 RCL 04 1293 * 1294 STO 11 1295 593 1296 LASTX 1297 * 1298 STO 07 1299 LASTX 1300 880 1301 * 1302 STO 08 1303 + 1304 STO 06 1305 LASTX 1306 RCL 07 1307 - 1308 STO 09 1309 + 1310 STO 10 1311 RCL 05 1312 ST+ X 1313 RCL 04 1314 31 1315 * 1316 STO 03 1317 RCL 13 1318 RCL 05 1319 - 1320 11 1321 - 1322 COS 1323 END |
( 1944 bytes / SIZE 017 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 15
47.6 STO 16
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°036
= R11
RDN
h =
-2°387
= R12
RDN
h0 =
-1°691
= R13
( often meaningless when <
0 )
and R01 = X = 0.75315 AU
R02 = Y = 0.66949
AU
R03 = 41°635 = Geocentric longitude
R06 = 39.200 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.322
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R14 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.342
RDN
h = 15.328
RDN
h0 = 15.388
R03 = 312.291 = Geocentric longitude
R06
= -43.838 = right-ascension
R04 = -4.682
= Geocentric
latitude
R07 = -21.599
= declination
R05 = 0.002496 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.532
RDN
h =
3.975
RDN
h0 =
4.164
R04 = -2.421 = Geocentric latitude R07 = 4.600 = declination R09 = -3.661 = heliocentric latitude
R05 = 0.70519 AU = distance Earth-Mercury R10 = 0.46660 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.963
RDN h = -0.245
RDN h0 = 0.274
R03 = 32.537 = Geocentric longitude R06 = 30.767 = right-ascension R08 = 19.828 = heliocentric longitude
R04 = -1.214 = Geocentric latitude R07 = 11.211 = declination R09 = -2.851 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.902
RDN h = 10.516
RDN h0 = 10.602
R03 = 0.690 = Geocentric longitude R06 = 1.136 = right-ascension R08 = -27.876 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.886 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9745 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.440
RDN h = -7.538
RDN h0 = -7.619 ( often meaningless when < 0 )
R03 = 54.259 = Geocentric longitude R06 = 52.086 = right-ascension R08 = 56.778 = heliocentric longitude
R04 = -0.759 = Geocentric latitude R07 = 18.097 = declination R09 = -0.908 = heliocentric latitude
R05 = 5.989 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.993
RDN h = 13.916
RDN h0 = 13.982
R03 = -13.315 = Geocentric longitude R06 = -11.565 = right-ascension R08 = -18.194 = heliocentric longitude
R04 = -1.752 = Geocentric latitude R07 = -6.870 = declination R09 = -1.851 = heliocentric latitude
R05 = 10.248 AU = distance Earth-Saturn R10 = 9.704 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.003
RDN h = -6.440
RDN h0 = -6.507 ( often meaningless when < 0 )
R03 = 52.423 = Geocentric longitude R06 = 50.086 = right-ascension R08 = 52.975 = heliocentric longitude
R04 = -0.264 = Geocentric latitude R07 = 18.119 = declination R09 = -0.277 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.228
RDN h = 11.069
RDN h0 = 11.151
R03 = -1.044 = Geocentric longitude R06 = -0.468 = right-ascension R08 = -2.354 = heliocentric longitude
R04 = -1.231 = Geocentric latitude R07 = -1.544 = declination R09 = -1.261 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.720
RDN h = 18.069
RDN h0 = 18.119
R03 = -57.904 = Geocentric longitude R06 = -54.908 = right-ascension R08 = -59.533 = heliocentric longitude
R04 = -3.027 = Geocentric latitude R07 = -22.638 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-The number of days since 2000/01/01 are computed with less bytes than the first "EPH"
-But it doesn't work if the date is before 1900/03/01 or after 2100/02/28
-However, if the date is for instance: 1900/01/06 put 1900/01/07 in Z-register
-And with 2100/03/03 put 2100/03/02
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
c) Program3 [ 1900/03/01 , 2100/02/28 ] ( 1820 bytes )
-Nutation, aberration and time-light are not computed
-Refraction is computed with Saemundsson formula.
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 X<>Y 15 STO 01 16 FRC 17 ST- 01 18 2 19 10^X 20 STO 02 21 STO 03 22 * 23 INT 24 LASTX 25 FRC 26 RCL 02 27 * 28 X<>Y 29 3 30 + 31 6 32 X>Y? 33 DSE 01 34 INT 35 X<=Y? 36 CHS 37 + 38 4 39 + 40 30.6 41 * 42 INT 43 + 44 RCL 01 45 365.25 46 ST* 02 47 * 48 INT 49 + 50 730563 51 - 52 + 53 RCL 02 54 / 55 ST+ 00 56 36000770 57 STO 06 58 * 59 3 60 10^X 61 STO 09 62 / 63 RCL 03 64 + 65 31 66 1/X 67 - 68 RCL 14 69 + 70 ST+ 13 71 1719 72 STO 07 73 48 74 - 75 RCL 00 76 4 77 * 78 - 79 STO 08 80 80026 81 CHS 82 STO 12 83 2963 84 + 85 STO 10 86 CLST 87 STO 01 88 STO 02 89 STO 11 90 XEQ 13 91 CLX 92 RCL 03 93 RCL 05 94 P-R 95 STO 01 96 RDN 97 STO 02 98 CLX 99 RCL 11 100 RTN 101 LBL 03 102 RCL 00 103 3599905 104 % 105 2.96 106 - 107 STO 11 108 STO 12 109 RCL 00 110 44526711 111 % 112 68.25 113 - 114 STO 03 115 ST+ X 116 STO 05 117 STO 10 118 ST- 11 119 STO 06 120 RCL 00 121 47719887 122 % 123 128.43 124 + 125 ST- 05 126 STO 07 127 ST+ 10 128 ST+ X 129 STO 08 130 RCL 00 131 48320202 132 % 133 86.66 134 + 135 STO 09 136 RCL 07 137 + 138 SIN 139 281 140 * 141 RCL 07 142 RCL 09 143 - 144 SIN 145 278 146 * 147 + 148 RCL 06 149 RCL 09 150 - 151 STO 04 152 SIN 153 173 154 * 155 + 156 RCL 05 157 RCL 09 158 + 159 SIN 160 55 161 * 162 + 163 RCL 05 164 RCL 09 165 - 166 SIN 167 46 168 * 169 + 170 RCL 06 171 RCL 09 172 + 173 SIN 174 33 175 * |
176
+ 177 RCL 08 178 RCL 09 179 + 180 SIN 181 17 182 * 183 + 184 RCL 10 185 RCL 09 186 - 187 SIN 188 RCL 08 189 RCL 09 190 - 191 SIN 192 + 193 9 194 * 195 + 196 RCL 09 197 RCL 11 198 + 199 SIN 200 RCL 09 201 SIN 202 641 203 * 204 - 205 8 206 * 207 - 208 RCL 04 209 RCL 08 210 - 211 SIN 212 RCL 09 213 RCL 10 214 + 215 SIN 216 + 217 4 218 * 219 + 220 STO 04 221 RCL 07 222 SIN 223 6289 224 * 225 RCL 06 226 SIN 227 658 228 * 229 + 230 RCL 08 231 SIN 232 214 233 * 234 + 235 RCL 09 236 ST+ X 237 STO 09 238 SIN 239 114 240 * 241 - 242 RCL 06 243 RCL 08 244 - 245 SIN 246 59 247 * 248 + 249 RCL 05 250 RCL 12 251 - 252 SIN 253 57 254 * 255 + 256 RCL 10 257 SIN 258 53 259 * 260 + 261 RCL 11 262 SIN 263 46 264 * 265 - 266 RCL 12 267 RCL 07 268 - 269 SIN 270 41 271 * 272 - 273 RCL 05 274 SIN 275 98 276 * 277 RCL 07 278 RCL 09 279 + 280 SIN 281 - 282 13 283 * 284 + 285 RCL 07 286 RCL 09 287 - 288 SIN 289 RCL 06 290 ST+ X 291 STO 11 292 RCL 07 293 - 294 SIN 295 + 296 11 297 * 298 + 299 RCL 12 300 SIN 301 37 302 * 303 RCL 03 304 SIN 305 7 306 * 307 + 308 RCL 07 309 RCL 12 310 + 311 SIN 312 6 313 * 314 + 315 RCL 06 316 RCL 09 317 - 318 SIN 319 3 320 * 321 - 322 RCL 07 323 RCL 08 324 + 325 SIN 326 ST+ X 327 - 328 RCL 03 329 RCL 07 330 - 331 SIN 332 + 333 RCL 12 334 RCL 03 335 + 336 SIN 337 - 338 5 339 * 340 - 341 RCL 05 342 ST+ X 343 SIN 344 9 345 * 346 + 347 RCL 05 348 RCL 12 349 + 350 SIN |
351
8 352 * 353 - 354 RCL 06 355 RCL 12 356 + 357 SIN 358 7 359 * 360 - 361 481267881 362 RCL 00 363 * 364 211728 365 + 366 + 367 3 368 10^X 369 ST/ 04 370 / 371 360 372 MOD 373 STO 03 374 2574 375 RCL 07 376 COS 377 28 378 * 379 RCL 05 380 COS 381 5 382 * 383 + 384 RCL 06 385 COS 386 4 387 * 388 + 389 5 390 * 391 - 392 6 393 10^X 394 / 395 STO 05 396 XEQ 00 397 RTN 398 LBL 01 399 387.1 400 STO 09 401 20563 402 STO 08 403 7005 404 RCL 00 405 ST+ X 406 ST+ 08 407 + 408 STO 11 409 1556 410 STO 07 411 77456 412 STO 10 413 250205 414 STO 12 415 149474072 416 STO 06 417 48331 418 1186 419 XEQ 13 420 RTN 421 LBL 02 422 723.33 423 STO 09 424 677 425 RCL 00 426 5 427 * 428 - 429 STO 08 430 3395 431 RCL 00 432 + 433 STO 11 434 1402 435 STO 07 436 131564 437 STO 10 438 181179 439 STO 12 440 58519213 441 STO 06 442 76680 443 901 444 XEQ 13 445 RTN 446 LBL 04 447 XEQ 12 448 RCL 04 449 10 450 * 451 21 452 - 453 COS 454 14 455 * 456 RCL 09 457 22 458 * 459 RCL 03 460 + 461 ST+ 06 462 12 463 - 464 COS 465 6 466 * 467 - 468 RCL 06 469 49 470 + 471 COS 472 7 473 * 474 + 475 STO 03 476 CLX 477 STO 04 478 STO 05 479 1523.7 480 STO 09 481 9340 482 RCL 00 483 9 484 STO 11 485 * 486 + 487 STO 08 488 1841 489 STO 07 490 ST+ 11 491 4829 492 CHS 493 STO 12 494 19141696 495 STO 06 496 23940 497 CHS 498 STO 10 499 49558 500 772 501 XEQ 14 502 RTN 503 LBL 05 504 XEQ 12 505 RCL 08 506 73 507 + 508 COS 509 RCL 10 510 RCL 07 511 - 512 41 513 + 514 SIN 515 - 516 509 517 SQRT 518 * 519 RCL 06 520 RCL 11 521 + 522 12 523 + 524 SIN 525 16 |
526
* 527 - 528 RCL 09 529 75 530 - 531 SIN 532 37 533 * 534 + 535 RCL 06 536 RCL 11 537 - 538 STO 06 539 61 540 - 541 SIN 542 6 543 * 544 RCL 10 545 33 546 - 547 SIN 548 8 549 * 550 + 551 RCL 11 552 7.3 553 - 554 SIN 555 47 556 * 557 - 558 7 559 * 560 + 561 STO 03 562 RCL 06 563 63 564 - 565 SIN 566 5 567 * 568 STO 04 569 CLX 570 STO 05 571 5203 572 STO 09 573 1303 574 RCL 00 575 5 576 * 577 - 578 STO 11 579 3036303 580 STO 06 581 4849 582 RCL 00 583 16 584 * 585 + 586 STO 08 587 1613 588 STO 07 589 34310 590 STO 12 591 14331 592 STO 10 593 86133 594 + 595 1021 596 XEQ 14 597 RTN 598 LBL 06 599 XEQ 12 600 STO 04 601 CLX 602 21 603 - 604 COS 605 RCL 11 606 ST+ X 607 STO 12 608 75 609 + 610 COS 611 - 612 RCL 05 613 ENTER 614 ST+ X 615 STO 05 616 + 617 SIN 618 - 619 8 620 * 621 RCL 08 622 30 623 - 624 COS 625 RCL 10 626 54 627 + 628 COS 629 + 630 RCL 09 631 RCL 11 632 + 633 STO 10 634 RCL 06 635 - 636 25 637 - 638 COS 639 + 640 RCL 07 641 RCL 11 642 + 643 STO 06 644 50 645 - 646 SIN 647 5 648 * 649 + 650 RCL 11 651 7.3 652 - 653 SIN 654 90 655 * 656 + 657 9 658 * 659 + 660 RCL 07 661 RCL 03 662 - 663 COS 664 RCL 08 665 RCL 04 666 - 667 RCL 05 668 - 669 79 670 - 671 COS 672 + 673 RCL 09 674 ST+ X 675 ST+ 07 676 30 677 + 678 STO 12 679 COS 680 38 681 * 682 - 683 6 684 * 685 - 686 RCL 10 687 SIN 688 7 689 * 690 RCL 11 691 32 692 - 693 COS 694 5 695 * 696 RCL 00 697 * 698 - 699 RCL 09 700 14 |
701
+ 702 COS 703 59 704 * 705 + 706 ST+ X 707 + 708 STO 03 709 RCL 12 710 3 711 + 712 COS 713 20 714 ST+ 06 715 ST- 08 716 * 717 RCL 07 718 28 719 - 720 COS 721 RCL 06 722 COS 723 3 724 * 725 - 726 6 727 * 728 + 729 STO 04 730 RCL 12 731 SIN 732 19 733 * 734 RCL 08 735 COS 736 8 737 * 738 + 739 STO 05 740 1223511 741 STO 06 742 9543 743 STO 09 744 5553 745 RCL 00 746 35 747 * 748 - 749 STO 08 750 2489 751 RCL 00 752 4 753 * 754 - 755 STO 11 756 1964 757 STO 07 758 50061 759 STO 12 760 93057 761 STO 10 762 20609 763 + 764 877 765 XEQ 14 766 RTN 767 LBL 07 768 XEQ 12 769 STO 09 770 RCL 05 771 ST+ X 772 STO 04 773 RCL 05 774 + 775 STO 08 776 10 777 STO 10 778 + 779 SIN 780 7 781 * 782 RCL 12 783 ST- 07 784 RCL 09 785 ST+ X 786 STO 11 787 + 788 20 789 - 790 SIN 791 ST+ X 792 RCL 07 793 28 794 + 795 COS 796 + 797 6 798 * 799 + 800 RCL 09 801 RCL 10 802 + 803 SIN 804 RCL 10 805 ST- 06 806 * 807 - 808 RCL 06 809 RCL 12 810 - 811 COS 812 RCL 12 813 RCL 04 814 - 815 COS 816 - 817 15 818 * 819 + 820 RCL 12 821 RCL 03 822 - 823 51 824 - 825 COS 826 ST+ Y 827 RCL 05 828 RCL 12 829 + 830 STO 08 831 11 832 - 833 COS 834 + 835 RCL 05 836 62.2 837 - 838 SIN 839 22 840 * 841 + 842 39 843 ST+ 04 844 * 845 + 846 RCL 03 847 73 848 + 849 SIN 850 RCL 04 851 SIN 852 + 853 35 854 * 855 - 856 RCL 11 857 19 858 + 859 STO 11 860 SIN 861 209 862 * 863 - 864 STO 03 865 RCL 11 866 14 867 + 868 COS 869 RCL 08 870 SIN 871 - 872 6 873 * 874 STO 04 875 RCL 11 |
876
COS 877 34 878 * 879 STO 05 880 429864 881 STO 06 882 19192 883 STO 09 884 45955 885 CHS 886 STO 12 887 4630 888 RCL 00 889 3 890 * 891 - 892 STO 08 893 773 894 RCL 00 895 + 896 STO 11 897 1486 898 STO 07 899 172993 900 STO 10 901 74005 902 521 903 XEQ 14 904 RTN 905 LBL 08 906 XEQ 12 907 STO 10 908 RCL 05 909 - 910 11 911 - 912 COS 913 22 914 * 915 RCL 05 916 ST+ X 917 STO 04 918 50 919 - 920 COS 921 24 922 * 923 + 924 RCL 06 925 RCL 10 926 ST+ 04 927 RCL 05 928 + 929 - 930 COS 931 9 932 * 933 + 934 RCL 10 935 7 936 + 937 SIN 938 71 939 * 940 + 941 RCL 05 942 27.8 943 + 944 COS 945 584 946 * 947 + 948 STO 03 949 RCL 04 950 69 951 - 952 SIN 953 RCL 10 954 36 955 - 956 COS 957 - 958 9 959 * 960 STO 04 961 RCL 10 962 6 963 + 964 COS 965 17 966 * 967 CHS 968 STO 05 969 219883 970 STO 06 971 30070 972 STO 09 973 899 974 STO 08 975 1770 976 RCL 00 977 9 978 * 979 - 980 STO 11 981 1426 982 STO 07 983 55654 984 CHS 985 STO 12 986 48124 987 STO 10 988 83660 989 + 990 1102 991 XEQ 14 992 RTN 993 LBL 09 994 39489 995 STO 09 996 24900 997 STO 08 998 17140 999 STO 11 1000 224075 1001 STO 10 1002 238927 1003 STO 12 1004 146567 1005 STO 06 1006 36260 1007 - 1008 1397 1009 STO 07 1010 LBL 13 1011 0 1012 STO 03 1013 STO 04 1014 STO 05 1015 RDN 1016 LBL 14 1017 RCL 00 1018 ST* 06 1019 ST* 07 1020 * 1021 + 1022 X<> 12 1023 5 1024 10^X 1025 ST/ 08 1026 CLX 1027 RCL 06 1028 + 1029 RCL 07 1030 RCL 10 1031 + 1032 9 1033 STO 06 1034 SQRT 1035 10^X 1036 ST/ 03 1037 ST/ 04 1038 ST/ 05 1039 ST/ 09 1040 ST/ 11 1041 ST/ 12 1042 ST/ Z 1043 / 1044 STO 10 1045 - 1046 ENTER 1047 ENTER 1048 LBL 11 1049 SIN 1050 RCL 08 |
1051
R-D 1052 * 1053 + 1054 DSE 06 1055 GTO 11 1056 STO 07 1057 2 1058 / 1059 TAN 1060 RCL 08 1061 1 1062 ST+ Y 1063 RCL 08 1064 - 1065 / 1066 SQRT 1067 * 1068 ATAN 1069 ST+ X 1070 1 1071 RCL 07 1072 COS 1073 RCL 08 1074 * 1075 - 1076 RCL 09 1077 * 1078 RCL 05 1079 + 1080 X<> 10 1081 + 1082 RCL 12 1083 ST+ 03 1084 - 1085 COS 1086 RCL 11 1087 LASTX 1088 SIN 1089 P-R 1090 X<>Y 1091 ASIN 1092 RCL 04 1093 + 1094 STO 09 1095 X<> Z 1096 R-P 1097 CLX 1098 RCL 03 1099 + 1100 STO 08 1101 X<>Y 1102 RCL 10 1103 P-R 1104 RCL 08 1105 X<>Y 1106 P-R 1107 RCL 02 1108 ST+ Z 1109 CLX 1110 RCL 01 1111 + 1112 R-P 1113 X<>Y 1114 STO 03 1115 RDN 1116 R-P 1117 STO 05 1118 X<>Y 1119 STO 04 1120 LBL 00 1121 RCL 00 1122 77 1123 / 1124 549.4 1125 SQRT 1126 - 1127 RCL 03 1128 RCL 04 1129 XEQ 13 1130 STO 06 1131 RCL 15 1132 R^ 1133 STO 07 1134 90 1135 STO 11 1136 ST- Z 1137 R^ 1138 + 1139 RCL 13 1140 - 1141 X<>Y 1142 XEQ 13 1143 ST- 11 1144 RCL Z 1145 ENTER 1146 COS 1147 RCL 05 1148 409 1149 * 1150 / 1151 - 1152 STO 12 1153 10.3 1154 RCL 12 1155 5.11 1156 + 1157 / 1158 + 1159 TAN 1160 1/X 1161 59 1162 / 1163 + 1164 X<>Y 1165 RCL 11 1166 RTN 1167 LBL 13 1168 SIN 1169 X<>Y 1170 LASTX 1171 COS 1172 P-R 1173 RDN 1174 R-P 1175 X<> Z 1176 - 1177 X<>Y 1178 P-R 1179 R^ 1180 R-P 1181 X<>Y 1182 RDN 1183 R-P 1184 R^ 1185 RTN 1186 LBL 12 1187 RCL 00 1188 2.06 1189 * 1190 STO 04 1191 4 1192 * 1193 STO 05 1194 52 1195 * 1196 STO 12 1197 19 1198 RCL 04 1199 * 1200 STO 11 1201 593 1202 LASTX 1203 * 1204 STO 07 1205 LASTX 1206 880 1207 * 1208 STO 08 1209 + 1210 STO 06 1211 LASTX 1212 RCL 07 1213 - 1214 STO 09 1215 + 1216 STO 10 1217 RCL 04 1218 31 1219 * 1220 STO 03 1221 RCL 04 1222 102 1223 * 1224 END |
( 1820 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°032
= R11
RDN
h =
-2°388
= R12
RDN
h0 =
-1°693
( often
meaningless when < 0 )
and R01 = X = 0.75310 AU
R02 = Y = 0.66955
AU
R03 = 41°639 = Geocentric longitude
R06 = 39.205 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.323
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.338
RDN
h = 15.330
RDN
h0 = 15.390
R03 = 312.286 = Geocentric longitude
R06
= -43.843 = right-ascension
R04 = -4.680
= Geocentric
latitude
R07 = -21.599
= declination
R05 = 0.002496 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.526
RDN
h =
3.973
RDN
h0 =
4.163
R04 = -2.421 = Geocentric latitude R07 = 4.602 = declination R09 = -3.661 = heliocentric latitude
R05 = 0.70516 AU = distance Earth-Mercury R10 = 0.466560 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.961
RDN h = -0.246
RDN h0 = 0.273
R03 = 32.539 = Geocentric longitude R06 = 30.770 = right-ascension R08 = 19.828 = heliocentric longitude
R04 = -1.214 = Geocentric latitude R07 = 11.212 = declination R09 = -2.851 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.903
RDN h = 10.515
RDN h0 = 10.601
R03 = 0.692 = Geocentric longitude R06 = 1.138 = right-ascension R08 = -27.876 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.885 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9745 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.437
RDN h = -7.539
RDN h0 = -7.620 ( often meaningless when < 0 )
R03 = 54.261 = Geocentric longitude R06 = 52.089 = right-ascension R08 = 56.781 = heliocentric longitude
R04 = -0.759 = Geocentric latitude R07 = 18.098 = declination R09 = -0.908 = heliocentric latitude
R05 = 5.989 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.993
RDN h = 13.915
RDN h0 = 13.981
R03 = -13.314 = Geocentric longitude R06 = -11.564 = right-ascension R08 = -18.194 = heliocentric longitude
R04 = -1.753 = Geocentric latitude R07 = -6.870 = declination R09 = -1.851 = heliocentric latitude
R05 = 10.248 AU = distance Earth-Saturn R10 = 9.704 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.000
RDN h = -6.441
RDN h0 = -6.508 ( often meaningless when < 0 )
R03 = 52.427 = Geocentric longitude R06 = 50.090 = right-ascension R08 = 52.979 = heliocentric longitude
R04 = -0.264 = Geocentric latitude R07 = 18.120 = declination R09 = -0.277 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.225
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.048 = Geocentric longitude R06 = -0.472 = right-ascension R08 = -2.358 = heliocentric longitude
R04 = -1.231 = Geocentric latitude R07 = -1.546 = declination R09 = -1.261 = heliocentric latitude
R05 = 30.623 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.720
RDN h = 18.069
RDN h0 = 18.119
R03 = -57.904 = Geocentric longitude R06 = -54.908 = right-ascension R08 = -59.533 = heliocentric longitude
R04 = -3.027 = Geocentric latitude R07 = -22.638 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-The number of days since 2000/01/01 are computed with less bytes than the first "EPH"
-But it doesn't work if the date is before 1900/03/01 or after 2100/02/28
-However, if the date is for instance: 1900/01/06 put 1900/01/07 in Z-register
-And with 2100/03/03 put 2100/03/02
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
d) Program4 [ 1900/03/01 , 2100/02/28 ] ( 1495 bytes )
-Nutation, aberration and time-light are not computed
-Refraction is computed with Saemundsson formula.
-There are less decimals: 2 decimals with the angles ( deg ), 4 decimals with e ( eccentricity )
-I've found these maximum errors with heliocentric longitudes:
Mars: 0°0143
Jupiter: 0°0149
Saturn: 0°0147
Uranus: 0°0106
Neptune: 0°0087
Pluto: 0°0159
-Maximum errors with geocentric longitudes, the Moon: ~ 0°036
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 X<>Y 15 STO 01 16 FRC 17 ST- 01 18 2 19 10^X 20 STO 09 21 * 22 INT 23 LASTX 24 FRC 25 RCL 09 26 * 27 X<>Y 28 3 29 + 30 6 31 X>Y? 32 DSE 01 33 INT 34 X<=Y? 35 CHS 36 + 37 4 38 + 39 30.6 40 * 41 INT 42 + 43 RCL 01 44 36525 45 STO 02 46 * 47 RCL 09 48 / 49 INT 50 + 51 730563 52 - 53 + 54 RCL 02 55 / 56 ST+ 00 57 3600077 58 STO 06 59 * 60 RCL 09 61 ST/ Y 62 + 63 31 64 1/X 65 - 66 RCL 14 67 + 68 ST+ 13 69 167 70 STO 08 71 5 72 + 73 STO 07 74 8003 75 CHS 76 STO 12 77 297 78 + 79 STO 10 80 CLST 81 STO 01 82 STO 02 83 STO 11 84 XEQ 13 85 CLX 86 RCL 03 87 RCL 05 88 P-R 89 STO 01 90 RDN 91 STO 02 92 CLX 93 RCL 11 94 RTN 95 LBL 03 96 RCL 00 97 3599905 98 % 99 3 100 - 101 STO 11 102 STO 12 103 RCL 00 104 44526711 105 % 106 68.26 107 - 108 STO 03 109 ST+ X 110 STO 04 111 STO 05 112 STO 06 113 STO 10 114 ST- 11 115 RCL 00 116 48320202 117 % 118 3.34 119 - 120 ST- 04 121 STO 09 122 RCL 00 123 77.48 124 X^2 125 * 126 48.24 127 + 128 - 129 ST- 05 130 STO 07 131 ST+ 10 132 SIN 133 RCL 09 134 SIN 135 * 136 56 137 * 138 RCL 06 139 RCL 09 140 + 141 COS 142 PI 143 * 144 + 145 RCL 04 146 COS 147 17 |
148
* 149 - 150 RCL 07 151 ST+ X 152 STO 08 153 RCL 09 154 + 155 COS 156 3 157 SQRT 158 * 159 + 160 RCL 10 161 RCL 09 162 - 163 COS 164 + 165 RCL 08 166 ST- 04 167 RCL 09 168 - 169 COS 170 - 171 RCL 09 172 RCL 11 173 + 174 COS 175 - 176 RCL 09 177 COS 178 513 179 * 180 + 181 RCL 04 182 COS 183 RCL 09 184 RCL 10 185 + 186 COS 187 + 188 RCL 05 189 RCL 09 190 + 191 COS 192 11 193 * 194 + 195 RCL 05 196 RCL 09 197 ST+ 09 198 - 199 COS 200 9 201 * 202 - 203 2 204 / 205 - 206 STO 04 207 RCL 08 208 SIN 209 7 210 * 211 RCL 07 212 RCL 12 213 + 214 SIN 215 + 216 RCL 06 217 RCL 08 218 - 219 SIN 220 RCL 05 221 RCL 12 222 - 223 SIN 224 - 225 ST+ X 226 + 227 3 228 * 229 RCL 06 230 SIN 231 66 232 * 233 + 234 RCL 12 235 RCL 07 236 - 237 SIN 238 RCL 10 239 SIN 240 ST- Z 241 - 242 4 243 * 244 + 245 RCL 06 246 ST+ X 247 RCL 07 248 ST+ 08 249 - 250 SIN 251 - 252 RCL 08 253 SIN 254 - 255 RCL 05 256 ST+ X 257 SIN 258 + 259 RCL 05 260 RCL 12 261 + 262 SIN 263 + 264 RCL 09 265 SIN 266 RCL 07 267 COS 268 ST+ X 269 STO 08 270 * 271 - 272 RCL 03 273 RCL 07 274 - 275 SIN 276 RCL 11 277 SIN 278 9 279 * 280 - 281 RCL 09 282 SIN 283 23 284 * 285 + 286 RCL 03 287 SIN 288 7 289 * 290 - 291 RCL 06 292 ST- 09 293 RCL 12 294 ST+ 03 |
295
ST- 10 296 + 297 SIN 298 - 299 RCL 03 300 SIN 301 + 302 RCL 10 303 SIN 304 - 305 RCL 07 306 SIN 307 34 308 * 309 RCL 12 310 SIN 311 + 312 37 313 * 314 - 315 RCL 05 316 SIN 317 85 318 * 319 RCL 09 320 SIN 321 - 322 3 323 * 324 - 325 2 326 / 327 + 328 48126788 329 RCL 00 330 * 331 21173 332 + 333 + 334 2 335 10^X 336 ST/ 04 337 / 338 360 339 MOD 340 STO 03 341 257 342 RCL 08 343 7 344 * 345 + 346 5 347 10^X 348 / 349 STO 05 350 XEQ 00 351 RTN 352 LBL 01 353 38.71 354 STO 09 355 2056 356 STO 08 357 700 358 STO 11 359 156 360 STO 07 361 7746 362 STO 10 363 25020 364 STO 12 365 14947407 366 STO 06 367 4833 368 119 369 XEQ 13 370 RTN 371 LBL 02 372 72.333 373 STO 09 374 68 375 STO 08 376 339 377 STO 11 378 140 379 STO 07 380 13156 381 STO 10 382 18118 383 STO 12 384 5851921 385 STO 06 386 7668 387 90 388 XEQ 13 389 RTN 390 LBL 04 391 XEQ 12 392 RCL 09 393 22 394 * 395 RCL 03 396 + 397 ST+ 06 398 9 399 - 400 COS 401 CHS 402 RCL 06 403 47 404 + 405 COS 406 .8 407 * 408 + 409 STO 03 410 CLX 411 STO 04 412 STO 05 413 152.37 414 STO 09 415 934 416 RCL 00 417 + 418 STO 08 419 185 420 STO 11 421 DSE X 422 STO 07 423 481.6 424 CHS 425 STO 12 426 1914170 427 STO 06 428 2394 429 CHS 430 STO 10 431 4956 432 77 433 XEQ 14 434 RTN 435 LBL 05 436 XEQ 12 437 RCL 06 438 RCL 11 439 ST+ 06 440 - 441 66 |
442
- 443 SIN 444 ST+ X 445 RCL 08 446 73 447 + 448 COS 449 RCL 10 450 RCL 07 451 - 452 40 453 + 454 SIN 455 - 456 + 457 RCL 06 458 11 459 ST* Z 460 + 461 SIN 462 RCL 09 463 76 464 - 465 SIN 466 ST+ X 467 - 468 9 469 * 470 - 471 RCL 11 472 SIN 473 164 474 * 475 - 476 RCL 10 477 33 478 - 479 SIN 480 29 481 * 482 + 483 5 484 / 485 STO 03 486 CLX 487 STO 04 488 STO 05 489 520.3 490 STO 09 491 4 492 / 493 STO 11 494 303630 495 STO 06 496 485 497 RCL 00 498 ST+ X 499 + 500 STO 08 501 161 502 STO 07 503 3431 504 STO 12 505 1433 506 STO 10 507 8613 508 + 509 102 510 XEQ 14 511 RTN 512 LBL 06 513 XEQ 12 514 RCL 06 515 RCL 09 516 RCL 11 517 + 518 STO 12 519 - 520 25 521 + 522 COS 523 RCL 11 524 ST+ X 525 SIN 526 + 527 RCL 04 528 RCL 05 529 + 530 SIN 531 - 532 RCL 08 533 20 534 - 535 STO 08 536 9 537 ST- 07 538 - 539 COS 540 + 541 RCL 10 542 53 543 + 544 COS 545 + 546 RCL 12 547 4 548 + 549 SIN 550 2 551 SQRT 552 * 553 + 554 RCL 11 555 33 556 - 557 ST+ 07 558 COS 559 RCL 00 560 * 561 - 562 RCL 07 563 SIN 564 5 565 * 566 + 567 RCL 09 568 15 569 + 570 STO 04 571 ST+ 04 572 1 573 - 574 COS 575 12 576 * 577 + 578 RCL 04 579 COS 580 23 581 * 582 + 583 RCL 11 584 SIN 585 81 586 * 587 + 588 STO 03 |
589
RCL 04 590 3 591 + 592 COS 593 RCL 07 594 69 595 + 596 COS 597 - 598 ST+ X 599 X<> 04 600 SIN 601 ST+ X 602 RCL 08 603 COS 604 + 605 STO 05 606 122351 607 STO 06 608 954 609 STO 09 610 555 611 RCL 00 612 PI 613 * 614 - 615 STO 08 616 249 617 STO 11 618 196 619 STO 07 620 5006 621 STO 12 622 9306 623 STO 10 624 2061 625 + 626 88 627 XEQ 14 628 RTN 629 LBL 07 630 XEQ 12 631 STO 07 632 ST+ X 633 STO 11 634 RCL 12 635 4 636 ST- 04 637 X^2 638 ST+ 07 639 - 640 STO 08 641 + 642 SIN 643 RCL 07 644 SIN 645 - 646 RCL 06 647 RCL 12 648 - 649 11 650 ST- 03 651 - 652 COS 653 RCL 12 654 RCL 04 655 - 656 COS 657 - 658 2 659 SQRT 660 * 661 + 662 RCL 05 663 RCL 08 664 + 665 COS 666 RCL 12 667 RCL 03 668 - 669 61 670 ST+ 12 671 - 672 COS 673 + 674 4 675 * 676 + 677 RCL 03 678 COS 679 RCL 04 680 38 681 + 682 SIN 683 + 684 PI 685 * 686 - 687 RCL 11 688 19 689 + 690 3 691 P-R 692 X<> 05 693 62 694 - 695 SIN 696 86 697 * 698 X<>Y 699 7 700 * 701 - 702 + 703 STO 03 704 RCL 12 705 COS 706 STO 04 707 42986 708 STO 06 709 1919 710 STO 09 711 4596 712 CHS 713 STO 12 714 463 715 STO 08 716 77 717 STO 11 718 149 719 STO 07 720 17299 721 STO 10 722 7400 723 52 724 XEQ 14 725 RTN 726 LBL 08 727 XEQ 12 728 STO 07 729 RCL 05 730 ST- 06 731 - 732 COS 733 RCL 04 734 51 735 - 736 COS |
737
+ 738 5 739 SQRT 740 * 741 RCL 06 742 RCL 07 743 ST+ 04 744 - 745 COS 746 + 747 RCL 07 748 7 749 + 750 8 751 P-R 752 5 753 / 754 CHS 755 X<> 05 756 28 757 + 758 COS 759 58 760 * 761 + 762 + 763 STO 03 764 RCL 04 765 69 766 - 767 SIN 768 RCL 07 769 36 770 - 771 COS 772 - 773 STO 04 774 21988 775 STO 06 776 3007 777 STO 09 778 90 779 STO 08 780 177 781 RCL 00 782 - 783 STO 11 784 143 785 STO 07 786 5565 787 CHS 788 STO 12 789 4812 790 STO 10 791 8366 792 + 793 110 794 XEQ 14 795 RTN 796 LBL 09 797 3949 798 STO 09 799 2490 800 STO 08 801 9 802 * 803 2 804 - 805 STO 10 806 1714 807 STO 11 808 23893 809 STO 12 810 14657 811 STO 06 812 3626 813 - 814 140 815 STO 07 816 LBL 13 817 0 818 STO 03 819 STO 04 820 STO 05 821 RDN 822 LBL 14 823 RCL 00 824 ST* 06 825 ST* 07 826 * 827 + 828 X<> 12 829 9 830 X<> 06 831 + 832 RCL 07 833 RCL 10 834 + 835 4 836 10^X 837 ST/ 08 838 SQRT 839 ST/ 03 840 ST/ 04 841 ST/ 05 842 ST/ 09 843 ST/ 11 844 ST/ 12 845 ST/ Z 846 / 847 STO 10 848 - 849 ENTER 850 ENTER 851 LBL 11 852 SIN 853 RCL 08 854 R-D 855 * 856 + 857 DSE 06 858 GTO 11 859 STO 07 860 2 861 / 862 TAN 863 RCL 08 864 1 865 ST+ Y 866 RCL 08 867 - 868 / 869 SQRT 870 * 871 ATAN 872 ST+ X 873 1 874 RCL 07 875 COS 876 RCL 08 877 * 878 - 879 RCL 09 880 * 881 RCL 05 882 + 883 X<> 10 884 + |
885
RCL 12 886 ST+ 03 887 - 888 COS 889 RCL 11 890 LASTX 891 SIN 892 P-R 893 X<>Y 894 ASIN 895 RCL 04 896 + 897 STO 09 898 X<> Z 899 R-P 900 CLX 901 RCL 03 902 + 903 STO 08 904 X<>Y 905 RCL 10 906 P-R 907 RCL 08 908 X<>Y 909 P-R 910 RCL 02 911 ST+ Z 912 CLX 913 RCL 01 914 + 915 R-P 916 X<>Y 917 STO 03 918 RDN 919 R-P 920 STO 05 921 X<>Y 922 STO 04 923 LBL 00 924 RCL 00 925 77 926 / 927 549.4 928 SQRT 929 - 930 RCL 03 931 RCL 04 932 XEQ 13 933 CLX 934 RCL 15 935 R^ 936 STO 06 937 90 938 STO 11 939 ST- Z 940 + 941 RCL 13 942 - 943 R^ 944 STO 07 945 XEQ 13 946 R^ 947 ST- 11 948 RCL Z 949 ENTER 950 COS 951 RCL 05 952 409 953 * 954 / 955 - 956 STO 12 957 10.3 958 RCL 12 959 5.11 960 + 961 / 962 + 963 TAN 964 1/X 965 59 966 / 967 + 968 X<>Y 969 RCL 11 970 RTN 971 LBL 13 972 SIN 973 X<>Y 974 LASTX 975 COS 976 P-R 977 RDN 978 R-P 979 X<> Z 980 - 981 X<>Y 982 P-R 983 R^ 984 R-P 985 X<>Y 986 RDN 987 R-P 988 RTN 989 LBL 12 990 4 991 RCL 00 992 2.06 993 * 994 STO 04 995 * 996 STO 05 997 52 998 * 999 STO 12 1000 19 1001 RCL 04 1002 * 1003 7 1004 - 1005 STO 11 1006 593 1007 RCL 04 1008 * 1009 STO 07 1010 LASTX 1011 880 1012 * 1013 STO 08 1014 + 1015 STO 06 1016 LASTX 1017 RCL 07 1018 - 1019 STO 09 1020 + 1021 STO 10 1022 31 1023 RCL 04 1024 * 1025 STO 03 1026 RCL 05 1027 ST+ X 1028 STO 04 1029 102 1030 LASTX 1031 * 1032 END |
( 1495 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°035
= R11
RDN
h =
-2°387
= R12
RDN
h0 =
-1°691
( often meaningless when <
0 )
and R01 = X = 0.75314 AU
R02 = Y = 0.66950
AU
R03 = 41°635 = Geocentric longitude
R06 = 39.201 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.322
= declination
R05 = 1.00769 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.342
RDN
h = 15.318
RDN
h0 = 15.378
R03 = 312.290 = Geocentric longitude
R06
= -43.840 = right-ascension
R04 = -4.676
= Geocentric
latitude
R07 = -21.595
= declination
R05 = 0.002457 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.529
RDN
h =
3.976
RDN
h0 =
4.166
R04 = -2.419 = Geocentric latitude R07 = 4.603 = declination R09 = -3.658 = heliocentric latitude
R05 = 0.70517 AU = distance Earth-Mercury R10 = 0.46659 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.964
RDN h = -0.242
RDN h0 = 0.276
R03 = 32.535 = Geocentric longitude R06 = 30.765 = right-ascension R08 = 19.823 = heliocentric longitude
R04 = -1.212 = Geocentric latitude R07 = 11.212 = declination R09 = -2.847 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7252 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.904
RDN h = 10.515
RDN h0 = 10.601
R03 = 0.692 = Geocentric longitude R06 = 1.138 = right-ascension R08 = -27.873 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.885 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9746 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.437
RDN h = -7.535
RDN h0 = -7.616 ( often meaningless when < 0 )
R03 = 54.260 = Geocentric longitude R06 = 52.087 = right-ascension R08 = 56.780 = heliocentric longitude
R04 = -0.755 = Geocentric latitude R07 = 18.102 = declination R09 = -0.903 = heliocentric latitude
R05 = 5.988 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.993
RDN h = 13.918
RDN h0 = 13.984
R03 = -13.315 = Geocentric longitude R06 = -11.566 = right-ascension R08 = -18.196 = heliocentric longitude
R04 = -1.750 = Geocentric latitude R07 = -6.868 = declination R09 = -1.849 = heliocentric latitude
R05 = 10.245 AU = distance Earth-Saturn R10 = 9.702 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 233.994
RDN h = -6.442
RDN h0 = -6.509 ( often meaningless when < 0 )
R03 = 52.432 = Geocentric longitude R06 = 50.095 = right-ascension R08 = 52.985 = heliocentric longitude
R04 = -0.262 = Geocentric latitude R07 = 18.123 = declination R09 = -0.275 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.226
RDN h = 11.069
RDN h0 = 11.150
R03 = -1.045 = Geocentric longitude R06 = -0.469 = right-ascension R08 = -2.355 = heliocentric longitude
R04 = -1.232 = Geocentric latitude R07 = -1.546 = declination R09 = -1.262 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.723
RDN h = 18.069
RDN h0 = 18.119
R03 = -57.901 = Geocentric longitude R06 = -54.905 = right-ascension R08 = -59.530 = heliocentric longitude
R04 = -3.026 = Geocentric latitude R07 = -22.637 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-The number of days since 2000/01/01 are computed with less bytes than the first "EPH"
-But it doesn't work if the date is before 1900/03/01 or after 2100/02/28
-However, if the date is for instance: 1900/01/06 put 1900/01/07 in Z-register
-And with 2100/03/03 put 2100/03/02
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
e) Program5 [ 1900/03/01 , 2100/02/28 ] ( 1528 bytes )
-Nutation is not computed, but aberration and time-light are ( approximately ) computed
-Refraction is computed with Saemundsson formula.
( Same formulae like program4 )
-I've found these maximum errors with heliocentric longitudes:
Mars: 0°0143
Jupiter: 0°0149
Saturn: 0°0147
Uranus: 0°0106
Neptune: 0°0087
Pluto: 0°0159
-Maximum errors with geocentric longitudes, the Moon: ~ 0°036
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 X<>Y 15 STO 01 16 FRC 17 ST- 01 18 2 19 10^X 20 STO 09 21 * 22 INT 23 LASTX 24 FRC 25 RCL 09 26 * 27 X<>Y 28 3 29 + 30 6 31 X>Y? 32 DSE 01 33 INT 34 X<=Y? 35 CHS 36 + 37 4 38 + 39 30.6 40 * 41 INT 42 + 43 RCL 01 44 36525 45 STO 02 46 * 47 RCL 09 48 / 49 INT 50 + 51 730563 52 - 53 + 54 RCL 02 55 / 56 ST+ 00 57 3600077 58 STO 06 59 * 60 RCL 09 61 ST/ Y 62 + 63 31 64 1/X 65 - 66 RCL 14 67 + 68 ST+ 13 69 167 70 STO 08 71 5 72 + 73 STO 07 74 8003 75 CHS 76 STO 12 77 297 78 + 79 STO 10 80 CLST 81 STO 01 82 STO 02 83 STO 11 84 XEQ 13 85 CLX 86 RCL 03 87 176 88 1/X 89 + 90 RCL 05 91 P-R 92 STO 01 93 RDN 94 STO 02 95 CLX 96 RCL 11 97 RTN 98 LBL 03 99 RCL 00 100 3599905 101 % 102 3 103 - 104 STO 11 105 STO 12 106 RCL 00 107 44526711 108 % 109 68.26 110 - 111 STO 03 112 ST+ X 113 STO 04 114 STO 05 115 STO 06 116 STO 10 117 ST- 11 118 RCL 00 119 48320202 120 % 121 3.34 122 - 123 ST- 04 124 STO 09 125 RCL 00 126 77.48 127 X^2 128 * 129 48.24 130 + 131 - 132 ST- 05 133 STO 07 134 ST+ 10 135 SIN 136 RCL 09 137 SIN 138 * 139 56 140 * 141 RCL 06 142 RCL 09 143 + 144 COS 145 PI 146 * 147 + 148 RCL 04 149 COS 150 17 151 * |
152
- 153 RCL 07 154 ST+ X 155 STO 08 156 RCL 09 157 + 158 COS 159 3 160 SQRT 161 * 162 + 163 RCL 10 164 RCL 09 165 - 166 COS 167 + 168 RCL 08 169 ST- 04 170 RCL 09 171 - 172 COS 173 - 174 RCL 09 175 RCL 11 176 + 177 COS 178 - 179 RCL 09 180 COS 181 513 182 * 183 + 184 RCL 04 185 COS 186 RCL 09 187 RCL 10 188 + 189 COS 190 + 191 RCL 05 192 RCL 09 193 + 194 COS 195 11 196 * 197 + 198 RCL 05 199 RCL 09 200 ST+ 09 201 - 202 COS 203 9 204 * 205 - 206 2 207 / 208 - 209 STO 04 210 RCL 08 211 SIN 212 7 213 * 214 RCL 07 215 RCL 12 216 + 217 SIN 218 + 219 RCL 06 220 RCL 08 221 - 222 SIN 223 RCL 05 224 RCL 12 225 - 226 SIN 227 - 228 ST+ X 229 + 230 3 231 * 232 RCL 06 233 SIN 234 66 235 * 236 + 237 RCL 12 238 RCL 07 239 - 240 SIN 241 RCL 10 242 SIN 243 ST- Z 244 - 245 4 246 * 247 + 248 RCL 06 249 ST+ X 250 RCL 07 251 ST+ 08 252 - 253 SIN 254 - 255 RCL 08 256 SIN 257 - 258 RCL 05 259 ST+ X 260 SIN 261 + 262 RCL 05 263 RCL 12 264 + 265 SIN 266 + 267 RCL 09 268 SIN 269 RCL 07 270 COS 271 ST+ X 272 STO 08 273 * 274 - 275 RCL 03 276 RCL 07 277 - 278 SIN 279 RCL 11 280 SIN 281 9 282 * 283 - 284 RCL 09 285 SIN 286 23 287 * 288 + 289 RCL 03 290 SIN 291 7 292 * 293 - 294 RCL 06 295 ST- 09 296 RCL 12 297 ST+ 03 298 ST- 10 299 + 300 SIN 301 - 302 RCL 03 |
303
SIN 304 + 305 RCL 10 306 SIN 307 - 308 RCL 07 309 SIN 310 34 311 * 312 RCL 12 313 SIN 314 + 315 37 316 * 317 - 318 RCL 05 319 SIN 320 85 321 * 322 RCL 09 323 SIN 324 - 325 3 326 * 327 - 328 2 329 / 330 + 331 48126788 332 RCL 00 333 * 334 21173 335 + 336 + 337 2 338 10^X 339 ST/ 04 340 / 341 360 342 MOD 343 STO 03 344 257 345 RCL 08 346 7 347 * 348 + 349 5 350 10^X 351 / 352 STO 05 353 XEQ 00 354 RTN 355 LBL 01 356 38.71 357 STO 09 358 2056 359 STO 08 360 700 361 STO 11 362 156 363 STO 07 364 7746 365 STO 10 366 25020 367 STO 12 368 14947407 369 STO 06 370 4833 371 119 372 XEQ 13 373 RTN 374 LBL 02 375 72.333 376 STO 09 377 68 378 STO 08 379 339 380 STO 11 381 140 382 STO 07 383 13156 384 STO 10 385 18118 386 STO 12 387 5851921 388 STO 06 389 7668 390 90 391 XEQ 13 392 RTN 393 LBL 04 394 XEQ 12 395 RCL 09 396 22 397 * 398 RCL 03 399 + 400 ST+ 06 401 9 402 - 403 COS 404 CHS 405 RCL 06 406 47 407 + 408 COS 409 .8 410 * 411 + 412 STO 03 413 CLX 414 STO 04 415 STO 05 416 152.37 417 STO 09 418 934 419 RCL 00 420 + 421 STO 08 422 185 423 STO 11 424 DSE X 425 STO 07 426 481.6 427 CHS 428 STO 12 429 1914170 430 STO 06 431 2394 432 CHS 433 STO 10 434 4956 435 77 436 XEQ 14 437 RTN 438 LBL 05 439 XEQ 12 440 RCL 06 441 RCL 11 442 ST+ 06 443 - 444 66 445 - 446 SIN 447 ST+ X 448 RCL 08 449 73 450 + 451 COS 452 RCL 10 453 RCL 07 |
454
- 455 40 456 + 457 SIN 458 - 459 + 460 RCL 06 461 11 462 ST* Z 463 + 464 SIN 465 RCL 09 466 76 467 - 468 SIN 469 ST+ X 470 - 471 9 472 * 473 - 474 RCL 11 475 SIN 476 164 477 * 478 - 479 RCL 10 480 33 481 - 482 SIN 483 29 484 * 485 + 486 5 487 / 488 STO 03 489 CLX 490 STO 04 491 STO 05 492 520.3 493 STO 09 494 4 495 / 496 STO 11 497 303630 498 STO 06 499 485 500 RCL 00 501 ST+ X 502 + 503 STO 08 504 161 505 STO 07 506 3431 507 STO 12 508 1433 509 STO 10 510 8613 511 + 512 102 513 XEQ 14 514 RTN 515 LBL 06 516 XEQ 12 517 RCL 06 518 RCL 09 519 RCL 11 520 + 521 STO 12 522 - 523 25 524 + 525 COS 526 RCL 11 527 ST+ X 528 SIN 529 + 530 RCL 04 531 RCL 05 532 + 533 SIN 534 - 535 RCL 08 536 20 537 - 538 STO 08 539 9 540 ST- 07 541 - 542 COS 543 + 544 RCL 10 545 53 546 + 547 COS 548 + 549 RCL 12 550 4 551 + 552 SIN 553 2 554 SQRT 555 * 556 + 557 RCL 11 558 33 559 - 560 ST+ 07 561 COS 562 RCL 00 563 * 564 - 565 RCL 07 566 SIN 567 5 568 * 569 + 570 RCL 09 571 15 572 + 573 STO 04 574 ST+ 04 575 1 576 - 577 COS 578 12 579 * 580 + 581 RCL 04 582 COS 583 23 584 * 585 + 586 RCL 11 587 SIN 588 81 589 * 590 + 591 STO 03 592 RCL 04 593 3 594 + 595 COS 596 RCL 07 597 69 598 + 599 COS 600 - 601 ST+ X 602 X<> 04 603 SIN 604 ST+ X |
605
RCL 08 606 COS 607 + 608 STO 05 609 122351 610 STO 06 611 954 612 STO 09 613 555 614 RCL 00 615 PI 616 * 617 - 618 STO 08 619 249 620 STO 11 621 196 622 STO 07 623 5006 624 STO 12 625 9306 626 STO 10 627 2061 628 + 629 88 630 XEQ 14 631 RTN 632 LBL 07 633 XEQ 12 634 STO 07 635 ST+ X 636 STO 11 637 RCL 12 638 4 639 ST- 04 640 X^2 641 ST+ 07 642 - 643 STO 08 644 + 645 SIN 646 RCL 07 647 SIN 648 - 649 RCL 06 650 RCL 12 651 - 652 11 653 ST- 03 654 - 655 COS 656 RCL 12 657 RCL 04 658 - 659 COS 660 - 661 2 662 SQRT 663 * 664 + 665 RCL 05 666 RCL 08 667 + 668 COS 669 RCL 12 670 RCL 03 671 - 672 61 673 ST+ 12 674 - 675 COS 676 + 677 4 678 * 679 + 680 RCL 03 681 COS 682 RCL 04 683 38 684 + 685 SIN 686 + 687 PI 688 * 689 - 690 RCL 11 691 19 692 + 693 3 694 P-R 695 X<> 05 696 62 697 - 698 SIN 699 86 700 * 701 X<>Y 702 7 703 * 704 - 705 + 706 STO 03 707 RCL 12 708 COS 709 STO 04 710 42986 711 STO 06 712 1919 713 STO 09 714 4596 715 CHS 716 STO 12 717 463 718 STO 08 719 77 720 STO 11 721 149 722 STO 07 723 17299 724 STO 10 725 7400 726 52 727 XEQ 14 728 RTN 729 LBL 08 730 XEQ 12 731 STO 07 732 RCL 05 733 ST- 06 734 - 735 COS 736 RCL 04 737 51 738 - 739 COS 740 + 741 5 742 SQRT 743 * 744 RCL 06 745 RCL 07 746 ST+ 04 747 - 748 COS 749 + 750 RCL 07 751 7 752 + 753 8 754 P-R 755 5 |
756
/ 757 CHS 758 X<> 05 759 28 760 + 761 COS 762 58 763 * 764 + 765 + 766 STO 03 767 RCL 04 768 69 769 - 770 SIN 771 RCL 07 772 36 773 - 774 COS 775 - 776 STO 04 777 21988 778 STO 06 779 3007 780 STO 09 781 90 782 STO 08 783 177 784 RCL 00 785 - 786 STO 11 787 143 788 STO 07 789 5565 790 CHS 791 STO 12 792 4812 793 STO 10 794 8366 795 + 796 110 797 XEQ 14 798 RTN 799 LBL 09 800 3949 801 STO 09 802 2490 803 STO 08 804 9 805 * 806 2 807 - 808 STO 10 809 1714 810 STO 11 811 23893 812 STO 12 813 14657 814 STO 06 815 3626 816 - 817 140 818 STO 07 819 LBL 13 820 0 821 STO 03 822 STO 04 823 STO 05 824 RDN 825 LBL 14 826 RCL 00 827 ST* 06 828 ST* 07 829 * 830 + 831 X<> 12 832 9 833 X<> 06 834 + 835 RCL 07 836 RCL 10 837 + 838 4 839 10^X 840 ST/ 08 841 SQRT 842 ST/ 03 843 ST/ 04 844 ST/ 05 845 ST/ 09 846 ST/ 11 847 ST/ 12 848 ST/ Z 849 / 850 STO 10 851 - 852 ENTER 853 ENTER 854 LBL 11 855 SIN 856 RCL 08 857 R-D 858 * 859 + 860 DSE 06 861 GTO 11 862 STO 07 863 2 864 / 865 TAN 866 RCL 08 867 1 868 ST+ Y 869 RCL 08 870 - 871 / 872 SQRT 873 * 874 ATAN 875 ST+ X 876 1 877 RCL 07 878 COS 879 RCL 08 880 * 881 - 882 RCL 09 883 * 884 RCL 05 885 + 886 X<> 10 887 + 888 RCL 12 889 ST+ 03 890 - 891 COS 892 RCL 11 893 LASTX 894 SIN 895 P-R 896 X<>Y 897 ASIN 898 RCL 04 899 + 900 STO 09 901 X<> Z 902 R-P 903 CLX 904 RCL 03 905 + |
906
STO 08 907 X<>Y 908 RCL 10 909 P-R 910 RCL 08 911 X<>Y 912 P-R 913 RCL 02 914 ST+ Z 915 CLX 916 RCL 01 917 + 918 R-P 919 X<>Y 920 STO 03 921 RDN 922 R-P 923 STO 05 924 X<>Y 925 STO 04 926 RCL 10 927 SQRT 928 LASTX 929 X^2 930 ST/ Y 931 1 932 - 933 RCL 05 934 X^2 935 ST+ Y 936 ST+ X 937 / 938 ST* Y 939 - 940 RCL 05 941 176 942 / 943 ST* Y 944 + 945 ST- 03 946 LBL 00 947 RCL 00 948 77 949 / 950 549.4 951 SQRT 952 - 953 RCL 03 954 RCL 04 955 XEQ 13 956 CLX 957 RCL 15 958 R^ 959 STO 06 960 90 961 STO 11 962 ST- Z 963 + 964 RCL 13 965 - 966 R^ 967 STO 07 968 XEQ 13 969 R^ 970 ST- 11 971 RCL Z 972 ENTER 973 COS 974 RCL 05 975 409 976 * 977 / 978 - 979 STO 12 980 10.3 981 RCL 12 982 5.11 983 + 984 / 985 + 986 TAN 987 1/X 988 59 989 / 990 + 991 X<>Y 992 RCL 11 993 RTN 994 LBL 13 995 SIN 996 X<>Y 997 LASTX 998 COS 999 P-R 1000 RDN 1001 R-P 1002 X<> Z 1003 - 1004 X<>Y 1005 P-R 1006 R^ 1007 R-P 1008 X<>Y 1009 RDN 1010 R-P 1011 RTN 1012 LBL 12 1013 4 1014 RCL 00 1015 2.06 1016 * 1017 STO 04 1018 * 1019 STO 05 1020 52 1021 * 1022 STO 12 1023 19 1024 RCL 04 1025 * 1026 7 1027 - 1028 STO 11 1029 593 1030 RCL 04 1031 * 1032 STO 07 1033 LASTX 1034 880 1035 * 1036 STO 08 1037 + 1038 STO 06 1039 LASTX 1040 RCL 07 1041 - 1042 STO 09 1043 + 1044 STO 10 1045 31 1046 RCL 04 1047 * 1048 STO 03 1049 RCL 05 1050 ST+ X 1051 STO 04 1052 102 1053 LASTX 1054 * 1055 END |
( 1528 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°041
= R11
RDN
h =
-2°385
= R12
RDN
h0 =
-1°688
( often meaningless when <
0 )
and R01 = X = 0.75314 AU
R02 = Y = 0.66950
AU
R03 = 41°629 = Geocentric longitude
R06 = 39.195 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.320
= declination
R05 = 1.00769 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.342
RDN
h = 15.318
RDN
h0 = 15.378
R03 = 312.290 = Geocentric longitude
R06
= -43.840 = right-ascension
R04 = -4.676
= Geocentric
latitude
R07 = -21.595
= declination
R05 = 0.002457 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.531
RDN
h =
3.977
RDN
h0 =
4.166
R04 = -2.419 = Geocentric latitude R07 = 4.602 = declination R09 = -3.658 = heliocentric latitude
R05 = 0.70517 AU = distance Earth-Mercury R10 = 0.46659 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.976
RDN h = -0.238
RDN h0 = 0.279
R03 = 32.523 = Geocentric longitude R06 = 30.753 = right-ascension R08 = 19.823 = heliocentric longitude
R04 = -1.212 = Geocentric latitude R07 = 11.208 = declination R09 = -2.847 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7252 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.895
RDN h = 10.518
RDN h0 = 10.604
R03 = 0.684 = Geocentric longitude R06 = 1.130 = right-ascension R08 = -27.873 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.888 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9746 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.444
RDN h = -7.532
RDN h0 = -7.613 ( often meaningless when < 0 )
R03 = 54.252 = Geocentric longitude R06 = 52.079 = right-ascension R08 = 56.780 = heliocentric longitude
R04 = -0.755 = Geocentric latitude R07 = 18.100 = declination R09 = -0.903 = heliocentric latitude
R05 = 5.988 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.988
RDN h = 13.919
RDN h0 = 13.985
R03 = -13.320 = Geocentric longitude R06 = -11.571 = right-ascension R08 = -18.196 = heliocentric longitude
R04 = -1.750 = Geocentric latitude R07 = -6.870 = declination R09 = -1.849 = heliocentric latitude
R05 = 10.245 AU = distance Earth-Saturn R10 = 9.702 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.001
RDN h = -6.439
RDN h0 = -6.506 ( often meaningless when < 0 )
R03 = 52.426 = Geocentric longitude R06 = 50.088 = right-ascension R08 = 52.985 = heliocentric longitude
R04 = -0.262 = Geocentric latitude R07 = 18.121 = declination R09 = -0.275 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.221
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.051 = Geocentric longitude R06 = -0.474 = right-ascension R08 = -2.355 = heliocentric longitude
R04 = -1.232 = Geocentric latitude R07 = -1.548 = declination R09 = -1.262 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.723
RDN h = 18.069
RDN h0 = 18.119
R03 = -57.901 = Geocentric longitude R06 = -54.905 = right-ascension R08 = -59.530 = heliocentric longitude
R04 = -3.026 = Geocentric latitude R07 = -22.637 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-The number of days since 2000/01/01 are computed with less bytes than the first "EPH"
-But it doesn't work if the date is before 1900/03/01 or after 2100/02/28
-However, if the date is for instance: 1900/01/06 put 1900/01/07 in Z-register
-And with 2100/03/03 put 2100/03/02
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
f) Program6 [ 1900 , 2100 ] ( 980 or 1001 or 1031 bytes )
-Nutation, aberration and time-light are not computed
-Even less decimals... and even less precision !
-Maximum errors with heliocentric longitudes:
Mars: 0°035
Jupiter: 0°066
Saturn: 0°051
Uranus: 0°048
Neptune: 0°034
Pluto: 0°046
-Maximum errors with geocentric longitudes, with the Moon: 0°126
-Maximum errors with geocentric latitudes: 0°091
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 360007.7 19 STO 06 20 ST+ 06 21 * 22 10 23 STO 04 24 ST/ Y 25 X^2 26 + 27 31 28 1/X 29 - 30 RCL 14 31 + 32 ST+ 13 33 167 34 STO 03 35 1600.6 36 CHS 37 STO 12 38 34.4 39 STO 07 40 + 41 25 42 + 43 STO 05 44 CLST 45 STO 01 46 STO 02 47 STO 11 48 XEQ 13 49 CLX 50 RCL 03 51 RCL 05 52 P-R 53 STO 01 54 RDN 55 STO 02 56 CLX 57 RCL 11 58 RTN 59 LBL 03 60 RCL 00 61 3599905 62 % 63 3 64 - 65 STO 12 66 RCL 00 67 89053422 68 % 69 43.54 70 + 71 STO 05 72 STO 06 73 RCL 00 74 48320202 75 % 76 .3 77 1/X 78 - 79 STO 09 80 RCL 00 81 77.48 82 X^2 83 * 84 48.21 85 + 86 - 87 ST- 05 88 STO 07 89 SIN 90 28 91 * |
92
RCL 05 93 SIN 94 5 95 * 96 - 97 RCL 09 98 SIN 99 * 100 RCL 06 101 RCL 09 102 - 103 COS 104 9 105 * 106 + 107 RCL 09 108 COS 109 257 110 STO 03 111 * 112 + 113 50 114 / 115 STO 04 116 RCL 07 117 ST+ X 118 STO 08 119 SIN 120 RCL 12 121 SIN 122 - 123 RCL 07 124 SIN 125 30 126 * 127 - 128 21 129 * 130 RCL 06 131 SIN 132 65 133 * 134 - 135 RCL 12 136 RCL 06 137 - 138 SIN 139 RCL 06 140 RCL 08 141 - 142 SIN 143 - 144 RCL 05 145 RCL 12 146 - 147 SIN 148 + 149 RCL 06 150 RCL 07 151 ST- 12 152 + 153 SIN 154 ST+ Z 155 + 156 RCL 12 157 SIN 158 + 159 RCL 09 160 ST+ X 161 SIN 162 ST+ X 163 + 164 5 165 * 166 + 167 RCL 05 168 SIN 169 128 170 * 171 + 172 48126788 173 RCL 00 174 * 175 21173 176 + 177 + 178 2 179 10^X 180 / 181 360 182 MOD |
183
X<> 03 184 RCL 07 185 COS 186 14 187 * 188 - 189 5 190 10^X 191 / 192 STO 05 193 XEQ 00 194 RTN 195 LBL 01 196 3.87 197 STO 04 198 2056 199 STO 03 200 140 201 STO 11 202 1549 203 STO 05 204 5004 205 STO 12 206 2989481 207 STO 06 208 31 209 STO 07 210 X^2 211 6 212 + 213 24 214 XEQ 13 215 RTN 216 LBL 02 217 7.233 218 STO 04 219 68 220 STO 03 221 STO 11 222 28 223 STO 07 224 2631 225 STO 05 226 3624 227 STO 12 228 1170384 229 STO 06 230 763 231 / 232 18 233 XEQ 13 234 RTN 235 LBL 04 236 37 237 STO 07 238 STO 11 239 96.4 240 CHS 241 STO 12 242 382834 243 STO 06 244 479 245 CHS 246 STO 05 247 934 248 STO 03 249 57 250 + 251 15.24 252 STO 04 253 INT 254 XEQ 13 255 RTN 256 LBL 05 257 XEQ 12 258 RCL 04 259 77 260 - 261 SIN 262 R^ 263 52 264 STO 04 265 - 266 SIN 267 + 268 RCL 11 269 ST- 06 270 SIN 271 7 272 * 273 - |
274
RCL 06 275 3 276 - 277 COS 278 - 279 STO 08 280 26 281 STO 11 282 60726 283 STO 06 284 485 285 RCL 00 286 ST+ X 287 + 288 STO 03 289 32 290 STO 07 291 686 292 STO 12 293 287 294 STO 05 295 7 296 * 297 20 298 XEQ 14 299 RTN 300 LBL 06 301 XEQ 12 302 RCL 11 303 ST+ 07 304 SIN 305 8 306 * 307 RCL 04 308 9 309 + 310 COS 311 + 312 ST+ X 313 RCL 04 314 ST+ X 315 32 316 + 317 COS 318 5 319 * 320 + 321 RCL 07 322 50 323 STO 11 324 + 325 COS 326 - 327 STO 08 328 24470 329 STO 06 330 95.4 331 STO 04 332 555 333 RCL 00 334 PI 335 * 336 - 337 STO 03 338 39 339 STO 07 340 1001 341 STO 12 342 1861 343 STO 05 344 412 345 + 346 18 347 XEQ 14 348 RTN 349 LBL 07 350 XEQ 12 351 STO 10 352 64 353 - 354 SIN 355 18 356 * 357 RCL 08 358 ST+ 10 359 ST+ X 360 22 361 + 362 SIN 363 4 364 * |
365
- 366 RCL 00 367 401 368 * 369 55 370 - 371 COS 372 + 373 RCL 10 374 ST+ X 375 COS 376 + 377 STO 08 378 8597 379 STO 06 380 192 381 STO 04 382 919 383 CHS 384 STO 12 385 463 386 STO 03 387 15 388 STO 11 389 ST+ X 390 STO 07 391 3460 392 STO 05 393 1480 394 PI 395 X^2 396 XEQ 14 397 RTN 398 LBL 08 399 XEQ 12 400 28 401 STO 07 402 + 403 COS 404 6 405 * 406 RCL 08 407 21 408 + 409 SIN 410 + 411 ST+ X 412 STO 08 413 4398 414 STO 06 415 301 416 STO 04 417 90 418 STO 03 419 6087 420 STO 12 421 962 422 STO 05 423 51 424 X^2 425 35 426 STO 11 427 + 428 22 429 XEQ 14 430 RTN 431 LBL 09 432 395 433 STO 04 434 2490 435 STO 03 436 4481 437 STO 05 438 343 439 STO 11 440 4778 441 STO 12 442 2931 443 STO 06 444 725 445 - 446 28 447 STO 07 448 LBL 13 449 0 450 STO 08 451 RDN 452 LBL 14 453 RCL 00 454 ST* 06 455 ST* 07 |
456
* 457 + 458 X<> 12 459 9 460 X<> 06 461 + 462 RCL 05 463 RCL 07 464 + 465 4 466 10^X 467 ST/ 03 468 SQRT 469 SQRT 470 ST/ 04 471 ST+ X 472 ST/ 08 473 ST/ 11 474 ST/ 12 475 ST/ Z 476 / 477 STO 05 478 - 479 ENTER 480 ENTER 481 LBL 11 482 SIN 483 RCL 03 484 R-D 485 * 486 + 487 DSE 06 488 GTO 11 489 STO 10 490 COS 491 RCL 03 492 * 493 RCL 04 494 ST* Y 495 X<>Y 496 - 497 X<> 10 498 2 499 / 500 TAN 501 RCL 03 502 1 503 ST+ Y 504 RCL 03 505 - 506 / 507 SQRT 508 * 509 ATAN 510 ST+ X 511 RCL 05 512 + 513 RCL 12 514 ST+ 08 515 - 516 COS 517 RCL 11 518 LASTX 519 SIN 520 P-R 521 RCL Z 522 R-P 523 RDN 524 ST+ 08 525 X<>Y 526 ASIN 527 STO 09 528 RCL 10 529 P-R 530 RCL 08 531 X<>Y 532 P-R 533 RCL 02 534 ST+ Z 535 CLX 536 RCL 01 537 + 538 R-P 539 X<>Y 540 STO 03 541 RDN 542 R-P 543 STO 05 544 X<>Y 545 STO 04 546 LBL 00 547 RCL 00 |
548
77 549 / 550 549.4 551 SQRT 552 - 553 RCL 03 554 RCL 04 555 XEQ 13 556 STO 06 557 RCL 13 558 - 559 RCL 15 560 90 561 STO 11 562 ST+ Z 563 - 564 X<> Z 565 STO 07 566 XEQ 13 567 ST- 11 568 X<>Y 569 ENTER 570 COS 571 RCL 05 572 409 573 * 574 / 575 - 576 STO 12 577 10 578 RCL 12 579 5 580 + 581 / 582 + 583 TAN 584 1/X 585 59 586 / 587 + 588 X<>Y 589 RCL 11 590 RTN 591 LBL 13 592 SIN 593 X<>Y 594 LASTX 595 COS 596 P-R 597 RDN 598 R-P 599 X<> Z 600 - 601 X<>Y 602 P-R 603 R^ 604 R-P 605 X<>Y 606 RDN 607 R-P 608 * 609 R^ 610 RTN 611 LBL 12 612 210 613 RCL 00 614 * 615 STO 08 616 39 617 LASTX 618 * 619 7 620 - 621 STO 11 622 1222 623 RCL 00 624 * 625 STO 07 626 LASTX 627 1813 628 * 629 + 630 STO 06 631 LASTX 632 RCL 07 633 - 634 STO 04 635 + 636 8 637 RCL 00 638 * 639 END |
( 980 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | N | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
N = number of days since 2000/01/01
N ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01 = 8887
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
8887 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°035
= R11
RDN
h =
-2°387
= R12
RDN
h0 =
-1°712
( often
meaningless when < 0 )
and R01 = X = 0.75314 AU
R02 = Y = 0.66950
AU
R03 = 41°635 = Geocentric longitude
R06 = 39.201 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.322
= declination
R05 = 1.00769 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.27
RDN
h = 15.37
RDN
h0 = 15.43
R03 = 312.22 = Geocentric longitude
R06
= -43.90 = right-ascension
R04 = -4.71
= Geocentric
latitude
R07 = -21.64
= declination
R05 = 0.00268 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.52
RDN
h =
3.97
RDN
h0 =
4.17
R04 = -2.42 = Geocentric latitude R07 = 4.61 = declination R09 = -3.65 = heliocentric latitude
R05 = 0.7052 AU = distance Earth-Mercury R10 = 0.4665 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.96
RDN h = -0.25
RDN h0 = 0.27
R03 = 32.54 = Geocentric longitude R06 = 30.77 = right-ascension R08 = 19.84 = heliocentric longitude
R04 = -1.22 = Geocentric latitude R07 = 11.21 = declination R09 = -2.85 = heliocentric latitude
R05 = 1.702 AU = distance Earth-Venus R10 = 0.725 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.90
RDN h = 10.52
RDN h0 = 10.60
R03 = 0.68 = Geocentric longitude R06 = 1.13 = right-ascension R08 = -27.88 = heliocentric longitude
R04 = -1.26 = Geocentric latitude R07 = -0.89 = declination R09 = -1.81 = heliocentric latitude
R05 = 1.975 AU = distance Earth-Mars R10 = 1.382 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.44
RDN h = -7.53
RDN h0 = -7.62 ( often meaningless when < 0 )
R03 = 54.25 = Geocentric longitude R06 = 52.08 = right-ascension R08 = 56.77 = heliocentric longitude
R04 = -0.75 = Geocentric latitude R07 = 18.10 = declination R09 = -0.90 = heliocentric latitude
R05 = 5.985 AU = distance Earth-Jupiter R10 = 5.007 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -63.01
RDN h = 13.91
RDN h0 = 13.97
R03 = -13.29 = Geocentric longitude R06 = -11.54 = right-ascension R08 = -18.17 = heliocentric longitude
R04 = -1.76 = Geocentric latitude R07 = -6.86 = declination R09 = -1.85 = heliocentric latitude
R05 = 10.254 AU = distance Earth-Saturn R10 = 9.710 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 233.97
RDN h = -6.43
RDN h0 = -6.51 ( often meaningless when < 0 )
R03 = 52.46 = Geocentric longitude R06 = 50.11 = right-ascension R08 = 53.01 = heliocentric longitude
R04 = -0.25 = Geocentric latitude R07 = 18.14 = declination R09 = -0.26 = heliocentric latitude
R05 = 20.594 AU = distance Earth-Uranus R10 = 19.605 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.24
RDN h = 11.09
RDN h0 = 11.17
R03 = -1.04 = Geocentric longitude R06 = -0.47 = right-ascension R08 = -2.34 = heliocentric longitude
R04 = -1.21 = Geocentric latitude R07 = -1.52 = declination R09 = -1.24 = heliocentric latitude
R05 = 30.662 AU = distance Earth-Neptune R10 = 29.929 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.69
RDN h = 18.07
RDN h0 = 18.12
R03 = -57.94 = Geocentric longitude R06 = -54.94 = right-ascension R08 = -59.57 = heliocentric longitude
R04 = -3.02 = Geocentric latitude R07 = -22.64 = declination R09 = -3.00 = heliocentric latitude
R05 = 34.833 AU = distance Earth-Pluto R10 = 35.014 AU = radius vector
Notes:
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
-Here is a small improvement for the Moon:
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 360007.7 19 STO 06 20 ST+ 06 21 * 22 10 23 STO 04 24 ST/ Y 25 X^2 26 + 27 31 28 1/X 29 - 30 RCL 14 31 + 32 ST+ 13 33 167 34 STO 03 35 1600.6 36 CHS 37 STO 12 38 34.4 39 STO 07 40 + 41 25 42 + 43 STO 05 44 CLST 45 STO 01 46 STO 02 47 STO 11 48 XEQ 13 49 CLX 50 RCL 03 51 RCL 05 52 P-R 53 STO 01 54 RDN 55 STO 02 56 CLX 57 RCL 11 58 RTN 59 LBL 03 60 RCL 00 61 3599905 62 % 63 3 64 - 65 STO 12 66 RCL 00 67 44526711 68 % 69 68.23 70 - 71 STO 10 72 ST+ X 73 STO 05 74 STO 06 75 RCL 00 76 48320202 77 % 78 .3 79 1/X 80 - 81 STO 09 82 RCL 00 83 77.48 84 X^2 85 * 86 48.21 87 + 88 - 89 ST- 05 90 STO 07 91 SIN 92 28 93 * 94 RCL 05 |
95
SIN 96 STO 11 97 5 98 * 99 + 100 RCL 09 101 SIN 102 * 103 RCL 06 104 RCL 09 105 - 106 COS 107 9 108 * 109 - 110 RCL 09 111 COS 112 257 113 STO 03 114 * 115 + 116 RCL 06 117 RCL 09 118 + 119 COS 120 ST+ X 121 + 122 50 123 / 124 STO 04 125 RCL 07 126 ST+ X 127 STO 08 128 SIN 129 RCL 12 130 SIN 131 - 132 RCL 07 133 SIN 134 30 135 * 136 - 137 21 138 * 139 RCL 06 140 SIN 141 65 142 * 143 + 144 RCL 06 145 RCL 08 146 - 147 SIN 148 RCL 06 149 RCL 07 150 + 151 SIN 152 - 153 ST+ Y 154 RCL 12 155 ST- 05 156 RCL 06 157 - 158 SIN 159 - 160 RCL 05 161 SIN 162 - 163 RCL 12 164 RCL 07 165 ST+ 12 166 - 167 SIN 168 + 169 5 170 * 171 + 172 RCL 09 173 ST+ X 174 SIN 175 11 176 * 177 + 178 RCL 10 179 SIN 180 PI 181 * 182 - 183 RCL 12 184 SIN 185 + 186 RCL 11 187 128 188 * |
189
- 190 48126788 191 RCL 00 192 * 193 21173 194 + 195 + 196 2 197 10^X 198 / 199 360 200 MOD 201 X<> 03 202 RCL 07 203 COS 204 14 205 * 206 - 207 5 208 10^X 209 / 210 STO 05 211 XEQ 00 212 RTN 213 LBL 01 214 3.87 215 STO 04 216 2056 217 STO 03 218 140 219 STO 11 220 1549 221 STO 05 222 5004 223 STO 12 224 2989481 225 STO 06 226 31 227 STO 07 228 X^2 229 6 230 + 231 24 232 XEQ 13 233 RTN 234 LBL 02 235 7.233 236 STO 04 237 68 238 STO 03 239 STO 11 240 28 241 STO 07 242 2631 243 STO 05 244 3624 245 STO 12 246 1170384 247 STO 06 248 763 249 / 250 18 251 XEQ 13 252 RTN 253 LBL 04 254 37 255 STO 07 256 STO 11 257 96.4 258 CHS 259 STO 12 260 382834 261 STO 06 262 479 263 CHS 264 STO 05 265 934 266 STO 03 267 57 268 + 269 15.24 270 STO 04 271 INT 272 XEQ 13 273 RTN 274 LBL 05 275 XEQ 12 276 RCL 04 277 77 278 - 279 SIN 280 R^ 281 52 282 STO 04 |
283
- 284 SIN 285 + 286 RCL 11 287 ST- 06 288 SIN 289 7 290 * 291 - 292 RCL 06 293 3 294 - 295 COS 296 - 297 STO 08 298 26 299 STO 11 300 60726 301 STO 06 302 485 303 RCL 00 304 ST+ X 305 + 306 STO 03 307 32 308 STO 07 309 686 310 STO 12 311 287 312 STO 05 313 7 314 * 315 20 316 XEQ 14 317 RTN 318 LBL 06 319 XEQ 12 320 RCL 11 321 ST+ 07 322 SIN 323 8 324 * 325 RCL 04 326 9 327 + 328 COS 329 + 330 ST+ X 331 RCL 04 332 ST+ X 333 32 334 + 335 COS 336 5 337 * 338 + 339 RCL 07 340 50 341 STO 11 342 + 343 COS 344 - 345 STO 08 346 24470 347 STO 06 348 95.4 349 STO 04 350 555 351 RCL 00 352 PI 353 * 354 - 355 STO 03 356 39 357 STO 07 358 1001 359 STO 12 360 1861 361 STO 05 362 412 363 + 364 18 365 XEQ 14 366 RTN 367 LBL 07 368 XEQ 12 369 STO 10 370 64 371 - 372 SIN 373 18 374 * 375 RCL 08 376 ST+ 10 |
377
ST+ X 378 22 379 + 380 SIN 381 4 382 * 383 - 384 RCL 00 385 401 386 * 387 55 388 - 389 COS 390 + 391 RCL 10 392 ST+ X 393 COS 394 + 395 STO 08 396 8597 397 STO 06 398 192 399 STO 04 400 919 401 CHS 402 STO 12 403 463 404 STO 03 405 15 406 STO 11 407 ST+ X 408 STO 07 409 3460 410 STO 05 411 1480 412 PI 413 X^2 414 XEQ 14 415 RTN 416 LBL 08 417 XEQ 12 418 28 419 STO 07 420 + 421 COS 422 6 423 * 424 RCL 08 425 21 426 + 427 SIN 428 + 429 ST+ X 430 STO 08 431 4398 432 STO 06 433 301 434 STO 04 435 90 436 STO 03 437 6087 438 STO 12 439 962 440 STO 05 441 51 442 X^2 443 35 444 STO 11 445 + 446 22 447 XEQ 14 448 RTN 449 LBL 09 450 395 451 STO 04 452 2490 453 STO 03 454 4481 455 STO 05 456 343 457 STO 11 458 4778 459 STO 12 460 2931 461 STO 06 462 725 463 - 464 28 465 STO 07 466 LBL 13 467 0 468 STO 08 469 RDN 470 LBL 14 |
471
RCL 00 472 ST* 06 473 ST* 07 474 * 475 + 476 X<> 12 477 9 478 X<> 06 479 + 480 RCL 05 481 RCL 07 482 + 483 4 484 10^X 485 ST/ 03 486 SQRT 487 SQRT 488 ST/ 04 489 ST+ X 490 ST/ 08 491 ST/ 11 492 ST/ 12 493 ST/ Z 494 / 495 STO 05 496 - 497 ENTER 498 ENTER 499 LBL 11 500 SIN 501 RCL 03 502 R-D 503 * 504 + 505 DSE 06 506 GTO 11 507 STO 10 508 COS 509 RCL 03 510 * 511 RCL 04 512 ST* Y 513 X<>Y 514 - 515 X<> 10 516 2 517 / 518 TAN 519 RCL 03 520 1 521 ST+ Y 522 RCL 03 523 - 524 / 525 SQRT 526 * 527 ATAN 528 ST+ X 529 RCL 05 530 + 531 RCL 12 532 ST+ 08 533 - 534 COS 535 RCL 11 536 LASTX 537 SIN 538 P-R 539 RCL Z 540 R-P 541 RDN 542 ST+ 08 543 X<>Y 544 ASIN 545 STO 09 546 RCL 10 547 P-R 548 RCL 08 549 X<>Y 550 P-R 551 RCL 02 552 ST+ Z 553 CLX 554 RCL 01 555 + 556 R-P 557 X<>Y 558 STO 03 559 RDN 560 R-P 561 STO 05 562 X<>Y 563 STO 04 564 LBL 00 |
565
RCL 00 566 77 567 / 568 549.4 569 SQRT 570 - 571 RCL 03 572 RCL 04 573 XEQ 13 574 STO 06 575 RCL 13 576 - 577 RCL 15 578 90 579 STO 11 580 ST+ Z 581 - 582 X<> Z 583 STO 07 584 XEQ 13 585 ST- 11 586 X<>Y 587 ENTER 588 COS 589 RCL 05 590 409 591 * 592 / 593 - 594 STO 12 595 10 596 RCL 12 597 5 598 + 599 / 600 + 601 TAN 602 1/X 603 59 604 / 605 + 606 X<>Y 607 RCL 11 608 RTN 609 LBL 13 610 SIN 611 X<>Y 612 LASTX 613 COS 614 P-R 615 RDN 616 R-P 617 X<> Z 618 - 619 X<>Y 620 P-R 621 R^ 622 R-P 623 X<>Y 624 RDN 625 R-P 626 * 627 R^ 628 RTN 629 LBL 12 630 210 631 RCL 00 632 * 633 STO 08 634 39 635 LASTX 636 * 637 7 638 - 639 STO 11 640 1222 641 RCL 00 642 * 643 STO 07 644 LASTX 645 1813 646 * 647 + 648 STO 06 649 LASTX 650 RCL 07 651 - 652 STO 04 653 + 654 8 655 RCL 00 656 * 657 END |
( 1001 bytes / SIZE 016 )
-Maximum errors with geocentric longitudes, with the Moon: 0°097
-Maximum errors with geocentric latitudes: 0°062
-Yet another small improvement for the Moon & Jupiter
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 360007.7 19 STO 06 20 ST+ 06 21 * 22 10 23 STO 04 24 ST/ Y 25 X^2 26 + 27 31 28 1/X 29 - 30 RCL 14 31 + 32 ST+ 13 33 167 34 STO 03 35 1600.6 36 CHS 37 STO 12 38 34.4 39 STO 07 40 + 41 25 42 + 43 STO 05 44 CLST 45 STO 01 46 STO 02 47 STO 11 48 XEQ 13 49 CLX 50 RCL 03 51 RCL 05 52 P-R 53 STO 01 54 RDN 55 STO 02 56 CLX 57 RCL 11 58 RTN 59 LBL 03 60 RCL 00 61 3599905 62 % 63 3 64 - 65 STO 12 66 RCL 00 67 44526711 68 % 69 68.23 70 - 71 STO 10 72 ST+ X 73 STO 05 74 STO 06 75 RCL 00 76 48320202 77 % 78 .3 79 1/X 80 - 81 STO 09 82 RCL 00 83 77.48 84 X^2 85 * 86 48.21 87 + 88 - 89 ST- 05 90 STO 07 91 SIN 92 28 93 * 94 RCL 05 95 SIN 96 5 97 * 98 + |
99
RCL 09 100 SIN 101 * 102 RCL 06 103 RCL 09 104 - 105 COS 106 9 107 * 108 - 109 RCL 09 110 COS 111 257 112 STO 03 113 * 114 + 115 RCL 06 116 RCL 09 117 + 118 COS 119 ST+ X 120 + 121 50 122 / 123 STO 04 124 RCL 07 125 ST+ X 126 STO 08 127 SIN 128 RCL 12 129 SIN 130 - 131 RCL 07 132 SIN 133 30 134 * 135 - 136 21 137 * 138 RCL 06 139 SIN 140 65 141 * 142 + 143 RCL 06 144 RCL 08 145 - 146 SIN 147 RCL 06 148 RCL 07 149 + 150 SIN 151 - 152 ST+ Y 153 RCL 12 154 RCL 06 155 - 156 SIN 157 - 158 RCL 05 159 RCL 12 160 - 161 SIN 162 - 163 RCL 12 164 RCL 07 165 ST+ 12 166 - 167 SIN 168 + 169 5 170 * 171 + 172 RCL 09 173 ST+ X 174 STO 09 175 SIN 176 11 177 * 178 + 179 RCL 10 180 SIN 181 PI 182 * 183 - 184 RCL 06 185 RCL 09 186 - 187 SIN 188 - 189 RCL 12 190 SIN 191 RCL 05 192 SIN 193 64 194 * 195 - 196 RCL 09 |
197
SIN 198 RCL 07 199 COS 200 * 201 - 202 ST+ X 203 + 204 48126788 205 RCL 00 206 * 207 21173 208 + 209 + 210 2 211 10^X 212 / 213 360 214 MOD 215 X<> 03 216 RCL 07 217 COS 218 14 219 * 220 - 221 5 222 10^X 223 / 224 STO 05 225 XEQ 00 226 RTN 227 LBL 01 228 3.87 229 STO 04 230 2056 231 STO 03 232 140 233 STO 11 234 1549 235 STO 05 236 5004 237 STO 12 238 2989481 239 STO 06 240 31 241 STO 07 242 X^2 243 6 244 + 245 24 246 XEQ 13 247 RTN 248 LBL 02 249 7.233 250 STO 04 251 68 252 STO 03 253 STO 11 254 28 255 STO 07 256 2631 257 STO 05 258 3624 259 STO 12 260 1170384 261 STO 06 262 763 263 / 264 18 265 XEQ 13 266 RTN 267 LBL 04 268 37 269 STO 07 270 STO 11 271 96.4 272 CHS 273 STO 12 274 382834 275 STO 06 276 479 277 CHS 278 STO 05 279 934 280 STO 03 281 57 282 + 283 15.24 284 STO 04 285 INT 286 XEQ 13 287 RTN 288 LBL 05 289 XEQ 12 290 RCL 04 291 75 292 - 293 SIN 294 R^ |
295
ST- 07 296 52 297 STO 04 298 - 299 SIN 300 + 301 RCL 11 302 ST- 06 303 SIN 304 7 305 * 306 - 307 RCL 06 308 4 309 + 310 COS 311 - 312 RCL 03 313 72 314 + 315 COS 316 RCL 07 317 45 318 - 319 SIN 320 + 321 3 322 / 323 + 324 STO 08 325 26 326 STO 11 327 60726 328 STO 06 329 485 330 RCL 00 331 ST+ X 332 + 333 STO 03 334 32 335 STO 07 336 686 337 STO 12 338 287 339 STO 05 340 7 341 * 342 20 343 XEQ 14 344 RTN 345 LBL 06 346 XEQ 12 347 RCL 11 348 ST+ 07 349 SIN 350 8 351 * 352 RCL 04 353 9 354 + 355 COS 356 + 357 ST+ X 358 RCL 04 359 ST+ X 360 32 361 + 362 COS 363 5 364 * 365 + 366 RCL 07 367 50 368 STO 11 369 + 370 COS 371 - 372 STO 08 373 24470 374 STO 06 375 95.4 376 STO 04 377 555 378 RCL 00 379 PI 380 * 381 - 382 STO 03 383 39 384 STO 07 385 1001 386 STO 12 387 1861 388 STO 05 389 412 390 + 391 18 392 XEQ 14 |
393
RTN 394 LBL 07 395 XEQ 12 396 STO 10 397 64 398 - 399 SIN 400 18 401 * 402 RCL 08 403 ST+ 10 404 ST+ X 405 22 406 + 407 SIN 408 4 409 * 410 - 411 RCL 00 412 401 413 * 414 55 415 - 416 COS 417 + 418 RCL 10 419 ST+ X 420 COS 421 + 422 STO 08 423 8597 424 STO 06 425 192 426 STO 04 427 919 428 CHS 429 STO 12 430 463 431 STO 03 432 15 433 STO 11 434 ST+ X 435 STO 07 436 3460 437 STO 05 438 1480 439 PI 440 X^2 441 XEQ 14 442 RTN 443 LBL 08 444 XEQ 12 445 28 446 STO 07 447 + 448 COS 449 6 450 * 451 RCL 08 452 21 453 + 454 SIN 455 + 456 ST+ X 457 STO 08 458 4398 459 STO 06 460 301 461 STO 04 462 90 463 STO 03 464 6087 465 STO 12 466 962 467 STO 05 468 51 469 X^2 470 35 471 STO 11 472 + 473 22 474 XEQ 14 475 RTN 476 LBL 09 477 395 478 STO 04 479 2490 480 STO 03 481 4481 482 STO 05 483 343 484 STO 11 485 4778 486 STO 12 487 2931 488 STO 06 489 725 490 - |
491
28 492 STO 07 493 LBL 13 494 0 495 STO 08 496 RDN 497 LBL 14 498 RCL 00 499 ST* 06 500 ST* 07 501 * 502 + 503 X<> 12 504 9 505 X<> 06 506 + 507 RCL 05 508 RCL 07 509 + 510 4 511 10^X 512 ST/ 03 513 SQRT 514 SQRT 515 ST/ 04 516 ST+ X 517 ST/ 08 518 ST/ 11 519 ST/ 12 520 ST/ Z 521 / 522 STO 05 523 - 524 ENTER 525 ENTER 526 LBL 11 527 SIN 528 RCL 03 529 R-D 530 * 531 + 532 DSE 06 533 GTO 11 534 STO 10 535 COS 536 RCL 03 537 * 538 RCL 04 539 ST* Y 540 X<>Y 541 - 542 X<> 10 543 2 544 / 545 TAN 546 RCL 03 547 1 548 ST+ Y 549 RCL 03 550 - 551 / 552 SQRT 553 * 554 ATAN 555 ST+ X 556 RCL 05 557 + 558 RCL 12 559 ST+ 08 560 - 561 COS 562 RCL 11 563 LASTX 564 SIN 565 P-R 566 RCL Z 567 R-P 568 RDN 569 ST+ 08 570 X<>Y 571 ASIN 572 STO 09 573 RCL 10 574 P-R 575 RCL 08 576 X<>Y 577 P-R 578 RCL 02 579 ST+ Z 580 CLX 581 RCL 01 582 + 583 R-P 584 X<>Y 585 STO 03 586 RDN 587 R-P 588 STO 05 |
589
X<>Y 590 STO 04 591 LBL 00 592 RCL 00 593 77 594 / 595 549.4 596 SQRT 597 - 598 RCL 03 599 RCL 04 600 XEQ 13 601 STO 06 602 RCL 13 603 - 604 RCL 15 605 90 606 STO 11 607 ST+ Z 608 - 609 X<> Z 610 STO 07 611 XEQ 13 612 ST- 11 613 X<>Y 614 ENTER 615 COS 616 RCL 05 617 409 618 * 619 / 620 - 621 STO 12 622 10 623 RCL 12 624 5 625 + 626 / 627 + 628 TAN 629 1/X 630 59 631 / 632 + 633 X<>Y 634 RCL 11 635 RTN 636 LBL 13 637 SIN 638 X<>Y 639 LASTX 640 COS 641 P-R 642 RDN 643 R-P 644 X<> Z 645 - 646 X<>Y 647 P-R 648 R^ 649 R-P 650 X<>Y 651 RDN 652 R-P 653 * 654 R^ 655 RTN 656 LBL 12 657 210 658 RCL 00 659 * 660 STO 08 661 39 662 LASTX 663 * 664 7 665 - 666 STO 11 667 1222 668 RCL 00 669 * 670 STO 07 671 LASTX 672 1813 673 * 674 STO 03 675 + 676 STO 06 677 LASTX 678 RCL 07 679 - 680 STO 04 681 + 682 8 683 RCL 00 684 * 685 END |
( 1031 bytes / SIZE 016 )
-Maximum errors with geocentric longitudes, with the Moon: 0°087
-Maximum errors with geocentric latitudes: 0°062
-Maximum errors with heliocentric longitudes ( Jupiter ): 0°051
g) Program7 [ 1900 , 2100 ] ( 1287 bytes )
-In the following program, Z-input = number of days since 2000/01/01.
-Nutation, aberration and time-light are not computed
-Maximum errors with heliocentric longitudes:
Mars: 0°0243
Jupiter: 0°0283
Saturn: 0°0284
Uranus: 0°0231
Neptune: 0°0164
Pluto: 0°0228
-Maximum errors with geocentric longitudes, the Moon: ~ 0°0457
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 360007.7 19 STO 06 20 * 21 10 22 STO 04 23 ST/ Y 24 X^2 25 + 26 31 27 1/X 28 - 29 RCL 14 30 + 31 ST+ 13 32 167 33 STO 03 34 68.8 35 STO 07 36 3201 37 CHS 38 STO 12 39 118.5 40 + 41 STO 05 42 4 43 ST* 06 44 CLST 45 STO 01 46 STO 02 47 STO 11 48 XEQ 13 49 CLX 50 RCL 03 51 RCL 05 52 P-R 53 STO 01 54 RDN 55 STO 02 56 CLX 57 RCL 11 58 RTN 59 LBL 03 60 RCL 00 61 3599905 62 % 63 3 64 - 65 STO 11 66 STO 12 67 RCL 00 68 44526711 69 % 70 68.26 71 - 72 STO 03 73 ST+ X 74 STO 05 75 STO 06 76 STO 10 77 ST- 11 78 RCL 00 79 48320202 80 % 81 3.34 82 - 83 STO 09 84 RCL 00 85 77.48 86 X^2 87 * 88 48.24 89 + 90 - 91 ST- 05 92 STO 07 93 ST+ 10 94 SIN 95 RCL 09 96 SIN 97 * 98 56 99 * 100 RCL 06 101 RCL 09 102 + 103 COS 104 PI 105 * 106 + 107 RCL 06 108 RCL 09 109 - 110 COS 111 17 112 * 113 - 114 RCL 07 115 ST+ X 116 STO 08 117 RCL 09 118 + 119 COS 120 3 121 SQRT 122 * 123 + 124 RCL 10 125 RCL 09 126 - |
127
COS 128 + 129 RCL 08 130 RCL 09 131 - 132 COS 133 - 134 RCL 09 135 RCL 11 136 + 137 COS 138 - 139 RCL 09 140 COS 141 513 142 * 143 + 144 RCL 05 145 RCL 09 146 + 147 COS 148 11 149 * 150 RCL 05 151 RCL 09 152 ST+ 09 153 - 154 COS 155 9 156 * 157 - 158 2 159 / 160 - 161 STO 04 162 RCL 08 163 SIN 164 7 165 * 166 RCL 07 167 RCL 12 168 + 169 SIN 170 + 171 RCL 06 172 RCL 08 173 - 174 SIN 175 RCL 05 176 RCL 12 177 - 178 SIN 179 - 180 ST+ X 181 + 182 3 183 * 184 RCL 06 185 SIN 186 66 187 * 188 + 189 RCL 12 190 RCL 07 191 - 192 SIN 193 RCL 10 194 SIN 195 ST- Z 196 - 197 4 198 * 199 + 200 RCL 06 201 ST+ X 202 RCL 07 203 ST+ 08 204 - 205 SIN 206 - 207 RCL 08 208 SIN 209 - 210 RCL 05 211 ST+ X 212 SIN 213 + 214 RCL 05 215 RCL 12 216 + 217 SIN 218 + 219 RCL 09 220 SIN 221 RCL 07 222 COS 223 ST+ X 224 STO 08 225 * 226 - 227 RCL 09 228 RCL 06 229 - 230 SIN 231 RCL 05 232 SIN 233 85 234 * 235 - 236 3 237 * 238 RCL 07 239 SIN 240 34 241 * 242 RCL 12 243 SIN 244 + 245 37 246 * 247 - 248 RCL 09 249 SIN 250 23 251 * 252 + |
253
RCL 11 254 SIN 255 9 256 * 257 - 258 RCL 03 259 SIN 260 7 261 * 262 - 263 2 264 / 265 + 266 48126788 267 RCL 00 268 * 269 21173 270 + 271 + 272 2 273 10^X 274 ST/ 04 275 / 276 360 277 MOD 278 STO 03 279 257 280 RCL 08 281 7 282 * 283 + 284 5 285 10^X 286 / 287 STO 05 288 XEQ 00 289 RTN 290 LBL 01 291 3.87 292 STO 04 293 280 294 STO 11 295 62 296 STO 07 297 3098 298 STO 05 299 4 300 10^X 301 8 302 + 303 STO 12 304 5978963 305 STO 06 306 2056 307 STO 03 308 123 309 - 310 47 311 XEQ 13 312 RTN 313 LBL 02 314 7.233 315 STO 04 316 68 317 STO 03 318 ST+ X 319 STO 11 320 56 321 STO 07 322 5263 323 STO 05 324 7247 325 STO 12 326 2340769 327 STO 06 328 3067 329 36 330 XEQ 13 331 RTN 332 LBL 04 333 RCL 00 334 16105 335 * 336 49 337 + 338 COS 339 RCL 00 340 13070 341 * 342 11 343 - 344 COS 345 - 346 3 347 / 348 STO 08 349 CLX 350 STO 09 351 STO 10 352 15.24 353 STO 04 354 934 355 STO 03 356 74 357 STO 07 358 STO 11 359 765668 360 STO 06 361 958 362 CHS 363 STO 05 364 192.8 365 CHS 366 STO 12 367 1982 368 31 369 XEQ 14 370 RTN 371 LBL 05 372 XEQ 12 373 RCL 03 374 71 375 + 376 COS 377 RCL 05 378 RCL 07 |
379
- 380 44 381 + 382 SIN 383 - 384 RCL 04 385 15 386 + 387 COS 388 RCL 06 389 RCL 11 390 - 391 20 392 + 393 COS 394 + 395 3 396 * 397 RCL 05 398 60 399 + 400 COS 401 5 402 * 403 + 404 2 405 / 406 - 407 RCL 11 408 9 409 - 410 SIN 411 13 412 * 413 - 414 STO 08 415 CLX 416 STO 09 417 STO 10 418 52 419 STO 11 420 .03 421 + 422 STO 04 423 121452 424 STO 06 425 485 426 RCL 00 427 ST+ X 428 + 429 STO 03 430 65 431 STO 07 432 1372 433 STO 12 434 573 435 STO 05 436 4019 437 41 438 XEQ 14 439 RTN 440 LBL 06 441 XEQ 12 442 RCL 04 443 5 444 + 445 COS 446 24 447 SQRT 448 * 449 RCL 04 450 ST+ 04 451 RCL 11 452 + 453 STO 05 454 ST+ X 455 STO 09 456 52 457 + 458 COS 459 ST+ X 460 - 461 RCL 04 462 32 463 + 464 COS 465 8.9 466 * 467 + 468 RCL 11 469 6 470 - 471 SIN 472 33 473 * 474 + 475 STO 08 476 RCL 04 477 33 478 + 479 COS 480 RCL 05 481 ST+ X 482 20 483 + 484 COS 485 - 486 STO 09 487 RCL 04 488 60 489 - 490 COS 491 ST+ X 492 STO 10 493 48940 494 STO 06 495 95.4 496 STO 04 497 555 498 RCL 00 499 PI 500 * 501 - 502 STO 03 503 2 504 10^X |
505
STO 11 506 79 507 STO 07 508 2002 509 STO 12 510 3722 511 STO 05 512 825 513 + 514 35 515 XEQ 14 516 RTN 517 LBL 07 518 XEQ 12 519 RCL 06 520 X<>Y 521 ST+ X 522 STO 12 523 RCL 10 524 + 525 STO 07 526 - 527 6 528 - 529 COS 530 RCL 09 531 52 532 - 533 COS 534 RCL 07 535 RCL 08 536 - 537 48 538 - 539 COS 540 - 541 3 542 * 543 - 544 RCL 12 545 73 546 - 547 COS 548 17 549 * 550 - 551 RCL 10 552 27 553 + 554 COS 555 69 556 * 557 - 558 2 559 / 560 RCL 12 561 RCL 10 562 - 563 COS 564 - 565 RCL 08 566 18 567 - 568 COS 569 - 570 RCL 09 571 RCL 12 572 + 573 13 574 - 575 COS 576 ST+ X 577 + 578 STO 08 579 CLX 580 STO 09 581 RCL 12 582 19 583 + 584 COS 585 3 586 / 587 STO 10 588 17195 589 STO 06 590 192 591 STO 04 592 1838 593 CHS 594 STO 12 595 463 596 STO 03 597 31 598 STO 11 599 59 600 STO 07 601 6920 602 STO 05 603 2960 604 21 605 XEQ 14 606 RTN 607 LBL 08 608 XEQ 12 609 STO 12 610 RCL 10 611 - 612 11 613 - 614 COS 615 RCL 09 616 55 617 - 618 COS 619 + 620 RCL 12 621 6 622 + 623 STO 09 624 SIN 625 3 626 * 627 + 628 RCL 10 629 27 630 + |
631
COS 632 23 633 * 634 + 635 STO 08 636 CLX 637 X<> 09 638 COS 639 2 640 / 641 CHS 642 STO 10 643 8795 644 STO 06 645 300.7 646 STO 04 647 90 648 STO 03 649 71 650 STO 11 651 57 652 STO 07 653 2226 654 CHS 655 STO 12 656 1925 657 STO 05 658 92 659 R-D 660 44 661 XEQ 14 662 RTN 663 LBL 09 664 395 665 STO 04 666 2490 667 STO 03 668 8963 669 STO 05 670 686 671 STO 11 672 9557 673 STO 12 674 5863 675 STO 06 676 77 677 R-D 678 56 679 STO 07 680 LBL 13 681 0 682 STO 08 683 STO 09 684 STO 10 685 RDN 686 LBL 14 687 RCL 00 688 ST* 06 689 ST* 07 690 * 691 + 692 X<> 12 693 9 694 X<> 06 695 + 696 RCL 05 697 RCL 07 698 + 699 4 700 10^X 701 ST/ 03 702 SQRT 703 SQRT 704 ST/ 04 705 4 706 * 707 ST/ 08 708 ST/ 09 709 ST/ 10 710 ST/ 11 711 ST/ 12 712 ST/ Z 713 / 714 STO 05 715 - 716 ENTER 717 ENTER 718 LBL 11 719 SIN 720 RCL 03 721 R-D 722 * 723 + 724 DSE 06 725 GTO 11 726 STO 07 727 COS 728 RCL 03 729 * 730 RCL 04 731 ST* Y 732 - 733 ST- 10 734 RCL 07 735 2 736 / 737 TAN 738 RCL 03 739 1 740 ST+ Y 741 RCL 03 742 - 743 / 744 SQRT 745 * 746 ATAN 747 ST+ X 748 RCL 05 749 + 750 RCL 12 751 ST+ 08 752 - 753 COS 754 RCL 11 755 LASTX 756 SIN |
757
P-R 758 X<>Y 759 ASIN 760 ST+ 09 761 X<> Z 762 R-P 763 RDN 764 ST+ 08 765 RCL 09 766 RCL 10 767 P-R 768 RCL 08 769 X<>Y 770 P-R 771 RCL 02 772 ST+ Z 773 CLX 774 RCL 01 775 + 776 R-P 777 X<>Y 778 STO 03 779 RDN 780 R-P 781 STO 05 782 X<>Y 783 STO 04 784 LBL 00 785 RCL 00 786 77 787 / 788 549.4 789 SQRT 790 - 791 RCL 03 792 RCL 04 793 XEQ 13 794 STO 06 795 RCL 13 796 - 797 RCL 15 798 90 799 STO 11 800 ST+ Z 801 - 802 X<> Z 803 STO 07 804 XEQ 13 805 ST- 11 806 X<>Y 807 ENTER 808 COS 809 RCL 05 810 409 811 * 812 / 813 - 814 STO 12 815 10 816 RCL 12 817 5 818 + 819 / 820 + 821 TAN 822 1/X 823 59 824 / 825 + 826 X<>Y 827 RCL 11 828 RTN 829 LBL 13 830 SIN 831 X<>Y 832 LASTX 833 COS 834 P-R 835 RDN 836 R-P 837 X<> Z 838 - 839 X<>Y 840 P-R 841 R^ 842 R-P 843 X<>Y 844 RDN 845 R-P 846 * 847 R^ 848 RTN 849 LBL 12 850 8 851 RCL 00 852 * 853 STO 10 854 ST+ X 855 STO 09 856 39 857 LASTX 858 * 859 STO 11 860 1222 861 LASTX 862 * 863 STO 07 864 LASTX 865 1813 866 * 867 STO 03 868 + 869 STO 06 870 LASTX 871 RCL 07 872 - 873 STO 04 874 + 875 STO 05 876 64 877 RCL 00 878 * 879 STO 08 880 210 881 LASTX 882 * 883 END |
( 1287 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | N | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
N = number of days since 2000/01/01
N ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01 = 8887 since 2000/01/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
8887 ENTER^
12.41 ENTER^
69.2 XEQ "EPH"
Az = 244°031 = R11
RDN h = -2°388 = R12
RDN h0 = -1°714 ( often meaningless when < 0 )
and R01 = X = 0.75309 AU
R02 = Y = 0.66956
AU
R03 = 41°640 = Geocentric longitude
R06 = 39.206 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.323
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.328
RDN
h = 15.317
RDN
h0 = 15.377
R03 = 312.277 = Geocentric longitude
R06
= -43.854 = right-ascension
R04 = -4.678
= Geocentric
latitude
R07 = -21.601
= declination
R05 = 0.002457 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.514
RDN
h =
3.971
RDN
h0 =
4.161
R04 = -2.419 = Geocentric latitude R07 = 4.609 = declination R09 = -3.658 = heliocentric latitude
R05 = 0.70517 AU = distance Earth-Mercury R10 = 0.46647 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.963
RDN h = -0.247
RDN h0 = 0.276
R03 = 32.538 = Geocentric longitude R06 = 30.769 = right-ascension R08 = 19.822 = heliocentric longitude
R04 = -1.216 = Geocentric latitude R07 = 11.210 = declination R09 = -2.855 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.900
RDN h = 10.516
RDN h0 = 10.602
R03 = 0.689 = Geocentric longitude R06 = 1.135 = right-ascension R08 = -27.875 = heliocentric longitude
R04 = -1.265 = Geocentric latitude R07 = -0.886 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9748 AU = distance Earth-Mars R10 = 1.3820 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.424
RDN h = -7.539
RDN h0 = -7.623 ( often meaningless when < 0 )
R03 = 54.274 = Geocentric longitude R06 = 52.101 = right-ascension R08 = 56.795 = heliocentric longitude
R04 = -0.755 = Geocentric latitude R07 = 18.105 = declination R09 = -0.903 = heliocentric latitude
R05 = 5.988 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -63.010
RDN h = 13.907
RDN h0 = 13.973
R03 = -13.297 = Geocentric longitude R06 = -11.547 = right-ascension R08 = -18.189 = heliocentric longitude
R04 = -1.757 = Geocentric latitude R07 = -6.867 = declination R09 = -1.856 = heliocentric latitude
R05 = 10.220 AU = distance Earth-Saturn R10 = 9.676 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 233.985
RDN h = -6.437
RDN h0 = -6.508 ( often meaningless when < 0 )
R03 = 52.439 = Geocentric longitude R06 = 50.100 = right-ascension R08 = 52.991 = heliocentric longitude
R04 = -0.254 = Geocentric latitude R07 = 18.132 = declination R09 = -0.267 = heliocentric latitude
R05 = 20.589 AU = distance Earth-Uranus R10 = 19.600 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.221
RDN h = 11.077
RDN h0 = 11.159
R03 = -1.053 = Geocentric longitude R06 = -0.479 = right-ascension R08 = -2.364 = heliocentric longitude
R04 = -1.225 = Geocentric latitude R07 = -1.543 = declination R09 = -1.255 = heliocentric latitude
R05 = 30.626 AU = distance Earth-Neptune R10 = 29.893 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.718
RDN h = 18.063
RDN h0 = 18.114
R03 = -57.906 = Geocentric longitude R06 = -54.909 = right-ascension R08 = -59.535 = heliocentric longitude
R04 = -3.032 = Geocentric latitude R07 = -22.644 = declination R09 = -3.016 = heliocentric latitude
R05 = 34.834 AU = distance Earth-Pluto R10 = 35.015 AU = radius vector
h) Program8 [ 1900 , 2100] ( 1426 bytes )
-In the following program, Z-input = number of days since 2000/01/01.
-Nutation, aberration and time-light are not computed
-Maximum errors with heliocentric longitudes:
Mars: 0°0141
Jupiter: 0°0147
Saturn: 0°0137
Uranus: 0°0114
Neptune: 0°0089
Pluto: 0°0159
-Maximum errors with geocentric longitudes, the Moon: ~ 0°036
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13 = local sidereal time ( deg )
• R14 = Longitude of the observer ( deg ) positive East
• R15 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 13 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 3600077 19 STO 06 20 * 21 2 22 10^X 23 STO 04 24 ST/ Y 25 + 26 31 27 1/X 28 - 29 RCL 14 30 + 31 ST+ 13 32 167 33 STO 03 34 35 35 STO 07 36 8003 37 CHS 38 STO 12 39 297 40 + 41 STO 05 42 CLST 43 STO 01 44 STO 02 45 STO 11 46 XEQ 13 47 CLX 48 RCL 03 49 RCL 05 50 P-R 51 STO 01 52 RDN 53 STO 02 54 CLX 55 RCL 11 56 RTN 57 LBL 03 58 RCL 00 59 3599905 60 % 61 3 62 - 63 STO 11 64 STO 12 65 RCL 00 66 44526711 67 % 68 68.26 69 - 70 STO 03 71 ST+ X 72 STO 04 73 STO 05 74 STO 06 75 STO 10 76 ST- 11 77 RCL 00 78 48320202 79 % 80 3.34 81 - 82 ST- 04 83 STO 09 84 RCL 00 85 77.48 86 X^2 87 * 88 48.24 89 + 90 - 91 ST- 05 92 STO 07 93 ST+ 10 94 SIN 95 RCL 09 96 SIN 97 * 98 56 99 * 100 RCL 06 101 RCL 09 102 + 103 COS 104 PI 105 * 106 + 107 RCL 04 108 COS 109 17 110 * 111 - 112 RCL 07 113 ST+ X 114 STO 08 115 RCL 09 116 + 117 COS 118 3 119 SQRT 120 * 121 + 122 RCL 10 123 RCL 09 124 - 125 COS 126 + 127 RCL 08 128 ST- 04 129 RCL 09 130 - 131 COS 132 - 133 RCL 09 134 RCL 11 135 + 136 COS 137 - 138 RCL 09 139 COS 140 513 |
141
* 142 + 143 RCL 04 144 COS 145 RCL 09 146 RCL 10 147 + 148 COS 149 + 150 RCL 05 151 RCL 09 152 + 153 COS 154 11 155 * 156 + 157 RCL 05 158 RCL 09 159 ST+ 09 160 - 161 COS 162 9 163 * 164 - 165 2 166 / 167 - 168 STO 04 169 RCL 08 170 SIN 171 7 172 * 173 RCL 07 174 RCL 12 175 + 176 SIN 177 + 178 RCL 06 179 RCL 08 180 - 181 SIN 182 RCL 05 183 RCL 12 184 - 185 SIN 186 - 187 ST+ X 188 + 189 3 190 * 191 RCL 06 192 SIN 193 66 194 * 195 + 196 RCL 12 197 RCL 07 198 - 199 SIN 200 RCL 10 201 SIN 202 ST- Z 203 - 204 4 205 * 206 + 207 RCL 06 208 ST+ X 209 RCL 07 210 ST+ 08 211 - 212 SIN 213 - 214 RCL 08 215 SIN 216 - 217 RCL 05 218 ST+ X 219 SIN 220 + 221 RCL 05 222 RCL 12 223 + 224 SIN 225 + 226 RCL 09 227 SIN 228 RCL 07 229 COS 230 ST+ X 231 STO 08 232 * 233 - 234 RCL 03 235 RCL 07 236 - 237 SIN 238 RCL 11 239 SIN 240 9 241 * 242 - 243 RCL 09 244 SIN 245 23 246 * 247 + 248 RCL 03 249 SIN 250 7 251 * 252 - 253 RCL 06 254 ST- 09 255 RCL 12 256 ST+ 03 257 ST- 10 258 + 259 SIN 260 - 261 RCL 03 262 SIN 263 + 264 RCL 10 265 SIN 266 - 267 RCL 07 268 SIN 269 34 270 * 271 RCL 12 272 SIN 273 + 274 37 275 * 276 - 277 RCL 05 278 SIN 279 85 280 * |
281
RCL 09 282 SIN 283 - 284 3 285 * 286 - 287 2 288 / 289 + 290 48126788 291 RCL 00 292 * 293 21173 294 + 295 + 296 2 297 10^X 298 ST/ 04 299 / 300 360 301 MOD 302 STO 03 303 257 304 RCL 08 305 7 306 * 307 + 308 5 309 10^X 310 / 311 STO 05 312 XEQ 00 313 RTN 314 LBL 01 315 38.71 316 STO 04 317 2056 318 STO 03 319 700 320 STO 11 321 19 322 STO 07 323 7746 324 STO 05 325 25020 326 STO 12 327 14947407 328 STO 06 329 4833 330 119 331 XEQ 13 332 RTN 333 LBL 02 334 72.333 335 STO 04 336 68 337 STO 03 338 339 339 STO 11 340 3 341 STO 07 342 13156 343 STO 05 344 18118 345 STO 12 346 5851921 347 STO 06 348 7668 349 90 350 XEQ 13 351 RTN 352 LBL 04 353 RCL 00 354 16105 355 * 356 47 357 STO 07 358 + 359 COS 360 .8 361 * 362 RCL 00 363 13070 364 * 365 8 366 - 367 COS 368 - 369 STO 08 370 CLX 371 STO 09 372 STO 10 373 152.37 374 STO 04 375 934 376 RCL 00 377 + 378 STO 03 379 185 380 STO 11 381 1914170 382 STO 06 383 2394 384 CHS 385 STO 05 386 14 387 - 388 5 389 / 390 STO 12 391 4956 392 77 393 XEQ 14 394 RTN 395 LBL 05 396 XEQ 12 397 RCL 06 398 RCL 11 399 ST+ 06 400 - 401 66 402 - 403 SIN 404 ST+ X 405 RCL 03 406 73 407 + 408 COS 409 RCL 05 410 RCL 07 411 - 412 39 413 + 414 SIN 415 - 416 + 417 11 418 * 419 RCL 06 420 10 |
421
+ 422 SIN 423 RCL 04 424 76 425 - 426 SIN 427 ST+ X 428 - 429 9 430 * 431 - 432 RCL 11 433 SIN 434 164 435 * 436 - 437 RCL 05 438 33 439 - 440 SIN 441 29 442 * 443 + 444 5 445 / 446 STO 08 447 CLX 448 STO 09 449 STO 10 450 520.3 451 STO 04 452 4 453 / 454 STO 11 455 303630 456 STO 06 457 485 458 RCL 00 459 ST+ X 460 + 461 STO 03 462 24 463 STO 07 464 3431 465 STO 12 466 1433 467 STO 05 468 8613 469 + 470 102 471 XEQ 14 472 RTN 473 LBL 06 474 XEQ 12 475 RCL 06 476 RCL 04 477 RCL 11 478 + 479 STO 12 480 - 481 28 482 + 483 COS 484 RCL 11 485 ST+ X 486 SIN 487 + 488 RCL 09 489 RCL 10 490 + 491 SIN 492 - 493 RCL 05 494 51 495 + 496 COS 497 + 498 RCL 12 499 SIN 500 + 501 RCL 11 502 ST+ 07 503 33 504 ST- 03 505 - 506 COS 507 RCL 00 508 * 509 - 510 RCL 03 511 COS 512 + 513 RCL 07 514 40 515 - 516 SIN 517 4 518 * 519 + 520 RCL 04 521 15 522 + 523 STO 09 524 ST+ 09 525 2 526 - 527 COS 528 12 529 * 530 + 531 RCL 09 532 COS 533 22 534 * 535 + 536 RCL 11 537 SIN 538 81 539 * 540 + 541 STO 08 542 RCL 09 543 3 544 + 545 COS 546 RCL 07 547 27 548 + 549 COS 550 - 551 ST+ X 552 X<> 09 553 SIN 554 ST+ X 555 RCL 03 556 13 557 + 558 COS 559 + 560 STO 10 |
561
122351 562 STO 06 563 954 564 STO 04 565 555 566 RCL 00 567 PI 568 * 569 - 570 STO 03 571 249 572 STO 11 573 59 574 STO 07 575 5006 576 STO 12 577 9306 578 STO 05 579 2061 580 + 581 88 582 XEQ 14 583 RTN 584 LBL 07 585 XEQ 12 586 ST+ X 587 STO 11 588 RCL 10 589 54 590 * 591 ST- 06 592 STO 07 593 4 594 ST- 09 595 X^2 596 ST+ 12 597 - 598 STO 03 599 + 600 SIN 601 RCL 12 602 SIN 603 - 604 RCL 06 605 11 606 ST- 08 607 - 608 COS 609 RCL 07 610 RCL 09 611 - 612 COS 613 - 614 2 615 SQRT 616 * 617 + 618 RCL 03 619 RCL 10 620 + 621 COS 622 RCL 07 623 RCL 08 624 - 625 61 626 ST+ 07 627 - 628 COS 629 + 630 4 631 * 632 + 633 RCL 08 634 COS 635 RCL 09 636 41 637 + 638 SIN 639 + 640 PI 641 * 642 - 643 RCL 11 644 19 645 + 646 3 647 P-R 648 X<> 10 649 62 650 - 651 SIN 652 86 653 * 654 X<>Y 655 7 656 * 657 - 658 + 659 STO 08 660 RCL 07 661 COS 662 STO 09 663 42986 664 STO 06 665 1919 666 STO 04 667 4596 668 CHS 669 STO 12 670 463 671 STO 03 672 77 673 STO 11 674 12 675 STO 07 676 17299 677 STO 05 678 7400 679 52 680 XEQ 14 681 RTN 682 LBL 08 683 XEQ 12 684 RCL 10 685 ST- 06 686 - 687 COS 688 RCL 09 689 51 690 - 691 COS 692 + 693 5 694 SQRT 695 * 696 RCL 06 697 RCL 12 698 ST+ 09 699 - 700 COS |
701
+ 702 RCL 12 703 7 704 + 705 8 706 P-R 707 5 708 / 709 CHS 710 X<> 10 711 28 712 + 713 COS 714 58 715 * 716 + 717 + 718 STO 08 719 RCL 09 720 69 721 - 722 SIN 723 RCL 12 724 6 725 STO 07 726 X^2 727 - 728 COS 729 - 730 STO 09 731 21988 732 STO 06 733 3007 734 STO 04 735 90 736 STO 03 737 177 738 RCL 00 739 - 740 STO 11 741 5565 742 CHS 743 STO 12 744 4812 745 STO 05 746 8366 747 + 748 110 749 XEQ 14 750 RTN 751 LBL 09 752 3949 753 STO 04 754 2490 755 STO 03 756 3 757 STO 07 758 X^2 759 * 760 2 761 - 762 STO 05 763 1714 764 STO 11 765 23893 766 STO 12 767 14657 768 STO 06 769 3626 770 - 771 140 772 LBL 13 773 0 774 STO 08 775 STO 09 776 STO 10 777 RDN 778 LBL 14 779 137 780 ST+ 07 781 CLX 782 RCL 00 783 ST* 06 784 ST* 07 785 * 786 + 787 X<> 12 788 9 789 X<> 06 790 + 791 RCL 05 792 RCL 07 793 + 794 4 795 10^X 796 ST/ 03 797 SQRT 798 ST/ 04 799 ST/ 08 800 ST/ 09 801 ST/ 10 802 ST/ 11 803 ST/ 12 804 ST/ Z 805 / 806 STO 05 807 - 808 ENTER 809 ENTER 810 LBL 11 811 SIN 812 RCL 03 813 R-D 814 * 815 + 816 DSE 06 817 GTO 11 818 STO 07 819 COS 820 RCL 03 821 * 822 RCL 04 823 ST* Y 824 - 825 ST- 10 826 RCL 07 827 2 828 / 829 TAN 830 RCL 03 831 1 832 ST+ Y 833 RCL 03 834 - 835 / 836 SQRT 837 * 838 ATAN 839 ST+ X 840 RCL 05 |
841
+ 842 RCL 12 843 ST+ 08 844 - 845 COS 846 RCL 11 847 LASTX 848 SIN 849 P-R 850 X<>Y 851 ASIN 852 ST+ 09 853 X<> Z 854 R-P 855 RDN 856 ST+ 08 857 RCL 09 858 RCL 10 859 P-R 860 RCL 08 861 X<>Y 862 P-R 863 RCL 02 864 ST+ Z 865 CLX 866 RCL 01 867 + 868 R-P 869 X<>Y 870 STO 03 871 RDN 872 R-P 873 STO 05 874 X<>Y 875 STO 04 876 LBL 00 877 RCL 00 878 77 879 / 880 549.4 881 SQRT 882 - 883 RCL 03 884 RCL 04 885 XEQ 13 886 CLX 887 RCL 15 888 R^ 889 STO 06 890 90 891 STO 11 892 ST- Z 893 + 894 RCL 13 895 - 896 R^ 897 STO 07 898 XEQ 13 899 R^ 900 ST- 11 901 RCL Z 902 ENTER 903 COS 904 RCL 05 905 409 906 * 907 / 908 - 909 STO 12 910 10 911 RCL 12 912 5 913 + 914 / 915 + 916 TAN 917 1/X 918 59 919 / 920 + 921 X<>Y 922 RCL 11 923 RTN 924 LBL 13 925 SIN 926 X<>Y 927 LASTX 928 COS 929 P-R 930 RDN 931 R-P 932 X<> Z 933 - 934 X<>Y 935 P-R 936 R^ 937 R-P 938 X<>Y 939 RDN 940 R-P 941 RTN 942 LBL 12 943 8 944 RCL 00 945 * 946 STO 10 947 ST+ X 948 STO 09 949 39 950 LASTX 951 * 952 7 953 - 954 STO 11 955 1223 956 RCL 00 957 * 958 STO 07 959 LASTX 960 1813 961 * 962 STO 03 963 + 964 STO 06 965 LASTX 966 RCL 07 967 - 968 STO 04 969 + 970 STO 05 971 64 972 RCL 00 973 * 974 STO 08 975 210 976 LASTX 977 * 978 STO 12 979 END |
( 1426 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Z | N | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
N = number of days since 2000/01/01
N ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 14
47.6 STO 15
Date = 2024/05/01 = 8887 since 2000/01/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
8887 ENTER^
12.41 ENTER^
69.2 XEQ "EPH"
Az = 244°035 = R11
RDN h = -2°387 = R12
RDN h0 = -1°712 ( often meaningless when < 0 )
and R01 = X = 0.75314 AU
R02 = Y = 0.66950
AU
R03 = 41°635 = Geocentric longitude
R06 = 39.201 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.322
= declination
R05 = 1.00769 AU
= distance Earth-Sun
-And R13 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.342
RDN
h = 15.318
RDN
h0 = 15.378
R03 = 312.290 = Geocentric longitude
R06
= -43.840 = right-ascension
R04 = -4.676
= Geocentric
latitude
R07 = -21.595
= declination
R05 = 0.002457 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.529
RDN
h =
3.976
RDN
h0 =
4.166
R04 = -2.419 = Geocentric latitude R07 = 4.603 = declination R09 = -3.658 = heliocentric latitude
R05 = 0.70517 AU = distance Earth-Mercury R10 = 0.46659 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.964
RDN h = -0.242
RDN h0 = 0.280
R03 = 32.535 = Geocentric longitude R06 = 30.765 = right-ascension R08 = 19.823 = heliocentric longitude
R04 = -1.212 = Geocentric latitude R07 = 11.212 = declination R09 = -2.847 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7252 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.904
RDN h = 10.515
RDN h0 = 10.601
R03 = 0.692 = Geocentric longitude R06 = 1.138 = right-ascension R08 = -27.873 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.885 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9746 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.436
RDN h = -7.535
RDN h0 = -7.618 ( often meaningless when < 0 )
R03 = 54.261 = Geocentric longitude R06 = 52.087 = right-ascension R08 = 56.781 = heliocentric longitude
R04 = -0.755 = Geocentric latitude R07 = 18.102 = declination R09 = -0.903 = heliocentric latitude
R05 = 5.988 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.994
RDN h = 13.918
RDN h0 = 13.983
R03 = -13.314 = Geocentric longitude R06 = -11.565 = right-ascension R08 = -18.195 = heliocentric longitude
R04 = -1.751 = Geocentric latitude R07 = -6.868 = declination R09 = -1.849 = heliocentric latitude
R05 = 10.245 AU = distance Earth-Saturn R10 = 9.701 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 233.997
RDN h = -6.441
RDN h0 = -6.512 ( often meaningless when < 0 )
R03 = 52.430 = Geocentric longitude R06 = 50.093 = right-ascension R08 = 52.982 = heliocentric longitude
R04 = -0.262 = Geocentric latitude R07 = 18.122 = declination R09 = -0.275 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.227
RDN h = 11.068
RDN h0 = 11.150
R03 = -1.045 = Geocentric longitude R06 = -0.469 = right-ascension R08 = -2.355 = heliocentric longitude
R04 = -1.232 = Geocentric latitude R07 = -1.546 = declination R09 = -1.262 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.723
RDN h = 18.069
RDN h0 = 18.119
R03 = -57.901 = Geocentric longitude R06 = -54.905 = right-ascension R08 = -59.530 = heliocentric longitude
R04 = -3.026 = Geocentric latitude R07 = -22.637 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
i) Program9 [ 1900 , 2100 ] ( 2114 bytes )
-With geocentric coordinates, nutation, aberration and time-light are taken into account ( approximately )
-Refraction is computed with Saemundsson formula.
Registers
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13: temp
R14 = local true sidereal time ( deg )
• R15 = Longitude of the observer ( deg ) positive East
• R16 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 15 10 * 11 STO 14 12 360 13 / 14 + 15 36525 16 / 17 ST+ 00 18 36000770 19 STO 06 20 * 21 3 22 10^X 23 STO 04 24 / 25 2 26 10^X 27 + 28 31 29 1/X 30 - 31 RCL 15 32 + 33 ST+ 14 34 1671 35 STO 03 36 48 37 + 38 STO 07 39 4 40 CHS 41 STO 13 42 80026 43 CHS 44 STO 12 45 2963 46 + 47 STO 05 48 RCL 00 49 445267 50 * 51 68 52 - 53 STO 08 54 SIN 55 RCL 00 56 20 57 * 58 18 59 - 60 COS 61 - 62 RCL 00 63 32964 64 * 65 22 66 - 67 COS 68 - 69 ST+ X 70 X<> 08 71 COS 72 PI 73 % 74 STO 10 75 CLST 76 STO 01 77 STO 02 78 STO 09 79 STO 11 80 XEQ 14 81 CLX 82 RCL 13 83 RCL 05 84 P-R 85 STO 01 86 RDN 87 STO 02 88 CLX 89 RCL 11 90 RTN 91 LBL 03 92 RCL 00 93 3599905 94 % 95 2.96 96 - 97 STO 11 98 STO 12 99 RCL 00 100 44526711 101 % 102 68.25 103 - 104 STO 13 105 ST+ X 106 STO 05 107 STO 10 108 ST- 11 109 STO 06 110 ST+ X 111 STO 03 112 RCL 00 113 47719887 114 % 115 128.43 116 + 117 ST- 05 118 STO 07 119 ST+ 10 120 ST+ X 121 STO 08 122 RCL 00 123 48320202 124 % 125 86.66 126 + 127 STO 09 128 RCL 07 129 + 130 SIN 131 281 132 * 133 RCL 07 134 RCL 09 135 - 136 SIN 137 278 138 * 139 + 140 RCL 06 141 RCL 09 142 - 143 SIN 144 173 145 * 146 + 147 RCL 05 148 RCL 09 149 + 150 SIN 151 55 152 * 153 + 154 RCL 05 155 RCL 09 156 - 157 SIN 158 46 159 * 160 + 161 RCL 06 162 RCL 09 163 + 164 SIN 165 33 166 * 167 + 168 RCL 08 169 RCL 09 170 + 171 SIN 172 17 173 * 174 + 175 RCL 10 176 RCL 09 177 - 178 SIN 179 RCL 08 180 RCL 09 181 - 182 SIN 183 + 184 9 185 * 186 + 187 RCL 09 188 SIN 189 641 190 * 191 RCL 09 192 RCL 11 193 + 194 SIN 195 - 196 8 197 * 198 + 199 RCL 06 200 RCL 09 201 - 202 STO 04 203 RCL 08 204 - 205 SIN 206 RCL 09 207 RCL 10 208 + 209 SIN |
210
+ 211 4 212 * 213 + 214 RCL 04 215 RCL 12 216 + 217 SIN 218 PI 219 * 220 - 221 RCL 05 222 RCL 12 223 - 224 STO 04 225 RCL 09 226 ST- 04 227 + 228 SIN 229 RCL 06 230 RCL 09 231 + 232 RCL 12 233 - 234 SIN 235 + 236 RCL 04 237 SIN 238 + 239 ST+ X 240 + 241 STO 04 242 RCL 07 243 SIN 244 6289 245 * 246 RCL 06 247 SIN 248 658 249 * 250 + 251 RCL 08 252 SIN 253 214 254 * 255 + 256 RCL 09 257 ST+ X 258 STO 09 259 SIN 260 114 261 * 262 - 263 RCL 06 264 RCL 08 265 - 266 SIN 267 59 268 * 269 + 270 RCL 05 271 RCL 12 272 - 273 SIN 274 57 275 * 276 + 277 RCL 10 278 SIN 279 53 280 * 281 + 282 RCL 11 283 SIN 284 46 285 * 286 - 287 RCL 12 288 RCL 07 289 - 290 SIN 291 41 292 * 293 - 294 RCL 05 295 SIN 296 98 297 * 298 RCL 07 299 RCL 09 300 + 301 SIN 302 - 303 13 304 * 305 + 306 RCL 07 307 RCL 09 308 - 309 SIN 310 RCL 03 311 RCL 07 312 - 313 SIN 314 + 315 11 316 * 317 + 318 RCL 12 319 SIN 320 37 321 * 322 RCL 13 323 SIN 324 7 325 * 326 + 327 RCL 07 328 RCL 12 329 + 330 SIN 331 6 332 * 333 + 334 RCL 06 335 RCL 09 336 - 337 SIN 338 3 339 * 340 - 341 RCL 07 342 RCL 08 343 + 344 SIN 345 ST+ X 346 - 347 RCL 13 348 RCL 07 349 - 350 SIN 351 + 352 RCL 12 353 ST- 10 354 RCL 13 355 + 356 SIN 357 - 358 5 359 * 360 - 361 RCL 05 362 ST+ X 363 SIN 364 9 365 * 366 + 367 RCL 05 368 RCL 12 369 + 370 SIN 371 8 372 * 373 - 374 RCL 06 375 RCL 12 376 + 377 SIN 378 7 379 * 380 - 381 RCL 10 382 SIN 383 RCL 06 384 RCL 08 385 + 386 SIN 387 + 388 RCL 03 389 SIN 390 + 391 RCL 05 392 RCL 08 393 - 394 SIN 395 + 396 RCL 00 397 132 398 * 399 60 400 - 401 SIN 402 - 403 4 404 * 405 + 406 RCL 08 407 RCL 12 408 ST+ 08 409 - 410 SIN 411 RCL 05 412 RCL 09 413 + 414 SIN 415 - 416 3 417 * 418 + |
419
RCL 06 420 RCL 08 421 - 422 SIN 423 6 424 SQRT 425 * 426 + 427 481267881 428 RCL 00 429 ST+ X 430 - 431 RCL 00 432 * 433 211728 434 + 435 + 436 3 437 10^X 438 ST/ 04 439 / 440 360 441 MOD 442 STO 03 443 2574 444 RCL 07 445 COS 446 28 447 * 448 RCL 05 449 COS 450 5 451 * 452 + 453 RCL 06 454 COS 455 4 456 * 457 + 458 5 459 * 460 - 461 6 462 10^X 463 / 464 STO 05 465 XEQ 00 466 RTN 467 LBL 01 468 387.1 469 STO 04 470 20563 471 STO 03 472 7005 473 RCL 00 474 2 475 STO 13 476 * 477 + 478 STO 11 479 1556 480 STO 07 481 77456 482 STO 05 483 250205 484 STO 12 485 149474072 486 STO 06 487 48331 488 1186 489 XEQ 13 490 RTN 491 LBL 02 492 723.33 493 STO 04 494 677 495 STO 03 496 5 497 CHS 498 STO 13 499 3395 500 RCL 00 501 + 502 STO 11 503 1402 504 STO 07 505 131564 506 STO 05 507 181179 508 STO 12 509 58519213 510 STO 06 511 76680 512 901 513 XEQ 13 514 RTN 515 LBL 04 516 XEQ 12 517 RCL 09 518 10 519 * 520 STO 10 521 SIN 522 RCL 00 523 * 524 PI 525 * 526 RCL 08 527 264 528 * 529 13 530 + 531 COS 532 RCL 09 533 7077 534 * 535 SIN 536 - 537 RCL 09 538 532 539 * 540 49 541 + 542 COS 543 + 544 RCL 10 545 18 546 - 547 COS 548 8 549 * 550 + 551 ST+ X 552 + 553 RCL 04 554 22 555 ST+ 12 556 * 557 RCL 08 558 + 559 ST+ 06 560 12 561 - 562 COS 563 6 564 * 565 - 566 RCL 06 567 49 568 + 569 COS 570 7 571 * 572 + 573 RCL 03 574 RCL 11 575 + 576 RCL 12 577 + 578 COS 579 RCL 06 580 ST+ X 581 12 582 + 583 COS 584 - 585 4 586 * 587 + 588 STO 08 589 CLX 590 STO 09 591 STO 10 592 1523.7 593 STO 04 594 9340 595 STO 03 596 1850 597 STO 11 598 9 599 STO 13 600 - 601 STO 07 602 4829 603 CHS 604 STO 12 605 19141696 606 STO 06 607 23940 608 CHS 609 STO 05 610 49558 611 772 612 XEQ 14 613 RTN 614 LBL 05 615 XEQ 12 616 RCL 03 617 73 618 + 619 COS 620 RCL 05 621 RCL 07 622 - 623 41 624 + 625 SIN 626 - 627 509 |
628
SQRT 629 * 630 RCL 03 631 3 632 * 633 28 634 + 635 COS 636 RCL 04 637 ST+ X 638 STO 12 639 25 640 + 641 COS 642 + 643 5 644 * 645 - 646 RCL 06 647 RCL 12 648 + 649 69 650 - 651 COS 652 RCL 06 653 RCL 11 654 + 655 STO 09 656 12 657 + 658 SIN 659 4 660 * 661 - 662 RCL 07 663 COS 664 + 665 RCL 06 666 ST+ X 667 RCL 04 668 + 669 79 670 + 671 COS 672 - 673 RCL 11 674 ST- 06 675 32 676 - 677 COS 678 RCL 00 679 * 680 + 681 4 682 * 683 + 684 RCL 04 685 75 686 - 687 SIN 688 37 689 * 690 + 691 RCL 06 692 61 693 - 694 SIN 695 6 696 * 697 RCL 05 698 33 699 - 700 SIN 701 8 702 * 703 + 704 RCL 11 705 7.3 706 - 707 SIN 708 47 709 * 710 - 711 7 712 * 713 + 714 STO 08 715 RCL 06 716 63 717 - 718 SIN 719 5 720 * 721 STO 09 722 CLX 723 STO 10 724 5203 725 STO 04 726 1303 727 RCL 00 728 5 729 * 730 - 731 STO 11 732 3036303 733 STO 06 734 4849 735 STO 03 736 16 737 STO 13 738 1613 739 STO 07 740 34310 741 STO 12 742 14331 743 STO 05 744 86133 745 + 746 1021 747 XEQ 14 748 RTN 749 LBL 06 750 XEQ 12 751 CLX 752 21 753 - 754 COS 755 RCL 11 756 ST+ X 757 75 758 + 759 COS 760 - 761 RCL 10 762 R^ 763 STO 10 764 + 765 SIN 766 - 767 8 768 * 769 RCL 06 770 14 771 + 772 COS 773 PI 774 * 775 + 776 RCL 03 777 30 778 - 779 COS 780 RCL 05 781 54 782 + 783 COS 784 + 785 RCL 04 786 RCL 11 787 + 788 STO 05 789 RCL 06 790 - 791 25 792 - 793 COS 794 + 795 RCL 07 796 RCL 11 797 + 798 STO 09 799 50 800 - 801 SIN 802 5 803 * 804 + 805 RCL 11 806 7.3 807 - 808 SIN 809 90 810 * 811 + 812 9 813 * 814 + 815 RCL 07 816 RCL 08 817 - 818 COS 819 RCL 03 820 RCL 13 821 - 822 RCL 10 823 - 824 79 825 - 826 COS 827 + 828 RCL 04 829 ST+ X 830 ST+ 07 831 30 832 + 833 STO 12 834 COS 835 38 836 * |
837
- 838 6 839 * 840 - 841 RCL 05 842 SIN 843 7 844 * 845 RCL 11 846 32 847 - 848 COS 849 5 850 * 851 RCL 00 852 * 853 - 854 RCL 04 855 14 856 + 857 COS 858 59 859 * 860 + 861 ST+ X 862 + 863 STO 08 864 RCL 12 865 3 866 + 867 COS 868 20 869 ST+ 09 870 ST- 03 871 * 872 RCL 07 873 28 874 - 875 COS 876 RCL 09 877 COS 878 3 879 * 880 - 881 6 882 * 883 + 884 RCL 11 885 SIN 886 4 887 * 888 + 889 STO 09 890 RCL 12 891 SIN 892 19 893 * 894 RCL 03 895 COS 896 8 897 * 898 + 899 STO 10 900 1223511 901 STO 06 902 9543 903 STO 04 904 5553 905 STO 03 906 35 907 CHS 908 STO 13 909 2489 910 RCL 00 911 4 912 * 913 - 914 STO 11 915 1964 916 STO 07 917 50061 918 STO 12 919 93057 920 STO 05 921 20609 922 + 923 877 924 XEQ 14 925 RTN 926 LBL 07 927 XEQ 12 928 5 929 * 930 CHS 931 R^ 932 STO 09 933 RCL 10 934 + 935 STO 03 936 10 937 STO 05 938 + 939 SIN 940 7 941 * 942 + 943 RCL 12 944 ST- 07 945 RCL 13 946 ST+ X 947 STO 11 948 + 949 20 950 - 951 SIN 952 ST+ X 953 RCL 07 954 28 955 + 956 COS 957 + 958 6 959 * 960 + 961 RCL 13 962 RCL 05 963 + 964 SIN 965 RCL 05 966 ST- 06 967 * 968 - 969 RCL 06 970 RCL 12 971 - 972 COS 973 RCL 12 974 RCL 09 975 - 976 COS 977 - 978 15 979 * 980 + 981 RCL 12 982 RCL 08 983 - 984 51 985 - 986 COS 987 ST+ Y 988 RCL 10 989 RCL 12 990 + 991 STO 03 992 11 993 - 994 COS 995 + 996 RCL 10 997 62.2 998 - 999 SIN 1000 22 1001 * 1002 + 1003 39 1004 ST+ 09 1005 * 1006 + 1007 RCL 08 1008 73 1009 + 1010 SIN 1011 RCL 09 1012 SIN 1013 + 1014 35 1015 * 1016 - 1017 RCL 11 1018 19 1019 + 1020 STO 11 1021 SIN 1022 209 1023 * 1024 - 1025 STO 08 1026 RCL 11 1027 14 1028 + 1029 COS 1030 RCL 03 1031 SIN 1032 - 1033 6 1034 * 1035 STO 09 1036 RCL 11 1037 COS 1038 34 1039 * 1040 STO 10 1041 429864 1042 STO 06 1043 19192 1044 STO 04 |
1045
45955 1046 CHS 1047 STO 12 1048 4630 1049 STO 03 1050 3 1051 CHS 1052 STO 13 1053 773 1054 RCL 00 1055 + 1056 STO 11 1057 1486 1058 STO 07 1059 172993 1060 STO 05 1061 74005 1062 521 1063 XEQ 14 1064 RTN 1065 LBL 08 1066 XEQ 12 1067 22 1068 * 1069 R^ 1070 STO 09 1071 50 1072 - 1073 COS 1074 24 1075 * 1076 + 1077 RCL 06 1078 RCL 13 1079 ST+ 09 1080 RCL 10 1081 + 1082 ST- 07 1083 - 1084 COS 1085 9 1086 * 1087 + 1088 RCL 09 1089 77 1090 - 1091 COS 1092 RCL 07 1093 16 1094 + 1095 COS 1096 + 1097 5 1098 * 1099 + 1100 RCL 13 1101 7 1102 + 1103 SIN 1104 71 1105 * 1106 + 1107 RCL 10 1108 27.8 1109 + 1110 COS 1111 584 1112 * 1113 + 1114 STO 08 1115 RCL 09 1116 69 1117 - 1118 SIN 1119 RCL 13 1120 36 1121 - 1122 COS 1123 - 1124 9 1125 * 1126 STO 09 1127 RCL 13 1128 6 1129 + 1130 COS 1131 17 1132 * 1133 CHS 1134 STO 10 1135 219883 1136 STO 06 1137 30070 1138 STO 04 1139 899 1140 STO 03 1141 CLX 1142 STO 13 1143 1770 1144 RCL 00 1145 9 1146 * 1147 - 1148 STO 11 1149 1426 1150 STO 07 1151 55654 1152 CHS 1153 STO 12 1154 48124 1155 STO 05 1156 83660 1157 + 1158 1102 1159 XEQ 14 1160 RTN 1161 LBL 09 1162 RCL 00 1163 2890 1164 * 1165 65 1166 + 1167 COS 1168 7 1169 * 1170 STO 08 1171 RCL 00 1172 STO 10 1173 ST+ 10 1174 9 1175 * 1176 4 1177 - 1178 STO 09 1179 39489 1180 STO 04 1181 24900 1182 STO 03 1183 CLX 1184 STO 13 1185 17140 1186 STO 11 1187 224075 1188 STO 05 1189 238927 1190 STO 12 1191 146567 1192 STO 06 1193 36260 1194 - 1195 1397 1196 STO 07 1197 GTO 14 1198 LBL 12 1199 102 1200 RCL 00 1201 2.06 1202 * 1203 STO 09 1204 * 1205 STO 13 1206 4 1207 LASTX 1208 * 1209 STO 10 1210 52 1211 * 1212 STO 12 1213 19 1214 RCL 09 1215 * 1216 STO 11 1217 593 1218 LASTX 1219 * 1220 STO 07 1221 LASTX 1222 880 1223 * 1224 STO 03 1225 + 1226 STO 06 1227 LASTX 1228 RCL 07 1229 - 1230 STO 04 1231 + 1232 STO 05 1233 RCL 10 1234 ST+ X 1235 RCL 09 1236 31 1237 * 1238 STO 08 1239 RCL 13 1240 RCL 10 1241 - 1242 11 1243 - 1244 COS 1245 RTN 1246 LBL 13 1247 0 1248 STO 08 1249 STO 09 1250 STO 10 1251 RDN 1252 LBL 14 |
1253
RCL 00 1254 ST* 06 1255 ST* 07 1256 ST* 13 1257 * 1258 + 1259 X<> 13 1260 ST+ 03 1261 5 1262 10^X 1263 ST/ 03 1264 RCL 06 1265 RCL 12 1266 + 1267 RCL 05 1268 RCL 07 1269 + 1270 9 1271 STO 06 1272 SQRT 1273 10^X 1274 ST/ 04 1275 ST/ 08 1276 ST/ 09 1277 ST/ 10 1278 ST/ 11 1279 ST/ 13 1280 ST/ Z 1281 / 1282 STO 05 1283 - 1284 ENTER 1285 ENTER 1286 LBL 11 1287 SIN 1288 RCL 03 1289 R-D 1290 * 1291 + 1292 DSE 06 1293 GTO 11 1294 STO 07 1295 COS 1296 RCL 03 1297 * 1298 RCL 04 1299 ST* Y 1300 - 1301 ST- 10 1302 RCL 07 1303 2 1304 / 1305 TAN 1306 RCL 03 1307 1 1308 ST+ Y 1309 RCL 03 1310 - 1311 / 1312 SQRT 1313 * 1314 ATAN 1315 ST+ X 1316 RCL 05 1317 + 1318 RCL 13 1319 ST+ 08 1320 - 1321 COS 1322 RCL 11 1323 LASTX 1324 SIN 1325 P-R 1326 X<>Y 1327 ASIN 1328 ST+ 09 1329 X<> Z 1330 R-P 1331 RDN 1332 ST+ 08 1333 RCL 09 1334 RCL 10 1335 P-R 1336 RCL 08 1337 X<>Y 1338 P-R 1339 RCL 02 1340 ST+ Z 1341 CLX 1342 RCL 01 1343 + 1344 R-P 1345 X<>Y 1346 STO 03 1347 STO 13 1348 RDN 1349 R-P 1350 STO 05 1351 X<>Y 1352 STO 04 1353 RCL 10 1354 SQRT 1355 RCL 10 1356 X^2 1357 ST/ Y 1358 1 1359 - 1360 RCL 05 1361 X^2 1362 ST+ Y 1363 ST+ X 1364 / 1365 ST* Y 1366 - 1367 RCL 05 1368 176 1369 / 1370 ST* Y 1371 + 1372 ST- 03 1373 LBL 00 1374 RCL 00 1375 1934 1376 * 1377 55 1378 + 1379 1 1380 P-R 1381 391 1382 / 1383 549.4 1384 SQRT 1385 - 1386 RCL 00 1387 77 1388 / 1389 + 1390 STO 12 1391 COS 1392 X<>Y 1393 209 1394 / 1395 * 1396 X<> 12 1397 RCL 03 1398 LASTX 1399 - 1400 STO 03 1401 RCL 04 1402 XEQ 13 1403 STO 06 1404 RCL 16 1405 R^ 1406 STO 07 1407 90 1408 STO 11 1409 ST- Z 1410 R^ 1411 + 1412 RCL 12 1413 + 1414 RCL 14 1415 - 1416 X<>Y 1417 XEQ 13 1418 ST- 11 1419 RCL Z 1420 ENTER 1421 COS 1422 RCL 05 1423 409 1424 * 1425 / 1426 - 1427 STO 12 1428 10.3 1429 RCL 12 1430 5.11 1431 + 1432 / 1433 + 1434 TAN 1435 1/X 1436 59 1437 / 1438 + 1439 X<>Y 1440 RCL 11 1441 RTN 1442 LBL 13 1443 SIN 1444 X<>Y 1445 LASTX 1446 COS 1447 P-R 1448 RDN 1449 R-P 1450 X<> Z 1451 - 1452 X<>Y 1453 P-R 1454 R^ 1455 R-P 1456 X<>Y 1457 RDN 1458 R-P 1459 R^ 1460 END |
( 2114 bytes / SIZE 017 )
| STACK | INPUTS | OUTPUTS |
| Z | N | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
N = number of days since 2000/01/01
N ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
............................................................................
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 15
47.6 STO 16
Date = 2024/05/01 = 8887 since 2000/01/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
8887 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°041
= R11
RDN
h =
-2°383
= R12
RDN
h0 =
-1°687
( often meaningless
when < 0 )
and R01 = X = 0.75315 AU
R02 = Y = 0.66949
AU
R03 = 41°628 = Geocentric longitude
R06 = 39.193 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.321
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R14 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.343
RDN
h = 15.330
RDN
h0 = 15.390
R03 = 312.291 = Geocentric longitude
R06
= -43.839 = right-ascension
R04 = -4.678
= Geocentric
latitude
R07 = -21.598
= declination
R05 = 0.002496 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.533
RDN
h =
3.976
RDN
h0 =
4.165
R04 = -2.421 = Geocentric latitude R07 = 4.600 = declination R09 = -3.661 = heliocentric latitude
R05 = 0.70519 AU = distance Earth-Mercury R10 = 0.46660 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.974
RDN h = -0.239
RDN h0 = 0.278
R03 = 32.524 = Geocentric longitude R06 = 30.754 = right-ascension R08 = 19.828 = heliocentric longitude
R04 = -1.214 = Geocentric latitude R07 = 11.208 = declination R09 = -2.851 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.893
RDN h = 10.518
RDN h0 = 10.604
R03 = 0.680 = Geocentric longitude R06 = 1.127 = right-ascension R08 = -27.877 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.890 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9745 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
R/S or XEQ 05 >>>> Az = 232.447
RDN h = -7.534
RDN h0 = -7.615 ( often meaningless when < 0 )
R03 = 54.249 = Geocentric longitude R06 = 52.076 = right-ascension R08 = 56.778 = heliocentric longitude
R04 = -0.759 = Geocentric latitude R07 = 18.097 = declination R09 = -0.908 = heliocentric latitude
R05 = 5.989 AU = distance Earth-Jupiter R10 = 5.010 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.990
RDN h = 13.916
RDN h0 = 13.981
R03 = -13.318 = Geocentric longitude R06 = -11.568 = right-ascension R08 = -18.191 = heliocentric longitude
R04 = -1.752 = Geocentric latitude R07 = -6.872 = declination R09 = -1.851 = heliocentric latitude
R05 = 10.248 AU = distance Earth-Saturn R10 = 9.704 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.010
RDN h = -6.436
RDN h0 = -6.503 ( often meaningless when < 0 )
R03 = 52.415 = Geocentric longitude R06 = 50.077 = right-ascension R08 = 52.975 = heliocentric longitude
R04 = -0.264 = Geocentric latitude R07 = 18.119 = declination R09 = -0.277 = heliocentric latitude
R05 = 20.568 AU = distance Earth-Uranus R10 = 19.579 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.223
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.050 = Geocentric longitude R06 = -0.474 = right-ascension R08 = -2.354 = heliocentric longitude
R04 = -1.231 = Geocentric latitude R07 = -1.547 = declination R09 = -1.261 = heliocentric latitude
R05 = 30.624 AU = distance Earth-Neptune R10 = 29.891 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.725
RDN h = 18.064
RDN h0 = 18.115
R03 = -57.901 = Geocentric longitude R06 = -54.904 = right-ascension R08 = -59.529 = heliocentric longitude
R04 = -3.028 = Geocentric latitude R07 = -22.641 = declination R09 = -3.013 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-HP41 in mode DEG
-Z output = h0 = apparent altitude but it is not in a register.
-Maximum errors with heliocentric longitudes:
Mars: 0°0088
Jupiter: 0°0128
Saturn: 0°0115
Uranus: 0°0107
Neptune: 0°0066
Pluto: 0°0110
-Maximum errors with geocentric longitudes, the Moon: ~ 0°0176
2°) HP41CV With X-Functions Module - Program ( 867 bytes + 1502 or 1498 bytes )
Registers:
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13: temp
R14 = local true sidereal time ( deg )
• R15 = Longitude of the observer ( deg ) positive East
• R16 = Latitude of the observer ( deg)
-The first program computes the Sun, the Moon, Mercury, Venus and Mars.
-With this program ( if you call it "S" ) ,S SAVEP and CLP
| 01
- 02 STO 03 03 SIN 04 RCL 00 05 20 06 * 07 18 08 - 09 COS 10 - 11 RCL 00 12 32964 13 * 14 22 15 - 16 COS 17 - 18 ST+ X 19 X<> 03 20 COS 21 PI 22 % 23 STO 05 24 CLST 25 STO 01 26 STO 02 27 STO 04 28 STO 11 29 XEQ "X" 30 CLX 31 RCL 13 32 RCL 05 33 P-R 34 STO 01 35 RDN 36 STO 02 37 CLX 38 RCL 11 39 RTN 40 LBL 03 41 RCL 00 42 3599905 43 % 44 2.96 45 - 46 STO 11 47 STO 12 48 RCL 00 49 44526711 50 % 51 68.25 52 - 53 STO 13 54 ST+ X 55 STO 05 56 STO 10 57 ST- 11 58 STO 06 59 ST+ X 60 STO 03 61 RCL 00 62 47719887 63 % 64 128.43 65 + 66 ST- 05 67 STO 07 68 ST+ 10 69 ST+ X 70 STO 08 71 RCL 00 72 48320202 73 % 74 86.66 75 + 76 STO 09 77 RCL 07 78 + 79 SIN 80 281 81 * 82 RCL 07 83 RCL 09 84 - 85 SIN 86 278 |
87
* 88 + 89 RCL 06 90 RCL 09 91 - 92 SIN 93 173 94 * 95 + 96 RCL 05 97 RCL 09 98 + 99 SIN 100 55 101 * 102 + 103 RCL 05 104 RCL 09 105 - 106 SIN 107 46 108 * 109 + 110 RCL 06 111 RCL 09 112 + 113 SIN 114 33 115 * 116 + 117 RCL 08 118 RCL 09 119 + 120 SIN 121 17 122 * 123 + 124 RCL 10 125 RCL 09 126 - 127 SIN 128 RCL 08 129 RCL 09 130 - 131 SIN 132 + 133 9 134 * 135 + 136 RCL 09 137 RCL 11 138 + 139 SIN 140 RCL 09 141 SIN 142 641 143 * 144 - 145 8 146 * 147 - 148 RCL 06 149 RCL 09 150 - 151 STO 04 152 RCL 08 153 - 154 SIN 155 RCL 09 156 RCL 10 157 + 158 SIN 159 + 160 4 161 * 162 + 163 RCL 04 164 RCL 12 165 + 166 SIN 167 PI 168 * 169 - 170 RCL 05 171 RCL 12 172 - |
173
STO 04 174 RCL 09 175 ST- 04 176 + 177 SIN 178 RCL 06 179 RCL 09 180 + 181 RCL 12 182 - 183 SIN 184 + 185 RCL 04 186 SIN 187 + 188 ST+ X 189 + 190 STO 04 191 RCL 07 192 SIN 193 6289 194 * 195 RCL 06 196 SIN 197 658 198 * 199 + 200 RCL 08 201 SIN 202 214 203 * 204 + 205 RCL 09 206 ST+ X 207 STO 09 208 SIN 209 114 210 * 211 - 212 RCL 06 213 RCL 08 214 - 215 SIN 216 59 217 * 218 + 219 RCL 05 220 RCL 12 221 - 222 SIN 223 57 224 * 225 + 226 RCL 10 227 SIN 228 53 229 * 230 + 231 RCL 11 232 SIN 233 46 234 * 235 - 236 RCL 12 237 RCL 07 238 - 239 SIN 240 41 241 * 242 - 243 RCL 05 244 SIN 245 98 246 * 247 RCL 07 248 RCL 09 249 + 250 SIN 251 - 252 13 253 * 254 + 255 RCL 07 256 RCL 09 257 - 258 SIN |
259
RCL 03 260 RCL 07 261 - 262 SIN 263 + 264 11 265 * 266 + 267 RCL 12 268 SIN 269 37 270 * 271 RCL 13 272 SIN 273 7 274 * 275 + 276 RCL 07 277 RCL 12 278 + 279 SIN 280 6 281 * 282 + 283 RCL 06 284 RCL 09 285 - 286 SIN 287 3 288 * 289 - 290 RCL 07 291 RCL 08 292 + 293 SIN 294 ST+ X 295 - 296 RCL 13 297 RCL 07 298 - 299 SIN 300 + 301 RCL 12 302 ST- 10 303 RCL 13 304 + 305 SIN 306 - 307 5 308 * 309 - 310 RCL 05 311 ST+ X 312 SIN 313 9 314 * 315 + 316 RCL 05 317 RCL 12 318 + 319 SIN 320 8 321 * 322 - 323 RCL 06 324 RCL 12 325 + 326 SIN 327 7 328 * 329 - 330 RCL 10 331 SIN 332 RCL 06 333 RCL 08 334 + 335 SIN 336 + 337 RCL 03 338 SIN 339 + 340 RCL 05 341 RCL 08 342 - 343 SIN 344 + |
345
RCL 00 346 132 347 * 348 60 349 - 350 SIN 351 - 352 4 353 * 354 + 355 RCL 08 356 RCL 12 357 ST+ 08 358 - 359 SIN 360 RCL 05 361 RCL 09 362 + 363 SIN 364 - 365 3 366 * 367 + 368 RCL 06 369 RCL 08 370 - 371 SIN 372 RCL 07 373 RCL 13 374 + 375 SIN 376 - 377 RCL 06 378 RCL 12 379 ST+ X 380 STO 09 381 - 382 SIN 383 + 384 RCL 08 385 SIN 386 - 387 RCL 09 388 SIN 389 - 390 RCL 05 391 RCL 09 392 - 393 SIN 394 + 395 ST+ X 396 + 397 481267881 398 RCL 00 399 ST+ X 400 - 401 RCL 00 402 * 403 211728 404 + 405 + 406 3 407 10^X 408 ST/ 04 409 / 410 360 411 MOD 412 STO 03 413 2574 414 RCL 07 415 COS 416 28 417 * 418 RCL 05 419 COS 420 5 421 * 422 + 423 RCL 06 424 COS 425 4 426 * 427 + 428 5 429 * 430 - |
431
6 432 10^X 433 / 434 STO 05 435 XEQ "Y" 436 RTN 437 LBL 01 438 387.1 439 STO 09 440 20563 441 STO 08 442 7005 443 RCL 00 444 2 445 STO 13 446 * 447 + 448 STO 11 449 1556 450 STO 07 451 77456 452 STO 10 453 250205 454 STO 12 455 149474072 456 STO 06 457 CLX 458 STO 03 459 STO 04 460 STO 05 461 48331 462 1186 463 XEQ "X" 464 RTN 465 LBL 02 466 RCL 00 467 45038 468 * 469 17 470 - 471 SIN 472 PI 473 * 474 STO 03 475 CLX 476 STO 04 477 STO 05 478 723.33 479 STO 09 480 677 481 STO 08 482 5 483 CHS 484 STO 13 485 3395 486 RCL 00 487 + 488 STO 11 489 1402 490 STO 07 491 131564 492 STO 10 493 181179 494 STO 12 495 58519213 496 STO 06 497 76680 498 901 499 XEQ "X" 500 RTN 501 LBL 04 502 XEQ "Z" 503 RCL 04 504 10 505 * 506 STO 05 507 SIN 508 RCL 00 509 * 510 PI 511 * 512 RCL 03 513 264 514 * 515 13 |
516
+ 517 COS 518 RCL 04 519 7077 520 * 521 SIN 522 - 523 RCL 04 524 532 525 * 526 49 527 + 528 COS 529 + 530 RCL 05 531 21 532 - 533 COS 534 7 535 * 536 + 537 ST+ X 538 + 539 RCL 09 540 22 541 * 542 RCL 03 543 + 544 ST+ 06 545 12 546 - 547 COS 548 6 549 * 550 - 551 RCL 06 552 49 553 + 554 COS 555 7 556 * 557 + 558 RCL 08 559 RCL 11 560 + 561 RCL 12 562 + 563 22 564 + 565 COS 566 RCL 06 567 ST+ X 568 12 569 + 570 COS 571 - 572 4 573 * 574 + 575 STO 03 576 CLX 577 STO 04 578 STO 05 579 1523.7 580 STO 09 581 9340 582 STO 08 583 1850 584 STO 11 585 9 586 STO 13 587 - 588 STO 07 589 4829 590 CHS 591 STO 12 592 19141696 593 STO 06 594 23940 595 CHS 596 STO 10 597 49558 598 772 599 GTO "X" 600 END |
( 867 bytes / SIZE 017 )
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 STO 14 10 24 11 / 12 X<>Y 13 INT 14 ST- L 15 LASTX 16 2 17 10^X 18 STO 02 19 * 20 ENTER 21 INT 22 STO 01 23 - 24 RCL 02 25 * 26 X<> 01 27 1 28 E^X 29 - 30 12 31 / 32 + 33 INT 34 ST- 01 35 LASTX 36 367 37 * 38 INT 39 ST+ 01 40 SIGN 41 % 42 INT 43 .75 44 CHS 45 ST* Z 46 * 47 X<>Y 48 RCL 01 49 + 50 INT 51 + 52 INT 53 730434 54 - 55 + 56 36525 57 / 58 ST+ 00 59 36000770 60 STO 06 61 * 62 3 63 10^X 64 STO 09 65 / 66 RCL 02 67 + 68 31 69 1/X 70 - 71 RCL 14 72 15 73 * 74 + 75 RCL 15 76 + 77 STO 14 78 1671 79 STO 08 80 48 81 + 82 STO 07 83 4 84 CHS 85 STO 13 86 80026 87 CHS 88 STO 12 89 2963 90 + 91 STO 10 92 CLA 93 190 94 XTOA 95 RCL 00 96 445267 97 * 98 68 99 ASTO b 100 LBL 05 101 XEQ "Z" 102 RCL 08 103 73 104 + 105 COS 106 RCL 10 107 RCL 07 108 - 109 41 110 + 111 SIN 112 - 113 509 114 SQRT 115 * 116 RCL 08 117 3 118 * 119 28 120 + 121 COS 122 RCL 09 123 ST+ X 124 STO 12 125 25 126 + 127 COS 128 + 129 5 130 * 131 - 132 RCL 06 133 RCL 12 134 + 135 69 136 - 137 COS 138 RCL 06 139 RCL 11 140 + 141 STO 04 142 12 143 + 144 SIN 145 4 146 * 147 - 148 RCL 07 149 COS 150 + 151 RCL 06 152 ST+ X |
153
STO 12 154 RCL 09 155 + 156 79 157 + 158 COS 159 - 160 RCL 11 161 32 162 - 163 COS 164 RCL 00 165 * 166 + 167 4 168 * 169 + 170 RCL 11 171 ST- 06 172 ST- 12 173 ST+ X 174 75 175 ST- 09 176 + 177 COS 178 RCL 12 179 60 180 + 181 COS 182 - 183 RCL 13 184 3 185 ST* 05 186 * 187 76 188 + 189 COS 190 + 191 RCL 05 192 SIN 193 + 194 3 195 * 196 + 197 RCL 09 198 SIN 199 37 200 * 201 + 202 RCL 06 203 61 204 - 205 SIN 206 6 207 * 208 RCL 10 209 33 210 - 211 SIN 212 8 213 * 214 + 215 RCL 11 216 7.3 217 - 218 SIN 219 47 220 * 221 - 222 7 223 * 224 + 225 STO 03 226 RCL 04 227 18 228 + 229 COS 230 4 231 * 232 RCL 06 233 63 234 - 235 SIN 236 5 237 * 238 + 239 STO 04 240 RCL 10 241 COS 242 3 243 * 244 CHS 245 STO 05 246 5203 247 STO 09 248 1303 249 RCL 00 250 5 251 * 252 - 253 STO 11 254 3036303 255 STO 06 256 4849 257 STO 08 258 16 259 STO 13 260 1613 261 STO 07 262 34310 263 STO 12 264 14331 265 STO 10 266 86133 267 + 268 1021 269 XEQ "X" 270 RTN 271 LBL 06 272 XEQ "Z" 273 CLX 274 21 275 - 276 COS 277 RCL 11 278 ST+ X 279 STO 12 280 75 281 + 282 COS 283 - 284 RCL 05 285 R^ 286 STO 05 287 + 288 SIN 289 - 290 8 291 * 292 RCL 06 293 14 294 + 295 COS 296 RCL 04 297 7 298 * 299 62 300 + 301 COS 302 - 303 RCL 11 304 RCL 07 |
305
+ 306 STO 04 307 LASTX 308 + 309 COS 310 - 311 RCL 07 312 RCL 12 313 - 314 36 315 + 316 COS 317 + 318 3 319 * 320 + 321 RCL 08 322 30 323 - 324 COS 325 RCL 10 326 54 327 + 328 COS 329 + 330 RCL 09 331 RCL 11 332 + 333 STO 10 334 RCL 06 335 - 336 25 337 - 338 COS 339 + 340 RCL 04 341 50 342 - 343 SIN 344 5 345 * 346 + 347 RCL 11 348 7.3 349 - 350 SIN 351 90 352 * 353 + 354 9 355 * 356 + 357 RCL 07 358 RCL 03 359 - 360 COS 361 RCL 08 362 RCL 13 363 - 364 RCL 05 365 - 366 79 367 - 368 COS 369 + 370 RCL 09 371 ST+ X 372 ST+ 07 373 30 374 + 375 STO 12 376 COS 377 38 378 * 379 - 380 6 381 * 382 - 383 RCL 10 384 SIN 385 7 386 * 387 RCL 11 388 32 389 - 390 COS 391 5 392 * 393 RCL 00 394 * 395 - 396 RCL 09 397 14 398 + 399 COS 400 59 401 * 402 + 403 ST+ X 404 + 405 STO 03 406 RCL 12 407 3 408 + 409 COS 410 20 411 ST+ 04 412 ST- 08 413 * 414 RCL 07 415 28 416 - 417 COS 418 RCL 04 419 COS 420 3 421 * 422 - 423 6 424 * 425 + 426 RCL 11 427 SIN 428 4 429 * 430 + 431 RCL 08 432 28 433 - 434 COS 435 RCL 13 436 3 437 * 438 76 439 - 440 COS 441 + 442 3 443 * 444 + 445 STO 04 446 RCL 12 447 SIN 448 19 449 * 450 RCL 08 451 COS 452 8 453 * 454 + 455 RCL 09 456 73 |
457
- 458 COS 459 6 460 * 461 + 462 STO 05 463 1223511 464 STO 06 465 9543 466 STO 09 467 5553 468 STO 08 469 35 470 CHS 471 STO 13 472 2489 473 RCL 00 474 4 475 * 476 - 477 STO 11 478 1964 479 STO 07 480 50061 481 STO 12 482 93057 483 STO 10 484 20609 485 + 486 877 487 XEQ "X" 488 RTN 489 LBL 07 490 XEQ "Z" 491 5 492 * 493 CHS 494 R^ 495 STO 04 496 RCL 05 497 + 498 STO 08 499 10 500 STO 10 501 + 502 SIN 503 7 504 * 505 + 506 RCL 12 507 ST- 07 508 RCL 13 509 ST+ X 510 STO 11 511 + 512 20 513 - 514 SIN 515 3 516 * 517 RCL 11 518 RCL 13 519 + 520 60 521 - 522 COS 523 + 524 4 525 * 526 + 527 RCL 07 528 28 529 + 530 COS 531 6 532 * 533 + 534 RCL 13 535 RCL 10 536 + 537 SIN 538 RCL 10 539 ST- 06 540 * 541 - 542 RCL 12 543 ST- 06 544 RCL 08 545 - 546 27 547 + 548 COS 549 RCL 12 550 RCL 04 551 - 552 COS 553 RCL 06 554 COS 555 - 556 5 557 * 558 + 559 3 560 * 561 - 562 RCL 12 563 RCL 03 564 - 565 51 566 - 567 COS 568 ST+ Y 569 RCL 05 570 RCL 12 571 + 572 STO 08 573 11 574 - 575 COS 576 + 577 RCL 05 578 62.2 579 - 580 SIN 581 22 582 * 583 + 584 39 585 ST+ 04 586 * 587 + 588 RCL 03 589 73 590 + 591 SIN 592 RCL 04 593 SIN 594 + 595 35 596 * 597 - 598 RCL 11 599 19 600 + 601 STO 11 602 SIN 603 209 604 * 605 - 606 STO 03 607 RCL 11 608 14 |
609
+ 610 COS 611 RCL 08 612 SIN 613 - 614 6 615 * 616 STO 04 617 RCL 11 618 COS 619 34 620 * 621 RCL 08 622 79 623 + 624 COS 625 7 626 * 627 - 628 STO 05 629 429864 630 STO 06 631 19192 632 STO 09 633 45955 634 CHS 635 STO 12 636 4630 637 STO 08 638 3 639 CHS 640 STO 13 641 773 642 RCL 00 643 + 644 STO 11 645 1486 646 STO 07 647 172993 648 STO 10 649 74005 650 521 651 XEQ "X" 652 RTN 653 LBL 08 654 XEQ "Z" 655 22 656 * 657 R^ 658 STO 04 659 50 660 - 661 COS 662 24 663 * 664 + 665 RCL 06 666 RCL 13 667 ST+ 04 668 RCL 05 669 + 670 ST- 07 671 - 672 COS 673 9 674 * 675 + 676 RCL 04 677 77 678 - 679 COS 680 RCL 07 681 16 682 + 683 COS 684 + 685 5 686 * 687 + 688 RCL 13 689 7 690 + 691 SIN 692 71 693 * 694 + 695 RCL 05 696 27.8 697 + 698 COS 699 584 700 * 701 + 702 STO 03 703 RCL 04 704 69 705 - 706 SIN 707 RCL 13 708 36 709 - 710 COS 711 - 712 9 713 * 714 STO 04 715 RCL 05 716 63 717 - 718 COS 719 8 720 * 721 RCL 13 722 6 723 + 724 COS 725 17 726 * 727 - 728 STO 05 729 219883 730 STO 06 731 30070 732 STO 09 733 899 734 STO 08 735 CLX 736 STO 13 737 1770 738 RCL 00 739 9 740 * 741 - 742 STO 11 743 1426 744 STO 07 745 55654 746 CHS 747 STO 12 748 48124 749 STO 10 750 83660 751 + 752 1102 753 XEQ "X" 754 RTN 755 LBL 09 756 RCL 00 757 2890 758 * 759 65 |
760
+ 761 COS 762 7 763 * 764 RCL 00 765 1077 766 * 767 76 768 + 769 COS 770 4 771 * 772 + 773 STO 03 774 RCL 00 775 STO 05 776 ST+ 05 777 9 778 * 779 4 780 - 781 STO 04 782 39489 783 STO 09 784 24900 785 STO 08 786 CLX 787 STO 13 788 17140 789 STO 11 790 224075 791 STO 10 792 238927 793 STO 12 794 146567 795 STO 06 796 36260 797 - 798 1397 799 STO 07 800 LBL "X" 801 RCL 00 802 ST* 06 803 ST* 07 804 ST* 13 805 * 806 + 807 X<> 13 808 ST+ 08 809 5 810 10^X 811 ST/ 08 812 RCL 06 813 RCL 12 814 + 815 RCL 07 816 RCL 10 817 + 818 9 819 STO 06 820 SQRT 821 10^X 822 ST/ 03 823 ST/ 04 824 ST/ 05 825 ST/ 09 826 ST/ 11 827 ST/ 13 828 ST/ Z 829 / 830 STO 10 831 - 832 ENTER 833 ENTER 834 LBL 11 835 SIN 836 RCL 08 837 R-D 838 * 839 + 840 DSE 06 841 GTO 11 842 STO 07 843 2 844 / 845 TAN 846 RCL 08 847 1 848 ST+ Y 849 RCL 08 850 - 851 / 852 SQRT 853 * 854 ATAN 855 ST+ X 856 1 857 RCL 07 858 COS 859 RCL 08 860 * 861 - 862 RCL 09 863 * 864 RCL 05 865 + 866 X<> 10 867 + 868 RCL 13 869 ST+ 03 870 - 871 COS 872 RCL 11 873 LASTX 874 SIN 875 P-R 876 X<>Y 877 ASIN 878 RCL 04 879 + 880 STO 09 881 X<> Z 882 R-P 883 CLX 884 RCL 03 885 + 886 STO 08 887 X<>Y 888 RCL 10 889 P-R 890 RCL 08 891 X<>Y 892 P-R 893 RCL 02 894 ST+ Z 895 CLX 896 RCL 01 897 + 898 R-P 899 X<>Y 900 STO 03 901 STO 13 902 RDN 903 R-P 904 STO 05 905 X<>Y 906 STO 04 907 RCL 10 908 SQRT 909 RCL 10 910 X^2 |
912
1 913 - 914 RCL 05 915 X^2 916 ST+ Y 917 ST+ X 918 / 919 ST* Y 920 - 921 RCL 05 922 176 923 / 924 ST* Y 925 + 926 ST- 03 927 LBL "Y" 928 RCL 00 929 1934 930 * 931 55 932 + 933 1 934 P-R 935 391 936 / 937 549.4 938 SQRT 939 - 940 RCL 00 941 77 942 / 943 + 944 STO 12 945 COS 946 X<>Y 947 209 948 / 949 * 950 X<> 12 951 RCL 03 952 LASTX 953 - 954 STO 03 955 RCL 04 956 XEQ 13 957 STO 06 958 RCL 16 959 R^ 960 STO 07 961 90 962 STO 11 963 ST- Z 964 R^ 965 + 966 RCL 12 967 + 968 RCL 14 969 - 970 X<>Y 971 XEQ 13 972 ST- 11 973 RCL Z 974 ENTER 975 COS 976 RCL 05 977 409 978 * 979 / 980 - 981 STO 12 982 10.3 983 RCL 12 984 5.11 985 + 986 / 987 + 988 TAN 989 1/X 990 59 991 / 992 + 993 X<>Y 994 RCL 11 995 RTN 996 LBL 13 997 SIN 998 X<>Y 999 LASTX 1000 COS 1001 P-R 1002 RDN 1003 R-P 1004 X<> Z 1005 - 1006 X<>Y 1007 P-R 1008 R^ 1009 R-P 1010 X<>Y 1011 RDN 1012 R-P 1013 R^ 1014 RTN 1015 LBL "Z" 1016 102 1017 RCL 00 1018 2.06 1019 * 1020 STO 04 1021 * 1022 STO 13 1023 4 1024 LASTX 1025 * 1026 STO 05 1027 52 1028 * 1029 STO 12 1030 19 1031 RCL 04 1032 * 1033 STO 11 1034 593 1035 LASTX 1036 * 1037 STO 07 1038 LASTX 1039 880 1040 * 1041 STO 08 1042 + 1043 STO 06 1044 LASTX 1045 RCL 07 1046 - 1047 STO 09 1048 + 1049 STO 10 1050 RCL 05 1051 ST+ X 1052 RCL 04 1053 31 1054 * 1055 STO 03 1056 RCL 13 1057 RCL 05 1058 - 1059 11 1060 - 1061 COS 1062 END |
( 1502 bytes / SIZE 017 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
........... XEQ 05 for Jupiter
-Then R/S or XEQ 09 ------------------------- Pluto.
Example: Seattle Longitude = -122°333 Latitude = 47°600
-122.333 STO 15
47.6 STO 16
Date = 2024/05/01
Time = 12h41m UT
TT - UT = 69.2 seconds
THE SUN
2024.0501 ENTER^
12.41
ENTER^
69.2
XEQ
"EPH"
Az = 244°041
= R11
RDN
h =
-2°383
= R12
RDN
h0 =
-1°687
( often meaningless when <
0 )
and R01 = X = 0.75315 AU
R02 = Y = 0.66949
AU
R03 = 41°628 = Geocentric longitude
R06 = 39.193 = right-ascension
R04 = 0 =
Geocentric latitude
R07 = 15.321
= declination
R05 = 1.00770 AU
= distance Earth-Sun
-And R14 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.344
RDN
h = 15.330
RDN
h0 = 15.389
R03 = 312.291 = Geocentric longitude
R06
= -43.839 = right-ascension
R04 = -4.678
= Geocentric
latitude
R07 = -21.598
= declination
R05 = 0.002496 AU
= distance Earth-Moon
MERCURY
R/S or
XEQ 01 >>>>
Az = 267.533
RDN
h =
3.976
RDN
h0 =
4.165
R04 = -2.421 = Geocentric latitude R07 = 4.600 = declination R09 = -3.661 = heliocentric latitude
R05 = 0.70519 AU = distance Earth-Mercury R10 = 0.46660 AU = radius vector
VENUS
R/S or XEQ 02 >>>> Az = 252.974
RDN h = -0.240
RDN h0 = 0.278
R03 = 32.524 = Geocentric longitude R06 = 30.755 = right-ascension R08 = 19.830 = heliocentric longitude
R04 = -1.214 = Geocentric latitude R07 = 11.208 = declination R09 = -2.851 = heliocentric latitude
R05 = 1.7019 AU = distance Earth-Venus R10 = 0.7251 AU = radius vector
MARS
R/S or XEQ 04 >>>> Az = -76.891
RDN h = 10.519
RDN h0 = 10.604
R03 = 0.679 = Geocentric longitude R06 = 1.126 = right-ascension R08 = -27.879 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.890 = declination R09 = -1.807 = heliocentric latitude
R05 = 1.9745 AU = distance Earth-Mars R10 = 1.3817 AU = radius vector
JUPITER
GTO "EPH" ( or CAT 1 ... ) and XEQ 05 >>>> Az = 232.446
RDN h = -7.531
RDN h0 = -7.613 ( often meaningless when < 0 )
R03 = 54.249 = Geocentric longitude R06 = 52.075 = right-ascension R08 = 56.776 = heliocentric longitude
R04 = -0.757 = Geocentric latitude R07 = 18.099 = declination R09 = -0.905 = heliocentric latitude
R05 = 5.991 AU = distance Earth-Jupiter R10 = 5.013 AU = radius vector
SATURN
R/S or XEQ 06 >>>> Az = -62.992
RDN h = 13.918
RDN h0 = 13.984
R03 = -13.317 = Geocentric longitude R06 = -11.568 = right-ascension R08 = -18.189 = heliocentric longitude
R04 = -1.749 = Geocentric latitude R07 = -6.869 = declination R09 = -1.847 = heliocentric latitude
R05 = 10.250 AU = distance Earth-Saturn R10 = 9.706 AU = radius vector
URANUS
R/S or XEQ 07 >>>> Az = 234.008
RDN h = -6.436
RDN h0 = -6.503 ( often meaningless when < 0 )
R03 = 52.417 = Geocentric longitude R06 = 50.079 = right-ascension R08 = 52.977 = heliocentric longitude
R04 = -0.264 = Geocentric latitude R07 = 18.119 = declination R09 = -0.277 = heliocentric latitude
R05 = 20.575 AU = distance Earth-Uranus R10 = 19.586 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.223
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.051 = Geocentric longitude R06 = -0.474 = right-ascension R08 = -2.354 = heliocentric longitude
R04 = -1.231 = Geocentric latitude R07 = -1.547 = declination R09 = -1.261 = heliocentric latitude
R05 = 30.627 AU = distance Earth-Neptune R10 = 29.895 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.729
RDN h = 18.065
RDN h0 = 18.115
R03 = -57.897 = Geocentric longitude R06 = -54.900 = right-ascension R08 = -59.525 = heliocentric longitude
R04 = -3.028 = Geocentric latitude R07 = -22.640 = declination R09 = -3.013 = heliocentric latitude
R05 = 34.825 AU = distance Earth-Pluto R10 = 35.006 AU = radius vector
Notes:
-HP41 in mode DEG
-Perhaps a better precision if we replace line 467 ( 5553 ) with 5554 and line 636 ( 4630 ) with 4634
-With geocentric coordinates, nutation, aberration and time-light are taken into account ( approximately )
-With this program, the apparent altitude is in Z-output but not in another register.
-We can add ( with Saturn ) after line 291:
292 RCL 04
293 771
294 *
295 78
296 -
297 COS
298 RCL 04
299 385
300 *
301 COS
302 -
303 RCL 04
304 177
305 *
306 51
307 -
308 COS
309 -
310 ST+ X
311 +
-We can save 4 bytes if LBL 03 is in LBL "EPH": LBL "Y" becomes LBL 00 and XEQ "Y" becomes XEQ 00:
Registers:
R01 = X Rectangular
R02 = Y coordinates of the Sun,
R03 = Geocentric longitude ( deg )
R04 = Geocentric latitude ( deg )
R05 = Distance Earth-Planet ( AU )
R06 = Right-ascension ( deg )
R07 = Declination ( deg )
R08 = Heliocentric longitude ( deg )
R09 = Heliocentric latitude ( deg )
R10 = Radius vector ( AU )
R11 = Azimuth ( deg ) ( reckoned clockwise from South )
R12 = height ( deg )
R13: temp
R14 = local true sidereal time ( deg )
• R15 = Longitude of the observer ( deg ) positive East
• R16 = Latitude of the observer ( deg)
-The first program computes Mars, Jupiter, Saturn and Uranus.
-With this program ( if you call it "S" ) ,S SAVEP and CLP
| 01
COS 02 + 03 21 04 RCL 05 05 - 06 COS 07 7 08 * 09 + 10 ST+ X 11 + 12 RCL 09 13 22 14 * 15 RCL 03 16 + 17 ST+ 06 18 12 19 - 20 COS 21 6 22 * 23 - 24 RCL 06 25 49 26 + 27 COS 28 7 29 * 30 + 31 RCL 08 32 RCL 11 33 + 34 RCL 12 35 + 36 22 37 + 38 COS 39 RCL 06 40 ST+ X 41 12 42 + 43 COS 44 - 45 4 46 * 47 + 48 STO 03 49 CLX 50 STO 04 51 STO 05 52 1523.7 53 STO 09 54 9340 55 STO 08 56 1850 57 STO 11 58 9 59 STO 13 60 - 61 STO 07 62 4829 63 CHS 64 STO 12 65 19141696 66 STO 06 67 23940 68 CHS 69 STO 10 70 49558 71 772 72 XEQ "X" 73 RTN 74 LBL 05 75 XEQ "Z" 76 RCL 08 77 73 78 + 79 COS 80 RCL 10 81 RCL 07 82 - 83 41 84 + 85 SIN 86 - 87 509 88 SQRT 89 * |
90
RCL 08 91 3 92 * 93 28 94 + 95 COS 96 RCL 09 97 ST+ X 98 STO 12 99 25 100 + 101 COS 102 + 103 5 104 * 105 - 106 RCL 06 107 RCL 12 108 + 109 69 110 - 111 COS 112 RCL 06 113 RCL 11 114 + 115 STO 04 116 12 117 + 118 SIN 119 4 120 * 121 - 122 RCL 07 123 COS 124 + 125 RCL 06 126 ST+ X 127 STO 12 128 RCL 09 129 + 130 79 131 + 132 COS 133 - 134 RCL 11 135 32 136 - 137 COS 138 RCL 00 139 * 140 + 141 4 142 * 143 + 144 RCL 11 145 ST- 06 146 ST- 12 147 ST+ X 148 75 149 ST- 09 150 + 151 COS 152 RCL 12 153 60 154 + 155 COS 156 - 157 RCL 13 158 3 159 ST* 05 160 * 161 76 162 + 163 COS 164 + 165 RCL 05 166 SIN 167 + 168 3 169 * 170 + 171 RCL 09 172 SIN 173 37 174 * 175 + 176 RCL 06 177 61 178 - |
179
SIN 180 6 181 * 182 RCL 10 183 33 184 - 185 SIN 186 8 187 * 188 + 189 RCL 11 190 7.3 191 - 192 SIN 193 47 194 * 195 - 196 7 197 * 198 + 199 STO 03 200 RCL 04 201 18 202 + 203 COS 204 4 205 * 206 RCL 06 207 63 208 - 209 SIN 210 5 211 * 212 + 213 STO 04 214 RCL 10 215 COS 216 3 217 * 218 CHS 219 STO 05 220 5203 221 STO 09 222 1303 223 RCL 00 224 5 225 * 226 - 227 STO 11 228 3036303 229 STO 06 230 4849 231 STO 08 232 16 233 STO 13 234 1613 235 STO 07 236 34310 237 STO 12 238 14331 239 STO 10 240 86133 241 + 242 1021 243 XEQ "X" 244 RTN 245 LBL 06 246 XEQ "Z" 247 CLX 248 21 249 - 250 COS 251 RCL 11 252 ST+ X 253 STO 12 254 75 255 + 256 COS 257 - 258 RCL 05 259 R^ 260 STO 05 261 + 262 SIN 263 - 264 8 265 * 266 RCL 06 267 14 |
268
+ 269 COS 270 RCL 04 271 7 272 * 273 62 274 + 275 COS 276 - 277 RCL 11 278 RCL 07 279 + 280 STO 04 281 LASTX 282 + 283 COS 284 - 285 RCL 07 286 RCL 12 287 - 288 36 289 + 290 COS 291 + 292 3 293 * 294 + 295 RCL 08 296 30 297 - 298 COS 299 RCL 10 300 54 301 + 302 COS 303 + 304 RCL 09 305 RCL 11 306 + 307 STO 10 308 RCL 06 309 - 310 25 311 - 312 COS 313 + 314 RCL 04 315 50 316 - 317 SIN 318 5 319 * 320 + 321 RCL 11 322 7.3 323 - 324 SIN 325 90 326 * 327 + 328 9 329 * 330 + 331 RCL 07 332 RCL 03 333 - 334 COS 335 RCL 08 336 RCL 13 337 - 338 RCL 05 339 - 340 79 341 - 342 COS 343 + 344 RCL 09 345 ST+ X 346 ST+ 07 347 30 348 + 349 STO 12 350 COS 351 38 352 * 353 - 354 6 355 * 356 - |
357
RCL 10 358 SIN 359 7 360 * 361 RCL 11 362 32 363 - 364 COS 365 5 366 * 367 RCL 00 368 * 369 - 370 RCL 09 371 14 372 + 373 COS 374 59 375 * 376 + 377 ST+ X 378 + 379 STO 03 380 RCL 12 381 3 382 + 383 COS 384 20 385 ST+ 04 386 ST- 08 387 * 388 RCL 07 389 28 390 - 391 COS 392 RCL 04 393 COS 394 3 395 * 396 - 397 6 398 * 399 + 400 RCL 11 401 SIN 402 4 403 * 404 + 405 RCL 08 406 28 407 - 408 COS 409 RCL 13 410 3 411 * 412 76 413 - 414 COS 415 + 416 3 417 * 418 + 419 STO 04 420 RCL 12 421 SIN 422 19 423 * 424 RCL 08 425 COS 426 8 427 * 428 + 429 RCL 09 430 73 431 - 432 COS 433 6 434 * 435 + 436 STO 05 437 1223511 438 STO 06 439 9543 440 STO 09 441 5553 442 STO 08 443 35 444 CHS 445 STO 13 446 2489 |
447
RCL 00 448 4 449 * 450 - 451 STO 11 452 1964 453 STO 07 454 50061 455 STO 12 456 93057 457 STO 10 458 20609 459 + 460 877 461 XEQ "X" 462 RTN 463 LBL 07 464 XEQ "Z" 465 5 466 * 467 CHS 468 R^ 469 STO 04 470 RCL 05 471 + 472 STO 08 473 10 474 STO 10 475 + 476 SIN 477 7 478 * 479 + 480 RCL 12 481 ST- 07 482 RCL 13 483 ST+ X 484 STO 11 485 + 486 20 487 - 488 SIN 489 3 490 * 491 RCL 11 492 RCL 13 493 + 494 60 495 - 496 COS 497 + 498 4 499 * 500 + 501 RCL 07 502 28 503 + 504 COS 505 6 506 * 507 + 508 RCL 13 509 RCL 10 510 + 511 SIN 512 RCL 10 513 ST- 06 514 * 515 - 516 RCL 12 517 ST- 06 518 RCL 08 519 - 520 27 521 + 522 COS 523 RCL 12 524 RCL 04 525 - 526 COS 527 RCL 06 528 COS 529 - 530 5 531 * 532 + 533 3 534 * 535 - 536 RCL 12 |
537
RCL 03 538 - 539 51 540 - 541 COS 542 ST+ Y 543 RCL 05 544 RCL 12 545 + 546 STO 08 547 11 548 - 549 COS 550 + 551 RCL 05 552 62.2 553 - 554 SIN 555 22 556 * 557 + 558 39 559 ST+ 04 560 * 561 + 562 RCL 03 563 73 564 + 565 SIN 566 RCL 04 567 SIN 568 + 569 35 570 * 571 - 572 RCL 11 573 19 574 + 575 STO 11 576 SIN 577 209 578 * 579 - 580 STO 03 581 RCL 11 582 14 583 + 584 COS 585 RCL 08 586 SIN 587 - 588 6 589 * 590 STO 04 591 RCL 11 592 COS 593 34 594 * 595 RCL 08 596 79 597 + 598 COS 599 7 600 * 601 - 602 STO 05 603 429864 604 STO 06 605 19192 606 STO 09 607 45955 608 CHS 609 STO 12 610 4630 611 STO 08 612 3 613 CHS 614 STO 13 615 773 616 RCL 00 617 + 618 STO 11 619 1486 620 STO 07 621 172993 622 STO 10 623 74005 624 521 625 GTO "X" 626 END |
( 867 bytes / SIZE 017 )
| 01
LBL "EPH" 02 19 03 10^X 04 SQRT 05 / 06 STO 00 07 RDN 08 HR 09 STO 14 10 24 11 / 12 X<>Y 13 INT 14 ST- L 15 LASTX 16 2 17 10^X 18 STO 02 19 * 20 ENTER 21 INT 22 STO 01 23 - 24 RCL 02 25 * 26 X<> 01 27 1 28 E^X 29 - 30 12 31 / 32 + 33 INT 34 ST- 01 35 LASTX 36 367 37 * 38 INT 39 ST+ 01 40 SIGN 41 % 42 INT 43 .75 44 CHS 45 ST* Z 46 * 47 X<>Y 48 RCL 01 49 + 50 INT 51 + 52 INT 53 730434 54 - 55 + 56 36525 57 / 58 ST+ 00 59 36000770 60 STO 06 61 * 62 3 63 10^X 64 STO 09 65 / 66 RCL 02 67 + 68 31 69 1/X 70 - 71 RCL 14 72 15 73 * 74 + 75 RCL 15 76 + 77 STO 14 78 1671 79 STO 08 80 48 81 + 82 STO 07 83 4 84 CHS 85 STO 13 86 80026 87 CHS 88 STO 12 89 2963 90 + 91 STO 10 92 RCL 00 93 445267 94 * 95 68 96 - 97 STO 03 98 SIN 99 RCL 00 100 20 101 * 102 18 103 - 104 COS 105 - 106 RCL 00 107 32964 108 * 109 22 110 - 111 COS 112 - 113 ST+ X 114 X<> 03 115 COS 116 PI 117 % 118 STO 05 119 CLST 120 STO 01 121 STO 02 122 STO 04 123 STO 11 124 XEQ "X" 125 CLX 126 RCL 13 127 RCL 05 128 P-R 129 STO 01 130 RDN 131 STO 02 132 CLX 133 RCL 11 134 RTN 135 LBL 03 136 RCL 00 137 3599905 138 % 139 2.96 140 - 141 STO 11 142 STO 12 143 RCL 00 144 44526711 145 % 146 68.25 147 - 148 STO 13 |
149
ST+ X 150 STO 05 151 STO 10 152 ST- 11 153 STO 06 154 ST+ X 155 STO 03 156 RCL 00 157 47719887 158 % 159 128.43 160 + 161 ST- 05 162 STO 07 163 ST+ 10 164 ST+ X 165 STO 08 166 RCL 00 167 48320202 168 % 169 86.66 170 + 171 STO 09 172 RCL 07 173 + 174 SIN 175 281 176 * 177 RCL 07 178 RCL 09 179 - 180 SIN 181 278 182 * 183 + 184 RCL 06 185 RCL 09 186 - 187 SIN 188 173 189 * 190 + 191 RCL 05 192 RCL 09 193 + 194 SIN 195 55 196 * 197 + 198 RCL 05 199 RCL 09 200 - 201 SIN 202 46 203 * 204 + 205 RCL 06 206 RCL 09 207 + 208 SIN 209 33 210 * 211 + 212 RCL 08 213 RCL 09 214 + 215 SIN 216 17 217 * 218 + 219 RCL 10 220 RCL 09 221 - 222 SIN 223 RCL 08 224 RCL 09 225 - 226 SIN 227 + 228 9 229 * 230 + 231 RCL 09 232 RCL 11 233 + 234 SIN 235 RCL 09 236 SIN 237 641 238 * 239 - 240 8 241 * 242 - 243 RCL 06 244 RCL 09 245 - 246 STO 04 247 RCL 08 248 - 249 SIN 250 RCL 09 251 RCL 10 252 + 253 SIN 254 + 255 4 256 * 257 + 258 RCL 04 259 RCL 12 260 + 261 SIN 262 PI 263 * 264 - 265 RCL 05 266 RCL 12 267 - 268 STO 04 269 RCL 09 270 ST- 04 271 + 272 SIN 273 RCL 06 274 RCL 09 275 + 276 RCL 12 277 - 278 SIN 279 + 280 RCL 04 281 SIN 282 + 283 ST+ X 284 + 285 STO 04 286 RCL 07 287 SIN 288 6289 289 * 290 RCL 06 291 SIN 292 658 293 * 294 + 295 RCL 08 296 SIN |
297
214 298 * 299 + 300 RCL 09 301 ST+ X 302 STO 09 303 SIN 304 114 305 * 306 - 307 RCL 06 308 RCL 08 309 - 310 SIN 311 59 312 * 313 + 314 RCL 05 315 RCL 12 316 - 317 SIN 318 57 319 * 320 + 321 RCL 10 322 SIN 323 53 324 * 325 + 326 RCL 11 327 SIN 328 46 329 * 330 - 331 RCL 12 332 RCL 07 333 - 334 SIN 335 41 336 * 337 - 338 RCL 05 339 SIN 340 98 341 * 342 RCL 07 343 RCL 09 344 + 345 SIN 346 - 347 13 348 * 349 + 350 RCL 07 351 RCL 09 352 - 353 SIN 354 RCL 03 355 RCL 07 356 - 357 SIN 358 + 359 11 360 * 361 + 362 RCL 12 363 SIN 364 37 365 * 366 RCL 13 367 SIN 368 7 369 * 370 + 371 RCL 07 372 RCL 12 373 + 374 SIN 375 6 376 * 377 + 378 RCL 06 379 RCL 09 380 - 381 SIN 382 3 383 * 384 - 385 RCL 07 386 RCL 08 387 + 388 SIN 389 ST+ X 390 - 391 RCL 13 392 RCL 07 393 - 394 SIN 395 + 396 RCL 12 397 ST- 10 398 RCL 13 399 + 400 SIN 401 - 402 5 403 * 404 - 405 RCL 05 406 ST+ X 407 SIN 408 9 409 * 410 + 411 RCL 05 412 RCL 12 413 + 414 SIN 415 8 416 * 417 - 418 RCL 06 419 RCL 12 420 + 421 SIN 422 7 423 * 424 - 425 RCL 10 426 SIN 427 RCL 06 428 RCL 08 429 + 430 SIN 431 + 432 RCL 03 433 SIN 434 + 435 RCL 05 436 RCL 08 437 - 438 SIN 439 + 440 RCL 00 441 132 442 * 443 60 444 - |
445
SIN 446 - 447 4 448 * 449 + 450 RCL 08 451 RCL 12 452 ST+ 08 453 - 454 SIN 455 RCL 05 456 RCL 09 457 + 458 SIN 459 - 460 3 461 * 462 + 463 RCL 06 464 RCL 08 465 - 466 SIN 467 RCL 07 468 RCL 13 469 + 470 SIN 471 - 472 RCL 06 473 RCL 12 474 ST+ X 475 STO 09 476 - 477 SIN 478 + 479 RCL 08 480 SIN 481 - 482 RCL 09 483 SIN 484 - 485 RCL 05 486 RCL 09 487 - 488 SIN 489 + 490 ST+ X 491 + 492 481267881 493 RCL 00 494 ST+ X 495 - 496 RCL 00 497 * 498 211728 499 + 500 + 501 3 502 10^X 503 ST/ 04 504 / 505 360 506 MOD 507 STO 03 508 2574 509 RCL 07 510 COS 511 28 512 * 513 RCL 05 514 COS 515 5 516 * 517 + 518 RCL 06 519 COS 520 4 521 * 522 + 523 5 524 * 525 - 526 6 527 10^X 528 / 529 STO 05 530 XEQ 00 531 RTN 532 LBL 01 533 387.1 534 STO 09 535 20563 536 STO 08 537 7005 538 RCL 00 539 2 540 STO 13 541 * 542 + 543 STO 11 544 1556 545 STO 07 546 77456 547 STO 10 548 250205 549 STO 12 550 149474072 551 STO 06 552 CLX 553 STO 03 554 STO 04 555 STO 05 556 48331 557 1186 558 XEQ "X" 559 RTN 560 LBL 02 561 RCL 00 562 45038 563 * 564 17 565 - 566 SIN 567 PI 568 * 569 STO 03 570 CLX 571 STO 04 572 STO 05 573 723.33 574 STO 09 575 677 576 STO 08 577 5 578 CHS 579 STO 13 580 3395 581 RCL 00 582 + 583 STO 11 584 1402 585 STO 07 586 131564 587 STO 10 588 181179 589 STO 12 590 58519213 591 STO 06 592 76680 |
593
901 594 XEQ "X" 595 RTN 596 LBL 04 597 CLA 598 190 599 XTOA 600 XEQ "Z" 601 RCL 04 602 10 603 * 604 STO 05 605 SIN 606 RCL 00 607 * 608 PI 609 * 610 RCL 03 611 264 612 * 613 13 614 + 615 COS 616 RCL 04 617 7077 618 * 619 SIN 620 - 621 RCL 04 622 532 623 * 624 49 625 + 626 ASTO b 627 LBL 08 628 XEQ "Z" 629 22 630 * 631 R^ 632 STO 04 633 50 634 - 635 COS 636 24 637 * 638 + 639 RCL 06 640 RCL 13 641 ST+ 04 642 RCL 05 643 + 644 ST- 07 645 - 646 COS 647 9 648 * 649 + 650 RCL 04 651 77 652 - 653 COS 654 RCL 07 655 16 656 + 657 COS 658 + 659 5 660 * 661 + 662 RCL 13 663 7 664 + 665 SIN 666 71 667 * 668 + 669 RCL 05 670 27.8 671 + 672 COS 673 584 674 * 675 + 676 STO 03 677 RCL 04 678 69 679 - 680 SIN 681 RCL 13 682 36 683 - 684 COS 685 - 686 9 687 * 688 STO 04 689 RCL 05 690 63 691 - 692 COS 693 8 694 * 695 RCL 13 696 6 697 + 698 COS 699 17 700 * 701 - 702 STO 05 703 219883 704 STO 06 705 30070 706 STO 09 707 899 708 STO 08 709 CLX 710 STO 13 711 1770 712 RCL 00 713 9 714 * 715 - 716 STO 11 717 1426 718 STO 07 719 55654 720 CHS 721 STO 12 722 48124 723 STO 10 724 83660 725 + 726 1102 727 XEQ "X" 728 RTN 729 LBL 09 730 RCL 00 731 2890 732 * 733 65 734 + 735 COS 736 7 737 * 738 RCL 00 739 1077 740 * |
741
76 742 + 743 COS 744 4 745 * 746 + 747 STO 03 748 RCL 00 749 STO 05 750 ST+ 05 751 9 752 * 753 4 754 - 755 STO 04 756 39489 757 STO 09 758 24900 759 STO 08 760 CLX 761 STO 13 762 17140 763 STO 11 764 224075 765 STO 10 766 238927 767 STO 12 768 146567 769 STO 06 770 36260 771 - 772 1397 773 STO 07 774 LBL "X" 775 RCL 00 776 ST* 06 777 ST* 07 778 ST* 13 779 * 780 + 781 X<> 13 782 ST+ 08 783 5 784 10^X 785 ST/ 08 786 RCL 06 787 RCL 12 788 + 789 RCL 07 790 RCL 10 791 + 792 9 793 STO 06 794 SQRT 795 10^X 796 ST/ 03 797 ST/ 04 798 ST/ 05 799 ST/ 09 800 ST/ 11 801 ST/ 13 802 ST/ Z 803 / 804 STO 10 805 - 806 ENTER 807 ENTER 808 LBL 11 809 SIN 810 RCL 08 811 R-D 812 * 813 + 814 DSE 06 815 GTO 11 816 STO 07 817 2 818 / 819 TAN 820 RCL 08 821 1 822 ST+ Y 823 RCL 08 824 - 825 / 826 SQRT 827 * 828 ATAN 829 ST+ X 830 1 831 RCL 07 832 COS 833 RCL 08 834 * 835 - 836 RCL 09 837 * 838 RCL 05 839 + 840 X<> 10 841 + 842 RCL 13 843 ST+ 03 844 - 845 COS 846 RCL 11 847 LASTX 848 SIN 849 P-R 850 X<>Y 851 ASIN 852 RCL 04 853 + 854 STO 09 855 X<> Z 856 R-P 857 CLX 858 RCL 03 859 + 860 STO 08 861 X<>Y 862 RCL 10 863 P-R 864 RCL 08 865 X<>Y 866 P-R 867 RCL 02 868 ST+ Z 869 CLX 870 RCL 01 871 + 872 R-P 873 X<>Y 874 STO 03 875 STO 13 876 RDN 877 R-P 878 STO 05 879 X<>Y 880 STO 04 881 RCL 10 882 SQRT 883 RCL 10 884 X^2 885 ST/ Y 886 1 887 - 888 RCL 05 |
889
X^2 890 ST+ Y 891 ST+ X 892 / 893 ST* Y 894 - 895 RCL 05 896 176 897 / 898 ST* Y 899 + 900 ST- 03 901 LBL 00 902 RCL 00 903 1934 904 * 905 55 906 + 907 1 908 P-R 909 391 910 / 911 549.4 912 SQRT 913 - 914 RCL 00 915 77 916 / 917 + 918 STO 12 919 COS 920 X<>Y 921 209 922 / 923 * 924 X<> 12 925 RCL 03 926 LASTX 927 - 928 STO 03 929 RCL 04 930 XEQ 13 931 STO 06 932 RCL 16 933 R^ 934 STO 07 935 90 936 STO 11 937 ST- Z 938 R^ 939 + 940 RCL 12 941 + 942 RCL 14 943 - 944 X<>Y 945 XEQ 13 946 ST- 11 947 RCL Z 948 ENTER 949 COS 950 RCL 05 951 409 952 * 953 / 954 - 955 STO 12 956 10.3 957 RCL 12 958 5.11 959 + 960 / 961 + 962 TAN 963 1/X 964 59 965 / 966 + 967 X<>Y 968 RCL 11 969 RTN 970 LBL 13 971 SIN 972 X<>Y 973 LASTX 974 COS 975 P-R 976 RDN 977 R-P 978 X<> Z 979 - 980 X<>Y 981 P-R 982 R^ 983 R-P 984 X<>Y 985 RDN 986 R-P 987 R^ 988 RTN 989 LBL "Z" 990 102 991 RCL 00 992 2.06 993 * 994 STO 04 995 * 996 STO 13 997 4 998 LASTX 999 * 1000 STO 05 1001 52 1002 * 1003 STO 12 1004 19 1005 RCL 04 1006 * 1007 STO 11 1008 593 1009 LASTX 1010 * 1011 STO 07 1012 LASTX 1013 880 1014 * 1015 STO 08 1016 + 1017 STO 06 1018 LASTX 1019 RCL 07 1020 - 1021 STO 09 1022 + 1023 STO 10 1024 RCL 05 1025 ST+ X 1026 RCL 04 1027 31 1028 * 1029 STO 03 1030 RCL 13 1031 RCL 05 1032 - 1033 11 1034 - 1035 COS 1036 END |
( 1498 bytes / SIZE 017 )
| STACK | INPUTS | OUTPUTS |
| Z | YYYY.MNDD | h0 = apparent altitude ( deg ) |
| Y | HH.MNSS (UT) | h = true altitude ( deg ) |
| X | DT = TT - UT ( sec) | Az = Azimuth ( deg ) |
YYYY.MNDD ENTER^
HH.MNSS ENTER^
TT - UT XEQ "EPH" returns the azimuthal coordinates of the Sun.
-Then R/S or XEQ 03 gives the coordinates of the Moon
-Then R/S or XEQ 01 ------------------------ Mercury
........... XEQ 08 for Neptune
-Then R/S or XEQ 09 ------------------------- Pluto.
References:
[1] Jean Meeus - "Astronomical Algorithms" - Willmann-Bell
- ISBN 0-943396-61-1
[2] VSOP87D
Series ftp://ftp.imcce.fr/pub/ephem/planets/vsop87/
[3] VSOP09
& TOP2010 Series
http://www.imcce.fr/~jlsimon
[4] A fantastic
software by Aldo Vitagliano:
"SOLEX" which may be
downloaded freely from http://chemistry.unina.it/~alvitagl/solex/